From 1a4df6ba1c3d1c0a8b9369520c04684a390ea6e4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 31 Oct 2003 18:43:43 +0000
Subject: [PATCH]   * new (ugly) bug

---
 tests/webtbs/tw2758.pp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/webtbs/tw2758.pp

diff --git a/tests/webtbs/tw2758.pp b/tests/webtbs/tw2758.pp
new file mode 100644
index 0000000000..65555bc21e
--- /dev/null
+++ b/tests/webtbs/tw2758.pp
@@ -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.
+