mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 11:09:13 +02:00
Add popuperr unit on tests
git-svn-id: trunk@16759 -
This commit is contained in:
parent
c5b2096f40
commit
e7dcc27cd9
@ -2,6 +2,8 @@
|
|||||||
{ %norun }
|
{ %norun }
|
||||||
library tw12987a;
|
library tw12987a;
|
||||||
|
|
||||||
|
uses
|
||||||
|
popuperr;
|
||||||
|
|
||||||
procedure test;
|
procedure test;
|
||||||
var
|
var
|
||||||
|
@ -1,5 +1,9 @@
|
|||||||
{ %target=win32,win64,wince,os2 }
|
{ %target=win32,win64,wince,os2 }
|
||||||
{ %needlibrary }
|
{ %needlibrary }
|
||||||
|
|
||||||
|
uses
|
||||||
|
popuperr;
|
||||||
|
|
||||||
procedure test;external 'tw12987a' name 'test';
|
procedure test;external 'tw12987a' name 'test';
|
||||||
|
|
||||||
function ThreadTest(p : pointer) : PtrInt;
|
function ThreadTest(p : pointer) : PtrInt;
|
||||||
|
@ -3,6 +3,7 @@
|
|||||||
library tw13628a;
|
library tw13628a;
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
popuperr,
|
||||||
SysUtils;
|
SysUtils;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
@ -3,6 +3,7 @@
|
|||||||
program loadmodule;
|
program loadmodule;
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
popuperr,
|
||||||
dynlibs;
|
dynlibs;
|
||||||
|
|
||||||
const
|
const
|
||||||
|
@ -2,6 +2,10 @@
|
|||||||
{ %opt=-gh }
|
{ %opt=-gh }
|
||||||
{ %norun }
|
{ %norun }
|
||||||
library dll1;
|
library dll1;
|
||||||
|
|
||||||
|
uses
|
||||||
|
popuperr;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
IsMultiThread:=True;
|
IsMultiThread:=True;
|
||||||
end.
|
end.
|
||||||
|
@ -2,6 +2,10 @@
|
|||||||
{ %opt=-gh }
|
{ %opt=-gh }
|
||||||
{ %norun }
|
{ %norun }
|
||||||
library dll2;
|
library dll2;
|
||||||
|
|
||||||
|
uses
|
||||||
|
popuperr;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
IsMultiThread:=True;
|
IsMultiThread:=True;
|
||||||
end.
|
end.
|
||||||
|
@ -1,7 +1,9 @@
|
|||||||
{ %target=win32,wince,win64 }
|
{ %target=win32,wince,win64 }
|
||||||
{ %opt=-gh }
|
{ %opt=-gh }
|
||||||
{$AppType CONSOLE}
|
{$AppType CONSOLE}
|
||||||
uses Windows;
|
uses
|
||||||
|
popuperr,
|
||||||
|
Windows;
|
||||||
{$C+}
|
{$C+}
|
||||||
|
|
||||||
|
|
||||||
|
@ -3,6 +3,7 @@ library tw6822a;
|
|||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
popuperr,
|
||||||
uw6822a;
|
uw6822a;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
@ -4,6 +4,7 @@ program loader;
|
|||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
popuperr,
|
||||||
dynlibs;
|
dynlibs;
|
||||||
var
|
var
|
||||||
h: TLibHandle;
|
h: TLibHandle;
|
||||||
|
@ -4,7 +4,8 @@ program prog;
|
|||||||
{$mode objfpc}
|
{$mode objfpc}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
dynlibs;
|
popuperr,
|
||||||
|
dynlibs;
|
||||||
|
|
||||||
// this function is exported from the EXE
|
// this function is exported from the EXE
|
||||||
function exetest: longint; {public name 'exetest';}
|
function exetest: longint; {public name 'exetest';}
|
||||||
|
Loading…
Reference in New Issue
Block a user