瀏覽代碼

* fix global var+offset

peter 22 年之前
父節點
當前提交
72761249f1
共有 2 個文件被更改,包括 10 次插入4 次删除
  1. 5 2
      compiler/i386/ra386att.pas
  2. 5 2
      compiler/i386/ra386int.pas

+ 5 - 2
compiler/i386/ra386att.pas

@@ -1325,7 +1325,7 @@ var
       OPR_CONSTANT :
         inc(opr.val,l);
       OPR_REFERENCE :
-        inc(opr.ref.offset);
+        inc(opr.ref.offset,l);
       else
         internalerror(200309221);
     end;
@@ -2129,7 +2129,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.47  2003-09-23 17:56:06  peter
+  Revision 1.48  2003-09-23 20:37:53  peter
+    * fix global var+offset
+
+  Revision 1.47  2003/09/23 17:56:06  peter
     * locals and paras are allocated in the code generation
     * tvarsym.localloc contains the location of para/local when
       generating code for the current procedure

+ 5 - 2
compiler/i386/ra386int.pas

@@ -1373,7 +1373,7 @@ var
       OPR_CONSTANT :
         inc(opr.val,l);
       OPR_REFERENCE :
-        inc(opr.ref.offset);
+        inc(opr.ref.offset,l);
       else
         internalerror(200309222);
     end;
@@ -1929,7 +1929,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.51  2003-09-23 17:56:06  peter
+  Revision 1.52  2003-09-23 20:37:53  peter
+    * fix global var+offset
+
+  Revision 1.51  2003/09/23 17:56:06  peter
     * locals and paras are allocated in the code generation
     * tvarsym.localloc contains the location of para/local when
       generating code for the current procedure