* no add $0,%esp for cdecl functions without parameters

compiler/cg386cal.pas

@@ -875,7 +875,8 @@ implementation
                        exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EDI)));
                        exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_ESI)));
                     end
-                else exprasmlist^.concat(new(pai386,op_const_reg(A_ADD,S_L,pushedparasize,R_ESP)));
+                else if pushedparasize<>0 then
+                  exprasmlist^.concat(new(pai386,op_const_reg(A_ADD,S_L,pushedparasize,R_ESP)));
              end;
       dont_call:
          pushedparasize:=oldpushedparasize;
@@ -1201,7 +1202,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.72  1999-04-09 08:41:48  peter
+  Revision 1.73  1999-04-16 10:26:56  pierre
+   * no add $0,%esp for cdecl functions without parameters
+
+  Revision 1.72  1999/04/09 08:41:48  peter
     * define to get ansistring returns in ref instead of reg
 
   Revision 1.71  1999/03/31 13:55:04  peter