* tried to fix a bug with init table

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