forked from enlightenment/efl
Do not clobber type with var name
value => val, because value is a pre-defined type SVN revision: 50063
This commit is contained in:
parent
ec1bf49da9
commit
33892c5fc4
|
@ -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 */
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue