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

Add wide string needed units for go32v2 or darwin

Browse Source 
git-svn-id: trunk@38736 -
This commit is contained in:
pierre 2018-04-12 10:07:16 +00:00
parent 980df21fee
commit e69a7489d9
3 changed files with 46 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/tbs/tb0462.pp
View File

@ -1,9 +1,24 @@
{ %version=1.1 }
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
{$ifdef fpc}
{$ifdef unix}
{$ifdef darwin}
uses
iosxwstr;
{$else}
uses
cwstring;
{$endif}
{$endif}
{$ifdef go32v2}
uses
fpwidestring,
unicodeducet;
{$endif}
{$endif}

17
tests/tbs/tb0488a.pp
View File

@ -30,7 +30,22 @@
{$R-}
{$Q-}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef unix}
{$ifdef darwin}iosxwstr{$else}cwstring{$endif},
{$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
SysUtils,erroru;
procedure Check(a,b:ansistring);
begin

16
tests/tbs/tb0488b.pp
View File

@ -2,7 +2,21 @@
This is a variation of tb0488a
}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef unix}
{$ifdef darwin}iosxwstr{$else}cwstring{$endif},
{$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
SysUtils,erroru;
procedure Check(a,b:ansistring);
begin