From 4abee002a7db587cc4f055735c447ad6e17667b8 Mon Sep 17 00:00:00 2001 From: Georges Hatem Date: Fri, 19 Apr 2024 11:37:52 +0300 Subject: [PATCH] undo broke the hash --- entries/ghatem-fpc/src/onebrc.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/entries/ghatem-fpc/src/onebrc.pas b/entries/ghatem-fpc/src/onebrc.pas index 3b439a5..1aa61db 100644 --- a/entries/ghatem-fpc/src/onebrc.pas +++ b/entries/ghatem-fpc/src/onebrc.pas @@ -135,7 +135,7 @@ procedure TOneBRC.ExtractLineData(const aStart: Int64; const aEnd: Int64; out aL aTemp := (Ord(FData[aEnd]) - c0ascii) + 10 *(Ord(FData[aEnd-2]) - c0ascii); vDigit := Ord(FData[aEnd-3]); - if vDigit >= c0ascii then begin + if (vDigit >= c0ascii) and (vDigit <= c9ascii) then begin aTemp := aTemp + 100*(Ord(FData[aEnd-3]) - c0ascii); vDigit := Ord(FData[aEnd-4]); if vDigit = cNegAscii then