From 12e708d8780328a94dab7923c7db7bdf602f127b Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 22 Jul 2019 22:33:54 +0300
Subject: [PATCH] add option -no-use-time

---
 src/generic/CPfront/Mod/CPG.odc            | Bin 9887 -> 10005 bytes
 src/generic/Dev/Mod/CPE.odc                | Bin 39817 -> 39968 bytes
 src/generic/Dsw/Mod/Compiler486Main.cp     |   8 +++++++-
 src/generic/Dsw/Mod/CompilerCPfrontMain.cp |  10 ++++++++--
 4 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/src/generic/CPfront/Mod/CPG.odc b/src/generic/CPfront/Mod/CPG.odc
index fd732b9813a3455454f09a37996b49e3ed0c0cbc..824fbfaaccbf3740abda8d8dd174e7febbdbf245 100644
GIT binary patch
delta 219
zcmbR5JJoMOJ>#T_4RM?gR2djJ85kIDOnmOj*fd#}(VnwMnSp^HDAY2!lrfg0fti7U
zvFQ`<<b{mlleL%xHZwArFfutXZ8m2%W>(?kOfJdHP1RDcRWLNP=G4$qC@;z^NmWSB
z&n?KzNmT$zZcby9<rnjGQvfSf@bpv2FDOw6@o@Fy<(%9oDm!_usK(?YqMDQ6h^kK(
z64RJ$DW)|!Nla9a)72-~m6wx~GaO`Qa7j^SUb=>ofsO(SQqlw}arJZATq>p|0092?
BI<Wu%

delta 127
zcmV-_0D%9MPM=MXe*qkkfL;k|B>(^k0001Dk>^DL43jMZKM58i000jF000h?bpc%n
zSOWk60fO=klc50@lPUrbvjGA$0Rr*?vo`}X1GAC_84r`g6&sV^6(^Gi7ATW27ABKd
h7AKQ`7AX=}a%psBNp5r~bS`scV{dL`DYNSqDiHj>BAWmJ

diff --git a/src/generic/Dev/Mod/CPE.odc b/src/generic/Dev/Mod/CPE.odc
index 2ac4588206893f5a9383899661e4363f004752a5..00a38337900da77e3a2253d38b445450e2b61084 100644
GIT binary patch
delta 253
zcmeC&&a_|$(}a4)xf2`WIA70VVBln6V0b+7xhqretjT(ec3c8885sD1VjMF!moXZ#
zv&I0~%#+{EQkr~#kz@09j&?@I=ab{PWEtHy*K#f77S1m%3CYY&wNh~M_xEvi^t0yW
z-7F`zJ4n#eO#v#W5aQwL$IChSdWOwpp-kP$cA2^!yquh_KEbX)iqpTe#7M(H(^>(8
tfmaq}f}hLg?946=ZiVC$pc@oy6%5Tbf0-!2C;+qB$`&HE`RAkw8~{PaO0@t0

delta 101
zcmV-r0Gj`xxB`i{0+4?J29bbX2~?T@00{s908EkRMFRGjlP&>13VE0S01p5F0CAYJ
zb^$U60ZFr|2(<wLij!Xo9RVM+eF~uqvoRLCQj`B^I+HqSER$zxEVJ8biYT*jk`Dp1
Ho0EkIVJ;$R

diff --git a/src/generic/Dsw/Mod/Compiler486Main.cp b/src/generic/Dsw/Mod/Compiler486Main.cp
index 0718582..916ab17 100644
--- a/src/generic/Dsw/Mod/Compiler486Main.cp
+++ b/src/generic/Dsw/Mod/Compiler486Main.cp
@@ -8,8 +8,10 @@ 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";
 
@@ -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;
diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index efbd6f7..f8ecb5c 100644
--- a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
+++ b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
@@ -7,10 +7,11 @@ 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";
 
@@ -172,6 +173,10 @@ MODULE DswCompilerCPfrontMain;
         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;
@@ -216,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;
-- 
2.29.2