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

* cleaned up overleft of 10710

Browse Source 
git-svn-id: trunk@10712 -
This commit is contained in:
florian 2008-04-19 11:38:54 +00:00
parent 92b16f8876
commit 9595256ff5
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgld.pas
View File

@ -505,7 +505,6 @@ implementation
releaseright : boolean; releaseright : boolean;
len : aint; len : aint;
r : tregister; r : tregister;
leftfirst : boolean;
oldflowcontrol : tflowcontrol; oldflowcontrol : tflowcontrol;
begin begin
location_reset(location,LOC_VOID,OS_NO); location_reset(location,LOC_VOID,OS_NO);
@ -532,8 +531,6 @@ implementation
((right.resultdef.needs_inittable) or ((right.resultdef.needs_inittable) or
(node_complexity(right)>node_complexity(left))) then (node_complexity(right)>node_complexity(left))) then
begin begin
leftfirst:=false;
secondpass(right); secondpass(right);
{ increment source reference counter, this is { increment source reference counter, this is
useless for constants } useless for constants }
@ -561,9 +558,6 @@ implementation
end end
else else
begin begin
{ if the left node is handled first, we have to forbid SSL below }
leftfirst:=true;
{ calculate left sides } { calculate left sides }
secondpass(left); secondpass(left);
{ decrement destination reference counter } { decrement destination reference counter }
@ -575,6 +569,9 @@ implementation
if codegenerror then if codegenerror then
exit; exit;
{ tell the SSA/SSL code that the left side was handled first so
ni SSL is done
}
oldflowcontrol:=flowcontrol; oldflowcontrol:=flowcontrol;
include(flowcontrol,fc_lefthandled); include(flowcontrol,fc_lefthandled);