Procházet zdrojové kódy

* fixed type in second_class_to_intf if the class was in a LOC_REGISTER

git-svn-id: trunk@32422 -
Jonas Maebe před 9 roky
rodič
revize
a55e9a8b0a
1 změnil soubory, kde provedl 4 přidání a 1 odebrání
  1. 4 1
      compiler/ncgcnv.pas

+ 4 - 1
compiler/ncgcnv.pas

@@ -699,7 +699,10 @@ interface
                  hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register);
               end;
             LOC_REGISTER:
-              location.register:=left.location.register;
+              begin
+                location.register:=left.location.register;
+                hlcg.g_ptrtypecast_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,location.register);
+              end
             else
               internalerror(121120001);
          end;