Просмотр исходного кода

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

Pierre Muller 3 лет назад
Родитель
Сommit
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;