瀏覽代碼

pastojs: delay RTTI init of dynamic and static array specializations

git-svn-id: trunk@46750 -
(cherry picked from commit 545ee82ec4cc89fda822f2b44196ba3dac61ebae)
Mattias Gaertner 5 年之前
父節點
當前提交
3ad9f84951
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/pastojs/src/fppas2js.pp

+ 2 - 0
packages/pastojs/src/fppas2js.pp

@@ -16770,6 +16770,8 @@ begin
     end
   else if (C=TPasArrayType) then
     begin
+    if not HasTypeInfo(El,AContext) then
+      exit; // no RTTI needed
     // pas.unitname.$rtti.TArr.eltype=$mod.$rtti.TBird;
     aResolver:=AContext.Resolver;
     Arr:=TPasArrayType(El);