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

- removed unused nested do_generate_code procedure from read_proc

Browse Source 
git-svn-id: trunk@8678 -
This commit is contained in:
Jonas Maebe 2007-09-29 10:28:40 +00:00
parent 54d8f93b25
commit 0a606b308d
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/psub.pas
View File

@ -1499,22 +1499,6 @@ implementation
generates the code for it
}
procedure do_generate_code(pi:tcgprocinfo);
var
hpi : tcgprocinfo;
begin
{ generate code for this procedure }
pi.generate_code;
{ process nested procs }
hpi:=tcgprocinfo(pi.nestedprocs.first);
while assigned(hpi) do
begin
do_generate_code(hpi);
hpi:=tcgprocinfo(hpi.next);
end;
pi.resetprocdef;
end;
var
old_current_procinfo : tprocinfo;
pdflags : tpdflags;