From 97860bae193087d938ec680cd819590722514315 Mon Sep 17 00:00:00 2001 From: norayr chilingarian Date: Sun, 14 Sep 2014 22:53:24 +0400 Subject: [PATCH] found problem in OPV.stat, not properly handled yet. needs investigation. Former-commit-id: 1acddf0fb9d9adbf7bc5927365f22a69f0cfd39f --- src/voc/OPV.Mod | 12 ++++++++++++ voc.REMOVED.git-id | 2 +- vocstatic.linux.gcc.armv6j_hardfp.REMOVED.git-id | 2 +- 3 files changed, 14 insertions(+), 2 deletions(-) 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