Browse Source

* forgot to removed some unused code in addset for set<>set

peter 27 years ago
parent
commit
aff857167c
1 changed files with 5 additions and 3 deletions
  1. 5 3
      compiler/cg386add.pas

+ 5 - 3
compiler/cg386add.pas

@@ -308,7 +308,6 @@ implementation
         right_small:=(p^.right^.resulttype^.deftype=setdef) and (psetdef(p^.right^.resulttype)^.settype=smallset);
 
         { handle operations }
-        reset_reference(href2);
         case p^.treetype of
           equaln,
         unequaln : begin
@@ -316,7 +315,7 @@ implementation
                      del_reference(p^.left^.location.reference);
                      del_reference(p^.right^.location.reference);
                      pushusedregisters(pushedregs,$ff);
-                     emitpushreferenceaddr(exprasmlist,href2);
+                     emitpushreferenceaddr(exprasmlist,p^.right^.location.reference);
                      emitpushreferenceaddr(exprasmlist,p^.left^.location.reference);
                      emitcall('SET_COMP_SETS',true);
                      maybe_loadesi;
@@ -1237,7 +1236,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.6  1998-08-18 09:24:35  pierre
+  Revision 1.7  1998-08-19 14:56:59  peter
+    * forgot to removed some unused code in addset for set<>set
+
+  Revision 1.6  1998/08/18 09:24:35  pierre
     * small warning position bug fixed
     * support_mmx switches splitting was missing
     * rhide error and warning output corrected