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

+ support for constant array indices in treference for the JVM target

Browse Source 
(art_indexconst)

git-svn-id: branches/jvmbackend@18366 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:52:27 +00:00
parent 5fd205c130
commit 2a6caa539c
2 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cgutils.pas
View File

@ -34,7 +34,7 @@ unit cgutils;
type
{$ifdef jvm}
tarrayreftype = (art_none,art_indexreg,art_indexref);
tarrayreftype = (art_none,art_indexreg,art_indexref,art_indexconst);
{$endif jvm}
{ reference record, reordered for best alignment }
preference = ^treference;

16
compiler/jvm/hlcgcpu.pas
View File

@ -631,19 +631,27 @@ implementation
a_load_reg_stack(list,voidpointertype,ref.base);
{ index can either be in a register, or located in a simple memory
location (since we have to load it anyway) }
if ref.arrayreftype=art_indexreg then
case ref.arrayreftype of
art_indexreg:
begin
if ref.index=NR_NO then
internalerror(2010120513);
{ all array indices in Java are 32 bit ints }
a_load_reg_stack(list,s32inttype,ref.index);
end
else
end;
art_indexref:
begin
reference_reset_base(href,ref.indexbase,ref.indexoffset,4);
href.symbol:=href.indexsymbol;
href.symbol:=ref.indexsymbol;
a_load_ref_stack(list,s32inttype,href,prepare_stack_for_ref(list,href,false));
end;
art_indexconst:
begin
a_load_const_stack(list,s32inttype,ref.indexoffset,R_INTREGISTER);
end;
else
internalerror(2011012001);
end;
{ adjustment of the index }
if ref.offset<>0 then
a_op_const_stack(list,OP_ADD,s32inttype,ref.offset);