paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 22:29:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added argument to Stop

Browse Source
This commit is contained in:
olle 2004-09-09 08:19:47 +00:00
parent fad1c0f131
commit be837c0f23
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/catch.pas
View File

@ -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
}