paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:49:31 +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}
{$define OK}
{$endif}
{$ifdef freebsd}
{$define OK}
{$endif}
{ Win32 signal support is still missing ! }
@ -15,11 +18,15 @@
{$ifdef go32v2}
uses dpmiexcp;
{$endif go32v2}
{$ifdef linux}
{$ifdef unix}
{$ifdef ver1_0}
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
{ If we land here the program works correctly !! }
Writeln('Sigsegv signal recieved');