paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 15:57:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* simplified code generation for paramaddr for a register parameter

Browse Source 
git-svn-id: trunk@6276 -
This commit is contained in:
florian 2007-01-31 16:36:34 +00:00
parent 4155eb6e04
commit d50bc40cbe
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cgobj.pas
View File

@ -900,9 +900,14 @@ implementation
hr : tregister;
begin
cgpara.check_simple_location;
hr:=getaddressregister(list);
a_loadaddr_ref_reg(list,r,hr);
a_param_reg(list,OS_ADDR,hr,cgpara);
if cgpara.location^.loc in [LOC_CREGISTER,LOC_REGISTER] then
a_loadaddr_ref_reg(list,r,cgpara.location^.register)
else
begin
hr:=getaddressregister(list);
a_loadaddr_ref_reg(list,r,hr);
a_param_reg(list,OS_ADDR,hr,cgpara);
end;
end;