[fpc-devel] Unicode FPC : "WideString" and tkWString / tkUString

[Inoussa OUEDRAOGO]

Hi

This program prints "tkUString". Is this by design or should it had
print tkWString ?

<code>
program widestrprop_p;
{$mode objfpc}{$H+}
uses
  typinfo;
var
  p : PTypeInfo;
begin
  p := TypeInfo(WideString);
  WriteLn(GetEnumName(TypeInfo(TTypeKind),Ord(p^.Kind)));
  ReadLn;
end.
</code>

Best regards.
-- 
Inoussa O.