free_float (ptr)
struct Lisp_Float *ptr;
{
- XFASTINT (ptr->type) = (EMACS_INT) float_free_list;
+ XSETFASTINT (ptr->type, (EMACS_INT) float_free_list);
float_free_list = ptr;
}
XSETFLOAT (val, &float_block->floats[float_block_index++]);
}
XFLOAT (val)->data = float_value;
- XFASTINT (XFLOAT (val)->type) = 0; /* bug chasing -wsr */
+ XSETFASTINT (XFLOAT (val)->type, 0); /* bug chasing -wsr */
consing_since_gc += sizeof (struct Lisp_Float);
return val;
}
free_cons (ptr)
struct Lisp_Cons *ptr;
{
- XFASTINT (ptr->car) = (EMACS_INT) cons_free_list;
+ XSETFASTINT (ptr->car, (EMACS_INT) cons_free_list);
cons_free_list = ptr;
}
{
register Lisp_Object len, val, val_tail;
- XFASTINT (len) = nargs;
+ XSETFASTINT (len, nargs);
val = Fmake_list (len, Qnil);
val_tail = val;
while (!NILP (val_tail))
register int index;
register struct Lisp_Vector *p;
- XFASTINT (len) = nargs;
+ XSETFASTINT (len, nargs);
val = Fmake_vector (len, Qnil);
p = XVECTOR (val);
for (index = 0; index < nargs; index++)
register int index;
register struct Lisp_Vector *p;
- XFASTINT (len) = nargs;
+ XSETFASTINT (len, nargs);
if (!NILP (Vpurify_flag))
val = make_pure_vector (len);
else
XSETFLOAT (new, PUREBEG + pureptr);
pureptr += sizeof (struct Lisp_Float);
XFLOAT (new)->data = num;
- XFASTINT (XFLOAT (new)->type) = 0; /* bug chasing -wsr */
+ XSETFASTINT (XFLOAT (new)->type, 0); /* bug chasing -wsr */
return new;
}
if (XMARKBIT (*objptr))
{
- XFASTINT (*objptr) = ptr->size;
+ XSETFASTINT (*objptr, ptr->size);
XMARK (*objptr);
}
else
- XFASTINT (*objptr) = ptr->size;
+ XSETFASTINT (*objptr, ptr->size);
if ((EMACS_INT) objptr & 1) abort ();
ptr->size = (EMACS_INT) objptr & ~MARKBIT;
if ((EMACS_INT) objptr & MARKBIT)
for (i = 0; i < lim; i++)
if (!XMARKBIT (cblk->conses[i].car))
{
- XFASTINT (cblk->conses[i].car) = (EMACS_INT) cons_free_list;
+ XSETFASTINT (cblk->conses[i].car, (EMACS_INT) cons_free_list);
num_free++;
cons_free_list = &cblk->conses[i];
}
for (i = 0; i < lim; i++)
if (!XMARKBIT (fblk->floats[i].type))
{
- XFASTINT (fblk->floats[i].type) = (EMACS_INT) float_free_list;
+ XSETFASTINT (fblk->floats[i].type, (EMACS_INT) float_free_list);
num_free++;
float_free_list = &fblk->floats[i];
}
for (i = 0; i < lim; i++)
if (!XMARKBIT (sblk->symbols[i].plist))
{
- XFASTINT (sblk->symbols[i].value) = (EMACS_INT) symbol_free_list;
+ XSETFASTINT (sblk->symbols[i].value, (EMACS_INT) symbol_free_list);
symbol_free_list = &sblk->symbols[i];
num_free++;
}
tem1 = &mblk->markers[i]; /* tem1 avoids Sun compiler bug */
XSETMARKER (tem, tem1);
unchain_marker (tem);
- XFASTINT (mblk->markers[i].chain) = (EMACS_INT) marker_free_list;
+ XSETFASTINT (mblk->markers[i].chain, (EMACS_INT) marker_free_list);
marker_free_list = &mblk->markers[i];
num_free++;
}