Browse Source

merge for fixes branch

pierre 27 years ago
parent
commit
e283510c19
2 changed files with 24 additions and 12 deletions
  1. 9 3
      rtl/i386/i386.inc
  2. 15 9
      rtl/i386/math.inc

+ 9 - 3
rtl/i386/i386.inc

@@ -220,7 +220,7 @@ asm
      { esi contains the vmt }
      { esi contains the vmt }
      pushl %esi
      pushl %esi
      { call newinstance (class method!) }
      { call newinstance (class method!) }
-     call 16(%esi)
+     call *16(%esi)
      { newinstance returns a pointer to the new created }
      { newinstance returns a pointer to the new created }
      { instance in eax                                  }
      { instance in eax                                  }
      { load esi and insert self                         }
      { load esi and insert self                         }
@@ -245,7 +245,7 @@ asm
      { push self }
      { push self }
      pushl %esi
      pushl %esi
      { call freeinstance }
      { call freeinstance }
-     call 20(%edi)
+     call *20(%edi)
 .LDISPOSE_CLASS1:
 .LDISPOSE_CLASS1:
      { load self }
      { load self }
      movl 8(%ebp),%esi
      movl 8(%ebp),%esi
@@ -752,7 +752,13 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.19  1998-09-01 17:36:17  peter
+  Revision 1.20  1998-09-11 17:38:48  pierre
+     merge for fixes branch
+
+  Revision 1.19.2.1  1998/09/11 17:37:24  pierre
+    * correction respective to stricter as v2.9.1 syntax
+
+  Revision 1.19  1998/09/01 17:36:17  peter
     + internconst
     + internconst
 
 
   Revision 1.18  1998/08/11 00:04:47  peter
   Revision 1.18  1998/08/11 00:04:47  peter

+ 15 - 9
rtl/i386/math.inc

@@ -106,15 +106,15 @@
             fldl        8(%ebp)
             fldl        8(%ebp)
             fldl2e
             fldl2e
             fmulp
             fmulp
-            fstcww      .LCW1
-            fstcww      .LCW2
+            fstcw      .LCW1
+            fstcw      .LCW2
             fwait
             fwait
             andw        $0xf3ff,.LCW2
             andw        $0xf3ff,.LCW2
             orw $0x0400,.LCW2
             orw $0x0400,.LCW2
-            fldcww      .LCW2
+            fldcw      .LCW2
             fldl        %st(0)
             fldl        %st(0)
             frndint
             frndint
-            fldcww      .LCW1
+            fldcw      .LCW1
             fxch        %st(1)
             fxch        %st(1)
             fsub        %st(1),%st
             fsub        %st(1),%st
             f2xm1
             f2xm1
@@ -347,15 +347,15 @@
             fldt        8(%ebp)
             fldt        8(%ebp)
             fldl2e
             fldl2e
             fmulp
             fmulp
-            fstcww      .LCW1
-            fstcww      .LCW2
+            fstcw      .LCW1
+            fstcw      .LCW2
             fwait
             fwait
             andw        $0xf3ff,.LCW2
             andw        $0xf3ff,.LCW2
             orw $0x0400,.LCW2
             orw $0x0400,.LCW2
-            fldcww      .LCW2
+            fldcw      .LCW2
             fld         %st(0)
             fld         %st(0)
             frndint
             frndint
-            fldcww      .LCW1
+            fldcw      .LCW1
             fxch        %st(1)
             fxch        %st(1)
             fsub        %st(1),%st
             fsub        %st(1),%st
             f2xm1
             f2xm1
@@ -634,7 +634,13 @@
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.8  1998-09-01 17:36:18  peter
+  Revision 1.9  1998-09-11 17:38:49  pierre
+     merge for fixes branch
+
+  Revision 1.8.2.1  1998/09/11 17:37:25  pierre
+    * correction respective to stricter as v2.9.1 syntax
+
+  Revision 1.8  1998/09/01 17:36:18  peter
     + internconst
     + internconst
 
 
   Revision 1.7  1998/08/25 08:49:05  florian
   Revision 1.7  1998/08/25 08:49:05  florian