mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-22 01:59:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

fix DO WHILE

Browse Source 
From-SVN: r26553
This commit is contained in:
Craig Burley 1999-04-19 21:38:54 +00:00 committed by Craig Burley
parent 2e6472064f
commit 986b2f978b
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/f/ChangeLog
View File

@ -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> Sun Apr 18 21:53:58 1999 Craig Burley <craig@jcb-sc.com>
* com.c (ffecom_sym_transform_): COMMON and EQUIVALENCE * com.c (ffecom_sym_transform_): COMMON and EQUIVALENCE

5
gcc/f/ste.c
View File

@ -3096,8 +3096,11 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
if (expr) if (expr)
{ {
tree loop;
result = ffecom_make_tempvar ("dowhile", integer_type_node, result = ffecom_make_tempvar ("dowhile", integer_type_node,
FFETARGET_charactersizeNONE, -1); FFETARGET_charactersizeNONE, -1);
loop = expand_start_loop (1);
ffeste_start_stmt_ (); ffeste_start_stmt_ ();
@ -3112,7 +3115,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
ffeste_end_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); expand_exit_loop_if_false (0, result);
} }
else else

2
gcc/f/version.c
View File

@ -1 +1 @@
const char *ffe_version_string = "0.5.24-19990418"; const char *ffe_version_string = "0.5.24-19990419";