浏览代码

* fixed calling procvars with copyout parameters

git-svn-id: branches/jvmbackend@18733 -
Jonas Maebe 14 年之前
父节点
当前提交
6fe124507e
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/symcreat.pas

+ 1 - 1
compiler/symcreat.pas

@@ -744,7 +744,7 @@ implementation
             end;
           { var/out/constref parameters -> pass address through (same for
             implicit pointer types) }
-          if paramanager.push_addr_param(pvs.varspez,paradef,procvar.proccalloption) or
+          if paramanager.push_copyout_param(pvs.varspez,paradef,procvar.proccalloption) or
              jvmimplicitpointertype(paradef) then
             begin
               paraname:='@'+paraname;