paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cwstring is unix only

Browse Source 
git-svn-id: trunk@19143 -
This commit is contained in:
florian 2011-09-18 20:41:37 +00:00
parent 85ed1b87d9
commit 030bcd083b
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tstrutils1.pp
View File

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

8
tests/test/tstrutils2.pp
View File

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