d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix: filename label sometimes turned up as external

Browse source
This commit is contained in:
ceriel 1989-04-14 18:25:39 +00:00
parent 6e75af9cef
commit ec3d8bb5aa
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lang/m2/comp/walk.c
View file

@ -280,7 +280,15 @@ WalkProcedure(procedure)
/* Generate code for this procedure /* Generate code for this procedure
*/ */
TmpOpen(procscope); TmpOpen(procscope);
C_insertpart(partno2); C_insertpart(partno2); /* procedure header */
/* generate code for filename only when the procedure can be
exported, either directly or by taking the address.
This cannot be done if the level is bigger than one (because in
this case it is a nested procedure).
*/
DoFilename(procscope->sc_level == 1);
DoPriority();
C_insertpart(partno); C_insertpart(partno);
text_label = 1; /* label at end of procedure */ text_label = 1; /* label at end of procedure */
@ -288,13 +296,6 @@ WalkProcedure(procedure)
end_reached = WalkNode(procedure->prc_body, NO_EXIT_LABEL, REACH_FLAG); end_reached = WalkNode(procedure->prc_body, NO_EXIT_LABEL, REACH_FLAG);
C_beginpart(partno); C_beginpart(partno);
DoPriority();
/* generate code for filename only when the procedure can be
exported, either directly or by taking the address.
This cannot be done if the level is bigger than one (because in
this case it is a nested procedure).
*/
DoFilename(procscope->sc_level == 1);
/* Generate calls to initialization routines of modules defined within /* Generate calls to initialization routines of modules defined within
this procedure this procedure