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

* Code formatting.

Browse Source 
git-svn-id: trunk@45323 -
This commit is contained in:
yury 2020-05-09 21:53:43 +00:00
parent 254d0c0e2c
commit 7cda3d9e57
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/procinfo.pas
View File

@ -434,19 +434,19 @@ implementation
procedure tprocinfo.set_needs_parentfp(parent_level: byte); procedure tprocinfo.set_needs_parentfp(parent_level: byte);
var var
pi : tprocinfo; pi : tprocinfo;
begin begin
if (procdef.parast.symtablelevel<=normal_function_level) if (procdef.parast.symtablelevel<=normal_function_level)
or (procdef.parast.symtablelevel<=parent_level) then or (procdef.parast.symtablelevel<=parent_level) then
Internalerror(2020050302); Internalerror(2020050302);
if parent_level<normal_function_level then if parent_level<normal_function_level then
parent_level:=normal_function_level; parent_level:=normal_function_level;
pi:=Self; pi:=Self;
repeat repeat
include(pi.procdef.implprocoptions, pio_needs_parentfp); include(pi.procdef.implprocoptions, pio_needs_parentfp);
pi:=pi.parent; pi:=pi.parent;
until pi.procdef.parast.symtablelevel<=parent_level; until pi.procdef.parast.symtablelevel<=parent_level;
end; end;
end. end.

6
compiler/symdef.pas
View File

@ -6556,9 +6556,9 @@ implementation
function tprocdef.is_implemented: boolean; function tprocdef.is_implemented: boolean;
begin begin
result:=not assigned(implprocdefinfo) or not implprocdefinfo^.forwarddef; result:=not assigned(implprocdefinfo) or not implprocdefinfo^.forwarddef;
end; end;
function tprocdef.GetSymtable(t:tGetSymtable):TSymtable; function tprocdef.GetSymtable(t:tGetSymtable):TSymtable;