Browse Source

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

Pierre Muller 3 years ago
parent
commit
da58651398
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/llvm/dbgllvm.pas

+ 2 - 2
compiler/llvm/dbgllvm.pas

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