Quellcode durchsuchen

Clean up comment at start of fpc_mul_dword

git-svn-id: trunk@26368 -
pierre vor 11 Jahren
Ursprung
Commit
de89827eb7
1 geänderte Dateien mit 4 neuen und 8 gelöschten Zeilen
  1. 4 8
      rtl/i8086/int32p.inc

+ 4 - 8
rtl/i8086/int32p.inc

@@ -18,19 +18,15 @@ function fpc_mul_dword( f1, f2: dword; checkoverflow: boolean ): dword; [public,
 begin
 { routine contributed by Max Nazhalov
 
-//////// 16-bit multiplications summary:
-(A1:A0*B1:B0) = (A1*B1)<<32 + (A1*B0)<<16 + (A0*B1)<<16 + (A0*B0)
+  32-bit multiplications summary:
+  f1 = A1*$10000+A0
+  f2 = B1*$10000+B0
+  (A1:A0*B1:B0) = (A1*B1)<<32 + (A1*B0)<<16 + (A0*B1)<<16 + (A0*B0)
 
   A1*B1 [only needed for overflow checking; overflow if <>0]
   A1*B0
   A0*B1
   A0:B0
-  A3*B0 [only lo_word is needed; overflow if hi_word<>0]
-  A2*B1 [only lo_word is needed; overflow if hi_word<>0]
-  A2*B0
-  A1*B2 [only lo_word is needed; overflow if hi_word<>0]
-  A0*B3 [only lo_word is needed; overflow if hi_word<>0]
-  A0*B2
 }
   asm
     mov     cx,word[f1]