فهرست منبع

* 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}