paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +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;
trtti_attribute_list = class
rtti_attributes : TFPObjectList;
procedure addattribute(atypesym: tsym; constructorcall: tnode);
rtti_attributes : TFPObjectList;
procedure addattribute(atypesym:tsym;constructorcall:tnode);
destructor destroy; override;
function get_attribute_count: longint;
function get_attribute_count:longint;
end;
{ tstoreddef }
@ -2889,14 +2889,14 @@ implementation
TRTTI_ATTRIBUTE_LIST
****************************************************************************}
procedure trtti_attribute_list.addattribute(atypesym: tsym; constructorcall: tnode);
procedure trtti_attribute_list.addattribute(atypesym:tsym;constructorcall:tnode);
var
newattribute: trtti_attribute;
newattribute : trtti_attribute;
begin
if not assigned(rtti_attributes) then
rtti_attributes := TFPObjectList.Create(True);
newattribute := trtti_attribute.Create;
newattribute.typesym := atypesym;
rtti_attributes:=TFPObjectList.Create(true);
newattribute:=trtti_attribute.Create;
newattribute.typesym:=atypesym;
newattribute.constructorcall:=constructorcall;
rtti_attributes.Add(newattribute);
end;
@ -2907,12 +2907,12 @@ implementation
inherited destroy;
end;
function trtti_attribute_list.get_attribute_count: longint;
function trtti_attribute_list.get_attribute_count:longint;
begin
if assigned(rtti_attributes) then
result := rtti_attributes.Count
result:=rtti_attributes.Count
else
result := 0;
result:=0;
end;