* Adapted test to change to TExtRttiData

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/joost@24655 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 4 deletions

diff --git a/classattributes/tests/test/tclassattribute9.pp b/classattributes/tests/test/tclassattribute9.pp
index 93a046b81b..e3d7953cf4 100644
--- a/classattributes/tests/test/tclassattribute9.pp
+++ b/classattributes/tests/test/tclassattribute9.pp
@@ -7,6 +7,7 @@ uses
 
 type
   { tmyt }
+  // TCustomAttribute without constructor
   tmyt = class(TCustomAttribute);
 
 type
@@ -15,15 +16,15 @@ type
   end;
 
 var
-  td: PTypeData;
+  rtd: PExtRTTIData;
   AClassAttribute: TCustomAttribute;
 
 begin
-  td := GetTypeData(TMyObject.ClassInfo);
-  if td^.AttributeCount<>1 then
+  rtd := GetExtRTTIData(TMyObject.ClassInfo);
+  if rtd^.AttributeData^.AttributeCount<>1 then
     halt(1);
 
-  AClassAttribute := GetClassAttribute(td,0) as TCustomAttribute;
+  AClassAttribute := GetClassAttribute(rtd,0) as TCustomAttribute;
   if AClassAttribute = nil then
     halt(2);
   writeln('ok');