paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 15:10:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* moved tllvmshadowsymtable items default property from private to public

Browse Source 
section (although the compiler doesn't seem to care about it)

git-svn-id: trunk@32716 -
This commit is contained in:
Jonas Maebe 2015-12-25 21:05:31 +00:00
parent f83f9168ee
commit abcf441c00
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symtable.pas
View File

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