paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use cwstring on unix.

Browse Source 
git-svn-id: trunk@23672 -
This commit is contained in:
yury 2013-02-28 19:32:06 +00:00
parent ee0a338127
commit 0ed82d7218
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/test/tcpstr19.pp
View File

@ -3,6 +3,8 @@ program tcpstr19;
// test conversions from and to rawbytestring // test conversions from and to rawbytestring
// test that copy function returns the same def as argument // 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} {$APPTYPE CONSOLE}
{$ifdef fpc} {$ifdef fpc}
@ -10,6 +12,7 @@ program tcpstr19;
{$endif} {$endif}
uses uses
{$ifdef unix} cwstring, {$endif}
SysUtils; SysUtils;
var var
S: AnsiString; S: AnsiString;

1
tests/test/tcpstr9.pp
View File

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