mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 02:52:24 +00:00
found problem in OPV.stat, not properly handled yet. needs investigation.
This commit is contained in:
parent
bf48ee50de
commit
1acddf0fb9
3 changed files with 12 additions and 0 deletions
|
|
@ -1010,6 +1010,18 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
||||||
IfStat(n, n^.subcl = 0, outerProc)
|
IfStat(n, n^.subcl = 0, outerProc)
|
||||||
| Ntrap:
|
| Ntrap:
|
||||||
OPC.Halt(n^.right^.conval^.intval)
|
OPC.Halt(n^.right^.conval^.intval)
|
||||||
|
ELSE
|
||||||
|
(* this else is necessary cause
|
||||||
|
it can happen that
|
||||||
|
n^.class is something which is not handled,
|
||||||
|
like Nconst (7)
|
||||||
|
which I actually experienced
|
||||||
|
when compiling Texts0.Mod on raspberry pi
|
||||||
|
it generates __CASECHK and cause Halt,
|
||||||
|
noch *)
|
||||||
|
|
||||||
|
OPM.WriteString ("/*n^class = "); OPM.WriteInt(n^.class); OPM.WriteString(" and this is not handled, please investigate */");
|
||||||
|
|
||||||
END ;
|
END ;
|
||||||
IF ~(n^.class IN {Nenter, Ninittd, Nifelse, Nwith, Ncase, Nwhile, Nloop}) THEN OPC.EndStat END ;
|
IF ~(n^.class IN {Nenter, Ninittd, Nifelse, Nwith, Ncase, Nwhile, Nloop}) THEN OPC.EndStat END ;
|
||||||
n := n^.link
|
n := n^.link
|
||||||
|
|
|
||||||
BIN
voc
BIN
voc
Binary file not shown.
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue