paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 08:19:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* implicit try...finally frames are added after dfa so we don't have to take care if the subroutine needs/uses those or not

Browse Source 
git-svn-id: trunk@26015 -
This commit is contained in:
florian 2013-11-10 20:20:36 +00:00
parent 3cb747f4a7
commit 57586b69c7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/psub.pas
View File

@ -1289,8 +1289,7 @@ implementation
if (cs_opt_nodedfa in current_settings.optimizerswitches) and if (cs_opt_nodedfa in current_settings.optimizerswitches) and
{ creating dfa is not always possible } { creating dfa is not always possible }
((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler, ((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler])=[]) then
pi_needs_implicit_finally,pi_has_implicit_finally])=[]) then
begin begin
dfabuilder:=TDFABuilder.Create; dfabuilder:=TDFABuilder.Create;
dfabuilder.createdfainfo(code); dfabuilder.createdfainfo(code);