Fix DO WHILE
craig@jcb-sc.com
craig@jcb-sc.com
Mon Apr 19 21:39:00 GMT 1999
Committed. (Fixes g77-f.torture/execute/19990419-1.f.)
tq vm, (burley)
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.
*** g77-e/gcc/f/ste.c.~1~ Sat Apr 17 13:53:14 1999
--- g77-e/gcc/f/ste.c Mon Apr 19 21:35:18 1999
*************** ffeste_R819B (ffestw block, ffelab label
*** 3097,3102 ****
--- 3097,3105 ----
if (expr)
{
+ tree loop;
+
result = ffecom_make_tempvar ("dowhile", integer_type_node,
FFETARGET_charactersizeNONE, -1);
+ loop = expand_start_loop (1);
ffeste_start_stmt_ ();
*************** ffeste_R819B (ffestw block, ffelab label
*** 3113,3117 ****
ffeste_end_stmt_ ();
! ffestw_set_do_hook (block, expand_start_loop (1));
expand_exit_loop_if_false (0, result);
}
--- 3116,3120 ----
ffeste_end_stmt_ ();
! ffestw_set_do_hook (block, loop);
expand_exit_loop_if_false (0, result);
}
*** g77-e/gcc/f/version.c.~1~ Sun Apr 18 21:54:50 1999
--- g77-e/gcc/f/version.c Tue Apr 20 00:29:11 1999
***************
*** 1 ****
! const char *ffe_version_string = "0.5.24-19990418";
--- 1 ----
! const char *ffe_version_string = "0.5.24-19990419";
More information about the Gcc-patches
mailing list