From 886159e73a2f2cf46007d01377d9ceb8268cbb1a Mon Sep 17 00:00:00 2001 From: sergei Date: Wed, 4 Jun 2014 12:30:35 +0000 Subject: [PATCH] * 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 - --- .gitattributes | 2 +- tests/test/library/{testdll2.pp => ttdllex1.pp} | 0 tests/test/library/ttdllexe.pp | 6 +++--- 3 files changed, 4 insertions(+), 4 deletions(-) rename tests/test/library/{testdll2.pp => ttdllex1.pp} (100%) diff --git a/.gitattributes b/.gitattributes index ddd763c703..c881634a68 100644 --- a/.gitattributes +++ b/.gitattributes @@ -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 diff --git a/tests/test/library/testdll2.pp b/tests/test/library/ttdllex1.pp similarity index 100% rename from tests/test/library/testdll2.pp rename to tests/test/library/ttdllex1.pp diff --git a/tests/test/library/ttdllexe.pp b/tests/test/library/ttdllexe.pp index 1a384e1457..2915ff2b76 100644 --- a/tests/test/library/ttdllexe.pp +++ b/tests/test/library/ttdllexe.pp @@ -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;