Forráskód Böngészése

+ Added argument to Stop

olle 21 éve
szülő
commit
be837c0f23
1 módosított fájl, 6 hozzáadás és 3 törlés
  1. 6 3
      compiler/catch.pas

+ 6 - 3
compiler/catch.pas

@@ -87,11 +87,11 @@ begin
                  Writeln('FPE error computing constant expression')
                else
                  Writeln('FPE error inside compiler');
-               Stop;
+               Stop(1);
              end;
     SIGINT : begin
                WriteLn('Ctrl-C Signaled!');
-               Stop;
+               Stop(1);
              end;
   end;
 {$ifndef unix}
@@ -115,7 +115,10 @@ end.
 
 {
   $Log$
-  Revision 1.18  2004-06-20 08:55:28  florian
+  Revision 1.19  2004-09-09 08:19:47  olle
+    + Added argument to Stop
+
+  Revision 1.18  2004/06/20 08:55:28  florian
     * logs truncated
 
 }