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

* Try to set correct function modifiers for signals

Browse Source 
git-svn-id: trunk@7111 -
This commit is contained in:
pierre 2007-04-16 09:11:02 +00:00
parent e3a22ba730
commit 91fc62d6f7
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/fpcatch.pas
View File

@ -131,11 +131,15 @@ end;
{$endif DEBUG}
{$ifdef HasSignal}
{$ifdef Unix}
{$ifndef SignalIsFunction}
Procedure Catchsignal(Sig : Longint);cdecl;
{$else}
Function Catchsignal(Sig : longint):longint;
{$endif}
{$else SignalIsFunction}
{$ifdef SignalIsCdecl}
Function Catchsignal(Sig : longint):longint; cdecl;
{$else not SignalIsCdecl}
Function Catchsignal(Sig : longint):longint;
{$endif not SignalIsCdecl}
{$endif SignalIsFunction}
var MustQuit: boolean;
begin
case Sig of
@ -205,9 +209,9 @@ begin
end;
end;
end;
{$ifndef Unix}
{$ifdef SignalIsFunction}
CatchSignal:=0;
{$endif}
{$endif SignalIsFunction}
end;
{$endif def HasSignal}
@ -248,7 +252,7 @@ begin
{$endif go32v2}
{$ifdef HasSignal}
{$ifndef TP}
NewSignal:=SignalHandler(@CatchSignal);
NewSignal:=@CatchSignal;
{$else TP}
NewSignal:=SignalHandler(CatchSignal);
{$endif TP}

8
ide/globdir.inc
View File

@ -30,6 +30,8 @@
{$define SUPPORTREDIR}
{$define WinClipSupported}
{$define HasSignal}
{$define SignalIsFunction}
{$define SignalIsCdecl}
{$define FSCaseInsensitive}
{$define HasSysMsgUnit}
{$ifdef DEBUG}
@ -42,6 +44,7 @@
{$define SUPPORTREDIR}
{$undef WinClipSupported}
{$define HasSignal}
{$define SignalIsCdecl}
{$define HasSysMsgUnit}
{$endif}
@ -51,6 +54,7 @@
{$define SUPPORTREDIR}
{$undef WinClipSupported}
{$define HasSignal}
{$define SignalIsCdecl}
{$define HasSysMsgUnit}
{$endif}
@ -59,6 +63,7 @@
{$define SUPPORTREDIR}
{$undef WinClipSupported}
{$define HasSignal}
{$define SignalIsCdecl}
{$define HasSysMsgUnit}
{$endif}
@ -67,6 +72,7 @@
{$define SUPPORTREDIR}
{$undef WinClipSupported}
{$define HasSignal}
{$define SignalIsCdecl}
{$define HasSysMsgUnit}
{$endif}
@ -76,6 +82,8 @@
{$define WinClipSupported}
{$ifdef win32}
{$define HasSignal}
{$define SignalIsFunction}
{$define SignalIsCdecl}
{$endif}
{$define FSCaseInsensitive}
{$define HasSysMsgUnit}