paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:09:17 +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; end;
if paramanager.ret_in_param(resulttype.def) then if paramanager.ret_in_param(resulttype.def) then
begin begin
{ the parameter is actual a pointer to the value }
if not hr_valid then if not hr_valid then
hreg:=rg.getregisterint(exprasmlist); hreg:=rg.getaddressregister(exprasmlist);
cg.a_load_ref_reg(exprasmlist,OS_INT,location.reference,hreg); cg.a_load_ref_reg(exprasmlist,OS_ADDR,location.reference,hreg);
location.reference.base:=hreg; location.reference.base:=hreg;
location.reference.offset:=0; location.reference.offset:=0;
end; end;
@ -923,7 +924,10 @@ begin
end. end.
{ {
$Log$ $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() + generic implementation of tcg.g_flags2ref()
* tcg.flags2xxx() now also needs a size parameter * tcg.flags2xxx() now also needs a size parameter