diff options
author | obrien <obrien@FreeBSD.org> | 1999-10-16 06:09:09 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 1999-10-16 06:09:09 +0000 |
commit | cae8fa8120c70195f34a2456f18c4c848a2d3e0c (patch) | |
tree | f7d3a3ab9c32694206552e767626366f016f2062 /contrib/gcc/f/bad.c | |
parent | 84656b55b6e25e30322dc903a05de53706361d3d (diff) | |
download | FreeBSD-src-cae8fa8120c70195f34a2456f18c4c848a2d3e0c.zip FreeBSD-src-cae8fa8120c70195f34a2456f18c4c848a2d3e0c.tar.gz |
Virgin import of the GCC 2.95.1 compilers
Diffstat (limited to 'contrib/gcc/f/bad.c')
-rw-r--r-- | contrib/gcc/f/bad.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/contrib/gcc/f/bad.c b/contrib/gcc/f/bad.c index a2a4832..704fa12 100644 --- a/contrib/gcc/f/bad.c +++ b/contrib/gcc/f/bad.c @@ -1,6 +1,6 @@ /* bad.c -- Implementation File (module.c template V1.0) Copyright (C) 1995 Free Software Foundation, Inc. - Contributed by James Craig Burley (burley@gnu.org). + Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -62,7 +62,7 @@ bool ffebad_is_inhibited_ = FALSE; struct _ffebad_message_ { ffebadSeverity severity; - char *message; + const char *message; }; /* Static objects accessed by functions in this module. */ @@ -89,11 +89,11 @@ static struct } ffebad_here_[FFEBAD_MAX_]; -static char *ffebad_string_[FFEBAD_MAX_]; +static const char *ffebad_string_[FFEBAD_MAX_]; static ffebadIndex ffebad_order_[FFEBAD_MAX_]; static ffebad ffebad_errnum_; static ffebadSeverity ffebad_severity_; -static char *ffebad_message_; +static const char *ffebad_message_; static unsigned char ffebad_index_; static ffebadIndex ffebad_places_; static bool ffebad_is_temp_inhibited_; /* Effective setting of @@ -102,7 +102,7 @@ static bool ffebad_is_temp_inhibited_; /* Effective setting of /* Static functions (internal). */ -static int ffebad_bufputs_ (char buf[], int bufi, char *s); +static int ffebad_bufputs_ (char buf[], int bufi, const char *s); /* Internal macros. */ @@ -115,7 +115,7 @@ static int ffebad_bufputs_ (char buf[], int bufi, char *s); static int -ffebad_bufputs_ (char buf[], int bufi, char *s) +ffebad_bufputs_ (char buf[], int bufi, const char *s) { for (; *s != '\0'; ++s) bufi = ffebad_bufputc_ (buf, bufi, *s); @@ -161,7 +161,7 @@ ffebad_severity (ffebad errnum) bool ffebad_start_ (bool lex_override, ffebad errnum, ffebadSeverity sev, - char *message) + const char *message) { unsigned char i; @@ -321,7 +321,7 @@ ffebad_here (ffebadIndex index, ffewhereLine line, ffewhereColumn col) /* Establish string for next index (always in order) of message - ffebad_string(char *string); + ffebad_string(const char *string); Call ffebad_start to establish the message, ffebad_here and ffebad_string to send run-time data to it as necessary, then ffebad_finish when through @@ -330,7 +330,7 @@ ffebad_here (ffebadIndex index, ffewhereLine line, ffewhereColumn col) the argument passed in until then. */ void -ffebad_string (char *string) +ffebad_string (const char *string) { if (ffebad_is_temp_inhibited_) return; @@ -351,7 +351,7 @@ void ffebad_finish () { #define MAX_SPACES 132 - static char *spaces + static const char *spaces = "...>\ \040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\ \040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\ @@ -372,9 +372,9 @@ ffebad_finish () ffebadIndex bi; unsigned short i; char pointer; - char c; - char *s; - char *fn; + unsigned char c; + unsigned const char *s; + const char *fn; static char buf[1024]; int bufi; int index; |