Browse Source

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

git-svn-id: trunk@32422 -
Jonas Maebe 9 years ago
parent
commit
a55e9a8b0a
1 changed files with 4 additions and 1 deletions
  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;