disable stack trace after user interrupt

[cpc.git] / src / generic / Dsw / Mod / CompilerCPfrontMain.cp

diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index 672ca76000539e89f455d36274e56d4db660599b..b5d4ec95769d797b5321f8efd3230b811f15b4c1 100644 (file)
--- a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
+++ b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
@@ -137,6 +137,7 @@ MODULE DswCompilerCPfrontMain;
         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)


@@ -334,5 +335,6 @@ MODULE DswCompilerCPfrontMain;
   END Init;
 
 BEGIN
   END Init;
 
 BEGIN

+  Kernel.intTrap := FALSE;

   Kernel.Start(Init)
 END DswCompilerCPfrontMain.
   Kernel.Start(Init)
 END DswCompilerCPfrontMain.