|
|
@@ -168,9 +168,11 @@ implementation
|
|
|
p^.location.reference.base:=procinfo^.framepointer;
|
|
|
if (symtabletype in [inlinelocalsymtable,
|
|
|
localsymtable]) then
|
|
|
- p^.location.reference.offset:=pvarsym(p^.symtableentry)^.address-p^.symtable^.address_fixup
|
|
|
+ p^.location.reference.offset:=
|
|
|
+ pvarsym(p^.symtableentry)^.address-p^.symtable^.address_fixup
|
|
|
else
|
|
|
- p^.location.reference.offset:=pvarsym(p^.symtableentry)^.address+p^.symtable^.address_fixup;
|
|
|
+ p^.location.reference.offset:=
|
|
|
+ pvarsym(p^.symtableentry)^.address+p^.symtable^.address_fixup;
|
|
|
|
|
|
if (symtabletype in [localsymtable,inlinelocalsymtable]) then
|
|
|
begin
|
|
|
@@ -939,11 +941,8 @@ implementation
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
- { update href to the vtype field and write it }
|
|
|
- emit_const_ref(A_MOV,S_L,
|
|
|
- vtype,newreference(href));
|
|
|
- inc(href.offset,4);
|
|
|
{ write changing field update href to the next element }
|
|
|
+ inc(href.offset,4);
|
|
|
if vaddr then
|
|
|
begin
|
|
|
emit_to_mem(hp^.left);
|
|
|
@@ -951,7 +950,11 @@ implementation
|
|
|
end
|
|
|
else
|
|
|
emit_mov_loc_ref(hp^.left^.location,href,S_L);
|
|
|
- inc(href.offset,4);
|
|
|
+ { update href to the vtype field and write it }
|
|
|
+ dec(href.offset,4);
|
|
|
+ emit_const_ref(A_MOV,S_L,vtype,newreference(href));
|
|
|
+ { goto next array element }
|
|
|
+ inc(href.offset,8);
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
@@ -979,7 +982,10 @@ implementation
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.103 2000-03-01 15:36:11 florian
|
|
|
+ Revision 1.104 2000-03-19 08:14:17 peter
|
|
|
+ * small order change for array of const which allows better optimization
|
|
|
+
|
|
|
+ Revision 1.103 2000/03/01 15:36:11 florian
|
|
|
* some new stuff for the new cg
|
|
|
|
|
|
Revision 1.102 2000/03/01 13:20:33 pierre
|
|
|
@@ -1077,4 +1083,4 @@ end.
|
|
|
Revision 1.79 1999/08/25 16:41:05 peter
|
|
|
* resources are working again
|
|
|
|
|
|
-}
|
|
|
+}
|
peter