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

diff --git a/src/generic/Dsw/Mod/Compiler486Main.cp b/src/generic/Dsw/Mod/Compiler486Main.cp
index 0718582..1797a6d 100644
--- a/src/generic/Dsw/Mod/Compiler486Main.cp
+++ b/src/generic/Dsw/Mod/Compiler486Main.cp
@@ -8,10 +8,12 @@ MODULE DswCompiler486Main;
     (* 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, ref, allref, srcpos, signatures, ctime};
 
-    version = "0.2";
+    version = "0.3";
 
     emulong = 0;
     defopt2 = {};
@@ -171,6 +173,10 @@ MODULE DswCompiler486Main;
         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;