浏览代码

Add fpwidestring and unicodeducet in uses clause for go32v2 target

git-svn-id: trunk@38738 -
pierre 7 年之前
父节点
当前提交
e742588f8a
共有 3 个文件被更改,包括 40 次插入9 次删除
  1. 14 3
      tests/test/twide1.pp
  2. 13 3
      tests/test/twide2.pp
  3. 13 3
      tests/test/twide4.pp

+ 14 - 3
tests/test/twide1.pp

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

+ 13 - 3
tests/test/twide2.pp

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

+ 13 - 3
tests/test/twide4.pp

@@ -3,10 +3,20 @@
 {$mode objfpc}
 {$endif fpc}
 
-uses
-{$ifdef unix}
-  cthreads, {$ifdef darwin}iosxwstr{$else}cwstring{$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;
 
 type