paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +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@38735 -
This commit is contained in:
pierre 2018-04-12 09:58:13 +00:00
parent 79730fe479
commit 980df21fee
11 changed files with 136 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw10482.pp
View File

@ -2,9 +2,19 @@ program fpctest4;
{$ifdef fpc}
{$mode delphi}
{$endif fpc}
{$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}
Classes,sysutils,variants,typinfo;

20
tests/webtbs/tw11791.pp
View File

@ -1,8 +1,24 @@
{$mode objfpc}{$H+}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef unix}{$ifdef darwin}iosxwstr{$else}cwstring{$endif},{$endif}
Classes, SysUtils;
{$ifdef unix}
{$ifdef darwin}
iosxwstr,
{$else}
cwstring,
{$endif}
{$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
Classes, SysUtils;
const buffer : array[1..20334] of char=(

11
tests/webtbs/tw12993.pp
View File

@ -1,5 +1,16 @@
{$codepage cp866}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
uses
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet;
{$endif}
{$endif}
{$ifdef unix}
uses
{$ifdef darwin}iosxwstr{$else}cwstring{$endif};

11
tests/webtbs/tw13015.pp
View File

@ -7,9 +7,20 @@ program test;
{$apptype console}
{$endif}
{$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}
Classes,SysUtils,uw13015;

10
tests/webtbs/tw13075.pp
View File

@ -1,9 +1,19 @@
{$mode objfpc}{$H+}
{$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}
Classes, SysUtils;

10
tests/webtbs/tw17591.pp
View File

@ -1,7 +1,17 @@
program comparetext;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
sysutils
{$ifdef unix}
,{$ifdef darwin}iosxwstr{$else}cwstring{$endif}

12
tests/webtbs/tw25198.pp
View File

@ -2,6 +2,18 @@ program concatenate_resourestrings_delphiunicode;
{$mode delphiunicode}
{$codepage cp1250}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
uses
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet;
{$endif}
{$endif}
{$ifdef unix}
uses

12
tests/webtbs/tw3235a.pp
View File

@ -1,5 +1,17 @@
program TestStrIComp;
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
{$ifdef unix}{$ifdef darwin}iosxwstr{$else}cwstring{$endif},{$endif}
SysUtils;

11
tests/webtbs/tw4080.pp
View File

@ -1,5 +1,16 @@
program tw4080;
{$i+}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
uses
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet;
{$endif}
{$endif}
{$ifdef unix}
uses

22
tests/webtbs/tw7006.pp
View File

@ -1,8 +1,28 @@
program av;
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
{$ifdef go32v2}
{$define USE_FPWIDESTRING_UNIT}
{$define USE_UNICODEDUCET_UNIT}
{$endif}
uses
{$ifdef FPC}{$ifdef unix}cthreads,{$ifdef darwin}iosxwstr{$else}cwstring{$endif},{$endif}{$endif}sysutils;
{$ifdef FPC}
{$ifdef unix}
cthreads,
{$ifdef darwin}
iosxwstr
{$else}
cwstring
{$endif}
,{$endif}
{$ifdef USE_FPWIDESTRING_UNIT}
fpwidestring,
{$endif}
{$ifdef USE_UNICODEDUCET_UNIT}
unicodeducet,
{$endif}
{$endif}
sysutils;
type
testrecty = record
str: widestring;

10
tests/webtbs/tw7758a.pp
View File

@ -1,9 +1,19 @@
{ %norun }
{$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;
{ just to make sure that no all wide->shortstring compile time conversions }