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

* also resize the value on the stack in a_load_reg_ref() when

Browse Source 
required based on the source/destination sizes (like in
    a_load_reg_reg(), a_load_ref_reg() and a_load_ref_ref())

git-svn-id: branches/jvmbackend@18918 -
This commit is contained in:
Jonas Maebe 2011-08-30 23:34:07 +00:00
parent 0e80844e33
commit f21b34c954
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/jvm/hlcgcpu.pas
View File

@ -1024,6 +1024,8 @@ implementation
begin
extra_slots:=prepare_stack_for_ref(list,ref,false);
a_load_reg_stack(list,fromsize,register);
if def2regtyp(fromsize)=R_INTREGISTER then
resize_stack_int_val(list,def_cgsize(fromsize),def_cgsize(tosize),ref.arrayreftype<>art_none);
a_load_stack_ref(list,tosize,ref,extra_slots);
end;