소스 검색

* 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
                   { release FPU stack }
                   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;
@@ -1222,7 +1225,10 @@ implementation
 end.
 {
   $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
     * better and generic check if a node can be used for assigning
     * export fixes