paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Renamed testdll.pp into ttdlltes1.pp so it falls into same chunk with ttdlltest.pp and can be located at runtime.

Browse Source 
git-svn-id: trunk@27849 -
This commit is contained in:
sergei 2014-06-04 12:10:51 +00:00
parent bdb2993277
commit 128cdd2a65
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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/testdll.pp 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
@ -10947,6 +10946,7 @@ 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/ttdllexe.pp svneol=native#text/plain
tests/test/library/ttdlltes1.pp svneol=native#text/plain
tests/test/library/ttdlltest.pp svneol=native#text/plain
tests/test/library/ulib2a.pp svneol=native#text/plain
tests/test/library/ulib2b.pp svneol=native#text/plain

0
tests/test/library/testdll.pp → tests/test/library/ttdlltes1.pp
View File

8
tests/test/library/ttdlltest.pp
View File

@ -15,11 +15,11 @@ uses
Windows;
procedure p1(var S : string);
external 'testdll' name 'P1';
external 'ttdlltes1' name 'P1';
procedure proc2(x:longint);
external 'testdll' name 'Proc2';
external 'ttdlltes1' name 'Proc2';
function GetTestStr : string;
external 'testdll' name 'GetTestStr';
external 'ttdlltes1' name 'GetTestStr';
const
@ -58,7 +58,7 @@ end;
var
s : string;external 'testdll' name 'FPC_string';
s : string;external 'ttdlltes1' name 'FPC_string';
s2 : string;