paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed skipping if intermediate fields in llvm shadow symtable

Browse Source 
git-svn-id: trunk@31640 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:32:56 +00:00
parent 3c6aa91a96
commit 5a50d05e50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symtable.pas
View File

@ -1956,7 +1956,7 @@ implementation
{ find the last shadowfield whose offset <= the current field's offset } { find the last shadowfield whose offset <= the current field's offset }
while (tllvmshadowsymtableentry(symdeflist[shadowindex]).fieldoffset<tfieldvarsym(equivst.symlist[i]).fieldoffset) and while (tllvmshadowsymtableentry(symdeflist[shadowindex]).fieldoffset<tfieldvarsym(equivst.symlist[i]).fieldoffset) and
(shadowindex<symdeflist.count-1) and (shadowindex<symdeflist.count-1) and
(tllvmshadowsymtableentry(symdeflist[shadowindex+1]).fieldoffset>=tfieldvarsym(equivst.symlist[i]).fieldoffset) do (tllvmshadowsymtableentry(symdeflist[shadowindex+1]).fieldoffset<=tfieldvarsym(equivst.symlist[i]).fieldoffset) do
inc(shadowindex); inc(shadowindex);
{ set the field number and potential offset from that field (in case } { set the field number and potential offset from that field (in case }
{ of overlapping variants) } { of overlapping variants) }