index 77ded19d6927edae6e61c4b5b22a0e9d35efd9e2..1797a6daea7243ad6e985d42520b5313a4e42300 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, ref, allref, srcpos, signatures, ctime};
+
+ version = "0.3";
emulong = 0;
defopt2 = {};
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)
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;
END Init;
BEGIN
+ Kernel.intTrap := FALSE;
Kernel.Start(Init)
END DswCompiler486Main.