mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
* Renamed testdll2.pp into ttdllex1.pp so it falls into same chunk with ttdllexe.pp and can be located at runtime.
git-svn-id: trunk@27850 -
This commit is contained in:
parent
128cdd2a65
commit
886159e73a
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -10936,7 +10936,6 @@ tests/test/jvm/uenum.pp svneol=native#text/plain
|
||||
tests/test/jvm/ujsetter.pp svneol=native#text/plain
|
||||
tests/test/jvm/unsupported.pp svneol=native#text/plain
|
||||
tests/test/lcpref.inc svneol=native#text/plain
|
||||
tests/test/library/testdll2.pp svneol=native#text/plain
|
||||
tests/test/library/tlib1a.pp svneol=native#text/plain
|
||||
tests/test/library/tlib1b.pp svneol=native#text/plain
|
||||
tests/test/library/tlib1c.pp svneol=native#text/plain
|
||||
@ -10945,6 +10944,7 @@ tests/test/library/tlib3a.pp svneol=native#text/plain
|
||||
tests/test/library/tlib3b.pp svneol=native#text/plain
|
||||
tests/test/library/tlib3c.pp svneol=native#text/plain
|
||||
tests/test/library/tlib3d.pp svneol=native#text/plain
|
||||
tests/test/library/ttdllex1.pp svneol=native#text/plain
|
||||
tests/test/library/ttdllexe.pp svneol=native#text/plain
|
||||
tests/test/library/ttdlltes1.pp svneol=native#text/plain
|
||||
tests/test/library/ttdlltest.pp svneol=native#text/plain
|
||||
|
@ -16,11 +16,11 @@ program ttdllexe;
|
||||
uses
|
||||
Windows;
|
||||
|
||||
procedure test; external 'testdll2' name 'test';
|
||||
function GetString : string; external 'testdll2' name 'GetString';
|
||||
procedure test; external 'ttdllex1' name 'test';
|
||||
function GetString : string; external 'ttdllex1' name 'GetString';
|
||||
|
||||
var
|
||||
s : string;external 'testdll2' name 'teststr';
|
||||
s : string;external 'ttdllex1' name 'teststr';
|
||||
const
|
||||
called : boolean = false;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user