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

+ tabstractrecordsymtable.findfieldbyoffset() method to get the (first, in

Browse Source 
case of variant records) fieldvarsym corresponding to the given offset

git-svn-id: branches/hlcgllvm@28321 -
This commit is contained in:
Jonas Maebe 2014-08-06 18:04:21 +00:00
parent 4f906fb9c9
commit dedf7e9384
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/symtable.pas
View File

@ -102,6 +102,7 @@ interface
procedure alignrecord(fieldoffset:asizeint;varalign:shortint); procedure alignrecord(fieldoffset:asizeint;varalign:shortint);
procedure addfield(sym:tfieldvarsym;vis:tvisibility); procedure addfield(sym:tfieldvarsym;vis:tvisibility);
procedure addfieldlist(list: tfpobjectlist; maybereorder: boolean); procedure addfieldlist(list: tfpobjectlist; maybereorder: boolean);
function findfieldbyoffset(offset:asizeint): tfieldvarsym;
procedure addalignmentpadding; procedure addalignmentpadding;
procedure insertdef(def:TDefEntry);override; procedure insertdef(def:TDefEntry);override;
function is_packed: boolean; function is_packed: boolean;
@ -1239,6 +1240,25 @@ implementation
end; end;
function tabstractrecordsymtable.findfieldbyoffset(offset: asizeint): tfieldvarsym;
var
i: longint;
sym: tsym;
begin
for i:=0 to SymList.count-1 do
begin
sym:=tsym(symlist[i]);
if (sym.typ=fieldvarsym) and
(tfieldvarsym(sym).fieldoffset=offset) then
begin
result:=tfieldvarsym(sym);
exit;
end;
end;
result:=nil;
end;
procedure tabstractrecordsymtable.addalignmentpadding; procedure tabstractrecordsymtable.addalignmentpadding;
var var
padded_datasize: asizeint; padded_datasize: asizeint;