소스 검색

* fixed type used to store copied open array value parameters

git-svn-id: trunk@32424 -
Jonas Maebe 9 년 전
부모
커밋
be69fbef4f
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/hlcgobj.pas

+ 1 - 1
compiler/hlcgobj.pas

@@ -5032,7 +5032,7 @@ implementation
                   else
                   else
                     internalerror(2011020507);
                     internalerror(2011020507);
 //                      cg.g_copyvaluepara_packedopenarray(list,href,hsym.intialloc,tarraydef(tparavarsym(p).vardef).elepackedbitsize,hreg);
 //                      cg.g_copyvaluepara_packedopenarray(list,href,hsym.intialloc,tarraydef(tparavarsym(p).vardef).elepackedbitsize,hreg);
-                  a_load_reg_loc(list,tparavarsym(p).vardef,tparavarsym(p).vardef,hreg,tparavarsym(p).initialloc);
+                  a_load_reg_loc(list,cpointerdef.getreusable(tparavarsym(p).vardef),cpointerdef.getreusable(tparavarsym(p).vardef),hreg,tparavarsym(p).initialloc);
                 end;
                 end;
             end
             end
           else
           else