else if (lval->ident == iREFERENCE)
{
/* indirect fetch, but address not yet in PRI */
- assert(!!sym);
+ assert(sym != NULL);
assert(sym->vclass == sLOCAL); /* global references don't exist in Small */
if (sym->vclass == sLOCAL)
stgwrite("\tlref.s.pri ");
else
{
/* direct or stack relative fetch */
- assert(!!sym);
+ assert(sym != NULL);
if (sym->vclass == sLOCAL)
stgwrite("\tload.s.pri ");
else
void
address(symbol * sym)
{
- assert(!!sym);
+ assert(sym != NULL);
/* the symbol can be a local array, a global array, or an array
* that is passed by reference.
*/
}
else if (lval->ident == iREFERENCE)
{
- assert(!!sym);
+ assert(sym != NULL);
if (sym->vclass == sLOCAL)
stgwrite("\tsref.s.pri ");
else
}
else
{
- assert(!!sym);
+ assert(sym != NULL);
markusage(sym, uWRITTEN);
if (sym->vclass == sLOCAL)
stgwrite("\tstor.s.pri ");
void
copyarray(symbol * sym, cell size)
{
- assert(!!sym);
+ assert(sym != NULL);
/* the symbol can be a local array, a global array, or an array
* that is passed by reference.
*/
{
const1(val); /* load val in PRI */
- assert(!!sym);
+ assert(sym != NULL);
/* the symbol can be a local array, a global array, or an array
* that is passed by reference.
*/
void
ffcall(symbol * sym, int numargs)
{
- assert(!!sym);
+ assert(sym != NULL);
assert(sym->ident == iFUNCTN);
if ((sym->usage & uNATIVE) != 0)
{
}
else if (lval->ident == iREFERENCE)
{
- assert(!!sym);
+ assert(sym != NULL);
stgwrite("\tpush.pri\n");
/* load dereferenced value */
assert(sym->vclass == sLOCAL); /* global references don't exist in Small */
else
{
/* local or global variable */
- assert(!!sym);
+ assert(sym != NULL);
if (sym->vclass == sLOCAL)
stgwrite("\tinc.s ");
else
}
else if (lval->ident == iREFERENCE)
{
- assert(!!sym);
+ assert(sym != NULL);
stgwrite("\tpush.pri\n");
/* load dereferenced value */
assert(sym->vclass == sLOCAL); /* global references don't exist in Small */
else
{
/* local or global variable */
- assert(!!sym);
+ assert(sym != NULL);
if (sym->vclass == sLOCAL)
stgwrite("\tdec.s ");
else