paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed calling procvars with copyout parameters

Browse Source 
git-svn-id: branches/jvmbackend@18733 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:29:24 +00:00
parent 8fcc8f92ca
commit 6fe124507e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symcreat.pas
View File

@ -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;