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

Fix test for go32v2, by adding explicit loading of cpall unit

Browse Source 
git-svn-id: trunk@36353 -
This commit is contained in:
pierre 2017-05-28 05:28:20 +00:00
parent a57d0d51b4
commit eec40b3ed0
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tcpstr1.pp
View File

@ -1,6 +1,11 @@
{$ifdef go32v2} {$ifdef go32v2}
{$define USE_INTERNAL_UNICODE}
{$endif}
{$ifdef USE_INTERNAL_UNICODE}
{$define USE_FPWIDESTRING_UNIT} {$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT} {$define USE_UNICODEDUCET_UNIT}
{$define USE_CPALL_UNIT}
{$endif} {$endif}
{$ifdef unix} {$ifdef unix}
uses uses
@ -13,6 +18,9 @@ uses
{$ifdef USE_UNICODEDUCET_UNIT} {$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet, unicodeducet,
{$endif} {$endif}
{$ifdef USE_CPALL_UNIT}
cpall,
{$endif}
{ The unit strings is not really used here, { The unit strings is not really used here,
but simpifies the conditional construction but simpifies the conditional construction
for fpwidestring and unicodeducet use } for fpwidestring and unicodeducet use }