+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
if (expr)
{
+ tree loop;
+
result = ffecom_make_tempvar ("dowhile", integer_type_node,
FFETARGET_charactersizeNONE, -1);
+ loop = expand_start_loop (1);
ffeste_start_stmt_ ();
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