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

- added handling of OS_NO parameters in a_param_ref

Browse Source 
git-svn-id: trunk@1619 -
This commit is contained in:
tom_at_work 2005-11-01 21:11:50 +00:00
parent b8f34684ec
commit 9228588260
1 changed files with 54 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
compiler/powerpc64/cgcpu.pas
View File

@ -239,8 +239,7 @@ begin
location := paraloc.location; location := paraloc.location;
tmpref := r; tmpref := r;
sizeleft := paraloc.intsize; sizeleft := paraloc.intsize;
while assigned(location) do while assigned(location) do begin
begin
case location^.loc of case location^.loc of
LOC_REGISTER, LOC_CREGISTER: LOC_REGISTER, LOC_CREGISTER:
begin begin
@ -248,8 +247,59 @@ begin
a_load_ref_reg(list, size, location^.size, tmpref, a_load_ref_reg(list, size, location^.size, tmpref,
location^.register) location^.register)
else else
a_load_ref_reg(list, location^.size, location^.size, tmpref, { load non-integral sized memory location into register. This
location^.register) memory location be 1-sizeleft byte sized.
Always assume that this memory area is properly aligned, eg. start
loading the larger quantities for "odd" quantities first }
case sizeleft of
3 : begin
a_reg_alloc(list, NR_R12);
a_load_ref_reg(list, OS_16, location^.size, tmpref,
NR_R12);
inc(tmpref.offset, tcgsize2size[OS_16]);
a_load_ref_reg(list, OS_8, location^.size, tmpref,
location^.register);
list.concat(taicpu.op_reg_reg_const_const(A_RLDIMI, location^.register, NR_R12, 8, 40));
a_reg_dealloc(list, NR_R12);
end;
5 : begin
a_reg_alloc(list, NR_R12);
a_load_ref_reg(list, OS_32, location^.size, tmpref, NR_R12);
inc(tmpref.offset, tcgsize2size[OS_32]);
a_load_ref_reg(list, OS_8, location^.size, tmpref, location^.register);
list.concat(taicpu.op_reg_reg_const_const(A_RLDIMI, location^.register, NR_R12, 8, 24));
a_reg_dealloc(list, NR_R12);
end;
6 : begin
a_reg_alloc(list, NR_R12);
a_load_ref_reg(list, OS_32, location^.size, tmpref, NR_R12);
inc(tmpref.offset, tcgsize2size[OS_32]);
a_load_ref_reg(list, OS_16, location^.size, tmpref, location^.register);
list.concat(taicpu.op_reg_reg_const_const(A_RLDIMI, location^.register, NR_R12, 16, 16));
a_reg_dealloc(list, NR_R12);
end;
7 : begin
a_reg_alloc(list, NR_R12);
a_reg_alloc(list, NR_R0);
a_load_ref_reg(list, OS_32, location^.size, tmpref, NR_R12);
inc(tmpref.offset, tcgsize2size[OS_32]);
a_load_ref_reg(list, OS_16, location^.size, tmpref, NR_R0);
inc(tmpref.offset, tcgsize2size[OS_16]);
a_load_ref_reg(list, OS_8, location^.size, tmpref, location^.register);
list.concat(taicpu.op_reg_reg_const_const(A_RLDIMI, NR_R0, NR_R12, 16, 16));
list.concat(taicpu.op_reg_reg_const_const(A_RLDIMI, location^.register, NR_R0, 8, 8));
a_reg_dealloc(list, NR_R0);
a_reg_dealloc(list, NR_R12);
end;
1,2,4,8 :
a_load_ref_reg(list, int_cgsize(sizeleft), location^.size, tmpref,
location^.register);
else
a_load_ref_reg(list, location^.size, location^.size, tmpref,
location^.register);
end;
// a_load_ref_reg(list, location^.size, location^.size, tmpref,
// location^.register);
end; end;
LOC_REFERENCE: LOC_REFERENCE:
begin begin