new HASHMULT build to test a different hash function

Author: georges-hatem

entries/ghatem-fpc/src/OneBRCproj.lpi

@@ -15,7 +15,7 @@
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
     </General>
-    <BuildModes Count="4">
+    <BuildModes Count="5">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Debug">
         <CompilerOptions>
@@ -108,6 +108,35 @@
           </Other>
         </CompilerOptions>
       </Item4>
+      <Item5 Name="HashMult">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\bin\ghatem"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="..\..\..\bin\lib\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+              <RunWithoutDebug Value="True"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+          </Linking>
+          <Other>
+            <CustomOptions Value="-dRELEASE -dHASHMULT"/>
+          </Other>
+        </CompilerOptions>
+      </Item5>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>

entries/ghatem-fpc/src/onebrc.pas

@@ -136,9 +136,13 @@ procedure TMyDictionary.InternalFind(const aKey: Cardinal; out aFound: Boolean;
     vDbl: Double;
     vOffset: Integer;
 begin
+{$IFDEF HASHMULT}
   vDbl := aKey * cHashConst;
   vDbl := vDbl - Trunc (vDbl);
   vIdx := Trunc (vDbl * cDictSize);
+{$ELSE}
+  vIdx := aKey mod cDictSize;
+{$ENDIF}
 
   aFound := False;