* Adapted test for changes in r25094

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

1 files changed, 4 insertions, 4 deletions

diff --git a/classattributes/tests/test/tclassattribute9.pp b/classattributes/tests/test/tclassattribute9.pp
index e3d7953cf4..4ce8f81ac9 100644
--- a/classattributes/tests/test/tclassattribute9.pp
+++ b/classattributes/tests/test/tclassattribute9.pp
@@ -16,15 +16,15 @@ type
   end;
 
 var
-  rtd: PExtRTTIData;
+  ad: PAttributeData;
   AClassAttribute: TCustomAttribute;
 
 begin
-  rtd := GetExtRTTIData(TMyObject.ClassInfo);
-  if rtd^.AttributeData^.AttributeCount<>1 then
+  ad := GetAttributeData(TMyObject.ClassInfo);
+  if ad^.AttributeCount<>1 then
     halt(1);
 
-  AClassAttribute := GetClassAttribute(rtd,0) as TCustomAttribute;
+  AClassAttribute := GetAttribute(ad,0);
   if AClassAttribute = nil then
     halt(2);
   writeln('ok');