diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-04-19 21:38:54 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-04-19 17:38:54 -0400 |
| commit | 986b2f978bf6e7b59cac847a8f96813b510a25aa (patch) | |
| tree | 186f26d9ba06dcc3d6b3100b17e9b6982a08bb45 | |
| parent | 2e6472064f0e3a2d524163bf7c9f7f8a33eaf08e (diff) | |
| download | gcc-986b2f978bf6e7b59cac847a8f96813b510a25aa.zip gcc-986b2f978bf6e7b59cac847a8f96813b510a25aa.tar.gz gcc-986b2f978bf6e7b59cac847a8f96813b510a25aa.tar.bz2 | |
fix DO WHILE
From-SVN: r26553
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/ste.c | 5 | ||||
| -rw-r--r-- | gcc/f/version.c | 2 |
3 files changed, 12 insertions, 2 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 74e0684..8b2e993 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,10 @@ +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 diff --git a/gcc/f/ste.c b/gcc/f/ste.c index b87f532..92c3142 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -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 diff --git a/gcc/f/version.c b/gcc/f/version.c index 5ae6746..d962b67 100644 --- a/gcc/f/version.c +++ b/gcc/f/version.c @@ -1 +1 @@ -const char *ffe_version_string = "0.5.24-19990418"; +const char *ffe_version_string = "0.5.24-19990419"; |