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

* fixed a_param64_ref

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-10 21:24:38 +00:00
parent 02e9260997
commit 3632cd73ae
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/cg64f32.pas
View File

@ -442,16 +442,22 @@ unit cg64f32;
procedure tcg64f32.a_param64_ref(list : taasmoutput;const r : treference;const locpara : tparalocation);
var
tmpref: treference;
tmploc: tparalocation;
begin
{$warning FIX ME}
tmpref := r;
inc(tmpref.offset,4);
cg.a_param_ref(list,OS_32,tmpref,locpara);
{ the nr+1 needs definitivly a fix FK }
{ maybe the parameter numbering needs }
{ to take care of this on 32 Bit }
{ systems FK }
tmploc := locpara;
tmploc.registerlow:=tmploc.registerhigh;
if target_info.endian = endian_big then
begin
cg.a_param_ref(list,OS_32,tmpref,tmploc);
cg.a_param_ref(list,OS_32,r,locpara);
end
else
begin
cg.a_param_ref(list,OS_32,tmpref,locpara);
cg.a_param_ref(list,OS_32,r,locpara);
end;
end;
@ -732,7 +738,10 @@ begin
end.
{
$Log$
Revision 1.28 2002-09-07 15:25:00 peter
Revision 1.29 2002-09-10 21:24:38 jonas
* fixed a_param64_ref
Revision 1.28 2002/09/07 15:25:00 peter
* old logs removed and tabs fixed
Revision 1.27 2002/08/19 18:17:47 carl