Browse Source

* added missing register deallocation (could cause IE10 i some cases)
(merged from fixes branch)

Jonas Maebe 25 years ago
parent
commit
83eeb7b9f7
1 changed files with 11 additions and 3 deletions
  1. 11 3
      compiler/cg386set.pas

+ 11 - 3
compiler/cg386set.pas

@@ -383,8 +383,12 @@ implementation
 
 
                   case p^.right^.location.loc of
                   case p^.right^.location.loc of
                  LOC_REGISTER,
                  LOC_REGISTER,
-                LOC_CREGISTER : emit_reg_reg(A_BT,S_L,hr,
-                                  p^.right^.location.register);
+                LOC_CREGISTER :
+                          begin
+                            emit_reg_reg(A_BT,S_L,hr,
+                              p^.right^.location.register);
+                            ungetregister32(p^.right^.location.register);
+                          end
                   else
                   else
                     begin
                     begin
                       del_reference(p^.right^.location.reference);
                       del_reference(p^.right^.location.reference);
@@ -964,7 +968,11 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2000-07-30 17:04:43  peter
+  Revision 1.5  2000-08-05 09:57:27  jonas
+    * added missing register deallocation (could cause IE10 i some cases)
+      (merged from fixes branch)
+
+  Revision 1.4  2000/07/30 17:04:43  peter
     * merged fixes
     * merged fixes
 
 
   Revision 1.3  2000/07/27 09:25:05  jonas
   Revision 1.3  2000/07/27 09:25:05  jonas