Skip to content

R
riscv-gcc-1
Commit 04d87103 by Kaveh R. Ghazi Committed by Kaveh Ghazi
Options

Warning fixes: 

        * sta.c (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
        Const-ify a char*.
        * sta.h (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
        Likewise.
        * stb.c (ffestb_local_u_): Likewise.
        (ffestb_do, ffestb_dowhile, ffestb_else, ffestb_elsexyz,
        ffestb_else3_, ffestb_endxyz, ffestb_goto, ffestb_let,
        ffestb_type, ffestb_type1_, ffestb_varlist, ffestb_R423B,
        ffestb_R522, ffestb_R528, ffestb_R542, ffestb_R834, ffestb_R835,
        ffestb_R838, ffestb_R841, ffestb_R1102, ffestb_blockdata,
        ffestb_R1212, ffestb_R1228, ffestb_V009, ffestb_module,
        ffestb_R809, ffestb_R810, ffestb_R10014_, ffestb_R10015_,
        ffestb_R10018_, ffestb_R1107, ffestb_R1202, ffestb_R12026_,
        ffestb_S3P4, ffestb_V012, ffestb_V014, ffestb_V025, ffestb_V0255_,
        ffestb_V020, ffestb_dimlist, ffestb_dummy, ffestb_R524,
        ffestb_R547, ffestb_decl_chartype, ffestb_decl_dbltype,
        ffestb_decl_gentype, ffestb_decl_recursive, ffestb_decl_entsp_2_,
        ffestb_decl_func_, ffestb_V003, ffestb_V016, ffestb_V027,
        ffestb_decl_R539): Likewise.
        * stb.h (_ffestb_args_): Likewise.
        * stc.c (ffestc_subr_binsrch_, ffestc_subr_is_present_,
        ffestc_subr_speccmp_, ffestc_R904, ffestc_R907): Likewise.
        * std.c (ffestd_R1001dump_1005_1_, ffestd_R1001dump_1005_2_,
        ffestd_R1001dump_1005_3_, ffestd_R1001dump_1005_4_,
        ffestd_R1001dump_1005_5_, ffestd_R1001dump_1010_1_,
        ffestd_R1001dump_1010_2_, ffestd_R1001dump_1010_3_,
        ffestd_R1001dump_1010_4_, ffestd_R1001dump_1010_5_): Likewise.
        * ste.c (ffeste_begin_iterdo_, ffeste_subr_file_): Likewise.
        * sts.c (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
        * sts.h (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
        * stt.c (ffestt_exprlist_drive, ffestt_implist_drive,
        ffestt_tokenlist_drive): Add prototype arguments.
        * stt.h (ffestt_exprlist_drive, ffestt_implist_drive,
        ffestt_tokenlist_drive): Likewise.
        * stu.c (ffestu_dummies_transition_): Likewise.
        (ffestu_sym_end_transition): Const-ify a char*.
        * stw.c (ffestw_display_state, ffestw_new, ffestw_pop): Add
        prototype arguments.
        * stw.h (ffestw_display_state, ffestw_new, ffestw_pop): Likewise.
        * version.c (ffe_version_string): Const-ify a char*.
        * version.h (ffe_version_string): Likewise.

From-SVN: r26064
parent 24f98470
Showing with 205 additions and 144 deletions
gcc/f/ChangeLog
Tue Mar 30 12:04:11 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* sta.c (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
Const-ify a char*.
* sta.h (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
Likewise.
* stb.c (ffestb_local_u_): Likewise.
(ffestb_do, ffestb_dowhile, ffestb_else, ffestb_elsexyz,
ffestb_else3_, ffestb_endxyz, ffestb_goto, ffestb_let,
ffestb_type, ffestb_type1_, ffestb_varlist, ffestb_R423B,
ffestb_R522, ffestb_R528, ffestb_R542, ffestb_R834, ffestb_R835,
ffestb_R838, ffestb_R841, ffestb_R1102, ffestb_blockdata,
ffestb_R1212, ffestb_R1228, ffestb_V009, ffestb_module,
ffestb_R809, ffestb_R810, ffestb_R10014_, ffestb_R10015_,
ffestb_R10018_, ffestb_R1107, ffestb_R1202, ffestb_R12026_,
ffestb_S3P4, ffestb_V012, ffestb_V014, ffestb_V025, ffestb_V0255_,
ffestb_V020, ffestb_dimlist, ffestb_dummy, ffestb_R524,
ffestb_R547, ffestb_decl_chartype, ffestb_decl_dbltype,
ffestb_decl_gentype, ffestb_decl_recursive, ffestb_decl_entsp_2_,
ffestb_decl_func_, ffestb_V003, ffestb_V016, ffestb_V027,
ffestb_decl_R539): Likewise.
* stb.h (_ffestb_args_): Likewise.
* stc.c (ffestc_subr_binsrch_, ffestc_subr_is_present_,
ffestc_subr_speccmp_, ffestc_R904, ffestc_R907): Likewise.
* std.c (ffestd_R1001dump_1005_1_, ffestd_R1001dump_1005_2_,
ffestd_R1001dump_1005_3_, ffestd_R1001dump_1005_4_,
ffestd_R1001dump_1005_5_, ffestd_R1001dump_1010_1_,
ffestd_R1001dump_1010_2_, ffestd_R1001dump_1010_3_,
ffestd_R1001dump_1010_4_, ffestd_R1001dump_1010_5_): Likewise.
* ste.c (ffeste_begin_iterdo_, ffeste_subr_file_): Likewise.
* sts.c (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
* sts.h (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
* stt.c (ffestt_exprlist_drive, ffestt_implist_drive,
ffestt_tokenlist_drive): Add prototype arguments.
* stt.h (ffestt_exprlist_drive, ffestt_implist_drive,
ffestt_tokenlist_drive): Likewise.
* stu.c (ffestu_dummies_transition_): Likewise.
(ffestu_sym_end_transition): Const-ify a char*.
* stw.c (ffestw_display_state, ffestw_new, ffestw_pop): Add
prototype arguments.
* stw.h (ffestw_display_state, ffestw_new, ffestw_pop): Likewise.
* version.c (ffe_version_string): Const-ify a char*.
* version.h (ffe_version_string): Likewise.
Sat Mar 27 13:00:43 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> Sat Mar 27 13:00:43 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* bad.c (_ffebad_message_, ffebad_string_, ffebad_message_, * bad.c (_ffebad_message_, ffebad_string_, ffebad_message_,
......
gcc/f/sta.c
...@@ -1701,7 +1701,7 @@ ffesta_ffebad_1p (ffebad errnum, ffelexToken names_token, ffeTokenLength index, ...@@ -1701,7 +1701,7 @@ ffesta_ffebad_1p (ffebad errnum, ffelexToken names_token, ffeTokenLength index,
} }
void void
ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token, ffesta_ffebad_1sp (ffebad errnum, const char *s, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token) ffeTokenLength index, ffelexToken next_token)
{ {
ffewhereLine line; ffewhereLine line;
...@@ -1735,7 +1735,7 @@ ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token, ...@@ -1735,7 +1735,7 @@ ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token,
} }
void void
ffesta_ffebad_1st (ffebad errnum, char *s, ffelexToken t) ffesta_ffebad_1st (ffebad errnum, const char *s, ffelexToken t)
{ {
if (ffesta_ffebad_start (errnum)) if (ffesta_ffebad_start (errnum))
{ {
...@@ -1764,7 +1764,7 @@ ffesta_ffebad_1t (ffebad errnum, ffelexToken t) ...@@ -1764,7 +1764,7 @@ ffesta_ffebad_1t (ffebad errnum, ffelexToken t)
} }
void void
ffesta_ffebad_2st (ffebad errnum, char *s, ffelexToken t1, ffelexToken t2) ffesta_ffebad_2st (ffebad errnum, const char *s, ffelexToken t1, ffelexToken t2)
{ {
if (ffesta_ffebad_start (errnum)) if (ffesta_ffebad_start (errnum))
{ {
......
gcc/f/sta.h
...@@ -90,11 +90,11 @@ ffesymbol ffesta_sym_end_transition (ffesymbol s); ...@@ -90,11 +90,11 @@ ffesymbol ffesta_sym_end_transition (ffesymbol s);
ffesymbol ffesta_sym_exec_transition (ffesymbol s); ffesymbol ffesta_sym_exec_transition (ffesymbol s);
void ffesta_ffebad_1p (ffebad msg, ffelexToken names_token, void ffesta_ffebad_1p (ffebad msg, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token); ffeTokenLength index, ffelexToken next_token);
void ffesta_ffebad_1sp (ffebad msg, char *s, ffelexToken names_token, void ffesta_ffebad_1sp (ffebad msg, const char *s, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token); ffeTokenLength index, ffelexToken next_token);
void ffesta_ffebad_1st (ffebad msg, char *s, ffelexToken t); void ffesta_ffebad_1st (ffebad msg, const char *s, ffelexToken t);
void ffesta_ffebad_1t (ffebad msg, ffelexToken t); void ffesta_ffebad_1t (ffebad msg, ffelexToken t);
void ffesta_ffebad_2st (ffebad msg, char *s, ffelexToken t1, ffelexToken t2); void ffesta_ffebad_2st (ffebad msg, const char *s, ffelexToken t1, ffelexToken t2);
void ffesta_ffebad_2t (ffebad msg, ffelexToken t1, ffelexToken t2); void ffesta_ffebad_2t (ffebad msg, ffelexToken t1, ffelexToken t2);
ffelexHandler ffesta_zero (ffelexToken t); ffelexHandler ffesta_zero (ffelexToken t);
ffelexHandler ffesta_two (ffelexToken first, ffelexToken second); ffelexHandler ffesta_two (ffelexToken first, ffelexToken second);
......
gcc/f/stb.c
...@@ -404,7 +404,7 @@ union ffestb_local_u_ ...@@ -404,7 +404,7 @@ union ffestb_local_u_
dimlist; dimlist;
struct struct
{ {
char *badname; const char *badname;
ffestrFirst first_kw; ffestrFirst first_kw;
bool is_subr; bool is_subr;
} }
...@@ -421,7 +421,7 @@ union ffestb_local_u_ ...@@ -421,7 +421,7 @@ union ffestb_local_u_
ffesttTokenList toklist;/* For ambiguity resolution. */ ffesttTokenList toklist;/* For ambiguity resolution. */
ffesttImpList imps; /* List of IMPLICIT letters. */ ffesttImpList imps; /* List of IMPLICIT letters. */
ffelexHandler imp_handler; /* Call if paren list wasn't letters. */ ffelexHandler imp_handler; /* Call if paren list wasn't letters. */
char *badname; const char *badname;
ffestrOther kw; /* INTENT(IN/OUT/INOUT). */ ffestrOther kw; /* INTENT(IN/OUT/INOUT). */
ffestpType type; ffestpType type;
bool parameter; /* If PARAMETER attribute seen (governs =expr bool parameter; /* If PARAMETER attribute seen (governs =expr
...@@ -1859,7 +1859,7 @@ ffelexHandler ...@@ -1859,7 +1859,7 @@ ffelexHandler
ffestb_do (ffelexToken t) ffestb_do (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexHandler next; ffelexHandler next;
ffelexToken nt; ffelexToken nt;
ffestrSecond kw; ffestrSecond kw;
...@@ -2033,7 +2033,7 @@ ffelexHandler ...@@ -2033,7 +2033,7 @@ ffelexHandler
ffestb_dowhile (ffelexToken t) ffestb_dowhile (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexHandler next; ffelexHandler next;
ffelexToken nt; ffelexToken nt;
...@@ -2507,7 +2507,7 @@ ffelexHandler ...@@ -2507,7 +2507,7 @@ ffelexHandler
ffestb_else (ffelexToken t) ffestb_else (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -2600,7 +2600,7 @@ ffelexHandler ...@@ -2600,7 +2600,7 @@ ffelexHandler
ffestb_elsexyz (ffelexToken t) ffestb_elsexyz (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -2787,7 +2787,7 @@ static ffelexHandler ...@@ -2787,7 +2787,7 @@ static ffelexHandler
ffestb_else3_ (ffelexToken t) ffestb_else3_ (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelex_set_names (FALSE); ffelex_set_names (FALSE);
...@@ -3013,7 +3013,7 @@ ffelexHandler ...@@ -3013,7 +3013,7 @@ ffelexHandler
ffestb_endxyz (ffelexToken t) ffestb_endxyz (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -3319,7 +3319,7 @@ ffelexHandler ...@@ -3319,7 +3319,7 @@ ffelexHandler
ffestb_goto (ffelexToken t) ffestb_goto (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexHandler next; ffelexHandler next;
ffelexToken nt; ffelexToken nt;
...@@ -4152,7 +4152,7 @@ ffestb_let (ffelexToken t) ...@@ -4152,7 +4152,7 @@ ffestb_let (ffelexToken t)
ffelexHandler next; ffelexHandler next;
bool vxtparam; /* TRUE if it might really be a VXT PARAMETER bool vxtparam; /* TRUE if it might really be a VXT PARAMETER
stmt. */ stmt. */
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -4292,7 +4292,7 @@ ffelexHandler ...@@ -4292,7 +4292,7 @@ ffelexHandler
ffestb_type (ffelexToken t) ffestb_type (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -4376,7 +4376,7 @@ static ffelexHandler ...@@ -4376,7 +4376,7 @@ static ffelexHandler
ffestb_type1_ (ffelexToken t) ffestb_type1_ (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelex_set_names (FALSE); ffelex_set_names (FALSE);
...@@ -4537,7 +4537,7 @@ ffelexHandler ...@@ -4537,7 +4537,7 @@ ffelexHandler
ffestb_varlist (ffelexToken t) ffestb_varlist (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -5215,7 +5215,7 @@ ffestb_varlist6_ (ffelexToken t) ...@@ -5215,7 +5215,7 @@ ffestb_varlist6_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R423B (ffelexToken t) ffestb_R423B (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -5284,7 +5284,7 @@ ffelexHandler ...@@ -5284,7 +5284,7 @@ ffelexHandler
ffestb_R522 (ffelexToken t) ffestb_R522 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -5528,7 +5528,7 @@ ffestb_R5224_ (ffelexToken t) ...@@ -5528,7 +5528,7 @@ ffestb_R5224_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R528 (ffelexToken t) ffestb_R528 (ffelexToken t)
{ {
unsigned char *p; unsigned const char *p;
ffeTokenLength i; ffeTokenLength i;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -6005,7 +6005,7 @@ ffestb_R5373_ (ffelexToken t) ...@@ -6005,7 +6005,7 @@ ffestb_R5373_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R542 (ffelexToken t) ffestb_R542 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -6419,7 +6419,7 @@ ffelexHandler ...@@ -6419,7 +6419,7 @@ ffelexHandler
ffestb_R834 (ffelexToken t) ffestb_R834 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -6534,7 +6534,7 @@ ffelexHandler ...@@ -6534,7 +6534,7 @@ ffelexHandler
ffestb_R835 (ffelexToken t) ffestb_R835 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -6648,7 +6648,7 @@ ffestb_R8351_ (ffelexToken t) ...@@ -6648,7 +6648,7 @@ ffestb_R8351_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R838 (ffelexToken t) ffestb_R838 (ffelexToken t)
{ {
unsigned char *p; unsigned const char *p;
ffeTokenLength i; ffeTokenLength i;
ffelexHandler next; ffelexHandler next;
ffelexToken et; /* First token in target. */ ffelexToken et; /* First token in target. */
...@@ -7073,7 +7073,7 @@ ffestb_R8407_ (ffelexToken t) ...@@ -7073,7 +7073,7 @@ ffestb_R8407_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R841 (ffelexToken t) ffestb_R841 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -7141,7 +7141,7 @@ ffelexHandler ...@@ -7141,7 +7141,7 @@ ffelexHandler
ffestb_R1102 (ffelexToken t) ffestb_R1102 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -7293,7 +7293,7 @@ ffelexHandler ...@@ -7293,7 +7293,7 @@ ffelexHandler
ffestb_blockdata (ffelexToken t) ffestb_blockdata (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -7436,7 +7436,7 @@ ffelexHandler ...@@ -7436,7 +7436,7 @@ ffelexHandler
ffestb_R1212 (ffelexToken t) ffestb_R1212 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexHandler next; ffelexHandler next;
ffelexToken nt; ffelexToken nt;
...@@ -7675,7 +7675,7 @@ ffestb_R12271_ (ffelexToken ft, ffebld expr, ffelexToken t) ...@@ -7675,7 +7675,7 @@ ffestb_R12271_ (ffelexToken ft, ffebld expr, ffelexToken t)
ffelexHandler ffelexHandler
ffestb_R1228 (ffelexToken t) ffestb_R1228 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -7744,7 +7744,7 @@ bad_i: /* :::::::::::::::::::: */ ...@@ -7744,7 +7744,7 @@ bad_i: /* :::::::::::::::::::: */
ffelexHandler ffelexHandler
ffestb_V009 (ffelexToken t) ffestb_V009 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -8156,7 +8156,7 @@ ffelexHandler ...@@ -8156,7 +8156,7 @@ ffelexHandler
ffestb_module (ffelexToken t) ffestb_module (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexToken nt; ffelexToken nt;
ffelexToken mt; /* Name in MODULE PROCEDUREname, i.e. ffelexToken mt; /* Name in MODULE PROCEDUREname, i.e.
includes "PROCEDURE". */ includes "PROCEDURE". */
...@@ -8429,7 +8429,7 @@ ffelexHandler ...@@ -8429,7 +8429,7 @@ ffelexHandler
ffestb_R809 (ffelexToken t) ffestb_R809 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -8630,7 +8630,7 @@ ffelexHandler ...@@ -8630,7 +8630,7 @@ ffelexHandler
ffestb_R810 (ffelexToken t) ffestb_R810 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -9185,7 +9185,7 @@ ffestb_R10014_ (ffelexToken t) ...@@ -9185,7 +9185,7 @@ ffestb_R10014_ (ffelexToken t)
{ {
ffesttFormatList f; ffesttFormatList f;
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffestrFormat kw; ffestrFormat kw;
ffelex_set_expecting_hollerith (0, '\0', ffelex_set_expecting_hollerith (0, '\0',
...@@ -9814,7 +9814,7 @@ ffestb_R10015_ (ffelexToken t) ...@@ -9814,7 +9814,7 @@ ffestb_R10015_ (ffelexToken t)
bool split_pea; /* New NAMES requires splitting kP from new bool split_pea; /* New NAMES requires splitting kP from new
edit desc. */ edit desc. */
ffestrFormat kw; ffestrFormat kw;
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (t)) switch (ffelex_token_type (t))
...@@ -10191,7 +10191,7 @@ static ffelexHandler ...@@ -10191,7 +10191,7 @@ static ffelexHandler
ffestb_R10018_ (ffelexToken t) ffestb_R10018_ (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (t)) switch (ffelex_token_type (t))
{ {
...@@ -10985,7 +10985,7 @@ ffelexHandler ...@@ -10985,7 +10985,7 @@ ffelexHandler
ffestb_R1107 (ffelexToken t) ffestb_R1107 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -11431,7 +11431,7 @@ ffelexHandler ...@@ -11431,7 +11431,7 @@ ffelexHandler
ffestb_R1202 (ffelexToken t) ffestb_R1202 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -11822,7 +11822,7 @@ ffestb_R12025_ (ffelexToken t) ...@@ -11822,7 +11822,7 @@ ffestb_R12025_ (ffelexToken t)
static ffelexHandler static ffelexHandler
ffestb_R12026_ (ffelexToken t) ffestb_R12026_ (ffelexToken t)
{ {
char *p; const char *p;
switch (ffelex_token_type (t)) switch (ffelex_token_type (t))
{ {
...@@ -11965,7 +11965,7 @@ ffelexHandler ...@@ -11965,7 +11965,7 @@ ffelexHandler
ffestb_S3P4 (ffelexToken t) ffestb_S3P4 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexHandler next; ffelexHandler next;
ffelexToken nt; ffelexToken nt;
ffelexToken ut; ffelexToken ut;
...@@ -12097,7 +12097,7 @@ ffestb_S3P41_ (ffelexToken ft, ffebld expr, ffelexToken t) ...@@ -12097,7 +12097,7 @@ ffestb_S3P41_ (ffelexToken ft, ffebld expr, ffelexToken t)
ffelexHandler ffelexHandler
ffestb_V012 (ffelexToken t) ffestb_V012 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -12166,7 +12166,7 @@ ffelexHandler ...@@ -12166,7 +12166,7 @@ ffelexHandler
ffestb_V014 (ffelexToken t) ffestb_V014 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -12400,7 +12400,7 @@ ffelexHandler ...@@ -12400,7 +12400,7 @@ ffelexHandler
ffestb_V025 (ffelexToken t) ffestb_V025 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -12596,7 +12596,7 @@ ffestb_V0254_ (ffelexToken ft, ffebld expr, ffelexToken t) ...@@ -12596,7 +12596,7 @@ ffestb_V0254_ (ffelexToken ft, ffebld expr, ffelexToken t)
static ffelexHandler static ffelexHandler
ffestb_V0255_ (ffelexToken t) ffestb_V0255_ (ffelexToken t)
{ {
char *p; const char *p;
switch (ffelex_token_type (t)) switch (ffelex_token_type (t))
{ {
...@@ -17910,7 +17910,7 @@ ffelexHandler ...@@ -17910,7 +17910,7 @@ ffelexHandler
ffestb_V020 (ffelexToken t) ffestb_V020 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexHandler next; ffelexHandler next;
ffestpTypeIx ix; ffestpTypeIx ix;
...@@ -18846,7 +18846,7 @@ ffelexHandler ...@@ -18846,7 +18846,7 @@ ffelexHandler
ffestb_dimlist (ffelexToken t) ffestb_dimlist (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -19400,7 +19400,7 @@ ffelexHandler ...@@ -19400,7 +19400,7 @@ ffelexHandler
ffestb_dummy (ffelexToken t) ffestb_dummy (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
{ {
...@@ -19619,7 +19619,7 @@ ffelexHandler ...@@ -19619,7 +19619,7 @@ ffelexHandler
ffestb_R524 (ffelexToken t) ffestb_R524 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -19848,7 +19848,7 @@ ffelexHandler ...@@ -19848,7 +19848,7 @@ ffelexHandler
ffestb_R547 (ffelexToken t) ffestb_R547 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -20486,7 +20486,7 @@ ffelexHandler ...@@ -20486,7 +20486,7 @@ ffelexHandler
ffestb_decl_chartype (ffelexToken t) ffestb_decl_chartype (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffestb_local_.decl.type = FFESTP_typeCHARACTER; ffestb_local_.decl.type = FFESTP_typeCHARACTER;
ffestb_local_.decl.recursive = NULL; ffestb_local_.decl.recursive = NULL;
...@@ -20673,7 +20673,7 @@ ffelexHandler ...@@ -20673,7 +20673,7 @@ ffelexHandler
ffestb_decl_dbltype (ffelexToken t) ffestb_decl_dbltype (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffestb_local_.decl.type = ffestb_args.decl.type; ffestb_local_.decl.type = ffestb_args.decl.type;
ffestb_local_.decl.recursive = NULL; ffestb_local_.decl.recursive = NULL;
...@@ -20864,7 +20864,7 @@ ffelexHandler ...@@ -20864,7 +20864,7 @@ ffelexHandler
ffestb_decl_gentype (ffelexToken t) ffestb_decl_gentype (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffestb_local_.decl.type = ffestb_args.decl.type; ffestb_local_.decl.type = ffestb_args.decl.type;
ffestb_local_.decl.recursive = NULL; ffestb_local_.decl.recursive = NULL;
...@@ -21010,7 +21010,7 @@ ffelexHandler ...@@ -21010,7 +21010,7 @@ ffelexHandler
ffestb_decl_recursive (ffelexToken t) ffestb_decl_recursive (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexToken nt; ffelexToken nt;
ffelexToken ot; ffelexToken ot;
ffelexHandler next; ffelexHandler next;
...@@ -22668,7 +22668,7 @@ ffestb_decl_entsp_2_ (ffelexToken t) ...@@ -22668,7 +22668,7 @@ ffestb_decl_entsp_2_ (ffelexToken t)
{ {
ffelexToken nt; ffelexToken nt;
bool asterisk_ok; bool asterisk_ok;
unsigned char *p; unsigned const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (t)) switch (ffelex_token_type (t))
...@@ -23095,7 +23095,7 @@ ffestb_decl_entsp_8_ (ffelexToken t) ...@@ -23095,7 +23095,7 @@ ffestb_decl_entsp_8_ (ffelexToken t)
static ffelexHandler static ffelexHandler
ffestb_decl_func_ (ffelexToken t) ffestb_decl_func_ (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
ffelex_set_names (FALSE); ffelex_set_names (FALSE);
...@@ -23573,7 +23573,7 @@ ffelexHandler ...@@ -23573,7 +23573,7 @@ ffelexHandler
ffestb_V003 (ffelexToken t) ffestb_V003 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
char *p; const char *p;
ffelexToken nt; ffelexToken nt;
ffelexHandler next; ffelexHandler next;
...@@ -23889,7 +23889,7 @@ bad: /* :::::::::::::::::::: */ ...@@ -23889,7 +23889,7 @@ bad: /* :::::::::::::::::::: */
ffelexHandler ffelexHandler
ffestb_V016 (ffelexToken t) ffestb_V016 (ffelexToken t)
{ {
char *p; const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -24157,7 +24157,7 @@ ffestb_V0166_ (ffelexToken t) ...@@ -24157,7 +24157,7 @@ ffestb_V0166_ (ffelexToken t)
ffelexHandler ffelexHandler
ffestb_V027 (ffelexToken t) ffestb_V027 (ffelexToken t)
{ {
unsigned char *p; unsigned const char *p;
ffeTokenLength i; ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0])) switch (ffelex_token_type (ffesta_tokens[0]))
...@@ -24337,7 +24337,7 @@ ffelexHandler ...@@ -24337,7 +24337,7 @@ ffelexHandler
ffestb_decl_R539 (ffelexToken t) ffestb_decl_R539 (ffelexToken t)
{ {
ffeTokenLength i; ffeTokenLength i;
unsigned char *p; unsigned const char *p;
ffelexToken nt; ffelexToken nt;
ffestrSecond kw; ffestrSecond kw;
......
gcc/f/stb.h
...@@ -50,7 +50,7 @@ struct _ffestb_args_ ...@@ -50,7 +50,7 @@ struct _ffestb_args_
{ {
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of "ENTRY/FUNCTION/SUBROUTINE". */ ffeTokenLength len; /* Length of "ENTRY/FUNCTION/SUBROUTINE". */
bool is_subr; /* TRUE if SUBROUTINE or if ENTRY within bool is_subr; /* TRUE if SUBROUTINE or if ENTRY within
SUBROUTINE. */ SUBROUTINE. */
...@@ -58,7 +58,7 @@ struct _ffestb_args_ ...@@ -58,7 +58,7 @@ struct _ffestb_args_
dummy; dummy;
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of ffeTokenLength len; /* Length of
"BACKSPACE/ENDFILE/REWIND/UNLOCK". */ "BACKSPACE/ENDFILE/REWIND/UNLOCK". */
} }
...@@ -82,7 +82,7 @@ struct _ffestb_args_ ...@@ -82,7 +82,7 @@ struct _ffestb_args_
#if FFESTR_F90 #if FFESTR_F90
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of "ALLOCATE/DEALLOCATE". */ ffeTokenLength len; /* Length of "ALLOCATE/DEALLOCATE". */
ffeexprContext ctx; /* Either ALLOCATE or DEALLOCATE. */ ffeexprContext ctx; /* Either ALLOCATE or DEALLOCATE. */
} }
...@@ -90,7 +90,7 @@ struct _ffestb_args_ ...@@ -90,7 +90,7 @@ struct _ffestb_args_
#endif #endif
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of ffeTokenLength len; /* Length of
"EXTERNAL/INTENT/INTRINSIC/OPTIONAL/PUBLIC/ "EXTERNAL/INTENT/INTRINSIC/OPTIONAL/PUBLIC/
PRIVATE". */ PRIVATE". */
...@@ -99,7 +99,7 @@ struct _ffestb_args_ ...@@ -99,7 +99,7 @@ struct _ffestb_args_
#if FFESTR_VXT #if FFESTR_VXT
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of "ENCODE/DECODE". */ ffeTokenLength len; /* Length of "ENCODE/DECODE". */
} }
vxtcode; vxtcode;
...@@ -107,14 +107,14 @@ struct _ffestb_args_ ...@@ -107,14 +107,14 @@ struct _ffestb_args_
#if FFESTR_F90 #if FFESTR_F90
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of "ALLOCATABLE/POINTER/TARGET". */ ffeTokenLength len; /* Length of "ALLOCATABLE/POINTER/TARGET". */
} }
dimlist; dimlist;
#endif #endif
struct struct
{ {
char *badname; const char *badname;
ffeTokenLength len; /* Length of "DIMENSION/VIRTUAL". */ ffeTokenLength len; /* Length of "DIMENSION/VIRTUAL". */
} }
R524; R524;
......
gcc/f/stc.c
...@@ -339,14 +339,14 @@ static void ffestc_shriek_where_ (bool ok); ...@@ -339,14 +339,14 @@ static void ffestc_shriek_where_ (bool ok);
#if FFESTR_F90 #if FFESTR_F90
static void ffestc_shriek_wherethen_ (bool ok); static void ffestc_shriek_wherethen_ (bool ok);
#endif #endif
static int ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec, static int ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec,
char *whine); const char *whine);
static ffestvFormat ffestc_subr_format_ (ffestpFile *spec); static ffestvFormat ffestc_subr_format_ (ffestpFile *spec);
static bool ffestc_subr_is_branch_ (ffestpFile *spec); static bool ffestc_subr_is_branch_ (ffestpFile *spec);
static bool ffestc_subr_is_format_ (ffestpFile *spec); static bool ffestc_subr_is_format_ (ffestpFile *spec);
static bool ffestc_subr_is_present_ (char *name, ffestpFile *spec); static bool ffestc_subr_is_present_ (const char *name, ffestpFile *spec);
static int ffestc_subr_speccmp_ (char *string, ffestpFile *spec, static int ffestc_subr_speccmp_ (const char *string, ffestpFile *spec,
char **target, int *length); const char **target, int *length);
static ffestvUnit ffestc_subr_unit_ (ffestpFile *spec); static ffestvUnit ffestc_subr_unit_ (ffestpFile *spec);
static void ffestc_try_shriek_do_ (void); static void ffestc_try_shriek_do_ (void);
...@@ -5044,14 +5044,14 @@ ffestc_shriek_wherethen_ (bool ok) ...@@ -5044,14 +5044,14 @@ ffestc_shriek_wherethen_ (bool ok)
using "etc" as the pick-one-of-these string. */ using "etc" as the pick-one-of-these string. */
static int static int
ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec, char *whine) ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec, const char *whine)
{ {
int lowest_tested; int lowest_tested;
int highest_tested; int highest_tested;
int halfway; int halfway;
int offset; int offset;
int c; int c;
char *str; const char *str;
int len; int len;
if (size == 0) if (size == 0)
...@@ -5186,7 +5186,7 @@ ffestc_subr_is_format_ (ffestpFile *spec) ...@@ -5186,7 +5186,7 @@ ffestc_subr_is_format_ (ffestpFile *spec)
ffestc_subr_is_present_("SPECIFIER",&specifier); */ ffestc_subr_is_present_("SPECIFIER",&specifier); */
static bool static bool
ffestc_subr_is_present_ (char *name, ffestpFile *spec) ffestc_subr_is_present_ (const char *name, ffestpFile *spec)
{ {
if (spec->kw_or_val_present) if (spec->kw_or_val_present)
{ {
...@@ -5219,7 +5219,7 @@ ffestc_subr_is_present_ (char *name, ffestpFile *spec) ...@@ -5219,7 +5219,7 @@ ffestc_subr_is_present_ (char *name, ffestpFile *spec)
0 if 2 is returned, the length of the constant string value otherwise. */ 0 if 2 is returned, the length of the constant string value otherwise. */
static int static int
ffestc_subr_speccmp_ (char *string, ffestpFile *spec, char **target, ffestc_subr_speccmp_ (const char *string, ffestpFile *spec, const char **target,
int *length) int *length)
{ {
ffebldConstant c; ffebldConstant c;
...@@ -10198,7 +10198,7 @@ ffestc_R904 () ...@@ -10198,7 +10198,7 @@ ffestc_R904 ()
{ {
int i; int i;
int expect_file; int expect_file;
char *status_strs[] const char *status_strs[]
= =
{ {
"New", "New",
...@@ -10207,7 +10207,7 @@ ffestc_R904 () ...@@ -10207,7 +10207,7 @@ ffestc_R904 ()
"Scratch", "Scratch",
"Unknown" "Unknown"
}; };
char *access_strs[] const char *access_strs[]
= =
{ {
"Append", "Append",
...@@ -10215,20 +10215,20 @@ ffestc_R904 () ...@@ -10215,20 +10215,20 @@ ffestc_R904 ()
"Keyed", "Keyed",
"Sequential" "Sequential"
}; };
char *blank_strs[] const char *blank_strs[]
= =
{ {
"Null", "Null",
"Zero" "Zero"
}; };
char *carriagecontrol_strs[] const char *carriagecontrol_strs[]
= =
{ {
"Fortran", "Fortran",
"List", "List",
"None" "None"
}; };
char *dispose_strs[] const char *dispose_strs[]
= =
{ {
"Delete", "Delete",
...@@ -10239,41 +10239,41 @@ ffestc_R904 () ...@@ -10239,41 +10239,41 @@ ffestc_R904 ()
"Submit", "Submit",
"Submit/Delete" "Submit/Delete"
}; };
char *form_strs[] const char *form_strs[]
= =
{ {
"Formatted", "Formatted",
"Unformatted" "Unformatted"
}; };
char *organization_strs[] const char *organization_strs[]
= =
{ {
"Indexed", "Indexed",
"Relative", "Relative",
"Sequential" "Sequential"
}; };
char *position_strs[] const char *position_strs[]
= =
{ {
"Append", "Append",
"AsIs", "AsIs",
"Rewind" "Rewind"
}; };
char *action_strs[] const char *action_strs[]
= =
{ {
"Read", "Read",
"ReadWrite", "ReadWrite",
"Write" "Write"
}; };
char *delim_strs[] const char *delim_strs[]
= =
{ {
"Apostrophe", "Apostrophe",
"None", "None",
"Quote" "Quote"
}; };
char *recordtype_strs[] const char *recordtype_strs[]
= =
{ {
"Fixed", "Fixed",
...@@ -10283,7 +10283,7 @@ ffestc_R904 () ...@@ -10283,7 +10283,7 @@ ffestc_R904 ()
"Stream_LF", "Stream_LF",
"Variable" "Variable"
}; };
char *pad_strs[] const char *pad_strs[]
= =
{ {
"No", "No",
...@@ -10453,7 +10453,7 @@ ffestc_R904 () ...@@ -10453,7 +10453,7 @@ ffestc_R904 ()
void void
ffestc_R907 () ffestc_R907 ()
{ {
char *status_strs[] const char *status_strs[]
= =
{ {
"Delete", "Delete",
......
gcc/f/std.c
...@@ -526,25 +526,25 @@ static void ffestd_subr_f90_ (void); ...@@ -526,25 +526,25 @@ static void ffestd_subr_f90_ (void);
static void ffestd_subr_labels_ (bool unexpected); static void ffestd_subr_labels_ (bool unexpected);
static void ffestd_R1001dump_ (ffests s, ffesttFormatList list); static void ffestd_R1001dump_ (ffests s, ffesttFormatList list);
static void ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f, static void ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f,
char *string); const char *string);
static void ffestd_R1001error_ (ffesttFormatList f); static void ffestd_R1001error_ (ffesttFormatList f);
static void ffestd_R1001rtexpr_ (ffests s, ffesttFormatList f, ffebld expr); static void ffestd_R1001rtexpr_ (ffests s, ffesttFormatList f, ffebld expr);
...@@ -4487,7 +4487,7 @@ ffestd_R1001dump_ (ffests s, ffesttFormatList list) ...@@ -4487,7 +4487,7 @@ ffestd_R1001dump_ (ffests s, ffesttFormatList list)
The format is dumped with form [r]X[w]. */ The format is dumped with form [r]X[w]. */
static void static void
ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (!f->u.R1005.R1007_or_R1008.present); assert (!f->u.R1005.R1007_or_R1008.present);
assert (!f->u.R1005.R1009.present); assert (!f->u.R1005.R1009.present);
...@@ -4519,7 +4519,7 @@ ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, char *string) ...@@ -4519,7 +4519,7 @@ ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form [r]Xw. */ The format is dumped with form [r]Xw. */
static void static void
ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (!f->u.R1005.R1007_or_R1008.present); assert (!f->u.R1005.R1007_or_R1008.present);
assert (!f->u.R1005.R1009.present); assert (!f->u.R1005.R1009.present);
...@@ -4549,7 +4549,7 @@ ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, char *string) ...@@ -4549,7 +4549,7 @@ ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form [r]Xw[.m]. */ The format is dumped with form [r]Xw[.m]. */
static void static void
ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (!f->u.R1005.R1009.present); assert (!f->u.R1005.R1009.present);
assert (f->u.R1005.R1006.present); assert (f->u.R1005.R1006.present);
...@@ -4588,7 +4588,7 @@ ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, char *string) ...@@ -4588,7 +4588,7 @@ ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form [r]Xw.d. */ The format is dumped with form [r]Xw.d. */
static void static void
ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (!f->u.R1005.R1009.present); assert (!f->u.R1005.R1009.present);
assert (f->u.R1005.R1007_or_R1008.present); assert (f->u.R1005.R1007_or_R1008.present);
...@@ -4624,7 +4624,7 @@ ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, char *string) ...@@ -4624,7 +4624,7 @@ ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form [r]Xw.d[Ee]. */ The format is dumped with form [r]Xw.d[Ee]. */
static void static void
ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (f->u.R1005.R1007_or_R1008.present); assert (f->u.R1005.R1007_or_R1008.present);
assert (f->u.R1005.R1006.present); assert (f->u.R1005.R1006.present);
...@@ -4668,7 +4668,7 @@ ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, char *string) ...@@ -4668,7 +4668,7 @@ ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form X. */ The format is dumped with form X. */
static void static void
ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (!f->u.R1010.val.present); assert (!f->u.R1010.val.present);
...@@ -4683,7 +4683,7 @@ ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, char *string) ...@@ -4683,7 +4683,7 @@ ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form [r]X. */ The format is dumped with form [r]X. */
static void static void
ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, const char *string)
{ {
if (f->u.R1010.val.present) if (f->u.R1010.val.present)
{ {
...@@ -4704,7 +4704,7 @@ ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, char *string) ...@@ -4704,7 +4704,7 @@ ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form nX. */ The format is dumped with form nX. */
static void static void
ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (f->u.R1010.val.present); assert (f->u.R1010.val.present);
...@@ -4724,7 +4724,7 @@ ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, char *string) ...@@ -4724,7 +4724,7 @@ ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form kX. Note that k is signed. */ The format is dumped with form kX. Note that k is signed. */
static void static void
ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (f->u.R1010.val.present); assert (f->u.R1010.val.present);
...@@ -4744,7 +4744,7 @@ ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, char *string) ...@@ -4744,7 +4744,7 @@ ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, char *string)
The format is dumped with form Xn. */ The format is dumped with form Xn. */
static void static void
ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f, char *string) ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f, const char *string)
{ {
assert (f->u.R1010.val.present); assert (f->u.R1010.val.present);
......
gcc/f/ste.c
...@@ -113,7 +113,7 @@ static void ffeste_begin_iterdo_ (ffestw block, tree *tvar, tree *tincr, ...@@ -113,7 +113,7 @@ static void ffeste_begin_iterdo_ (ffestw block, tree *tvar, tree *tincr,
ffebld start, ffelexToken start_token, ffebld start, ffelexToken start_token,
ffebld end, ffelexToken end_token, ffebld end, ffelexToken end_token,
ffebld incr, ffelexToken incr_token, ffebld incr, ffelexToken incr_token,
char *msg); const char *msg);
static void ffeste_end_iterdo_ (tree tvar, tree tincr, tree itersvar); static void ffeste_end_iterdo_ (tree tvar, tree tincr, tree itersvar);
static void ffeste_io_call_ (tree call, bool do_check); static void ffeste_io_call_ (tree call, bool do_check);
static tree ffeste_io_dofio_ (ffebld expr); static tree ffeste_io_dofio_ (ffebld expr);
...@@ -141,7 +141,7 @@ static tree ffeste_io_olist_ (bool have_err, ffebld unit_expr, ...@@ -141,7 +141,7 @@ static tree ffeste_io_olist_ (bool have_err, ffebld unit_expr,
ffestpFile *blank_spec); ffestpFile *blank_spec);
static void ffeste_subr_beru_ (ffestpBeruStmt *info, ffecomGfrt rt); static void ffeste_subr_beru_ (ffestpBeruStmt *info, ffecomGfrt rt);
#elif FFECOM_targetCURRENT == FFECOM_targetFFE #elif FFECOM_targetCURRENT == FFECOM_targetFFE
static void ffeste_subr_file_ (char *kw, ffestpFile *spec); static void ffeste_subr_file_ (const char *kw, ffestpFile *spec);
#else #else
#error #error
#endif #endif
...@@ -302,7 +302,7 @@ ffeste_begin_iterdo_ (ffestw block, tree *xtvar, tree *xtincr, ...@@ -302,7 +302,7 @@ ffeste_begin_iterdo_ (ffestw block, tree *xtvar, tree *xtincr,
ffebld start, ffelexToken start_token, ffebld start, ffelexToken start_token,
ffebld end, ffelexToken end_token, ffebld end, ffelexToken end_token,
ffebld incr, ffelexToken incr_token, ffebld incr, ffelexToken incr_token,
char *msg) const char *msg)
{ {
tree tvar; tree tvar;
tree expr; tree expr;
...@@ -1942,7 +1942,7 @@ ffeste_io_olist_ (bool have_err, ...@@ -1942,7 +1942,7 @@ ffeste_io_olist_ (bool have_err,
#if FFECOM_targetCURRENT == FFECOM_targetFFE #if FFECOM_targetCURRENT == FFECOM_targetFFE
static void static void
ffeste_subr_file_ (char *kw, ffestpFile *spec) ffeste_subr_file_ (const char *kw, ffestpFile *spec)
{ {
if (!spec->kw_or_val_present) if (!spec->kw_or_val_present)
return; return;
......
gcc/f/sts.c
...@@ -104,7 +104,7 @@ ffests_new (ffests s, mallocPool pool, ffestsLength size) ...@@ -104,7 +104,7 @@ ffests_new (ffests s, mallocPool pool, ffestsLength size)
Like printf, but into a string. */ Like printf, but into a string. */
void void
ffests_printf_1D (ffests s, char *ctl, long arg1) ffests_printf_1D (ffests s, const char *ctl, long arg1)
{ {
char quickbuf[40]; char quickbuf[40];
char *buff; char *buff;
...@@ -133,7 +133,7 @@ ffests_printf_1D (ffests s, char *ctl, long arg1) ...@@ -133,7 +133,7 @@ ffests_printf_1D (ffests s, char *ctl, long arg1)
Like printf, but into a string. */ Like printf, but into a string. */
void void
ffests_printf_1U (ffests s, char *ctl, unsigned long arg1) ffests_printf_1U (ffests s, const char *ctl, unsigned long arg1)
{ {
char quickbuf[40]; char quickbuf[40];
char *buff; char *buff;
...@@ -162,7 +162,7 @@ ffests_printf_1U (ffests s, char *ctl, unsigned long arg1) ...@@ -162,7 +162,7 @@ ffests_printf_1U (ffests s, char *ctl, unsigned long arg1)
Like printf, but into a string. */ Like printf, but into a string. */
void void
ffests_printf_1s (ffests s, char *ctl, char *arg1) ffests_printf_1s (ffests s, const char *ctl, const char *arg1)
{ {
char quickbuf[40]; char quickbuf[40];
char *buff; char *buff;
...@@ -190,7 +190,7 @@ ffests_printf_1s (ffests s, char *ctl, char *arg1) ...@@ -190,7 +190,7 @@ ffests_printf_1s (ffests s, char *ctl, char *arg1)
Like printf, but into a string. */ Like printf, but into a string. */
void void
ffests_printf_2Us (ffests s, char *ctl, unsigned long arg1, char *arg2) ffests_printf_2Us (ffests s, const char *ctl, unsigned long arg1, const char *arg2)
{ {
char quickbuf[60]; char quickbuf[60];
char *buff; char *buff;
...@@ -228,7 +228,7 @@ ffests_putc (ffests s, char c) ...@@ -228,7 +228,7 @@ ffests_putc (ffests s, char c)
ffests_puts(s,"append me"); */ ffests_puts(s,"append me"); */
void void
ffests_puts (ffests s, char *string) ffests_puts (ffests s, const char *string)
{ {
ffests_puttext (s, string, strlen (string)); ffests_puttext (s, string, strlen (string));
} }
...@@ -242,7 +242,7 @@ ffests_puts (ffests s, char *string) ...@@ -242,7 +242,7 @@ ffests_puts (ffests s, char *string)
and may be 0. */ and may be 0. */
void void
ffests_puttext (ffests s, char *text, ffestsLength length) ffests_puttext (ffests s, const char *text, ffestsLength length)
{ {
ffestsLength newlen; ffestsLength newlen;
ffestsLength newmax; ffestsLength newmax;
......
gcc/f/sts.h
...@@ -60,14 +60,14 @@ struct _ffests_ ...@@ -60,14 +60,14 @@ struct _ffests_
void ffests_kill (ffests s); void ffests_kill (ffests s);
void ffests_new (ffests s, mallocPool pool, ffestsLength size); void ffests_new (ffests s, mallocPool pool, ffestsLength size);
void ffests_printf_1D (ffests s, char *ctl, long arg1); void ffests_printf_1D (ffests s, const char *ctl, long arg1);
void ffests_printf_1U (ffests s, char *ctl, unsigned long arg1); void ffests_printf_1U (ffests s, const char *ctl, unsigned long arg1);
void ffests_printf_1s (ffests s, char *ctl, char *arg1); void ffests_printf_1s (ffests s, const char *ctl, const char *arg1);
void ffests_printf_2Us (ffests s, char *ctl, unsigned long arg1, void ffests_printf_2Us (ffests s, const char *ctl, unsigned long arg1,
char *arg2); const char *arg2);
void ffests_putc (ffests s, char c); void ffests_putc (ffests s, char c);
void ffests_puts (ffests s, char *string); void ffests_puts (ffests s, const char *string);
void ffests_puttext (ffests s, char *text, ffestsLength length); void ffests_puttext (ffests s, const char *text, ffestsLength length);
/* Define macros. */ /* Define macros. */
......
gcc/f/stt.c
...@@ -598,7 +598,7 @@ ffestt_exprlist_create () ...@@ -598,7 +598,7 @@ ffestt_exprlist_create ()
at a time. */ at a time. */
void void
ffestt_exprlist_drive (ffesttExprList list, void (*fn) ()) ffestt_exprlist_drive (ffesttExprList list, void (*fn) (ffebld, ffelexToken))
{ {
ffesttExprList next; ffesttExprList next;
...@@ -837,7 +837,7 @@ ffestt_implist_create () ...@@ -837,7 +837,7 @@ ffestt_implist_create ()
The token pairs in the list are passed to the function one pair at a time. */ The token pairs in the list are passed to the function one pair at a time. */
void void
ffestt_implist_drive (ffesttImpList list, void (*fn) ()) ffestt_implist_drive (ffesttImpList list, void (*fn) (ffelexToken, ffelexToken))
{ {
ffesttImpList next; ffesttImpList next;
...@@ -951,7 +951,7 @@ ffestt_tokenlist_create () ...@@ -951,7 +951,7 @@ ffestt_tokenlist_create ()
The tokens in the list are passed to the given function. */ The tokens in the list are passed to the given function. */
void void
ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) ()) ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) (ffelexToken))
{ {
ffesttTokenItem ti; ffesttTokenItem ti;
......
gcc/f/stt.h
...@@ -181,7 +181,7 @@ void ffestt_dimlist_kill (ffesttDimList list); ...@@ -181,7 +181,7 @@ void ffestt_dimlist_kill (ffesttDimList list);
ffestpDimtype ffestt_dimlist_type (ffesttDimList dims, bool is_ugly_assumed); ffestpDimtype ffestt_dimlist_type (ffesttDimList dims, bool is_ugly_assumed);
void ffestt_exprlist_append (ffesttExprList list, ffebld expr, ffelexToken t); void ffestt_exprlist_append (ffesttExprList list, ffebld expr, ffelexToken t);
ffesttExprList ffestt_exprlist_create (void); ffesttExprList ffestt_exprlist_create (void);
void ffestt_exprlist_drive (ffesttExprList list, void (*fn) ()); void ffestt_exprlist_drive (ffesttExprList list, void (*fn) (ffebld, ffelexToken));
#if FFECOM_targetCURRENT == FFECOM_targetFFE #if FFECOM_targetCURRENT == FFECOM_targetFFE
void ffestt_exprlist_dump (ffesttExprList list); void ffestt_exprlist_dump (ffesttExprList list);
#endif #endif
...@@ -196,14 +196,14 @@ void ffestt_formatlist_kill (ffesttFormatList list); ...@@ -196,14 +196,14 @@ void ffestt_formatlist_kill (ffesttFormatList list);
void ffestt_implist_append (ffesttImpList list, ffelexToken first, void ffestt_implist_append (ffesttImpList list, ffelexToken first,
ffelexToken last); ffelexToken last);
ffesttImpList ffestt_implist_create (void); ffesttImpList ffestt_implist_create (void);
void ffestt_implist_drive (ffesttImpList list, void (*fn) ()); void ffestt_implist_drive (ffesttImpList list, void (*fn) (ffelexToken, ffelexToken));
#if FFECOM_targetCURRENT == FFECOM_targetFFE #if FFECOM_targetCURRENT == FFECOM_targetFFE
void ffestt_implist_dump (ffesttImpList list); void ffestt_implist_dump (ffesttImpList list);
#endif #endif
void ffestt_implist_kill (ffesttImpList list); void ffestt_implist_kill (ffesttImpList list);
void ffestt_tokenlist_append (ffesttTokenList list, ffelexToken t); void ffestt_tokenlist_append (ffesttTokenList list, ffelexToken t);
ffesttTokenList ffestt_tokenlist_create (void); ffesttTokenList ffestt_tokenlist_create (void);
void ffestt_tokenlist_drive (ffesttTokenList list, void (*fn) ()); void ffestt_tokenlist_drive (ffesttTokenList list, void (*fn) (ffelexToken));
#if FFECOM_targetCURRENT == FFECOM_targetFFE #if FFECOM_targetCURRENT == FFECOM_targetFFE
void ffestt_tokenlist_dump (ffesttTokenList list); void ffestt_tokenlist_dump (ffesttTokenList list);
#endif #endif
......
gcc/f/stu.c
...@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
static void ffestu_list_exec_transition_ (ffebld list); static void ffestu_list_exec_transition_ (ffebld list);
static bool ffestu_symter_end_transition_ (ffebld expr); static bool ffestu_symter_end_transition_ (ffebld expr);
static bool ffestu_symter_exec_transition_ (ffebld expr); static bool ffestu_symter_exec_transition_ (ffebld expr);
static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (), static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol),
ffebld list); ffebld list);
/* Internal macros. */ /* Internal macros. */
...@@ -122,7 +122,7 @@ ffestu_sym_end_transition (ffesymbol s) ...@@ -122,7 +122,7 @@ ffestu_sym_end_transition (ffesymbol s)
ffeinfoBasictype bt; ffeinfoBasictype bt;
ffeinfoKindtype kt; ffeinfoKindtype kt;
bool array; bool array;
char *name = NULL; const char *name = NULL;
ffestu_dummies_transition_ (ffecom_sym_end_transition, ffestu_dummies_transition_ (ffecom_sym_end_transition,
ffesymbol_dummyargs (s)); ffesymbol_dummyargs (s));
...@@ -1114,7 +1114,7 @@ tail: /* :::::::::::::::::::: */ ...@@ -1114,7 +1114,7 @@ tail: /* :::::::::::::::::::: */
Make sure we don't get called recursively ourselves! */ Make sure we don't get called recursively ourselves! */
static bool static bool
ffestu_dummies_transition_ (ffesymbol (*symfunc) (), ffebld list) ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol), ffebld list)
{ {
static bool in_progress = FALSE; static bool in_progress = FALSE;
ffebld item; ffebld item;
......
gcc/f/stw.c
...@@ -74,7 +74,7 @@ ffestw ffestw_stack_top_ = NULL; ...@@ -74,7 +74,7 @@ ffestw ffestw_stack_top_ = NULL;
ffestw_display_state(); */ ffestw_display_state(); */
void void
ffestw_display_state () ffestw_display_state (void)
{ {
assert (ffestw_stack_top_ != NULL); assert (ffestw_stack_top_ != NULL);
...@@ -320,7 +320,7 @@ ffestw_kill (ffestw b) ...@@ -320,7 +320,7 @@ ffestw_kill (ffestw b)
b = ffestw_new(); */ b = ffestw_new(); */
ffestw ffestw
ffestw_new () ffestw_new (void)
{ {
ffestw b; ffestw b;
...@@ -335,7 +335,7 @@ ffestw_new () ...@@ -335,7 +335,7 @@ ffestw_new ()
ffestw_pop(); */ ffestw_pop(); */
ffestw ffestw
ffestw_pop () ffestw_pop (void)
{ {
ffestw b; ffestw b;
ffestw oldb = ffestw_stack_top_; ffestw oldb = ffestw_stack_top_;
......
gcc/f/stw.h
...@@ -118,11 +118,11 @@ extern ffestw ffestw_stack_top_; ...@@ -118,11 +118,11 @@ extern ffestw ffestw_stack_top_;
/* Declare functions with prototypes. */ /* Declare functions with prototypes. */
void ffestw_display_state (); void ffestw_display_state (void);
void ffestw_kill (ffestw block); void ffestw_kill (ffestw block);
void ffestw_init_0 (void); void ffestw_init_0 (void);
ffestw ffestw_new (); ffestw ffestw_new (void);
ffestw ffestw_pop (); ffestw ffestw_pop (void);
ffestw ffestw_push (ffestw block); ffestw ffestw_push (ffestw block);
ffestw ffestw_update (ffestw block); ffestw ffestw_update (ffestw block);
ffestw ffestw_use (ffestw block); ffestw ffestw_use (ffestw block);
......
gcc/f/version.c
char *ffe_version_string = "0.5.24-19990313"; const char *ffe_version_string = "0.5.24-19990313";
gcc/f/version.h
#ifndef _H_f_version #ifndef _H_f_version
#define _H_f_version #define _H_f_version
extern char *ffe_version_string; extern const char *ffe_version_string;
#endif #endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment