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

* not a bug

Browse Source
This commit is contained in:
peter 2003-10-31 18:37:33 +00:00
parent d71111e4be
commit 91d364626c
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw2758.pp
View File

@ -1,23 +0,0 @@
{ Source provided for Free Pascal Bug Report 2758 }
{ Submitted by "marco" on 2003-10-31 }
{ e-mail: }
Type
sigcontextrec=record end;
SignalHandler = Procedure(Sig : Longint);cdecl;
PSignalHandler = ^SignalHandler;
TSigAction = procedure(Sig: Longint; SigContext: SigContextRec);cdecl;
SigActionRec = packed record // this is temporary for the migration
sa_handler : signalhandler;
end;
procedure signaltorunerror(Sig: Longint; SigContext: SigContextRec);cdecl;
begin end; // tsigaction style
var r : sigactionrec;
begin
r.sa_handler:=signalhandler(@signaltorunerror);
end.