Merge pull request #98 from dtpfl/main

use shared function, cleanup

Author: gcarreno

entries/dtoepfl/src/dtpfl_1brc.dpr

@@ -11,27 +11,15 @@ uses
   System.TimeSpan,
   System.Generics.Collections,
   System.Diagnostics,
-  generate.console in '..\..\..\generator\Common\generate.console.pas';
+  generate.console in '..\..\..\generator\Common\generate.console.pas',
+  Baseline.Common in '..\..\..\Baseline\Common\Baseline.Common.pas';
 
 type TAlgorithm = (v1, v2, Count);
 var algorithm: TAlgorithm;
     FormatSettings: TFormatSettings;
 const paramPrefix = '--';
       paramPrefixShort = '-';
 
-function Ceiling(const ANumber: Double): integer;
-begin
-  Result := Trunc(ANumber) + Ord(Frac(ANumber) > 0);
-end;
-
-function RoundExDouble(const ATemp: Double): Double;
-var
-  tmp: Double;
-begin
-  tmp:= ATemp * 10;
-  Result := Ceiling(tmp) / 10;
-end;
-
 {$REGION 'v1'}
 
 type TStationEntry = record

entries/dtoepfl/src/dtpfl_1brc.dproj

@@ -4,7 +4,7 @@
         <ProjectVersion>19.5</ProjectVersion>
         <FrameworkType>None</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Console</AppType>
@@ -161,6 +161,7 @@
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
         <DCCReference Include="..\..\..\generator\Common\generate.console.pas"/>
+        <DCCReference Include="..\..\..\Baseline\Common\Baseline.Common.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>