瀏覽代碼

* moved tllvmshadowsymtable items default property from private to public
section (although the compiler doesn't seem to care about it)

git-svn-id: trunk@32716 -

Jonas Maebe 9 年之前
父節點
當前提交
abcf441c00
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/symtable.pas

+ 2 - 1
compiler/symtable.pas

@@ -162,6 +162,8 @@ interface
 
          constructor create(st: tabstractrecordsymtable);
          destructor destroy; override;
+
+         property items[index: tfieldvarsym]: tllvmshadowsymtableentry read get; default;
         private
          // generate the table
          procedure generate;
@@ -171,7 +173,6 @@ interface
          procedure addalignmentpadding(finalsize: aint);
          procedure buildmapping(variantstarts: tfplist);
          procedure buildtable(variantstarts: tfplist);
-         property items[index: tfieldvarsym]: tllvmshadowsymtableentry read get; default;
        end;
 {$endif llvm}