paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed synchronising 64bit regvars on 32bit systems at the start and

Browse Source 
end of procedures
  * hack for ppc for loading of paras from their callee location to local
    temps
This commit is contained in:
Jonas Maebe 2004-12-11 12:42:28 +00:00
parent e0f5517579
commit fcf16c4983
2 changed files with 41 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/ncgutil.pas
View File

@ -138,10 +138,6 @@ implementation
*****************************************************************************} *****************************************************************************}
procedure location_free(list: taasmoutput; const location : TLocation); procedure location_free(list: taasmoutput; const location : TLocation);
{$ifdef cputargethasfixedstack}
var
href : treference;
{$endif cputargethasfixedstack}
begin begin
case location.loc of case location.loc of
LOC_VOID: LOC_VOID:
@ -1455,6 +1451,11 @@ implementation
the initialization and body is parsed because the refcounts are the initialization and body is parsed because the refcounts are
incremented using the local copies } incremented using the local copies }
current_procinfo.procdef.parast.foreach_static({$ifndef TP}@{$endif}copyvalueparas,list); current_procinfo.procdef.parast.foreach_static({$ifndef TP}@{$endif}copyvalueparas,list);
{$ifdef powerpc}
{ unget the register that contains the stack pointer before the procedure entry, }
{ which is used to access the parameters in their original callee-side location }
cg.a_reg_dealloc(list,NR_R12);
{$endif powerpc}
end; end;
@ -1978,7 +1979,15 @@ implementation
end; end;
{ Allocate register already, to prevent first allocation to be { Allocate register already, to prevent first allocation to be
inside a loop } inside a loop }
cg.a_reg_sync(list,localloc.register); {$ifndef cpu64bit}
if cgsize in [OS_64,OS_S64] then
begin
cg.a_reg_sync(list,localloc.register64.reglo);
cg.a_reg_sync(list,localloc.register64.reghi);
end
else
{$endif cpu64bit}
cg.a_reg_sync(list,localloc.register);
end end
else else
{$endif NOT OLDREGVARS} {$endif NOT OLDREGVARS}
@ -2063,7 +2072,15 @@ implementation
in the parent procedures } in the parent procedures }
case localloc.loc of case localloc.loc of
LOC_CREGISTER : LOC_CREGISTER :
cg.a_reg_sync(list,localloc.register); {$ifndef cpu64bit}
if def_cgsize(vartype.def) in [OS_64,OS_S64] then
begin
cg.a_reg_sync(list,localloc.register64.reglo);
cg.a_reg_sync(list,localloc.register64.reghi);
end
else
{$endif cpu64bit}
cg.a_reg_sync(list,localloc.register);
LOC_REFERENCE : LOC_REFERENCE :
begin begin
case st.symtabletype of case st.symtabletype of
@ -2290,7 +2307,13 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.248 2004-12-11 01:03:01 jonas Revision 1.249 2004-12-11 12:42:28 jonas
* fixed synchronising 64bit regvars on 32bit systems at the start and
end of procedures
* hack for ppc for loading of paras from their callee location to local
temps
Revision 1.248 2004/12/11 01:03:01 jonas
* fixed int64 regvar bug in location_force_register * fixed int64 regvar bug in location_force_register
Revision 1.247 2004/12/05 12:28:11 peter Revision 1.247 2004/12/05 12:28:11 peter

13
compiler/powerpc/cgcpu.pas
View File

@ -1169,8 +1169,11 @@ const
{ see "!!! always allocate space for all registers for now !!!" above } { see "!!! always allocate space for all registers for now !!!" above }
{ done in ncgutil because it may only be released after the parameters }
{ have been moved to their final resting place }
{ if usesfpr or usesgpr then } { if usesfpr or usesgpr then }
a_reg_dealloc(list,NR_R12); { a_reg_dealloc(list,NR_R12); }
{ if we didn't get the GOT pointer till now, we've to calculate it now } { if we didn't get the GOT pointer till now, we've to calculate it now }
if not(gotgot) and (pi_needs_got in current_procinfo.flags) then if not(gotgot) and (pi_needs_got in current_procinfo.flags) then
@ -2293,7 +2296,13 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.187 2004-12-04 21:47:46 jonas Revision 1.188 2004-12-11 12:42:28 jonas
* fixed synchronising 64bit regvars on 32bit systems at the start and
end of procedures
* hack for ppc for loading of paras from their callee location to local
temps
Revision 1.187 2004/12/04 21:47:46 jonas
* modifications to work with the generic code to copy LOC_REFERENCE * modifications to work with the generic code to copy LOC_REFERENCE
parameters to local temps (fixes tests/test/cg/tmanypara) parameters to local temps (fixes tests/test/cg/tmanypara)