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

* fix PString

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 15:20:06 +01:00 committed by Pierre Muller
parent a1d79a323a
commit fb74ebbf6c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/objpas.pp
View File

@ -12,12 +12,12 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit objpas;
{$Mode ObjFpc}
{$I-}
{$ifndef Unix}
{$S-}
{$endif}
unit objpas;
interface
@ -37,7 +37,11 @@ interface
{$endif CPU16}
{ Ansistring are the default }
{$IF SIZEOF(Char)=2}
PString = PWideString;
{$ELSE}
PString = PAnsiString;
{$ENDIF}
{ array types }
{$ifdef CPU16}