vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 20:22:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

OPT cleanup.

Browse source
This commit is contained in:
Norayr Chilingarian 2015-03-11 18:53:26 +04:00
parent a2e64ff15f
commit d3b0c0352a
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/voc/OPT.Mod
View file

@ -1001,8 +1001,7 @@ WHILE ref < impCtxt.nofr DO
OutObj(topScope^.right); OutObj(topScope^.right);
ext := sfpresent & symExtended; new := ~sfpresent OR symNew; ext := sfpresent & symExtended; new := ~sfpresent OR symNew;
IF OPM.forceNewSym THEN IF OPM.forceNewSym THEN
new := TRUE; new := TRUE
OPM.LogWStr("forceNewSym = TRUE"); OPM.LogWLn;
END; (* for bootstrapping -- noch *) END; (* for bootstrapping -- noch *)
IF OPM.noerr & sfpresent & (impCtxt.reffp # expCtxt.reffp) THEN IF OPM.noerr & sfpresent & (impCtxt.reffp # expCtxt.reffp) THEN
new := TRUE; new := TRUE;
@ -1010,8 +1009,7 @@ WHILE ref < impCtxt.nofr DO
END ; END ;
newsf := FALSE; symNew := FALSE; (* because of call to FPrintErr from OPL *) newsf := FALSE; symNew := FALSE; (* because of call to FPrintErr from OPL *)
IF ~OPM.noerr OR findpc THEN IF ~OPM.noerr OR findpc THEN
OPM.DeleteNewSym; OPM.DeleteNewSym
OPM.LogWStr("DeleteNewSym called"); OPM.LogWLn;
END END
(* OPM.RegisterNewSym is called in OP2 after writing the object file *) (* OPM.RegisterNewSym is called in OP2 after writing the object file *)
END END