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

* Call fpc_shortstr_to_shortstr instead of fpc_shortstr_assign. It is the same procedure with different order of parameters (suited for generation from node level). Now fpc_shortstr_assign remains needed only for bootstrapping.

Browse Source 
git-svn-id: trunk@27618 -
This commit is contained in:
sergei 2014-04-20 19:27:05 +00:00
parent 2ee0c8de45
commit 1ec5026465
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/hlcgobj.pas
View File

@ -2993,7 +2993,7 @@ implementation
cgpara1,cgpara2,cgpara3 : TCGPara;
pd : tprocdef;
begin
pd:=search_system_proc('fpc_shortstr_assign');
pd:=search_system_proc('fpc_shortstr_to_shortstr');
cgpara1.init;
cgpara2.init;
cgpara3.init;
@ -3002,15 +3002,15 @@ implementation
paramanager.getintparaloc(pd,3,cgpara3);
if pd.is_pushleftright then
begin
a_load_const_cgpara(list,s32inttype,strdef.len,cgpara1);
a_loadaddr_ref_cgpara(list,strdef,source,cgpara2);
a_loadaddr_ref_cgpara(list,strdef,dest,cgpara3);
a_loadaddr_ref_cgpara(list,strdef,dest,cgpara1);
a_load_const_cgpara(list,s32inttype,strdef.len,cgpara2);
a_loadaddr_ref_cgpara(list,strdef,source,cgpara3);
end
else
begin
a_loadaddr_ref_cgpara(list,strdef,dest,cgpara3);
a_loadaddr_ref_cgpara(list,strdef,source,cgpara2);
a_load_const_cgpara(list,s32inttype,strdef.len,cgpara1);
a_loadaddr_ref_cgpara(list,strdef,source,cgpara3);
a_load_const_cgpara(list,s32inttype,strdef.len,cgpara2);
a_loadaddr_ref_cgpara(list,strdef,dest,cgpara1);
end;
paramanager.freecgpara(list,cgpara3);
paramanager.freecgpara(list,cgpara2);