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

+ Patch from Pavel Ozerski

Browse Source
This commit is contained in:
michael 2002-03-29 11:23:24 +00:00
parent 0de84898a3
commit 8e7bb6837f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecsub.pas
View File

@ -1620,6 +1620,7 @@ const
st:=tparasymtable.create;
parast:=tprocdef(def).parast;
lastps:=nil;
if parast<>nil then
while assigned(parast.symindex.first) and (lastps<>tsym(parast.symindex.first)) do
begin
ps:=tsym(parast.symindex.first);
@ -1755,6 +1756,7 @@ const
tabstractprocdef(aktprocdef):=pd;
{ names should never be used anyway }
inc(lexlevel);
AktProcDef.parast:=nil;
parse_proc_directives(pdflags);
dec(lexlevel);
aktprocsym.free;
@ -2014,7 +2016,10 @@ const
end.
{
$Log$
Revision 1.46 2002-01-24 18:25:49 peter
Revision 1.47 2002-03-29 11:23:24 michael
+ Patch from Pavel Ozerski
Revision 1.46 2002/01/24 18:25:49 peter
* implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead