|
@@ -664,11 +664,13 @@ end;
|
|
procedure CompilerStop; {$ifndef FPC}far;{$endif}
|
|
procedure CompilerStop; {$ifndef FPC}far;{$endif}
|
|
begin
|
|
begin
|
|
{$ifndef GABOR}
|
|
{$ifndef GABOR}
|
|
|
|
+{$ifdef HasSignal}
|
|
if StopJmpValid then
|
|
if StopJmpValid then
|
|
Longjmp(StopJmp,1)
|
|
Longjmp(StopJmp,1)
|
|
else
|
|
else
|
|
Halt(1);
|
|
Halt(1);
|
|
{$endif}
|
|
{$endif}
|
|
|
|
+{$endif}
|
|
end;
|
|
end;
|
|
|
|
|
|
Function CompilerGetNamedFileTime(const filename : string) : Longint; {$ifndef FPC}far;{$endif}
|
|
Function CompilerGetNamedFileTime(const filename : string) : Longint; {$ifndef FPC}far;{$endif}
|
|
@@ -944,11 +946,17 @@ begin
|
|
WUtils.DeleteFile(GetExePath+PpasFile);
|
|
WUtils.DeleteFile(GetExePath+PpasFile);
|
|
SetStatus('Compiling...');
|
|
SetStatus('Compiling...');
|
|
{$ifndef GABOR}
|
|
{$ifndef GABOR}
|
|
|
|
+{$ifdef HasSignal}
|
|
StoreStopJumpValid:=StopJmpValid;
|
|
StoreStopJumpValid:=StopJmpValid;
|
|
StoreStopJmp:=StopJmp;
|
|
StoreStopJmp:=StopJmp;
|
|
|
|
+{$endif HasSignal}
|
|
StoreExitProc:=ExitProc;
|
|
StoreExitProc:=ExitProc;
|
|
|
|
+{$ifdef HasSignal}
|
|
StopJmpValid:=true;
|
|
StopJmpValid:=true;
|
|
JmpRet:=SetJmp(StopJmp);
|
|
JmpRet:=SetJmp(StopJmp);
|
|
|
|
+{$else}
|
|
|
|
+ JmpRet:=0;
|
|
|
|
+{$endif HasSignal}
|
|
if JmpRet=0 then
|
|
if JmpRet=0 then
|
|
begin
|
|
begin
|
|
inc(CompileStamp);
|
|
inc(CompileStamp);
|
|
@@ -985,8 +993,10 @@ begin
|
|
CompilerMessageWindow^.AddMessage(V_error,'Long jumped out of compilation...','',0,0);
|
|
CompilerMessageWindow^.AddMessage(V_error,'Long jumped out of compilation...','',0,0);
|
|
SetStatus('Long jumped out of compilation...');
|
|
SetStatus('Long jumped out of compilation...');
|
|
end;
|
|
end;
|
|
|
|
+{$ifdef HasSignal}
|
|
StopJmpValid:=StoreStopJumpValid;
|
|
StopJmpValid:=StoreStopJumpValid;
|
|
StopJmp:=StoreStopJmp;
|
|
StopJmp:=StoreStopJmp;
|
|
|
|
+{$endif HasSignal}
|
|
{$endif}
|
|
{$endif}
|
|
{ tokens are created and distroyed by compiler.compile !! PM }
|
|
{ tokens are created and distroyed by compiler.compile !! PM }
|
|
InitTokens;
|
|
InitTokens;
|
|
@@ -1298,7 +1308,10 @@ end;
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.15 2002-09-26 15:00:35 pierre
|
|
|
|
|
|
+ Revision 1.16 2002-10-23 19:19:40 hajny
|
|
|
|
+ * another bunch of missing HasSignal conditionals
|
|
|
|
+
|
|
|
|
+ Revision 1.15 2002/09/26 15:00:35 pierre
|
|
* fix problems with system unit is not present for __fp__ compilation
|
|
* fix problems with system unit is not present for __fp__ compilation
|
|
|
|
|
|
Revision 1.14 2002/09/13 22:30:50 pierre
|
|
Revision 1.14 2002/09/13 22:30:50 pierre
|