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

* quick and dirty fix for the move parameter order passing in g_concatcopy

Browse Source 
git-svn-id: branches/wasm@48295 -
This commit is contained in:
nickysn 2021-01-22 00:02:12 +00:00
parent ae39e3da44
commit 61ba4869ae
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/wasm32/hlcgcpu.pas
View File

@ -1461,24 +1461,24 @@ implementation
paramanager.getcgtempparaloc(list,pd,1,cgpara1);
paramanager.getcgtempparaloc(list,pd,2,cgpara2);
paramanager.getcgtempparaloc(list,pd,3,cgpara3);
if pd.is_pushleftright then
begin
//if pd.is_pushleftright then
// begin
{ load source }
a_loadaddr_ref_cgpara(list,voidtype,source,cgpara1);
{ load destination }
a_loadaddr_ref_cgpara(list,voidtype,dest,cgpara2);
{ load size }
a_load_const_cgpara(list,sizesinttype,size.size,cgpara3);
end
else
begin
{ load size }
a_load_const_cgpara(list,sizesinttype,size.size,cgpara3);
{ load destination }
a_loadaddr_ref_cgpara(list,voidtype,dest,cgpara2);
{ load source }
a_loadaddr_ref_cgpara(list,voidtype,source,cgpara1);
end;
// end
//else
// begin
// { load size }
// a_load_const_cgpara(list,sizesinttype,size.size,cgpara3);
// { load destination }
// a_loadaddr_ref_cgpara(list,voidtype,dest,cgpara2);
// { load source }
// a_loadaddr_ref_cgpara(list,voidtype,source,cgpara1);
// end;
paramanager.freecgpara(list,cgpara3);
paramanager.freecgpara(list,cgpara2);
paramanager.freecgpara(list,cgpara1);