paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug that caused the stackframe never to be omitted

Browse Source
This commit is contained in:
Jonas Maebe 1998-07-15 16:41:01 +00:00
parent 9d1f36f36a
commit f09128a3ec
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg68k.pas
View File

@ -5296,7 +5296,7 @@ end;
} }
if assigned(aktprocsym) then if assigned(aktprocsym) then
begin begin
if (aktprocsym^.definition^.options and poconstructor+podestructor+poinline+pointerrupt=0) and if (aktprocsym^.definition^.options and (poconstructor+podestructor+poinline+pointerrupt)=0) and
((procinfo.flags and pi_do_call)=0) and (lexlevel>1) then ((procinfo.flags and pi_do_call)=0) and (lexlevel>1) then
begin begin
{ use ESP as frame pointer } { use ESP as frame pointer }
@ -5432,7 +5432,10 @@ end.
{ {
$Log$ $Log$
Revision 1.11 1998-07-14 14:46:43 peter Revision 1.12 1998-07-15 16:41:01 jonas
* fixed bug that caused the stackframe never to be omitted
Revision 1.11 1998/07/14 14:46:43 peter
* released NEWINPUT * released NEWINPUT
Revision 1.10 1998/07/10 10:50:57 peter Revision 1.10 1998/07/10 10:50:57 peter