index 77ded19d6927edae6e61c4b5b22a0e9d35efd9e2..5d1a68f85758850af00f8a5423956419fb3fc9db 100644 (file)
ELSIF p = "-no-hints" THEN
EXCL(opts, hint)
ELSIF p = "-trap" THEN
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(opts, errorTrap)
ELSIF p = "-no-trap" THEN
EXCL(opts, errorTrap)
END Init;
BEGIN
END Init;
BEGIN
+ Kernel.intTrap := FALSE;
Kernel.Start(Init)
END DswCompiler486Main.
Kernel.Start(Init)
END DswCompiler486Main.