Преглед изворни кода

* fixed skipping if intermediate fields in llvm shadow symtable

git-svn-id: trunk@31640 -
Jonas Maebe пре 10 година
родитељ
комит
5a50d05e50
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/symtable.pas

+ 1 - 1
compiler/symtable.pas

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