From 171c0289b01933b897f336ecc9a74f64b46f322b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 14 Mar 2010 11:03:09 +0000
Subject: [PATCH]   + tests from mantis #15777

git-svn-id: trunk@15013 -
---
 .gitattributes           |  2 ++
 tests/webtbs/tw15777e.pp | 25 +++++++++++++++++++++++++
 tests/webtbs/tw15777f.pp | 26 ++++++++++++++++++++++++++
 3 files changed, 53 insertions(+)
 create mode 100644 tests/webtbs/tw15777e.pp
 create mode 100644 tests/webtbs/tw15777f.pp

diff --git a/.gitattributes b/.gitattributes
index 000f77e3d6..9c7fdb8c2e 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -10307,6 +10307,8 @@ tests/webtbs/tw1573.pp svneol=native#text/plain
 tests/webtbs/tw15777a.pp svneol=native#text/plain
 tests/webtbs/tw15777c.pp svneol=native#text/plain
 tests/webtbs/tw15777d.pp svneol=native#text/plain
+tests/webtbs/tw15777e.pp svneol=native#text/plain
+tests/webtbs/tw15777f.pp svneol=native#text/plain
 tests/webtbs/tw15812.pp svneol=native#text/plain
 tests/webtbs/tw1592.pp svneol=native#text/plain
 tests/webtbs/tw1617.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw15777e.pp b/tests/webtbs/tw15777e.pp
new file mode 100644
index 0000000000..1d6fedaa76
--- /dev/null
+++ b/tests/webtbs/tw15777e.pp
@@ -0,0 +1,25 @@
+{$mode macpas}
+{$B-}
+program test;
+
+type
+  IntegerPtr = ^Integer;
+
+var
+  gi: Integer;
+
+procedure A( procedure pp( p: univ Pointer));
+begin
+  pp( @gi)
+end;
+
+procedure B( p: IntegerPtr);
+begin
+  if ( p = nil) or ( p^ <> 12345) then halt( 1)
+end;
+
+begin
+  gi := 12345;
+  A( B)
+end.
+
diff --git a/tests/webtbs/tw15777f.pp b/tests/webtbs/tw15777f.pp
new file mode 100644
index 0000000000..d3b7c1dc0c
--- /dev/null
+++ b/tests/webtbs/tw15777f.pp
@@ -0,0 +1,26 @@
+{$mode macpas}
+{$B-}
+program procparamvoidpointer2;
+
+type
+  IntegerPtr = ^Integer;
+  ProcParam = procedure( p: univ Pointer); 
+
+var
+  gi: Integer;
+
+procedure A( pp: ProcParam);
+begin
+  pp( @gi)
+end;
+
+procedure B( p: IntegerPtr);
+begin
+  if ( p = nil) or ( p^ <> 12345) then halt( 1)
+end;
+
+begin
+  gi := 12345;
+  A( B)
+end.
+