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

* new bug

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

23
tests/webtbs/tw2758.pp Normal file
View File

@ -0,0 +1,23 @@
{ 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.