[fpc-pascal] CP_NONE string disappearing

[Benito van der Zander]

Hello,

this code:

program Project1;
{$mode objfpc}{$H+}
var a,b, c: string;
begin
   a := 'x';
   b := 'y';
   SetCodePage(RawByteString(b), CP_NONE, false);
   c := a+b;
   writeln(c);
end.

prints x without y on win32/wine.

Is that supposed to happen?



Bye,

Benito


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20201227/92ab2694/attachment-0001.htm>