off-by-1 error...

Author: georges-hatem

entries/ghatem-fpc/src/onebrc.pas

@@ -26,16 +26,16 @@ function RoundExDouble(const ATemp: Double): Double; inline;
   end;
   PStationData = ^TStationData;
 
-  TKeys = array [0..45007] of Cardinal;
-  TValues = array [0..45007] of PStationData;
+  TKeys = array [0..45006] of Cardinal;
+  TValues = array [0..45006] of PStationData;
 
   { TMyDictionary }
 
   TMyDictionary = class
   private
     FHashes: TKeys;
     FValues: TValues;
-    FRecords: array [0..45007] of TStationData;
+    FRecords: array [0..45006] of TStationData;
     procedure InternalFind(const aKey: Cardinal; out aFound: Boolean; out aIndex: Integer);
   public
     constructor Create;