浏览代码

* Use cwstring on unix.

git-svn-id: trunk@23672 -
yury 12 年之前
父节点
当前提交
0ed82d7218
共有 2 个文件被更改,包括 4 次插入0 次删除
  1. 3 0
      tests/test/tcpstr19.pp
  2. 1 0
      tests/test/tcpstr9.pp

+ 3 - 0
tests/test/tcpstr19.pp

@@ -3,6 +3,8 @@ program tcpstr19;
 
 // test conversions from and to rawbytestring
 // test that copy function returns the same def as argument
+// this test can be only run with the compiler built right now on the
+// same system
 
 {$APPTYPE CONSOLE}
 {$ifdef fpc}
@@ -10,6 +12,7 @@ program tcpstr19;
 {$endif}
 
 uses
+  {$ifdef unix} cwstring, {$endif}
   SysUtils;
 var
   S: AnsiString;

+ 1 - 0
tests/test/tcpstr9.pp

@@ -2,6 +2,7 @@
 program tcpstr9;
 {$mode delphiunicode}
 {$apptype console}
+{$ifdef unix} uses cwstring; {$endif}
 begin
   // this test can be only run with the compiler built right now on the
   // same system