paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +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:06:44 +00:00
parent 879b7d0288
commit 6d4bdf4e02
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/cgi386.pas
View File

@ -366,7 +366,7 @@ implementation
if assigned(aktprocsym) then if assigned(aktprocsym) then
begin begin
if (aktprocsym^.definition^.options and if (aktprocsym^.definition^.options and
poconstructor+podestructor{+poinline}+pointerrupt=0) 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 }
@ -502,7 +502,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.41 1998-07-14 14:46:44 peter Revision 1.42 1998-07-15 16:06:44 jonas
* fixed bug that caused the stackframe never to be omitted
Revision 1.41 1998/07/14 14:46:44 peter
* released NEWINPUT * released NEWINPUT
Revision 1.40 1998/07/07 11:19:52 peter Revision 1.40 1998/07/07 11:19:52 peter