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

* fixed access to already freed memory location

Browse Source 
git-svn-id: trunk@2118 -
This commit is contained in:
florian 2006-01-02 17:11:55 +00:00
parent 56616ea3ad
commit 30d5ff9f03
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/psub.pas
View File

@ -1244,14 +1244,15 @@ implementation
if tprocinfo(current_module.procinfo)<>current_procinfo then if tprocinfo(current_module.procinfo)<>current_procinfo then
internalerror(200304274); internalerror(200304274);
current_module.procinfo:=current_procinfo.parent; current_module.procinfo:=current_procinfo.parent;
if not isnestedproc then
current_procinfo.free;
{ For specialization we didn't record the last semicolon. Moving this parsing { For specialization we didn't record the last semicolon. Moving this parsing
into the parse_body routine is not done because of having better file position into the parse_body routine is not done because of having better file position
information available } information available }
if not(df_specialization in current_procinfo.procdef.defoptions) then if not(df_specialization in current_procinfo.procdef.defoptions) then
consume(_SEMICOLON); consume(_SEMICOLON);
if not isnestedproc then
current_procinfo.free;
end; end;