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

+ correct size of parameter (64-bit portability)

Browse Source
This commit is contained in:
carl 2002-07-28 09:25:37 +00:00
parent 8284576720
commit a5a3f7488b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgld.pas
View File

@ -698,9 +698,10 @@ implementation
end;
if paramanager.ret_in_param(resulttype.def) then
begin
{ the parameter is actual a pointer to the value }
if not hr_valid then
hreg:=rg.getregisterint(exprasmlist);
cg.a_load_ref_reg(exprasmlist,OS_INT,location.reference,hreg);
hreg:=rg.getaddressregister(exprasmlist);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,location.reference,hreg);
location.reference.base:=hreg;
location.reference.offset:=0;
end;
@ -923,7 +924,10 @@ begin
end.
{
$Log$
Revision 1.16 2002-07-27 19:53:51 jonas
Revision 1.17 2002-07-28 09:25:37 carl
+ correct size of parameter (64-bit portability)
Revision 1.16 2002/07/27 19:53:51 jonas
+ generic implementation of tcg.g_flags2ref()
* tcg.flags2xxx() now also needs a size parameter