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

* fixed stackframe parameter (should only contain local size),

Browse Source 
set to zero currently
This commit is contained in:
carl 2002-08-09 19:14:28 +00:00
parent 6b9e686ae3
commit afd252b0b5
1 changed files with 11 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/psub.pas
View File

@ -207,8 +207,6 @@ implementation
oldaktmaxfpuregisters,localmaxfpuregisters : longint; oldaktmaxfpuregisters,localmaxfpuregisters : longint;
{ code for the subroutine as tree } { code for the subroutine as tree }
code:tnode; code:tnode;
{ size of the local strackframe }
stackframe:longint;
{ true when no stackframe is required } { true when no stackframe is required }
nostackframe:boolean; nostackframe:boolean;
{ number of bytes which have to be cleared by RET } { number of bytes which have to be cleared by RET }
@ -333,26 +331,10 @@ implementation
begin begin
generatecode(code); generatecode(code);
aktprocdef.code:=code; aktprocdef.code:=code;
{$ifdef testtemp}
if assigned(aktprocdef) and assigned(aktprocdef.localst) then
begin
stackframe:=align(tg.gettempsize+aktprocdef.localst.datasize,4);
end
else
begin
stackframe:=tg.gettempsize;
end;
if lexlevel = 1 then
WriteLn(stackframe);
{$else}
stackframe:=tg.gettempsize;
{ if lexlevel = 1 then
WriteLn(stackframe);}
{$endif}
{ first generate entry code with the correct position and switches } { first generate entry code with the correct position and switches }
aktfilepos:=entrypos; aktfilepos:=entrypos;
aktlocalswitches:=entryswitches; aktlocalswitches:=entryswitches;
genentrycode(procinfo^.aktentrycode,make_global,stackframe,parasize,nostackframe,false); genentrycode(procinfo^.aktentrycode,make_global,0,parasize,nostackframe,false);
{ FPC_POPADDRSTACK destroys all registers (JM) } { FPC_POPADDRSTACK destroys all registers (JM) }
if (procinfo^.flags and (pi_needs_implicit_finally or pi_uses_exceptions)) <> 0 then if (procinfo^.flags and (pi_needs_implicit_finally or pi_uses_exceptions)) <> 0 then
@ -832,7 +814,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.63 2002-08-06 20:55:22 florian Revision 1.64 2002-08-09 19:14:28 carl
* fixed stackframe parameter (should only contain local size),
set to zero currently
Revision 1.63 2002/08/06 20:55:22 florian
* first part of ppc calling conventions fix * first part of ppc calling conventions fix
Revision 1.62 2002/07/26 21:15:41 florian Revision 1.62 2002/07/26 21:15:41 florian