Island (Linux) Dictionary bug

oxygene
bug
linux
island

(Kazantsev Alexey) #1

namespace dict;

type
Program = class
public

class method Main(args: array of String): Int32;
begin
 var dict := new dictionary<string, integer>;
 var keys := new string[1000000];
 for i : integer := low(keys) to high(keys) do
  keys[i] := 'index' + i.ToString;
 for i : integer := low(keys) to high(keys) do
  dict.Add(keys[i], i);
 for i : integer := low(keys) to high(keys) do
  if not dict.containskey(keys[i]) then
   raise new exception('whoops. (' + keys[i] + ')');
end;

end;

end.

Uncaught exception: RemObjects.Elements.System.Exception: whoops. (index0)


(RemObjects) #2

Thanks, logged as bugs://77025


(RemObjects) #3

bugs://77025 got closed with status fixed.