paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +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);
var
pi : tprocinfo;
begin
if (procdef.parast.symtablelevel<=normal_function_level)
or (procdef.parast.symtablelevel<=parent_level) then
Internalerror(2020050302);
if parent_level<normal_function_level then
parent_level:=normal_function_level;
pi:=Self;
repeat
include(pi.procdef.implprocoptions, pio_needs_parentfp);
pi:=pi.parent;
until pi.procdef.parast.symtablelevel<=parent_level;
end;
var
pi : tprocinfo;
begin
if (procdef.parast.symtablelevel<=normal_function_level)
or (procdef.parast.symtablelevel<=parent_level) then
Internalerror(2020050302);
if parent_level<normal_function_level then
parent_level:=normal_function_level;
pi:=Self;
repeat
include(pi.procdef.implprocoptions, pio_needs_parentfp);
pi:=pi.parent;
until pi.procdef.parast.symtablelevel<=parent_level;
end;
end.

6
compiler/symdef.pas
View File

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