diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-11-23 15:35:59 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-11-23 15:35:59 +0000 |
| commit | 2a6b061727e0d455df357f6dfb07f540b9e23c20 (patch) | |
| tree | 9dda19e4a2348e0fdb1dc76ac9335dfe47c4bba7 | |
| parent | a4cf413ae49619ed2fa6459056d053a8d33d3a2d (diff) | |
| download | fpc-2a6b061727e0d455df357f6dfb07f540b9e23c20.tar.gz | |
ncgvmt.pas, TVMTWriter:
* generate_field_table: use the indirect symbol for the class references; it is currently not used in the RTL, so mentioning this in User Changes Trunk should be enough
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/svenbarth@32506 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/compiler/ncgvmt.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/compiler/ncgvmt.pas b/packages/compiler/ncgvmt.pas index fc235ab42e..b25009c603 100644 --- a/packages/compiler/ncgvmt.pas +++ b/packages/compiler/ncgvmt.pas @@ -554,7 +554,7 @@ implementation if (tf_requires_proper_alignment in target_info.flags) then list.concat(cai_align.Create(sizeof(TConstPtrUInt))); for i:=0 to classtablelist.Count-1 do - list.concat(Tai_const.Createname(tobjectdef(classtablelist[i]).vmt_mangledname,AT_DATA,0)); + list.concat(Tai_const.Createname(tobjectdef(classtablelist[i]).vmt_mangledname(true),AT_DATA,0)); result:=fieldtable; end else |