* don't put classes/interfaces which need to be finalized in regvars

    because the code generated by finalize_data_node() can't deal with that
    (and it's called from gen_finalize_code() *after* the local symtable
     of the current procedure has been allocated, and therefore the
     make_not_regable() call of the generated addrnode doesn't do anything)

git-svn-id: trunk@5414 -

compiler/symdef.pas

@@ -1059,7 +1059,7 @@ implementation
           procvardef :
             is_intregable:=not(po_methodpointer in tprocvardef(self).procoptions);
           objectdef:
-            is_intregable:=is_class(self) or is_interface(self);
+            is_intregable:=(is_class(self) or is_interface(self)) and not needs_inittable;
           setdef:
             is_intregable:=(tsetdef(self).settype=smallset);
           recorddef: