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

Add fpwidestring and unicodeducet in uses clause for go32v2 target

Browse Source 
git-svn-id: trunk@38738 -
This commit is contained in:
pierre 2018-04-12 10:18:55 +00:00
parent 1b91d17684
commit e742588f8a
3 changed files with 40 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/test/twide1.pp
View File

@ -1,7 +1,18 @@
{$ifdef unix} {$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses uses
{$ifdef unix}
{$ifdef darwin}iosxwstr{$else}cwstring{$endif}; {$ifdef darwin}iosxwstr{$else}cwstring{$endif};
{$endif unix} {$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet;
{$endif}
var var
w : widestring; w : widestring;

14
tests/test/twide2.pp
View File

@ -1,7 +1,17 @@
{$ifdef UNIX} {$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses uses
{$ifdef unix}
{$ifdef darwin}iosxwstr{$else}cwstring{$endif}; {$ifdef darwin}iosxwstr{$else}cwstring{$endif};
{$endif UNIX} {$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet;
{$endif}
var var
i : longint; i : longint;

16
tests/test/twide4.pp
View File

@ -3,10 +3,20 @@
{$mode objfpc} {$mode objfpc}
{$endif fpc} {$endif fpc}
uses {$ifdef go32v2}
{$ifdef unix} {$define USE_FPWIDESTRING_UNIT}
cthreads, {$ifdef darwin}iosxwstr{$else}cwstring{$endif}, {$define USE_UNICODEDUCET_UNIT}
{$endif} {$endif}
uses
{$ifdef unix}
{$ifdef darwin}iosxwstr{$else}cwstring{$endif},
{$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
Classes, SysUtils; Classes, SysUtils;
type type