mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 20:22:24 +00:00
found problem in OPV.stat, not properly handled yet. needs investigation.
Former-commit-id: 1acddf0fb9
This commit is contained in:
parent
298585af02
commit
97860bae19
3 changed files with 14 additions and 2 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
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
83842f359842b851cdb948a605d2f45392e7573c
|
354ed838ca4cfee199d58f3af5655757a7ec575d
|
||||||
|
|
@ -1 +1 @@
|
||||||
773b7aa528b3032d4934dac51d44002b36ddd1fb
|
354ed838ca4cfee199d58f3af5655757a7ec575d
|
||||||
Loading…
Add table
Add a link
Reference in a new issue