paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't remove repeat until node in repeat until true;

Browse Source
This commit is contained in:
peter 2005-03-24 23:06:43 +00:00
parent f8849f9396
commit bd34e0dd69
1 changed files with 11 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/nflw.pas
View File

@ -379,26 +379,13 @@ implementation
CGMessage1(type_e_boolean_expr_expected,left.resulttype.def.typename);
end;
{ optimize constant expressions }
if (left.nodetype=ordconstn) then
begin
{ while false do }
if (lnf_testatbegin in loopflags) and
(tordconstnode(left).value=0) then
begin
if assigned(right) then
CGMessagePos(right.fileinfo,cg_w_unreachable_code);
result:=cnothingnode.create;
end
else
{ repeat until true }
if not(lnf_testatbegin in loopflags) and
(tordconstnode(left).value=1) then
begin
result:=right;
right:=nil;
end;
end;
{ Give warnings for code that will never be executed for
while false do }
if (lnf_testatbegin in loopflags) and
(left.nodetype=ordconstn) and
(tordconstnode(left).value=0) and
assigned(right) then
CGMessagePos(right.fileinfo,cg_w_unreachable_code);
end;
@ -1404,7 +1391,10 @@ begin
end.
{
$Log$
Revision 1.110 2005-02-23 20:38:09 florian
Revision 1.111 2005-03-24 23:06:43 peter
* don't remove repeat until node in repeat until true;
Revision 1.110 2005/02/23 20:38:09 florian
+ variants can be used as cond. expr. in if, while, repeat ... until statements
Revision 1.109 2005/02/14 17:13:06 peter