Pārlūkot izejas kodu

* fixed fldcw,fstcw for as 2.9.1

peter 27 gadi atpakaļ
vecāks
revīzija
5d8f48b46d
1 mainītis faili ar 7 papildinājumiem un 4 dzēšanām
  1. 7 4
      compiler/cg386cnv.pas

+ 7 - 4
compiler/cg386cnv.pas

@@ -725,16 +725,16 @@ implementation
          exprasmlist^.concat(new(pai386,op_ref(A_FIMUL,S_IL,newreference(ref))));
 
          ref.offset:=4;
-         exprasmlist^.concat(new(pai386,op_ref(A_FSTCW,S_L,newreference(ref))));
+         exprasmlist^.concat(new(pai386,op_ref(A_FSTCW,S_NO,newreference(ref))));
 
          ref.offset:=6;
-         exprasmlist^.concat(new(pai386,op_ref(A_FLDCW,S_L,newreference(ref))));
+         exprasmlist^.concat(new(pai386,op_ref(A_FLDCW,S_NO,newreference(ref))));
 
          ref.offset:=0;
          exprasmlist^.concat(new(pai386,op_ref(A_FISTP,S_IL,newreference(ref))));
 
          ref.offset:=4;
-         exprasmlist^.concat(new(pai386,op_ref(A_FLDCW,S_L,newreference(ref))));
+         exprasmlist^.concat(new(pai386,op_ref(A_FLDCW,S_NO,newreference(ref))));
 
          rreg:=getregister32;
          exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,rreg)));
@@ -1331,7 +1331,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.28  1998-10-08 17:17:11  pierre
+  Revision 1.29  1998-10-26 15:18:41  peter
+    * fixed fldcw,fstcw for as 2.9.1
+
+  Revision 1.28  1998/10/08 17:17:11  pierre
     * current_module old scanner tagged as invalid if unit is recompiled
     + added ppheap for better info on tracegetmem of heaptrc
       (adds line column and file index)