}
void
-fillarray(symbol * sym, cell size, cell value)
+fillarray(symbol * sym, cell size, cell val)
{
- const1(value); /* load value in PRI */
+ const1(val); /* load val in PRI */
assert(sym != NULL);
/* the symbol can be a local array, a global array, or an array
}
void
-ffcase(cell value, char *labelname, int newtable)
+ffcase(cell val, char *labelname, int newtable)
{
if (newtable)
{
code_idx += opcodes(1);
} /* if */
stgwrite("\tcase ");
- outval(value, FALSE);
+ outval(val, FALSE);
stgwrite(" ");
stgwrite(labelname);
stgwrite("\n");
/* set the stack to a hard offset from the frame */
void
-setstk(cell value)
+setstk(cell val)
{
stgwrite("\tlctrl 5\n"); /* get FRM */
- assert(value <= 0); /* STK should always become <= FRM */
- if (value < 0)
+ assert(val <= 0); /* STK should always become <= FRM */
+ if (val < 0)
{
stgwrite("\tadd.c ");
- outval(value, TRUE); /* add (negative) offset */
+ outval(val, TRUE); /* add (negative) offset */
code_idx += opcodes(1) + opargs(1);
- // ??? write zeros in the space between STK and the value in PRI (the new stk)
- // get value of STK in ALT
+ // ??? write zeros in the space between STK and the val in PRI (the new stk)
+ // get val of STK in ALT
// zero PRI
// need new FILL opcode that takes a variable size
} /* if */
}
void
-setheap(cell value)
+setheap(cell val)
{
- stgwrite("\tconst.pri "); /* load default value in PRI */
- outval(value, TRUE);
+ stgwrite("\tconst.pri "); /* load default val in PRI */
+ outval(val, TRUE);
code_idx += opcodes(1) + opargs(1);
setheap_pri();
}
* Add a constant to the primary register.
*/
void
-addconst(cell value)
+addconst(cell val)
{
- if (value != 0)
+ if (val != 0)
{
stgwrite("\tadd.c ");
- outval(value, TRUE);
+ outval(val, TRUE);
code_idx += opcodes(1) + opargs(1);
} /* if */
}