浏览代码

* fix for fpuvaroffset for unused return value

pierre 26 年之前
父节点
当前提交
7b5bae5ded
共有 1 个文件被更改,包括 8 次插入2 次删除
  1. 8 2
      compiler/cg386cal.pas

+ 8 - 2
compiler/cg386cal.pas

@@ -1139,7 +1139,10 @@ implementation
                 begin
                 begin
                   { release FPU stack }
                   { release FPU stack }
                   emit_reg(A_FSTP,S_NO,R_ST0);
                   emit_reg(A_FSTP,S_NO,R_ST0);
-                  dec(fpuvaroffset);
+                  {
+                    dec(fpuvaroffset);
+                    do NOT decrement as the increment before
+                    is not called for unused results PM }
                 end;
                 end;
            end;
            end;
       end;
       end;
@@ -1222,7 +1225,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.108  1999-10-26 12:30:40  peter
+  Revision 1.109  1999-11-04 00:23:58  pierre
+   * fix for fpuvaroffset for unused return value
+
+  Revision 1.108  1999/10/26 12:30:40  peter
     * const parameter is now checked
     * const parameter is now checked
     * better and generic check if a node can be used for assigning
     * better and generic check if a node can be used for assigning
     * export fixes
     * export fixes