paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix more compilation errors

Browse Source 
git-svn-id: trunk@38761 -
This commit is contained in:
pierre 2018-04-12 21:54:53 +00:00
parent 1405110f33
commit 30fb24f06a
5 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/test/tcpstr18.pp
View File

@ -36,7 +36,6 @@ uses
for fpwidestring and unicodeducet use }
strings;
{$endif def USE_INTERNAL_UNICODE}
{$endif}
procedure TestRawByte(const Source: RawByteString; cp: word; const reason: integer);
begin

1
tests/test/tunistr1.pp
View File

@ -27,7 +27,6 @@ uses
but simpifies the conditional construction
for fpwidestring and unicodeducet use }
strings;
{$endif}
{$endif def USE_INTERNAL_UNICODE}
var

1
tests/test/tunistr2.pp
View File

@ -27,7 +27,6 @@ uses
but simpifies the conditional construction
for fpwidestring and unicodeducet use }
strings;
{$endif}
{$endif def USE_INTERNAL_UNICODE}
var

1
tests/test/twrstr9.pp
View File

@ -26,7 +26,6 @@ uses
but simpifies the conditional construction
for fpwidestring and unicodeducet use }
strings;
{$endif}
type
ts866 = type ansistring( {$ifdef android} 1251 {$else} 866 {$endif} );

1
tests/test/units/system/tdir2.pp
View File

@ -42,7 +42,6 @@ uses
but simpifies the conditional construction
for fpwidestring and unicodeducet use }
strings;
{$endif}
{$endif def USE_INTERNAL_UNICODE}
procedure test(value, required: longint);