paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +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 const
LONGJMPCALLED = -1; LONGJMPCALLED = -1;
procedure CompilerStop; {$ifndef FPC}far;{$endif} procedure CompilerStop(err: longint); {$ifndef FPC}far;{$endif}
begin begin
{$ifndef GABOR} {$ifndef GABOR}
{$ifdef HasSignal} {$ifdef HasSignal}
if StopJmpValid then if StopJmpValid then
Longjmp(StopJmp,LONGJMPCALLED) Longjmp(StopJmp,LONGJMPCALLED)
else else
Halt(1); Halt(err);
{$endif} {$endif}
{$endif} {$endif}
end; end;
@ -1336,7 +1336,11 @@ end;
end. end.
{ {
$Log$ $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 * linuxerrorcide
Revision 1.22 2003/03/28 09:55:46 armin Revision 1.22 2003/03/28 09:55:46 armin