paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ tests from mantis #6586, already work after the previous shared

Browse Source 
library fixes

git-svn-id: trunk@10559 -
This commit is contained in:
Jonas Maebe 2008-03-25 15:44:30 +00:00
parent fe7e0e2eb6
commit 61df38ae9b
3 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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

19
tests/webtbs/tw6586a.pp Normal file
View File

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

22
tests/webtbs/tw6586b.pp Normal file
View File

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