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

* use two empty lines between method definitions (no code changes)

Browse Source 
git-svn-id: trunk@42403 -
This commit is contained in:
svenbarth 2019-07-12 22:07:54 +00:00
parent a72553eea2
commit 9dbd155131
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/symdef.pas
View File

@ -2936,6 +2936,7 @@ implementation
TRTTI_ATTRIBUTE_LIST
****************************************************************************}
constructor trtti_attribute.ppuload(ppufile: tcompilerppufile);
begin
ppufile.getderef(typesymderef);
@ -2943,6 +2944,7 @@ implementation
setlength(paras,ppufile.getlongint);
end;
procedure trtti_attribute.ppuwrite(ppufile: tcompilerppufile);
begin
ppufile.putderef(typesymderef);
@ -2950,6 +2952,7 @@ implementation
ppufile.putlongint(length(paras));
end;
procedure trtti_attribute.ppuload_subentries(ppufile: tcompilerppufile);
var
i : sizeint;
@ -2958,6 +2961,7 @@ implementation
paras[i]:=ppuloadnodetree(ppufile);
end;
procedure trtti_attribute.ppuwrite_subentries(ppufile: tcompilerppufile);
var
i : sizeint;
@ -2966,6 +2970,7 @@ implementation
ppuwritenodetree(ppufile,paras[i]);
end;
destructor trtti_attribute.destroy;
var
n : tnode;
@ -2976,6 +2981,7 @@ implementation
inherited destroy;
end;
procedure trtti_attribute.buildderef;
var
i : sizeint;
@ -2986,6 +2992,7 @@ implementation
paras[i].buildderefimpl;
end;
procedure trtti_attribute.deref;
var
i : sizeint;
@ -2996,6 +3003,7 @@ implementation
paras[i].derefimpl;
end;
class procedure trtti_attribute_list.bind(var dangling,owned:trtti_attribute_list);
begin
if assigned(owned) then
@ -3010,6 +3018,7 @@ implementation
dangling:=nil;
end;
procedure trtti_attribute_list.addattribute(atypesym:tsym;typeconstr:tdef;constructorcall:tnode;constref paras:array of tnode);
var
newattribute : trtti_attribute;
@ -3027,6 +3036,7 @@ implementation
rtti_attributes.Add(newattribute);
end;
procedure trtti_attribute_list.addattribute(attr:trtti_attribute);
begin
if not assigned(rtti_attributes) then
@ -3034,6 +3044,7 @@ implementation
rtti_attributes.add(attr);
end;
destructor trtti_attribute_list.destroy;
var
i : longint;
@ -3047,6 +3058,7 @@ implementation
inherited destroy;
end;
function trtti_attribute_list.get_attribute_count:longint;
begin
if assigned(rtti_attributes) then
@ -3055,6 +3067,7 @@ implementation
result:=0;
end;
procedure trtti_attribute_list.buildderef;
var
i : sizeint;
@ -3065,6 +3078,7 @@ implementation
trtti_attribute(rtti_attributes[i]).buildderef;
end;
procedure trtti_attribute_list.deref;
var
i : sizeint;
@ -3075,6 +3089,7 @@ implementation
trtti_attribute(rtti_attributes[i]).deref;
end;
class procedure trtti_attribute_list.ppuload_subentries(attrlist:trtti_attribute_list;ppufile:tcompilerppufile);
var
i : sizeint;
@ -3088,6 +3103,7 @@ implementation
end;
end;
class procedure trtti_attribute_list.ppuwrite_subentries(attrlist:trtti_attribute_list;ppufile:tcompilerppufile);
var
i : sizeint;
@ -3099,6 +3115,7 @@ implementation
end;
end;
class function trtti_attribute_list.ppuload(ppufile:tcompilerppufile):trtti_attribute_list;
var
cnt,i : longint;
@ -3114,6 +3131,7 @@ implementation
result:=nil;
end;
class procedure trtti_attribute_list.ppuwrite(attrlist:trtti_attribute_list;ppufile:tcompilerppufile);
var
i : longint;