Browse Source

* better fix for bug #2518

Tomas Hajny 22 năm trước cách đây
mục cha
commit
c81e1a487b
2 tập tin đã thay đổi với 12 bổ sung6 xóa
  1. 6 3
      rtl/emx/sysutils.pp
  2. 6 3
      rtl/os2/sysutils.pp

+ 6 - 3
rtl/emx/sysutils.pp

@@ -863,8 +863,8 @@ asm
     mov ax, cx
     mov ax, cx
     stosw
     stosw
     xor eax, eax
     xor eax, eax
-    mov al, dl
-    imul 10
+    mov al, 10
+    mul dl
     shl eax, 16
     shl eax, 16
     mov al, dh
     mov al, dh
     stosd
     stosd
@@ -987,7 +987,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.6  2003-06-06 23:31:55  hajny
+  Revision 1.7  2003-06-06 23:34:08  hajny
+    * better fix for bug 2518
+
+  Revision 1.6  2003/06/06 23:31:55  hajny
     * fix for bug 2518 applied to EMX as well
     * fix for bug 2518 applied to EMX as well
 
 
   Revision 1.5  2003/04/04 02:02:44  yuri
   Revision 1.5  2003/04/04 02:02:44  yuri

+ 6 - 3
rtl/os2/sysutils.pp

@@ -863,8 +863,8 @@ asm
     mov ax, cx
     mov ax, cx
     stosw
     stosw
     xor eax, eax
     xor eax, eax
-    mov al, dl
-    imul 10
+    mov al, 10
+    mul dl
     shl eax, 16
     shl eax, 16
     mov al, dh
     mov al, dh
     stosd
     stosd
@@ -987,7 +987,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.28  2003-06-06 23:31:17  hajny
+  Revision 1.29  2003-06-06 23:34:40  hajny
+    * better fix for bug 2518
+
+  Revision 1.28  2003/06/06 23:31:17  hajny
     * fix for bug 2518 applied to OS/2 as well
     * fix for bug 2518 applied to OS/2 as well
 
 
   Revision 1.27  2003/04/01 15:57:41  peter
   Revision 1.27  2003/04/01 15:57:41  peter