浏览代码

Avoid Invalid typecast error when using -CR option by using tabstractrecordsymtable type for record or object symtable

Pierre Muller 3 年之前
父节点
当前提交
da58651398
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/llvm/dbgllvm.pas

+ 2 - 2
compiler/llvm/dbgllvm.pas

@@ -1152,7 +1152,7 @@ implementation
       var
         variantinfolist: tfplist;
         variantinfo: pvariantinfo;
-        recst: trecordsymtable;
+        recst: tabstractrecordsymtable;
         scope,
         fielddi,
         uniondi,
@@ -1163,7 +1163,7 @@ implementation
         bitoffset: asizeuint;
         bpackedrecst: boolean;
       begin
-        recst:=trecordsymtable(def.symtable);
+        recst:=tabstractrecordsymtable(def.symtable);
         bpackedrecst:=recst.fieldalignment=bit_alignment;
         scope:=defdinode;
         variantinfolist:=nil;