[fpc-devel]Pchar issue on Win32 with 1.9.2

[Skovrup, Morten Juel]

I couldn't get in contact with the bug-report system, but the following
code behaves incorrectly (compiled using -Sd):

program TestConsole;

var
  AStr,BStr : string;
  
procedure WriteStr(p1,p2 : PChar);
begin
  WriteLn(p1,p2);
end;

begin
  AStr := 'Hel';
  BStr := 'Hi';
  //The following outputs 'Hello Hello'
  WriteStr(PChar(AStr+'lo '),PChar(BStr+'Hi'));
  //The following outputs 'Hello Hi Hi'
  WriteStr('Hello',' Hi Hi');
  ReadLn;
end.

Regards
Morten