paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 23:54:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* also allow taking the address of the first element of an array in

Browse Source 
case of non-implicit pointer types

git-svn-id: branches/jvmbackend@18818 -
This commit is contained in:
Jonas Maebe 2011-08-23 17:44:49 +00:00
parent d063ae10cb
commit 0364b7acf9
1 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/jvm/njvmmem.pas
View File

@ -32,6 +32,10 @@ interface
type
tjvmaddrnode = class(tcgaddrnode)
protected
function isrefparaload: boolean;
function isarrayele0load: boolean;
public
function pass_typecheck: tnode; override;
procedure pass_generate_code; override;
end;
@ -99,6 +103,27 @@ implementation
TJVMADDRNODE
*****************************************************************************}
function tjvmaddrnode.isrefparaload: boolean;
begin
result:=
(left.nodetype=loadn) and
(tloadnode(left).symtableentry.typ=paravarsym) and
paramanager.push_copyout_param(tparavarsym(tloadnode(left).symtableentry).varspez,
left.resultdef,
tabstractprocdef(tloadnode(left).symtableentry.owner.defowner).proccalloption);
end;
function tjvmaddrnode.isarrayele0load: boolean;
begin
result:=
(left.nodetype=vecn) and
(tvecnode(left).left.resultdef.typ=arraydef) and
(tvecnode(left).right.nodetype=ordconstn) and
(tordconstnode(tvecnode(left).right).value=0);
end;
function tjvmaddrnode.pass_typecheck: tnode;
var
fsym: tsym;
@ -186,12 +211,9 @@ implementation
if not jvmimplicitpointertype(left.resultdef) then
begin
{ allow taking the address of a copy-out parameter (it's an
array reference) }
if (left.nodetype<>loadn) or
(tloadnode(left).symtableentry.typ<>paravarsym) or
not paramanager.push_copyout_param(tparavarsym(tloadnode(left).symtableentry).varspez,
left.resultdef,
tabstractprocdef(tloadnode(left).symtableentry.owner.defowner).proccalloption) then
array reference) or of the first element of an array }
if not isrefparaload and
not isarrayele0load then
begin
CGMessage(parser_e_illegal_expression);
exit