add option -no-use-time

[cpc.git] / src / generic / Dsw / Mod / CompilerCPfrontMain.cp

diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index 672ca76000539e89f455d36274e56d4db660599b..f8ecb5ce1d04645d9d67c668d82f16d70a9c2e96 100644 (file)
--- a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
+++ b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
@@ -7,10 +7,13 @@ MODULE DswCompilerCPfrontMain;
     (* compiler options: *)
     checks = 0; allchecks = 1; assert = 2; obj = 3; ref = 4; allref = 5;
     srcpos = 6; reallib = 7; signatures = 8;
+    (* pVarInd = 14; bigEnd = 15; *) ctime = 16;
     mainprog = 20; include0 = 21;
     hint = 29; oberon = 30; errorTrap = 31;
-    (* defopt = {checks, assert, obj, ref, allref, srcpos, signatures}; *)
-    defopt = {checks, assert, obj};
+    (* defopt = {checks, assert, obj, ref, allref, srcpos, signatures, ctime}; *)
+    defopt = {checks, assert, obj, ctime};
+
+    version = "0.2";
 
     emulong = 0;
     defopt2 = {};
@@ -137,6 +140,7 @@ MODULE DswCompilerCPfrontMain;
         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)
@@ -166,6 +170,13 @@ MODULE DswCompilerCPfrontMain;
           INCL(opts2, emulong)
         ELSIF p = "-no-long-calls" THEN
           EXCL(opts2, emulong)
+        ELSIF p = "-version" THEN
+          Console.WriteStr(version); Console.WriteLn;
+          Kernel.Quit(0)
+        ELSIF p = "-use-time" THEN
+          INCL(opts, ctime)
+        ELSIF p = "-no-use-time" THEN
+          EXCL(opts, ctime)
         ELSE
           Console.WriteStr("unknown option ");
           Console.WriteStr(p); Console.WriteLn;
@@ -210,6 +221,7 @@ MODULE DswCompilerCPfrontMain;
     IF oberon IN m.opts THEN INCL(DevCPM.options, DevCPM.oberon) END;
     IF mainprog IN m.opts THEN INCL(DevCPG.opt, DevCPG.mainprog) END;
     IF include0 IN m.opts THEN INCL(DevCPG.opt, DevCPG.include0) END;
+    IF ctime IN m.opts THEN INCL(DevCPG.opt, DevCPG.ctime) END;
     DevCPT.Init(m.opts);
     (* DevCPB.typSize := DevCPV.TypeSize; *)
     DevCPB.typSize := DevCPV.TypSize;
@@ -334,5 +346,6 @@ MODULE DswCompilerCPfrontMain;
   END Init;
 
 BEGIN
+  Kernel.intTrap := FALSE;
   Kernel.Start(Init)
 END DswCompilerCPfrontMain.