diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 1999-11-29 02:26:49 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 1999-11-29 02:26:49 +0000 |
| commit | 14657de8f1fd8fff5cb3bed37d91267beea5e1f3 (patch) | |
| tree | 0cd978ce53551cb7dfa9d8927ebebee6a99623a6 /gcc/f/ste.c | |
| parent | 146e60a0704290a2dcac78ffb1a2efbd7b852f7e (diff) | |
| download | gcc-14657de8f1fd8fff5cb3bed37d91267beea5e1f3.zip gcc-14657de8f1fd8fff5cb3bed37d91267beea5e1f3.tar.gz gcc-14657de8f1fd8fff5cb3bed37d91267beea5e1f3.tar.bz2 | |
com.c (ffecom_get_invented_identifier): Rewrite to take an ellipses.
* com.c (ffecom_get_invented_identifier): Rewrite to take an ellipses.
(ffecom_char_enhance_arg_, ffecom_do_entry_,
ffecom_f2c_make_type_, ffecom_gen_sfuncdef_,
ffecom_start_progunit_, ffecom_start_progunit_,
ffecom_start_progunit_, ffecom_sym_transform_assign_,
ffecom_transform_equiv_, ffecom_transform_namelist_,
ffecom_vardesc_, ffecom_vardesc_array_, ffecom_vardesc_dims_,
ffecom_end_transition, ffecom_lookup_label, ffecom_temp_label):
Adjust accordingly.
* com.h (ffecom_get_invented_identifier): Likewise.
* sts.c (ffests_printf): New function taking ellipses.
(ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
ffests_printf_2Us): Delete.
* sts.h: Likewise.
* std.c (ffestd_R1001dump_, ffestd_R1001dump_1005_1_,
ffestd_R1001dump_1005_2_, ffestd_R1001dump_1005_3_,
ffestd_R1001dump_1005_4_, ffestd_R1001dump_1005_5_,
ffestd_R1001dump_1010_2_, ffestd_R1001dump_1010_3_,
ffestd_R1001dump_1010_4_, ffestd_R1001dump_1010_5_,
ffestd_R1001rtexpr_): Call `ffests_printf', not `ffests_printf_*'.
* ste.c (ffeste_io_ialist_, ffeste_io_cilist_, ffeste_io_cllist_,
ffeste_io_icilist_, ffeste_io_inlist_, ffeste_io_olist_): Likewise.
From-SVN: r30692
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index dbe48dd..0446daa 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -1279,7 +1279,7 @@ ffeste_io_ialist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_alist_%d", NULL, + ffecom_get_invented_identifier ("__g77_alist_%d", mynumber++), f2c_alist_struct); TREE_STATIC (t) = 1; @@ -1495,7 +1495,7 @@ ffeste_io_cilist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_cilist_%d", NULL, + ffecom_get_invented_identifier ("__g77_cilist_%d", mynumber++), f2c_cilist_struct); TREE_STATIC (t) = 1; @@ -1635,7 +1635,7 @@ ffeste_io_cllist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_cllist_%d", NULL, + ffecom_get_invented_identifier ("__g77_cllist_%d", mynumber++), f2c_close_struct); TREE_STATIC (t) = 1; @@ -1853,7 +1853,7 @@ ffeste_io_icilist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_icilist_%d", NULL, + ffecom_get_invented_identifier ("__g77_icilist_%d", mynumber++), f2c_icilist_struct); TREE_STATIC (t) = 1; @@ -2113,7 +2113,7 @@ ffeste_io_inlist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_inlist_%d", NULL, + ffecom_get_invented_identifier ("__g77_inlist_%d", mynumber++), f2c_inquire_struct); TREE_STATIC (t) = 1; @@ -2302,7 +2302,7 @@ ffeste_io_olist_ (bool have_err, yes = suspend_momentary (); t = build_decl (VAR_DECL, - ffecom_get_invented_identifier ("__g77_olist_%d", NULL, + ffecom_get_invented_identifier ("__g77_olist_%d", mynumber++), f2c_open_struct); TREE_STATIC (t) = 1; |