* Moved TCustomAttribute definition to system-unit

 * Force ClassAttributes to inherit from TCustomAttribute for Delphi compatibility, there is no compiler-technical reason to do so

git-svn-id: branches/joost/classattributes@22756 -

compiler/pdecl.pas

@@ -372,6 +372,7 @@ implementation
         paras: tnode;
         again: boolean;
         od: tobjectdef;
+        classattrdef: tobjectdef;
         constrpd: tprocdef;
         typesym: ttypesym;
         oldblock_type: tblock_type;
@@ -384,6 +385,9 @@ implementation
           begin
           typesym := ttypesym(ttypenode(p).typesym);
           od := tobjectdef(ttypenode(p).typedef);
+          classattrdef := tobjectdef(search_system_type('TCUSTOMATTRIBUTE').typedef);
+          if not od.is_related(classattrdef) then
+            incompatibletypes(od,classattrdef);
 
           { Search the tprocdef of the constructor which has to be called. }
           constrpd := od.find_procdef_bytype(potype_constructor);

rtl/inc/objpash.inc

@@ -334,6 +334,9 @@
          Frames     : PPointer;
        end;
 
+       TCustomAttribute = class(TObject)
+       end;
+
     Const
        ExceptProc : TExceptProc = Nil;
        RaiseProc : TExceptProc = Nil;

rtl/objpas/typinfo.pp

@@ -240,9 +240,6 @@ unit typinfo;
 
       TProcInfoProc = Procedure(PropInfo : PPropInfo) of object;
 
-      TCustomAttribute = class(TObject)
-       end;
-
       TAttributeProc = function : TObject;
       PAttributeProcList = ^TAttributeProcList;
       TAttributeProcList = array[0..255] of TAttributeProc;