Browse Source

+ added cwstring unit for unix

git-svn-id: trunk@7679 -
Jonas Maebe 18 years ago
parent
commit
ce94d89bd9
3 changed files with 17 additions and 4 deletions
  1. 8 0
      tests/tbs/tb0462.pp
  2. 8 3
      tests/test/talign2.pp
  3. 1 1
      tests/webtbs/tw7006.pp

+ 8 - 0
tests/tbs/tb0462.pp

@@ -1,4 +1,12 @@
 { %version=1.1 }
+
+{$ifdef fpc}
+{$ifdef unix}
+uses
+  cwstring;
+{$endif}
+{$endif}
+
 type
   RR = record
     RA : WideString;

+ 8 - 3
tests/test/talign2.pp

@@ -11,15 +11,20 @@ program talign2;
 
 {$ifdef fpc}
 {$mode objfpc}
-  {$ifndef ver1_0}
-    {$define haswidestring}
-  {$endif}
+{$define haswidestring}
 {$else}
   {$ifndef ver70}
     {$define haswidestring}
   {$endif}
 {$endif}
 
+{$ifdef fpc}
+{$ifdef unix}
+uses
+  cwstring;
+{$endif}
+{$endif}
+
 
 procedure test(b : boolean);
 begin

+ 1 - 1
tests/webtbs/tw7006.pp

@@ -2,7 +2,7 @@ program av;
 {$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
 {$ifdef mswindows}{$apptype console}{$endif}
 uses
- {$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}sysutils;
+ {$ifdef FPC}{$ifdef unix}cthreads,cwstring,{$endif}{$endif}sysutils;
 type
  testrecty = record
   str: widestring;