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

* fix code formatting (no code changes)

Browse Source 
git-svn-id: trunk@42381 -
This commit is contained in:
svenbarth 2019-07-12 22:06:31 +00:00
parent c214648224
commit 3a20178d96
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/symdef.pas
View File

@ -67,10 +67,10 @@ interface
end; end;
trtti_attribute_list = class trtti_attribute_list = class
rtti_attributes : TFPObjectList; rtti_attributes : TFPObjectList;
procedure addattribute(atypesym: tsym; constructorcall: tnode); procedure addattribute(atypesym:tsym;constructorcall:tnode);
destructor destroy; override; destructor destroy; override;
function get_attribute_count: longint; function get_attribute_count:longint;
end; end;
{ tstoreddef } { tstoreddef }
@ -2889,14 +2889,14 @@ implementation
TRTTI_ATTRIBUTE_LIST TRTTI_ATTRIBUTE_LIST
****************************************************************************} ****************************************************************************}
procedure trtti_attribute_list.addattribute(atypesym: tsym; constructorcall: tnode); procedure trtti_attribute_list.addattribute(atypesym:tsym;constructorcall:tnode);
var var
newattribute: trtti_attribute; newattribute : trtti_attribute;
begin begin
if not assigned(rtti_attributes) then if not assigned(rtti_attributes) then
rtti_attributes := TFPObjectList.Create(True); rtti_attributes:=TFPObjectList.Create(true);
newattribute := trtti_attribute.Create; newattribute:=trtti_attribute.Create;
newattribute.typesym := atypesym; newattribute.typesym:=atypesym;
newattribute.constructorcall:=constructorcall; newattribute.constructorcall:=constructorcall;
rtti_attributes.Add(newattribute); rtti_attributes.Add(newattribute);
end; end;
@ -2907,12 +2907,12 @@ implementation
inherited destroy; inherited destroy;
end; end;
function trtti_attribute_list.get_attribute_count: longint; function trtti_attribute_list.get_attribute_count:longint;
begin begin
if assigned(rtti_attributes) then if assigned(rtti_attributes) then
result := rtti_attributes.Count result:=rtti_attributes.Count
else else
result := 0; result:=0;
end; end;