# HG changeset patch
# User unC0Rr
# Date 1669820852 -3600
# Node ID d2dafe1b25f584d9dfe89fab3679591184650152
# Parent  9b8d4f34e0f316cf01e4a0f75c6028eddc1b323b
Optimize hwFloat multiplication a bit

diff -r 9b8d4f34e0f3 -r d2dafe1b25f5 hedgewars/uFloat.pas
--- a/hedgewars/uFloat.pas	Tue Nov 15 15:26:00 2022 +0100
+++ b/hedgewars/uFloat.pas	Wed Nov 30 16:07:32 2022 +0100
@@ -298,8 +298,16 @@
 operator * (const z1, z2: hwFloat) z : hwFloat; inline;
 begin
     z.isNegative:= z1.isNegative xor z2.isNegative;
-    z.QWordValue:= QWord(z1.Round) * z2.Frac + QWord(z1.Frac) * z2.Round + ((QWord(z1.Frac) * z2.Frac) shr 32);
-    z.Round:= z.Round + QWord(z1.Round) * z2.Round;
+    
+    if (z1.Round = 0) and (z2.Round = 0) then
+        begin
+        z.QWordValue:= (QWord(z1.Frac) * z2.Frac) shr 32;
+        end 
+    else
+        begin
+        z.QWordValue:= QWord(z1.Round) * z2.Frac + QWord(z1.Frac) * z2.Round + ((QWord(z1.Frac) * z2.Frac) shr 32);
+        z.Round:= z.Round + QWord(z1.Round) * z2.Round;
+    end
 end;
 
 operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat; inline;