diff --git a/compiler/cgai386.pas b/compiler/cgai386.pas index 531dd284d4..e450ef5972 100644 --- a/compiler/cgai386.pas +++ b/compiler/cgai386.pas @@ -2260,9 +2260,9 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister); begin if (psym(p)^.typ=varsym) and assigned(pvarsym(p)^.definition) and - pvarsym(p)^.definition^.needs_inittable and not((pvarsym(p)^.definition^.deftype=objectdef) and - pobjectdef(pvarsym(p)^.definition)^.isclass) then + pobjectdef(pvarsym(p)^.definition)^.isclass) and + pvarsym(p)^.definition^.needs_inittable then begin procinfo.flags:=procinfo.flags or pi_needs_implicit_finally; reset_reference(hr); @@ -2319,9 +2319,9 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister); begin if (psym(p)^.typ=varsym) and assigned(pvarsym(p)^.definition) and - pvarsym(p)^.definition^.needs_inittable and not((pvarsym(p)^.definition^.deftype=objectdef) and - pobjectdef(pvarsym(p)^.definition)^.isclass) then + pobjectdef(pvarsym(p)^.definition)^.isclass) and + pvarsym(p)^.definition^.needs_inittable then begin { not all kind of parameters need to be finalized } if (psym(p)^.owner^.symtabletype=parasymtable) and @@ -3118,7 +3118,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister); end. { $Log$ - Revision 1.20 1999-08-01 17:17:37 florian + Revision 1.21 1999-08-01 17:32:31 florian + * more fixes for inittable call + + Revision 1.20 1999/08/01 17:17:37 florian * tried to fix a bug with init table Revision 1.19 1999/07/29 20:53:58 peter