Commit 986b2f97 by Craig Burley Committed by Craig Burley

fix DO WHILE

From-SVN: r26553
parent 2e647206
Mon Apr 19 21:36:48 1999 Craig Burley <craig@jcb-sc.com>
* ste.c (ffeste_R819B): Start the loop before expanding
the termination expression.
* version.c: Bump version.
Sun Apr 18 21:53:58 1999 Craig Burley <craig@jcb-sc.com>
* com.c (ffecom_sym_transform_): COMMON and EQUIVALENCE
......
......@@ -3096,8 +3096,11 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
if (expr)
{
tree loop;
result = ffecom_make_tempvar ("dowhile", integer_type_node,
FFETARGET_charactersizeNONE, -1);
loop = expand_start_loop (1);
ffeste_start_stmt_ ();
......@@ -3112,7 +3115,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
ffeste_end_stmt_ ();
ffestw_set_do_hook (block, expand_start_loop (1));
ffestw_set_do_hook (block, loop);
expand_exit_loop_if_false (0, result);
}
else
......
const char *ffe_version_string = "0.5.24-19990418";
const char *ffe_version_string = "0.5.24-19990419";
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment