diff --git a/src/voc/OPV.Mod b/src/voc/OPV.Mod index 18dbca58..65bb415b 100644 --- a/src/voc/OPV.Mod +++ b/src/voc/OPV.Mod @@ -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 diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id index 99600c9f..a78e87af 100644 --- a/voc.REMOVED.git-id +++ b/voc.REMOVED.git-id @@ -1 +1 @@ -83842f359842b851cdb948a605d2f45392e7573c \ No newline at end of file +354ed838ca4cfee199d58f3af5655757a7ec575d \ No newline at end of file diff --git a/vocstatic.linux.gcc.armv6j_hardfp.REMOVED.git-id b/vocstatic.linux.gcc.armv6j_hardfp.REMOVED.git-id index c8a8c591..a78e87af 100644 --- a/vocstatic.linux.gcc.armv6j_hardfp.REMOVED.git-id +++ b/vocstatic.linux.gcc.armv6j_hardfp.REMOVED.git-id @@ -1 +1 @@ -773b7aa528b3032d4934dac51d44002b36ddd1fb \ No newline at end of file +354ed838ca4cfee199d58f3af5655757a7ec575d \ No newline at end of file