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

* fixed compilation with 2.4.4

Browse Source 
git-svn-id: branches/jvmbackend@18778 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:35:19 +00:00
parent 740e7ca6b5
commit 26ee54b1a2
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/jvm/njvmld.pas
View File

@ -162,7 +162,7 @@ function tjvmloadnode.is_copyout_addr_param_load: boolean;
function tjvmloadnode.is_addr_param_load: boolean;
begin
result:=
(inherited and
(inherited is_addr_param_load and
not jvmimplicitpointertype(tparavarsym(symtableentry).vardef) and
(tparavarsym(symtableentry).vardef.typ<>formaldef)) or
is_copyout_addr_param_load;