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

* made CompilerStop declaration compliant to new tstopprocedure type in

Browse Source 
compiler
This commit is contained in:
Jonas Maebe 2004-09-09 20:33:00 +00:00
parent 159912ec47
commit 2268e4248b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/fpcompil.pas
View File

@ -674,14 +674,14 @@ end;
const
LONGJMPCALLED = -1;
procedure CompilerStop; {$ifndef FPC}far;{$endif}
procedure CompilerStop(err: longint); {$ifndef FPC}far;{$endif}
begin
{$ifndef GABOR}
{$ifdef HasSignal}
if StopJmpValid then
Longjmp(StopJmp,LONGJMPCALLED)
else
Halt(1);
Halt(err);
{$endif}
{$endif}
end;
@ -1336,7 +1336,11 @@ end;
end.
{
$Log$
Revision 1.23 2003-11-14 17:29:38 marco
Revision 1.24 2004-09-09 20:33:00 jonas
* made CompilerStop declaration compliant to new tstopprocedure type in
compiler
Revision 1.23 2003/11/14 17:29:38 marco
* linuxerrorcide
Revision 1.22 2003/03/28 09:55:46 armin