diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index efbd6f7b0fab418960513297563485af9db7c486..462e3fe7e146868b259308d9d9ba69cae120dc21 100644 (file)
(* 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";
+ version = "0.3";
emulong = 0;
defopt2 = {};
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;
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;