mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 17:10:31 +01:00
tests: fix test for unixes
git-svn-id: trunk@19511 -
This commit is contained in:
parent
c6ca9e5091
commit
f5d2c3a446
@ -5,6 +5,12 @@ program tcpstr17;
|
||||
{$codepage utf8}
|
||||
{$endif}
|
||||
{$apptype console}
|
||||
|
||||
{$ifdef unix}
|
||||
uses
|
||||
cwstring;
|
||||
{$endif}
|
||||
|
||||
type
|
||||
TOEMStr = type AnsiString(866);
|
||||
{$ifndef FPC}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user