Программа прерывается если в конструкциях CASE и WITH не выполняется ни одно условие...

[dsw-obn.git] / rtl / SYSTEM.java

diff --git a/rtl/SYSTEM.java b/rtl/SYSTEM.java
index 38f488694a9b8996766edfa36d342f7a00b33a3c..44e1cc321a594c4adb723c82b35c58b07dbe6e33 100644 (file)
--- a/rtl/SYSTEM.java
+++ b/rtl/SYSTEM.java
@@ -43,4 +43,20 @@ public class SYSTEM
        {
                assert x : n;
        }
+
+       public static void TRAP(long n)
+       {
+               if(n == -1)
+               {
+                       throw new RuntimeException("CASE TRAP");
+               }
+               else if(n == -2)
+               {
+                       throw new RuntimeException("WITH TRAP");
+               }
+               else
+               {
+                       throw new RuntimeException("TRAP CODE " + n);
+               }
+       }
 }