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

OPT cleanup.

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

8
src/voc/OPT.Mod
View file

@ -1001,17 +1001,15 @@ 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;
IF ~extsf THEN err(155) END IF ~extsf THEN err(155) END
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