paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed conditions upon IEs for inlined function call stack frames

Browse Source
This commit is contained in:
mazen 2004-03-12 15:42:18 +00:00
parent 6f33bdbfae
commit 6f13b5d5f3
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/sparc/cgcpu.pas
View File

@ -261,8 +261,9 @@ implementation
LOC_REFERENCE:
begin
{ Code conventions need the parameters being allocated in %o6+92 }
// if locpara.reference.offset<92 then
// InternalError(2002081104);
with LocPara.Reference do
if(Index=NR_SP)and(Offset<Target_info.first_parm_offset) then
InternalError(2002081104);
reference_reset_base(ref,locpara.reference.index,locpara.reference.offset);
a_load_const_ref(list,size,a,ref);
end;
@ -284,8 +285,9 @@ implementation
LOC_REFERENCE:
begin
{ Code conventions need the parameters being allocated in %o6+92 }
// if locpara.reference.offset<92 then
// InternalError(2002081104);
with LocPara.Reference do
if(Index=NR_SP)and(Offset<Target_info.first_parm_offset) then
InternalError(2002081104);
reference_reset_base(ref,locpara.reference.index,locpara.reference.offset);
tmpreg:=GetIntRegister(list,OS_INT);
a_load_ref_reg(list,sz,sz,r,tmpreg);
@ -340,12 +342,12 @@ implementation
{ floats are pushed in the int registers }
templocpara:=locpara;
case locpara.size of
OS_F32 :
OS_F32,OS_32 :
begin
templocpara.size:=OS_32;
a_param_ref(list,OS_32,ref,templocpara);
end;
OS_F64 :
OS_F64,OS_64 :
begin
templocpara.size:=OS_64;
cg64.a_param64_ref(list,ref,templocpara);
@ -488,6 +490,9 @@ implementation
OS_S32,
OS_32:
Op:=A_LD;{Load Word}
OS_S64,
OS_64:
Op:=A_LDD;{Load a Long Word}
else
InternalError(2002122101);
end;
@ -1107,7 +1112,10 @@ begin
end.
{
$Log$
Revision 1.81 2004-03-12 08:18:11 mazen
Revision 1.82 2004-03-12 15:42:18 mazen
* fixed conditions upon IEs for inlined function call stack frames
Revision 1.81 2004/03/12 08:18:11 mazen
- revert '../' from include path
Revision 1.80 2004/03/02 00:36:33 olle