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

* allow ssa to happen for outer for-loop control variables

Browse Source 
git-svn-id: trunk@11320 -
This commit is contained in:
Jonas Maebe 2008-07-03 19:39:23 +00:00
parent 5a3f7c5bad
commit 2348c7ea00
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/ncgflw.pas
View File

@ -435,8 +435,6 @@ implementation
oldexecutionweight : longint; oldexecutionweight : longint;
begin begin
location_reset(location,LOC_VOID,OS_NO); location_reset(location,LOC_VOID,OS_NO);
oldflowcontrol:=flowcontrol;
include(flowcontrol,fc_inflowcontrol);
oldclabel:=current_procinfo.CurrContinueLabel; oldclabel:=current_procinfo.CurrContinueLabel;
oldblabel:=current_procinfo.CurrBreakLabel; oldblabel:=current_procinfo.CurrBreakLabel;
current_asmdata.getjumplabel(current_procinfo.CurrContinueLabel); current_asmdata.getjumplabel(current_procinfo.CurrContinueLabel);
@ -477,6 +475,9 @@ implementation
{ load from value } { load from value }
secondpass(right); secondpass(right);
maybechangeloadnodereg(current_asmdata.CurrAsmList,left,false);
oldflowcontrol:=flowcontrol;
include(flowcontrol,fc_inflowcontrol);
{ produce start assignment } { produce start assignment }
case left.location.loc of case left.location.loc of
LOC_REFERENCE, LOC_REFERENCE,