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

* copyout parameters also have to return "true" for is_addr_param_load()

Browse Source 
git-svn-id: branches/jvmbackend@18592 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:13:21 +00:00
parent 4be0ba267a
commit 23e4405c78
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/jvm/njvmld.pas
View File

@ -33,6 +33,9 @@ uses
type
tjvmloadnode = class(tcgnestloadnode)
protected
function is_copyout_addr_param_load: boolean;
public
function is_addr_param_load: boolean; override;
procedure pass_generate_code; override;
end;
@ -115,19 +118,28 @@ function tjvmassignmentnode.pass_1: tnode;
end;
function tjvmloadnode.is_copyout_addr_param_load: boolean;
begin
result:=
{ passed via array of one element }
((symtable.symtabletype=parasymtable) and
(symtableentry.typ=paravarsym) and
paramanager.push_copyout_param(tparavarsym(symtableentry).varspez,resultdef,tprocdef(symtable.defowner).proccalloption));
end;
function tjvmloadnode.is_addr_param_load: boolean;
begin
result:=
inherited and
not jvmimplicitpointertype(tparavarsym(symtableentry).vardef);
(inherited and
not jvmimplicitpointertype(tparavarsym(symtableentry).vardef)) or
is_copyout_addr_param_load;
end;
procedure tjvmloadnode.pass_generate_code;
begin
if (symtable.symtabletype=parasymtable) and
(symtableentry.typ=paravarsym) and
paramanager.push_copyout_param(tparavarsym(symtableentry).varspez,resultdef,tprocdef(symtable.defowner).proccalloption) then
if is_copyout_addr_param_load then
begin
{ the parameter is passed as an array of one element containing the
parameter value }