paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* call simplify after typechecking for nodes

Browse Source 
git-svn-id: trunk@34795 -
This commit is contained in:
florian 2016-11-05 23:05:54 +00:00
parent 6b84a1e1b8
commit 8471e02e40
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/nflw.pas
View File

@ -1446,20 +1446,20 @@ implementation
function tfornode.simplify(forinline : boolean) : tnode;
begin
result:=nil;
{ Can we spare the first comparision? }
if (t1.nodetype=ordconstn) and
(right.nodetype=ordconstn) and
{ Can we spare the first comparision? }
if (t1.nodetype=ordconstn) and
(right.nodetype=ordconstn) and
(
(
(
(lnf_backward in loopflags) and
(Tordconstnode(right).value>=Tordconstnode(t1).value)
) or
(
not(lnf_backward in loopflags) and
(Tordconstnode(right).value<=Tordconstnode(t1).value)
)
) then
exclude(loopflags,lnf_testatbegin);
(lnf_backward in loopflags) and
(Tordconstnode(right).value>=Tordconstnode(t1).value)
) or
(
not(lnf_backward in loopflags) and
(Tordconstnode(right).value<=Tordconstnode(t1).value)
)
) then
exclude(loopflags,lnf_testatbegin);
if (t1.nodetype=ordconstn) and
(right.nodetype=ordconstn) and
@ -1473,7 +1473,7 @@ implementation
(tordconstnode(right).value>tordconstnode(t1).value)
)
) then
result:=cnothingnode.create;
result:=cnothingnode.create;
end;
@ -1520,6 +1520,7 @@ implementation
if assigned(t2) then
typecheckpass(t2);
result:=simplify(false);
end;
@ -2251,6 +2252,7 @@ implementation
result:=cnothingnode.create;
end;
procedure ttryexceptnode.adjust_estimated_stack_size;
begin
inc(current_procinfo.estimatedtempsize,rec_jmp_buf.size*2);