Explorar o código

* Don't assume pointers are 8 bytes.

git-svn-id: trunk@7981 -
daniel %!s(int64=18) %!d(string=hai) anos
pai
achega
20a804152d
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/ncgcnv.pas

+ 1 - 1
compiler/ncgcnv.pas

@@ -382,7 +382,7 @@ interface
       location_reset(location,LOC_REFERENCE,OS_NO);
       location_reset(location,LOC_REFERENCE,OS_NO);
       location.reference:=r;
       location.reference:=r;
       cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
       cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
-      inc(r.offset,8);
+      inc(r.offset,sizeof(aword));
       cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
       cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
     end;
     end;