paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* linux -> unix

Browse Source
This commit is contained in:
peter 2001-02-03 00:16:21 +00:00
parent a0e12b3e88
commit 3f16b1b8c7
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbs/tb0089.pp
View File

@ -7,6 +7,9 @@
{$ifdef linux} {$ifdef linux}
{$define OK} {$define OK}
{$endif} {$endif}
{$ifdef freebsd}
{$define OK}
{$endif}
{ Win32 signal support is still missing ! } { Win32 signal support is still missing ! }
@ -15,11 +18,15 @@
{$ifdef go32v2} {$ifdef go32v2}
uses dpmiexcp; uses dpmiexcp;
{$endif go32v2} {$endif go32v2}
{$ifdef linux} {$ifdef unix}
{$ifdef ver1_0}
uses linux; uses linux;
{$endif linux} {$else}
uses unix;
{$endif}
{$endif unix}
function our_sig(l : longint) : longint;{$ifdef linux}cdecl;{$endif} function our_sig(l : longint) : longint;{$ifdef unix}cdecl;{$endif}
begin begin
{ If we land here the program works correctly !! } { If we land here the program works correctly !! }
Writeln('Sigsegv signal recieved'); Writeln('Sigsegv signal recieved');