浏览代码

* fix DynArrayDim() and DynArrayIndex() after the RTTI changes in r33944

git-svn-id: trunk@34180 -
svenbarth 9 年之前
父节点
当前提交
d9d2789375
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      rtl/inc/dynarr.inc

+ 8 - 0
rtl/inc/dynarr.inc

@@ -355,7 +355,11 @@ function DynArrayDim(typeInfo: Pointer): Integer;
       typeInfo:=aligntoptr(typeInfo+2+PByte(typeInfo)[1]);
 
       { element type info}
+      {$ifdef VER3_0}
       typeInfo:=pdynarraytypedata(typeInfo)^.elType2;
+      {$else VER3_0}
+      typeInfo:=pdynarraytypedata(typeInfo)^.elType2^;
+      {$endif VER3_0}
 
       Inc(result);
     end;
@@ -410,7 +414,11 @@ function DynArrayIndex(a: Pointer; const indices: array of SizeInt; typeInfo: Po
       { skip kind and name }
       typeInfo:=(typeInfo+2+PByte(typeInfo)[1]);
       { element type info}
+      {$ifdef VER3_0}
       typeInfo:=pdynarraytypedata(typeInfo)^.elType2;
+      {$else VER3_0}
+      typeInfo:=pdynarraytypedata(typeInfo)^.elType2^;
+      {$endif VER3_0}
 
       if typeInfo=nil then
         exit(nil);