Browse Source

* fix from Jonas.

marco 22 years ago
parent
commit
c461204cdc
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/ncgcal.pas

+ 6 - 2
compiler/ncgcal.pas

@@ -1043,11 +1043,12 @@ implementation
                       cg.a_load_reg_reg(exprasmlist,OS_ADDR,OS_ADDR,
                       cg.a_load_reg_reg(exprasmlist,OS_ADDR,OS_ADDR,
                                         right.location.reference.base,helpref.base);
                                         right.location.reference.base,helpref.base);
                     end;
                     end;
+	          reference_release(exprasmlist,helpref);
                 end
                 end
               else
               else
                 rg.ungetregisterint(exprasmlist,right.location.register);
                 rg.ungetregisterint(exprasmlist,right.location.register);
 
 
-              reference_release(exprasmlist,helpref);
+
               location_freetemp(exprasmlist,right.location);
               location_freetemp(exprasmlist,right.location);
 {$endif newra}
 {$endif newra}
 
 
@@ -1583,7 +1584,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.105  2003-08-11 21:18:20  peter
+  Revision 1.106  2003-08-16 18:56:40  marco
+   * fix from Jonas.
+
+  Revision 1.105  2003/08/11 21:18:20  peter
     * start of sparc support for newra
     * start of sparc support for newra
 
 
   Revision 1.104  2003/08/11 14:22:06  mazen
   Revision 1.104  2003/08/11 14:22:06  mazen