Explorar o código

* fixed small LOC_(C)FPUREGISTER bug

Jonas Maebe %!s(int64=22) %!d(string=hai) anos
pai
achega
4db662b6d0
Modificáronse 1 ficheiros con 8 adicións e 2 borrados
  1. 8 2
      compiler/sparc/ncpuinln.pas

+ 8 - 2
compiler/sparc/ncpuinln.pas

@@ -64,7 +64,10 @@ implementation
         location_force_fpureg(exprasmlist,left.location,true);
         location_force_fpureg(exprasmlist,left.location,true);
         location_copy(location,left.location);
         location_copy(location,left.location);
         if left.location.loc=LOC_CFPUREGISTER then
         if left.location.loc=LOC_CFPUREGISTER then
-          location.register:=rg.getregisterfpu(exprasmlist,location.size);
+          begin
+           location.register:=rg.getregisterfpu(exprasmlist,location.size);
+           location.loc := LOC_FPUREGISTER;
+         end;
       end;
       end;
 
 
 
 
@@ -120,7 +123,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2003-06-01 21:38:07  peter
+  Revision 1.5  2003-06-13 17:05:24  jonas
+    * fixed small LOC_(C)FPUREGISTER bug
+
+  Revision 1.4  2003/06/01 21:38:07  peter
     * getregisterfpu size parameter added
     * getregisterfpu size parameter added
     * op_const_reg size parameter added
     * op_const_reg size parameter added
     * sparc updates
     * sparc updates