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

psub.pas, read_proc_body:

Browse Source 
* reset _FAIL directly after parsing the routine

git-svn-id: trunk@33881 -
This commit is contained in:
svenbarth 2016-06-02 19:31:47 +00:00
parent dc5d9c7001
commit af26a31251
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psub.pas
View File

@ -2006,6 +2006,10 @@ implementation
tcgprocinfo(current_procinfo).parse_body; tcgprocinfo(current_procinfo).parse_body;
{ reset _FAIL as _SELF normal }
if (pd.proctypeoption=potype_constructor) then
tokeninfo^[_FAIL].keyword:=oldfailtokenmode;
{ We can't support inlining for procedures that have nested { We can't support inlining for procedures that have nested
procedures because the nested procedures use a fixed offset procedures because the nested procedures use a fixed offset
for accessing locals in the parent procedure (PFV) } for accessing locals in the parent procedure (PFV) }
@ -2036,10 +2040,6 @@ implementation
end; end;
end; end;
{ reset _FAIL as _SELF normal }
if (pd.proctypeoption=potype_constructor) then
tokeninfo^[_FAIL].keyword:=oldfailtokenmode;
{ release procinfo } { release procinfo }
if tprocinfo(current_module.procinfo)<>current_procinfo then if tprocinfo(current_module.procinfo)<>current_procinfo then
internalerror(200304274); internalerror(200304274);