paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-05 10:18:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for snapshot building.

Browse Source
This commit is contained in:
marco 2003-09-18 08:50:48 +00:00
parent 6f78eac09f
commit 4b6df870be
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/catch.pas
View File

@ -106,17 +106,20 @@ begin
{$ifdef has_signal} {$ifdef has_signal}
NewSignal:=SignalHandler({$ifdef fpcprocvar}@{$endif}CatchSignal); NewSignal:=SignalHandler({$ifdef fpcprocvar}@{$endif}CatchSignal);
{$ifndef sunos} {$ifndef sunos}
OldSigSegm:={$ifdef VER1_0}Signal{$else}fpSignal{$endif} (SIGSEGV,NewSignal); OldSigSegm:={$ifdef VER1_0}Signal{$else}{$ifdef Unix}fpSignal{$else}Signal{$endif}{$endif} (SIGSEGV,NewSignal);
{$endif} // lxrun on solaris hooks this for handling linux-calls! {$endif} // lxrun on solaris hooks this for handling linux-calls!
OldSigInt:={$ifdef VER1_0}Signal{$else}fpSignal{$endif} (SIGINT,NewSignal); OldSigInt:={$ifdef VER1_0}Signal{$else}{$ifdef Unix}fpSignal{$else}Signal{$endif}{$endif} (SIGINT,NewSignal);
OldSigFPE:={$ifdef VER1_0}Signal{$else}fpSignal{$endif} (SIGFPE,NewSignal); OldSigFPE:={$ifdef VER1_0}Signal{$else}{$ifdef Unix}fpSignal{$else}Signal{$endif}{$endif} (SIGFPE,NewSignal);
{$endif} {$endif}
{$endif nocatch} {$endif nocatch}
end. end.
{ {
$Log$ $Log$
Revision 1.15 2003-09-14 20:26:18 marco Revision 1.16 2003-09-18 08:50:48 marco
* fix for snapshot building.
Revision 1.15 2003/09/14 20:26:18 marco
* Unix reform * Unix reform
Revision 1.14 2003/09/05 17:41:12 florian Revision 1.14 2003/09/05 17:41:12 florian