[fpc-pascal] rtl-generics: TIStringComparer.Ordinal -> Access violation

[silvioprog]

Hello,

Just try it:

var
  list: TDictionary<string, string>;
begin
  list := TDictionary<string, string>.Create(TIStringComparer.Ordinal);

Error:

An unhandled exception occurred at $000000000043A2F8:
EAccessViolation: Access violation
  $000000000043A2F8
  $00000000004084B3  DOADD,  line 277 of inc/generics.dictionaries.inc
  $00000000004099AB  main,  line 14 of project1.lpr

---

Trace:

#0
GENERICS.DEFAULTS$_$TGORDINALISTRINGCOMPARER$2$CRC09680922_$__$$_GETHASHCODE$ANSISTRING$$LONGWORD
at :0
#1 ?? at :0

-- 
Silvio Clécio
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20160817/c7122715/attachment.html>