X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDsw%2FMod%2FCompiler486Main.cp;h=071858292df5a6a35fe029d4685fa60aa6e8d728;hp=77ded19d6927edae6e61c4b5b22a0e9d35efd9e2;hb=cd7e2ed80772dd1537f6dc320dfc506311495fc9;hpb=4de97bf7ae01a78248a15ff69031824c5b089e31

diff --git a/src/generic/Dsw/Mod/Compiler486Main.cp b/src/generic/Dsw/Mod/Compiler486Main.cp
index 77ded19..0718582 100644
--- a/src/generic/Dsw/Mod/Compiler486Main.cp
+++ b/src/generic/Dsw/Mod/Compiler486Main.cp
@@ -11,6 +11,8 @@ MODULE DswCompiler486Main;
     hint = 29; oberon = 30; errorTrap = 31;
     defopt = {checks, assert, obj, ref, allref, srcpos, signatures};
 
+    version = "0.2";
+
     emulong = 0;
     defopt2 = {};
 
@@ -136,6 +138,7 @@ MODULE DswCompiler486Main;
         ELSIF p = "-no-hints" THEN
           EXCL(opts, hint)
         ELSIF p = "-trap" THEN
+          Kernel.intTrap := TRUE;
           INCL(opts, errorTrap)
         ELSIF p = "-no-trap" THEN
           EXCL(opts, errorTrap)
@@ -165,6 +168,9 @@ MODULE DswCompiler486Main;
           INCL(opts2, emulong)
         ELSIF p = "-no-long-calls" THEN
           EXCL(opts2, emulong)
+        ELSIF p = "-version" THEN
+          Console.WriteStr(version); Console.WriteLn;
+          Kernel.Quit(0)
         ELSE
           Console.WriteStr("unknown option ");
           Console.WriteStr(p); Console.WriteLn;
@@ -315,6 +321,7 @@ MODULE DswCompiler486Main;
   END Init;
 
 BEGIN
+  Kernel.intTrap := FALSE;
   Kernel.Start(Init)
 END DswCompiler486Main.