Для обычных процедур всегда генерируется return

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

diff --git a/rtl/java/SYSTEM.java b/rtl/java/SYSTEM.java
index 20cbe60f2115f1167d1076d32f81b2f7a3040386..bc824fa381d4b8068acb8543192b0311f4fabd36 100644 (file)
--- a/rtl/java/SYSTEM.java
+++ b/rtl/java/SYSTEM.java
@@ -76,6 +76,10 @@ public class SYSTEM
                {
                        throw new RuntimeException("NOT IMPLEMENTED");
                }
+               else if(n == -4)
+               {
+                       throw new RuntimeException("RETURN TRAP");
+               }
                else
                {
                        throw new RuntimeException("TRAP CODE " + n);