Fixed FPC bugger with little trick.

LongDirtyAnimAlf · Jul 3, 2018 · 545fe33 · 545fe33
1 parent 4dd7d0a
commit 545fe33
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas b/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas
@@ -410,7 +410,7 @@ function TDetector.sizeOfBlackWhiteBlackRun(fromX: Integer; fromY: Integer;
 
   dx := Abs(toX - fromX);
   dy := Abs(toY - fromY);
-  error := TMathUtils.Asr(-dx, 1);
+  error := -1*TMathUtils.Asr(dx, 1);
   if (fromX < toX) then
     xstep := 1
   else