diff --git a/compiler/cgai386.pas b/compiler/cgai386.pas index 6c8c366857..531dd284d4 100644 --- a/compiler/cgai386.pas +++ b/compiler/cgai386.pas @@ -2287,12 +2287,12 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister); begin if (psym(p)^.typ=varsym) and + not((pvarsym(p)^.definition^.deftype=objectdef) and + pobjectdef(pvarsym(p)^.definition)^.isclass) and pvarsym(p)^.definition^.needs_inittable and ((pvarsym(p)^.varspez=vs_value) {or (pvarsym(p)^.varspez=vs_const) and - not(dont_copy_const_param(pvarsym(p)^.definition))}) and - not((pvarsym(p)^.definition^.deftype=objectdef) and - pobjectdef(pvarsym(p)^.definition)^.isclass) then + not(dont_copy_const_param(pvarsym(p)^.definition))}) then begin procinfo.flags:=procinfo.flags or pi_needs_implicit_finally; reset_reference(hr); @@ -3118,7 +3118,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister); end. { $Log$ - Revision 1.19 1999-07-29 20:53:58 peter + 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 * write .size also Revision 1.18 1999/07/26 12:13:46 florian