Browse Source

* fixed bug that caused the stackframe never to be omitted

Jonas Maebe 27 years ago
parent
commit
6d4bdf4e02
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/cgi386.pas

+ 5 - 2
compiler/cgi386.pas

@@ -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