|
@@ -71,7 +71,6 @@ implementation
|
|
|
newsize : tcgsize;
|
|
newsize : tcgsize;
|
|
|
popeax : boolean;
|
|
popeax : boolean;
|
|
|
begin
|
|
begin
|
|
|
- simple_loadn:=true;
|
|
|
|
|
{ we don't know the size of all arrays }
|
|
{ we don't know the size of all arrays }
|
|
|
newsize:=def_cgsize(resulttype.def);
|
|
newsize:=def_cgsize(resulttype.def);
|
|
|
location_reset(location,LOC_REFERENCE,newsize);
|
|
location_reset(location,LOC_REFERENCE,newsize);
|
|
@@ -202,7 +201,6 @@ implementation
|
|
|
|
|
|
|
|
emit_ref_reg(A_MOV,S_L,href,hregister);
|
|
emit_ref_reg(A_MOV,S_L,href,hregister);
|
|
|
|
|
|
|
|
- simple_loadn:=false;
|
|
|
|
|
i:=lexlevel-1;
|
|
i:=lexlevel-1;
|
|
|
while (i>symtable.symtablelevel) do
|
|
while (i>symtable.symtablelevel) do
|
|
|
begin
|
|
begin
|
|
@@ -274,7 +272,6 @@ implementation
|
|
|
((tvarsym(symtableentry).varspez=vs_const) and
|
|
((tvarsym(symtableentry).varspez=vs_const) and
|
|
|
push_addr_param(tvarsym(symtableentry).vartype.def)) then
|
|
push_addr_param(tvarsym(symtableentry).vartype.def)) then
|
|
|
begin
|
|
begin
|
|
|
- simple_loadn:=false;
|
|
|
|
|
if hregister=R_NO then
|
|
if hregister=R_NO then
|
|
|
hregister:=rg.getregisterint(exprasmlist);
|
|
hregister:=rg.getregisterint(exprasmlist);
|
|
|
case location.loc of
|
|
case location.loc of
|
|
@@ -992,7 +989,10 @@ begin
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.33 2002-04-04 19:06:12 peter
|
|
|
|
|
|
|
+ Revision 1.34 2002-04-07 09:16:07 carl
|
|
|
|
|
+ - remove unused variable
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.33 2002/04/04 19:06:12 peter
|
|
|
* removed unused units
|
|
* removed unused units
|
|
|
* use tlocation.size in cg.a_*loc*() routines
|
|
* use tlocation.size in cg.a_*loc*() routines
|
|
|
|
|
|
carl