Strange logic in casting AnsiChar -> WideChar, WideChar -> AnsiChar
Original Reporter info from Mantis: Filuta Vitaliy
-
Reporter name: FVI
Original Reporter info from Mantis: Filuta Vitaliy
- Reporter name: FVI
Description:
program Project1;
{$mode objfpc}{$H+}
var
A: AnsiChar;
W: WideChar;
begin
A := #151;
writeln(Ord(A));
W := WideChar(A);
writeln(Ord(W));
writeln('----');
W := #151;
writeln(Ord(W));
A := AnsiChar(W);
writeln(Ord(A));
end.
This program write:
151
8212
----
151
63
but should:
151
151
----
151
151
Mantis conversion info:
- Mantis ID: 17502
- OS: Windows XP
- OS Build: SP 2
- Build: ?
- Platform: x86_64
- Version: 2.5.1