From 61df38ae9b97a55f9ee9bb25f2d0a70c192bbb8d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 25 Mar 2008 15:44:30 +0000
Subject: [PATCH]   + tests from mantis #6586, already work after the previous
 shared     library fixes

git-svn-id: trunk@10559 -
---
 .gitattributes          |  2 ++
 tests/webtbs/tw6586a.pp | 19 +++++++++++++++++++
 tests/webtbs/tw6586b.pp | 22 ++++++++++++++++++++++
 3 files changed, 43 insertions(+)
 create mode 100644 tests/webtbs/tw6586a.pp
 create mode 100644 tests/webtbs/tw6586b.pp

diff --git a/.gitattributes b/.gitattributes
index 58fac7622f..86cfc67248 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8787,6 +8787,8 @@ tests/webtbs/tw6491.pp svneol=native#text/plain
 tests/webtbs/tw6493.pp svneol=native#text/plain
 tests/webtbs/tw6525.pp -text
 tests/webtbs/tw6543.pp svneol=native#text/plain
+tests/webtbs/tw6586a.pp svneol=native#text/plain
+tests/webtbs/tw6586b.pp svneol=native#text/plain
 tests/webtbs/tw6624.pp svneol=native#text/plain
 tests/webtbs/tw6641.pp svneol=native#text/plain
 tests/webtbs/tw6684.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw6586a.pp b/tests/webtbs/tw6586a.pp
new file mode 100644
index 0000000000..6596674708
--- /dev/null
+++ b/tests/webtbs/tw6586a.pp
@@ -0,0 +1,19 @@
+{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos }
+{ %norun }
+
+library tw6586a;
+{$H+}{$MODE OBJFPC}
+
+uses cmem;
+
+procedure ExportTest1(input: longint); stdcall;
+begin
+ input:= 5;
+end;
+
+exports
+  ExportTest1;
+
+begin
+end.
+
diff --git a/tests/webtbs/tw6586b.pp b/tests/webtbs/tw6586b.pp
new file mode 100644
index 0000000000..46a7384ec9
--- /dev/null
+++ b/tests/webtbs/tw6586b.pp
@@ -0,0 +1,22 @@
+{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos }
+{ %needlibrary }
+
+program project1;
+
+{$mode objfpc}{$H+}
+
+uses cmem;
+
+const
+{$ifdef windows}
+  libname='tw6586a.dll';
+{$else}
+  libname='tw6586a';
+  {$linklib tw6586a}
+{$endif}
+
+procedure ExportTest1(input: longint); stdcall; external libname;
+
+begin
+  writeln('Watch for Seg fault on closing');
+end.