widestring implementation faulty
Original Reporter info from Mantis: Thorsten Engler
-
Reporter name: Thorsten Engler
Original Reporter info from Mantis: Thorsten Engler
- Reporter name: Thorsten Engler
Description:
program WideStringFault;
{$APPTYPE CONSOLE}
procedure Test;
var
w: widestring;
v: variant;
begin
w := '';
v := w;
w := v;
if w <> '' then
WriteLn('FUBAR');
end;
begin
Test;
end.
Mantis conversion info:
- Mantis ID: 8229
- Platform: win32
- Version: 2.2.0
- Fixed in version: 2.2.0
- Fixed in revision: 6238 (#c6d3bc81)