mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 13:59:47 +02:00
* cleaned up overleft of 10710
git-svn-id: trunk@10712 -
This commit is contained in:
parent
92b16f8876
commit
9595256ff5
@ -505,7 +505,6 @@ implementation
|
||||
releaseright : boolean;
|
||||
len : aint;
|
||||
r : tregister;
|
||||
leftfirst : boolean;
|
||||
oldflowcontrol : tflowcontrol;
|
||||
begin
|
||||
location_reset(location,LOC_VOID,OS_NO);
|
||||
@ -532,8 +531,6 @@ implementation
|
||||
((right.resultdef.needs_inittable) or
|
||||
(node_complexity(right)>node_complexity(left))) then
|
||||
begin
|
||||
leftfirst:=false;
|
||||
|
||||
secondpass(right);
|
||||
{ increment source reference counter, this is
|
||||
useless for constants }
|
||||
@ -561,9 +558,6 @@ implementation
|
||||
end
|
||||
else
|
||||
begin
|
||||
{ if the left node is handled first, we have to forbid SSL below }
|
||||
leftfirst:=true;
|
||||
|
||||
{ calculate left sides }
|
||||
secondpass(left);
|
||||
{ decrement destination reference counter }
|
||||
@ -575,6 +569,9 @@ implementation
|
||||
if codegenerror then
|
||||
exit;
|
||||
|
||||
{ tell the SSA/SSL code that the left side was handled first so
|
||||
ni SSL is done
|
||||
}
|
||||
oldflowcontrol:=flowcontrol;
|
||||
include(flowcontrol,fc_lefthandled);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user