paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 11:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* part of r16347, forgot to commit

Browse Source 
git-svn-id: trunk@16367 -
This commit is contained in:
Jonas Maebe 2010-11-18 22:41:42 +00:00
parent cbdc08b641
commit a5473c33cc
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10666,6 +10666,7 @@ tests/webtbs/tw1622.pp svneol=native#text/plain
tests/webtbs/tw16222.pp svneol=native#text/pascal
tests/webtbs/tw1623.pp svneol=native#text/plain
tests/webtbs/tw16263a.pp svneol=native#text/plain
tests/webtbs/tw16263b.pp svneol=native#text/plain
tests/webtbs/tw16311.pp svneol=native#text/plain
tests/webtbs/tw16315a.pp svneol=native#text/pascal
tests/webtbs/tw16315b.pp svneol=native#text/pascal

31
tests/webtbs/tw16263b.pp Normal file
View File

@ -0,0 +1,31 @@
{ %target=darwin,linux,freebsd,solaris,beos,haiku }
{ %NEEDLIBRARY }
{$mode delphi}
program MainApp;
uses
dynlibs,
Math;
const
{$ifdef windows}
libname='tw16263a.dll';
{$else}
{$ifdef darwin}
libname = './libtw16263a.dylib';
{$else darwin}
libname = './libtw16263a.so';
{$endif darwin}
{$endif}
var
hdl: TLibHandle;
begin
// the library will perform a div-by-zero in its init code
setexceptionmask([exZeroDivide]);
hdl := loadlibrary(libname);
if (hdl=nilhandle) then
halt(1);
unloadlibrary(hdl);
end.