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

* correctly add an extra [ to the type of call-by-reference parameters that

Browse Source 
are translated into arrays by the compiler (for the debug information)

git-svn-id: branches/jvmbackend@18630 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:16:47 +00:00
parent b50bd9534d
commit a3bd8cb0ba
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/jvmdef.pas
View File

@ -523,6 +523,12 @@ implementation
result:='''result'' '+result result:='''result'' '+result
else else
begin begin
{ add array indirection if required }
if (vsym.typ=paravarsym) and
(vsym.vardef.typ=formaldef) or
((vsym.varspez in [vs_var,vs_out,vs_constref]) and
not jvmimplicitpointertype(vsym.vardef)) then
result:='['+result;
{ single quotes for definitions to prevent clashes with Java { single quotes for definitions to prevent clashes with Java
opcodes } opcodes }
if withsignature then if withsignature then