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

* skip static fields while constructing the LLVM shadow symtable for structs

Browse Source 
git-svn-id: trunk@33960 -
This commit is contained in:
Jonas Maebe 2016-06-12 09:21:03 +00:00
parent 22c31ca004
commit 68d9eb89a2
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symtable.pas
View File

@ -1919,7 +1919,8 @@ implementation
i:=0; i:=0;
while (i<equivst.symlist.count) do while (i<equivst.symlist.count) do
begin begin
if (tsym(equivst.symlist[i]).typ<>fieldvarsym) then if (tsym(equivst.symlist[i]).typ<>fieldvarsym) or
(sp_static in tsym(equivst.symlist[i]).symoptions) then
begin begin
inc(i); inc(i);
continue; continue;
@ -1978,6 +1979,7 @@ implementation
inc(i); inc(i);
while (i<equivst.symlist.count) and while (i<equivst.symlist.count) and
((tsym(equivst.symlist[i]).typ<>fieldvarsym) or ((tsym(equivst.symlist[i]).typ<>fieldvarsym) or
(sp_static in tsym(equivst.symlist[i]).symoptions) or
(tfieldvarsym(equivst.symlist[i]).fieldoffset>sym.fieldoffset)) do (tfieldvarsym(equivst.symlist[i]).fieldoffset>sym.fieldoffset)) do
inc(i); inc(i);
continue; continue;
@ -2004,7 +2006,8 @@ implementation
lastvaroffsetprocessed:=-1; lastvaroffsetprocessed:=-1;
while (i<equivcount) do while (i<equivcount) do
begin begin
if (tsym(equivst.symlist[i]).typ<>fieldvarsym) then if (tsym(equivst.symlist[i]).typ<>fieldvarsym) or
(sp_static in tsym(equivst.symlist[i]).symoptions) then
begin begin
inc(i); inc(i);
continue; continue;
@ -2045,7 +2048,8 @@ implementation
i:=0; i:=0;
while (i < equivcount) do while (i < equivcount) do
begin begin
if (tsym(equivst.symlist[i]).typ<>fieldvarsym) then if (tsym(equivst.symlist[i]).typ<>fieldvarsym) or
(sp_static in tsym(equivst.symlist[i]).symoptions) then
begin begin
inc(i); inc(i);
continue; continue;