paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +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

36
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 }
@ -248,7 +246,7 @@ implementation
aktbreaklabel:=nil; aktbreaklabel:=nil;
aktcontinuelabel:=nil; aktcontinuelabel:=nil;
{$ifdef state_tracking} {$ifdef state_tracking}
{ aktstate:=Tstate_storage.create;} { aktstate:=Tstate_storage.create;}
{$endif state_tracking} {$endif state_tracking}
{ insert symtables for the class, by only if it is no nested function } { insert symtables for the class, by only if it is no nested function }
@ -321,9 +319,9 @@ implementation
aktprocdef.forwarddef:=false; aktprocdef.forwarddef:=false;
{$ifdef state_tracking} {$ifdef state_tracking}
{ writenode(code); { writenode(code);
do_track_state_pass(code); do_track_state_pass(code);
writenode(code);} writenode(code);}
{$endif} {$endif}
{ only generate the code if no type errors are found, else { only generate the code if no type errors are found, else
@ -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
@ -459,7 +441,7 @@ implementation
aktmaxfpuregisters:=oldaktmaxfpuregisters; aktmaxfpuregisters:=oldaktmaxfpuregisters;
{$ifdef state_tracking} {$ifdef state_tracking}
{ aktstate.destroy;} { aktstate.destroy;}
{$endif state_tracking} {$endif state_tracking}
{ restore filepos, the switches are already set } { restore filepos, the switches are already set }
aktfilepos:=savepos; aktfilepos:=savepos;
@ -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