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