static links are not considered read-only anymore

This commit is contained in:
ceriel 1989-05-30 10:44:34 +00:00
parent 7c26c21b87
commit 6266743c4c
2 changed files with 10 additions and 1 deletions

View file

@ -210,8 +210,11 @@ entity_p getentity(lnp, l_out)
break;
case ENALOCBASE:
case ENAARGBASE:
en.en_static = TRUE;
en.en_levels = off_set(lnp);
if (en.en_levels == 0) {
/* otherwise the program could change it */
en.en_static = TRUE;
}
break;
case ENPROC:
en.en_pro = PROC(lnp);

View file

@ -224,6 +224,12 @@ STATIC kill_local(enp, indir)
}
}
break;
case ENALOCBASE:
case ENAARGBASE:
if (enp->en_loc == 0 && rep->en_levels >= 1) {
rep->en_vn = newvalnum();
}
break;
}
}
}