Răsfoiți Sursa

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

git-svn-id: trunk@32422 -
Jonas Maebe 9 ani în urmă
părinte
comite
a55e9a8b0a
1 a modificat fișierele cu 4 adăugiri și 1 ștergeri
  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);
                  hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register);
               end;
               end;
             LOC_REGISTER:
             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
             else
               internalerror(121120001);
               internalerror(121120001);
          end;
          end;