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 @@ 19.5 None True - Release + Debug Win64 3 Console @@ -161,6 +161,7 @@ MainSource + Base