paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 01:31:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* redefine also PPChar and PPPChar depending on the string type mode, resolves #40491

Browse Source
This commit is contained in:
florian 2023-10-31 23:13:22 +01:00
parent e00ab51185
commit b2a13077c0
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/uachar.pp
View File

@ -22,6 +22,8 @@ interface
type type
Char = AnsiChar; Char = AnsiChar;
PChar = PAnsiChar; PChar = PAnsiChar;
PPChar = ^PChar;
PPPChar = ^PPChar;
implementation implementation

3
rtl/inc/uuchar.pp
View File

@ -20,7 +20,8 @@ interface
type type
Char = widechar; Char = widechar;
PChar = pwidechar; PChar = pwidechar;
PPChar = ^PChar;
PPPChar = ^PPChar;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
{$ifdef MSWINDOWS} {$ifdef MSWINDOWS}

17
tests/webtbs/tw40491.pp Normal file
View File

@ -0,0 +1,17 @@
program test;
{$MODE OBJFPC}
{$MODESWITCH UNICODESTRINGS}
var
S: string;
pS: PChar;
ppS: PPChar;
begin
S := 'test string';
pS := @S[1];
ppS := @pS;
pS := ppS^; // Error: Incompatible types: got "PChar" expected "PWideChar"
WriteLn(string(pS));
end.