if (SPEC_SCLS (sym->etype) == S_XDATA)
{
- SPEC_OCLS (sym->etype) = xdata;
// should we move this to the initialized data segment?
if (port->genXINIT &&
sym->ival && (sym->level==0) && !SPEC_ABSA(sym->etype)) {
SPEC_OCLS(sym->etype)=xidata;
- addSet(&xidata->syms, sym);
+ } else {
+ SPEC_OCLS (sym->etype) = xdata;
}
allocIntoSeg (sym);
return;
/* unmark is myparm */
lval->sym->ismyparm = 0;
- /* if on stack then depending on which stack */
/* delete it from the symbol table */
deleteSym (SymbolTab, lval->sym, lval->sym->name);
if (!lval->sym->isref)
{
- lval->sym->allocreq = 1;
+ lval->sym->allocreq = 0;
werror (W_NO_REFERENCE, currFunc->name,
"function argument", lval->sym->name);
}
for (sym = csym; sym; sym = sym->next)
{
- if (sym->_isparm)
+ if (sym->_isparm)
continue;
/* if it is on the stack */