소스 검색

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