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

m68k: use a_load_ref_ref in a_load_ref_cgpara instead of a custom loading code which does the same. causes no changes in generated code

Browse Source 
git-svn-id: trunk@33651 -
This commit is contained in:
Károly Balogh 2016-05-05 00:55:52 +00:00
parent 778a0b737e
commit 2b250a1b0a
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/m68k/cgcpu.pas
View File

@ -359,14 +359,7 @@ unit cgcpu;
reference_reset_base(ref, NR_STACK_POINTER_REG, 0, tcgsize2size[pushsize]); reference_reset_base(ref, NR_STACK_POINTER_REG, 0, tcgsize2size[pushsize]);
ref.direction := dir_dec; ref.direction := dir_dec;
if tcgsize2size[paraloc^.size]<cgpara.alignment then a_load_ref_ref(list,paraloc^.size,pushsize,href,ref);
begin
tmpreg:=getintregister(list,pushsize);
a_load_ref_reg(list,paraloc^.size,pushsize,href,tmpreg);
list.concat(taicpu.op_reg_ref(A_MOVE,tcgsize2opsize[pushsize],tmpreg,ref));
end
else
list.concat(taicpu.op_ref_ref(A_MOVE,tcgsize2opsize[pushsize],href,ref));
end; end;
var var
@ -391,7 +384,7 @@ unit cgcpu;
if tcgsize2size[cgpara.size]<>tcgsize2size[size] then if tcgsize2size[cgpara.size]<>tcgsize2size[size] then
internalerror(200501161); internalerror(200501161);
{ We need to push the data in reverse order, { We need to push the data in reverse order,
therefor we use a recursive algorithm } therefore we use a recursive algorithm }
pushdata(cgpara.location,0); pushdata(cgpara.location,0);
end end
end end