From 7faa536c660443a1c6cd29b1edb80e0f6279217f Mon Sep 17 00:00:00 2001 From: ghazi Date: Mon, 29 Nov 1999 02:50:04 +0000 Subject: * com.c (ffecom_file_, ffecom_file, file_buf, ffecom_open_include_): Constify a char*. (ffecom_possible_partial_overlap_): Mark parameter `expr2' with ATTRIBUTE_UNUSED. (ffecom_init_0): Use a fully prototyped cast in call to bsearch. (lang_print_error_function): ANSI-fy. * com.h (ffecom_file): Constify a char*. * fini.c (main): Call return, not exit. * g77spec.c (lang_specific_driver): Use non-const *in_argv in assignment. * intrin.c (ffeintrin_cmp_name_): Don't needlessly cast away const-ness. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@30693 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/f/intrin.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/f/intrin.c') diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c index d59458c60fe..fa316212d60 100644 --- a/gcc/f/intrin.c +++ b/gcc/f/intrin.c @@ -1165,9 +1165,9 @@ ffeintrin_check_any_ (ffebld arglist) static int ffeintrin_cmp_name_ (const void *name, const void *intrinsic) { - const char *uc = ((struct _ffeintrin_name_ *) intrinsic)->name_uc; - const char *lc = ((struct _ffeintrin_name_ *) intrinsic)->name_lc; - const char *ic = ((struct _ffeintrin_name_ *) intrinsic)->name_ic; + const char *uc = ((const struct _ffeintrin_name_ *) intrinsic)->name_uc; + const char *lc = ((const struct _ffeintrin_name_ *) intrinsic)->name_lc; + const char *ic = ((const struct _ffeintrin_name_ *) intrinsic)->name_ic; return ffesrc_strcmp_2c (ffe_case_intrin (), name, uc, lc, ic); } -- cgit v1.2.1