static links are not considered read-only anymore
This commit is contained in:
parent
7c26c21b87
commit
6266743c4c
2 changed files with 10 additions and 1 deletions
|
@ -210,8 +210,11 @@ entity_p getentity(lnp, l_out)
|
||||||
break;
|
break;
|
||||||
case ENALOCBASE:
|
case ENALOCBASE:
|
||||||
case ENAARGBASE:
|
case ENAARGBASE:
|
||||||
en.en_static = TRUE;
|
|
||||||
en.en_levels = off_set(lnp);
|
en.en_levels = off_set(lnp);
|
||||||
|
if (en.en_levels == 0) {
|
||||||
|
/* otherwise the program could change it */
|
||||||
|
en.en_static = TRUE;
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
case ENPROC:
|
case ENPROC:
|
||||||
en.en_pro = PROC(lnp);
|
en.en_pro = PROC(lnp);
|
||||||
|
|
|
@ -224,6 +224,12 @@ STATIC kill_local(enp, indir)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
case ENALOCBASE:
|
||||||
|
case ENAARGBASE:
|
||||||
|
if (enp->en_loc == 0 && rep->en_levels >= 1) {
|
||||||
|
rep->en_vn = newvalnum();
|
||||||
|
}
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue