Test suite results for test file webtbs/tw2758.pp

Test run data :

Test file "webtbs/tw2758.pp" information:

t_id 1179
t_adddate 2003/11/01
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015618.

Source:

{ 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.

Link to SVN view of webtbs/tw2758.pp source.