From 4f372f2799380ed5d75fab4dc28e245ad2e883c5 Mon Sep 17 00:00:00 2001
From: Georges Hatem <georges@hatem.ws>
Date: Tue, 7 May 2024 22:56:04 +0300
Subject: [PATCH] migrate changes to the large-rec implementation

---
 entries/ghatem-fpc/src/OneBRC-largerec.lpr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/entries/ghatem-fpc/src/OneBRC-largerec.lpr b/entries/ghatem-fpc/src/OneBRC-largerec.lpr
index 0788e53..98dce28 100644
--- a/entries/ghatem-fpc/src/OneBRC-largerec.lpr
+++ b/entries/ghatem-fpc/src/OneBRC-largerec.lpr
@@ -89,7 +89,7 @@   TBRCDictionary = class
     destructor Destroy; override;
 
     // simple wrapper to find station-record pointers
-    function TryGetValue (const aKey: Cardinal; const aThreadNb: TThreadCount; out aValue: PStationData): Boolean;
+    function TryGetValue (const aKey: Cardinal; const aThreadNb: TThreadCount; out aValue: PStationData): Boolean; {$IFNDEF VALGRIND} inline; {$ENDIF}
 
     // multithread-unprotected: adds a firstly-encountered station-data (temp, name)
     procedure Add (const aHashIdx: THashSize; const aThreadNb: TThreadCount; const aTemp: SmallInt; const aStationName: AnsiString); {$IFNDEF VALGRIND} inline; {$ENDIF}
@@ -569,7 +569,7 @@ procedure TOneBRC.GenerateOutput;
 begin
   vStream := TStringStream.Create;
   vStations := TStringList.Create;
-  vStations.Capacity := cDictSize;
+  vStations.Capacity := cNumStations;
   vStations.UseLocale := False;
   try
     vStations.BeginUpdate;