Browse Source

* cwstring is unix only

git-svn-id: trunk@19143 -
florian 14 years ago
parent
commit
030bcd083b
2 changed files with 11 additions and 3 deletions
  1. 5 1
      tests/test/tstrutils1.pp
  2. 6 2
      tests/test/tstrutils2.pp

+ 5 - 1
tests/test/tstrutils1.pp

@@ -6,7 +6,11 @@ program tstrutils1;
 {$h+}
 
 uses
-  {SysUtils, }cwstring,StrUtils;
+  {SysUtils, }
+{$ifdef unix}
+  cwstring,
+{$endif unix}
+  StrUtils;
 
 var
   ResultCounter: Integer = 0;

+ 6 - 2
tests/test/tstrutils2.pp

@@ -1,13 +1,17 @@
 program tstrutils2;
 
-// tests MBCS compatibility of strutils ansistartstext and -endstext. 
+// tests MBCS compatibility of strutils ansistartstext and -endstext.
 // (case-insensitive)
 
 {$mode objfpc}
 {$h+}
 
 uses
-  StrUtils,cwstring;
+  StrUtils,
+{$ifdef unix}
+  cwstring
+{$endif unix}
+  ;
 
 var
   ResultCounter: Integer = 0;