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

* cosmetics

Browse Source
This commit is contained in:
florian 2024-12-21 19:48:33 +01:00
parent 493ad0aa73
commit 8023fffd3c
1 changed files with 53 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symtable.pas
View File

@ -1612,11 +1612,11 @@ implementation
result:=usefieldalignment=bit_alignment;
end;
function tabstractrecordsymtable.has_double_field(out def1,def2:tdef; out offset:integer): integer;
var
i,cnt: longint;
currentsymlist: TFPHashObjectList;
currentdef: tdef;
sym: tfieldvarsym;
begin
has_double_field := 0;
@ -1629,7 +1629,6 @@ implementation
exit;
if currentsymlist.Count <> 2 then
exit;
currentdef := nil;
if is_normal_fieldvarsym(tsym(currentsymlist[0])) then
begin
sym:=tfieldvarsym(currentsymlist[0]);
@ -1654,6 +1653,7 @@ implementation
has_double_field := cnt;
end;
function tabstractrecordsymtable.has_single_field(out def:tdef): boolean;
var
i: longint;
@ -1672,7 +1672,8 @@ implementation
{ a record/object can contain other things than fields }
currentsymlist:=symlist;
{ recurse in arrays and records }
repeat
while true do
begin
sym:=nil;
{ record has one field? }
for i:=0 to currentsymlist.Count-1 do
@ -1719,8 +1720,9 @@ implementation
end
else
exit
until false;
end;
end;
procedure tabstractrecordsymtable.do_get_managementoperator_offset_list(data:tobject;arg:pointer);
var