found problem in OPV.stat, not properly handled yet. needs investigation.

Former-commit-id: 1acddf0fb9
This commit is contained in:
norayr chilingarian 2014-09-14 22:53:24 +04:00
parent 298585af02
commit 97860bae19
3 changed files with 14 additions and 2 deletions

View file

@ -1010,6 +1010,18 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
IfStat(n, n^.subcl = 0, outerProc)
| Ntrap:
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 ;
IF ~(n^.class IN {Nenter, Ninittd, Nifelse, Nwith, Ncase, Nwhile, Nloop}) THEN OPC.EndStat END ;
n := n^.link

View file

@ -1 +1 @@
83842f359842b851cdb948a605d2f45392e7573c
354ed838ca4cfee199d58f3af5655757a7ec575d

View file

@ -1 +1 @@
773b7aa528b3032d4934dac51d44002b36ddd1fb
354ed838ca4cfee199d58f3af5655757a7ec575d