From 1334df1d11240ca73cf3061755277583f08285b7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20T=C3=B6pfl?= <kontakt@dtpfl.de>
Date: Wed, 10 Apr 2024 09:51:57 +0200
Subject: [PATCH] use shared function, cleanup

---
 entries/dtoepfl/src/dtpfl_1brc.dpr   | 16 ++--------------
 entries/dtoepfl/src/dtpfl_1brc.dproj |  3 ++-
 2 files changed, 4 insertions(+), 15 deletions(-)

diff --git a/entries/dtoepfl/src/dtpfl_1brc.dpr b/entries/dtoepfl/src/dtpfl_1brc.dpr
index 63a958d..4c54b7e 100644
--- a/entries/dtoepfl/src/dtpfl_1brc.dpr
+++ b/entries/dtoepfl/src/dtpfl_1brc.dpr
@@ -11,7 +11,8 @@ 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;
@@ -19,19 +20,6 @@ var algorithm: TAlgorithm;
 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
diff --git a/entries/dtoepfl/src/dtpfl_1brc.dproj b/entries/dtoepfl/src/dtpfl_1brc.dproj
index fbbb150..9199a1a 100644
--- a/entries/dtoepfl/src/dtpfl_1brc.dproj
+++ b/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>