Do not clobber type with var name

value => val, because value is a pre-defined type



SVN revision: 50063
This commit is contained in:
Lucas De Marchi 2010-07-06 14:16:41 +00:00
parent ec1bf49da9
commit 33892c5fc4
1 changed files with 16 additions and 16 deletions

View File

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