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

* fix code formatting (no code changes)

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

6
compiler/pdecl.pas
View File

@ -75,11 +75,11 @@ implementation
var
system_custom_attribute_def: tobjectdef = nil;
function is_system_custom_attribute_descendant(def:tdef): Boolean;
function is_system_custom_attribute_descendant(def:tdef):boolean;
begin
if system_custom_attribute_def=nil then
system_custom_attribute_def := tobjectdef(search_system_type('TCUSTOMATTRIBUTE').typedef);
Result := def_is_related(def, system_custom_attribute_def);
system_custom_attribute_def:=tobjectdef(search_system_type('TCUSTOMATTRIBUTE').typedef);
Result:=def_is_related(def,system_custom_attribute_def);
end;
function readconstant(const orgname:string;const filepos:tfileposinfo; out nodetype: tnodetype):tconstsym;