paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +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 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
tests/test/tcpstr9.pp
View File

@ -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