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
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
