This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
egcs/gcc/ch patches for IBM OS/390 OpenEdition
- To: egcs-patches at cygnus dot com
- Subject: egcs/gcc/ch patches for IBM OS/390 OpenEdition
- From: David Pitts <dpitts at pullman dot cozx dot com>
- Date: Tue, 10 Nov 1998 12:42:50 -0700 (MST)
Thse patches provide IBM OS/390 OpenEdition (USS) support and native
compilation.
o Change ASCII compares to allow for EBCDIC collating sequence. There
are other character between 'I' & 'J' and 'R' & 'S' in EBCDIC.
1998-11-09 Dave Pitts dpitts@cozx.com
* lex.c (yylex): Use isdigit, islower & toupper.
(readstring): Likewise.
(convert_integer): Use isalnum, islower, toupper, isdigit & isxdigit.
(convert_integer): Added HOST_EBCDIC usage to control conversion.
(convert_bitstring): Use isdigit, islower & toupper.
(check_newline): Use isupper, tolower & islower.
*** c-common.c.orig Wed Sep 23 15:05:43 1998
--- c-common.c Wed Sep 23 15:07:56 1998
*************** check_format_info (info, params)
*** 1506,1517 ****
{
/* See if we have a number followed by a dollar sign. If we do,
it is an operand number, so set PARAMS to that operand. */
! if (*format_chars >= '0' && *format_chars <= '9')
{
char *p = format_chars;
! while (*p >= '0' && *p++ <= '9')
! ;
if (*p == '$')
{
--- 1506,1517 ----
{
/* See if we have a number followed by a dollar sign. If we do,
it is an operand number, so set PARAMS to that operand. */
! if (ISDIGIT(*format_chars))
{
char *p = format_chars;
! while (ISDIGIT(*p))
! p++;
if (*p == '$')
{
*************** check_format_info (info, params)
*** 1708,1714 ****
++fci;
if (fci->format_chars == 0)
{
! if (format_char >= 040 && format_char < 0177)
warning ("unknown conversion type character `%c' in format",
format_char);
else
--- 1708,1714 ----
++fci;
if (fci->format_chars == 0)
{
! if (ISGRAPH(format_char))
warning ("unknown conversion type character `%c' in format",
format_char);
else
*** c-gperf.h.orig Wed Sep 23 15:51:25 1998
--- c-gperf.h Wed Sep 23 15:53:07 1998
*************** hash (str, len)
*** 20,38 ****
{
static unsigned char asso_values[] =
{
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 25, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 145, 145, 145, 145, 145,
! 145, 145, 145, 145, 145, 1, 145, 46, 8, 15,
! 61, 6, 36, 48, 3, 5, 145, 18, 63, 25,
! 29, 76, 1, 145, 13, 2, 1, 51, 37, 9,
9, 1, 3, 145, 145, 145, 145, 145,
};
register int hval = len;
--- 20,124 ----
{
static unsigned char asso_values[] =
{
! #ifdef HOST_EBCDIC
! /*00 NU SH SX EX PF HT LC DL */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*08 SM VT FF CR SO SI */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*10 DE D1 D2 TM RS NL BS IL */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*18 CN EM CC C1 FS GS RS US */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*20 DS SS FS BP LF EB EC */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*28 SM C2 EQ AK BL */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*30 SY PN RS UC ET */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*38 C3 D4 NK SU */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*40 SP */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*48 CENT . < ( + | */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*50 & */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*58 ! $ * ) ; ^ */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*60 - / */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*68 | , % _ > ? */
! 145, 145, 145, 145, 145, 1, 145, 145,
! /*70 */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*78 ` : # @ ' = " */
! 145, 145, 145, 145, 25, 145, 145, 145,
! /*80 a b c d e f g */
! 145, 46, 8, 15, 61, 6, 36, 48,
! /*88 h i { */
! 3, 5, 145, 145, 145, 145, 145, 145,
! /*90 j k l m n o p */
! 145, 145, 18, 63, 25, 29, 76, 1,
! /*98 q r } */
! 145, 13, 145, 145, 145, 145, 145, 145,
! /*A0 ~ s t u v w x */
! 145, 145, 2, 1, 51, 37, 9, 9,
! /*A8 y z [ */
! 1, 3, 145, 145, 145, 145, 145, 145,
! /*B0 */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*B8 ] */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*C0 { A B C D E F G */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*C8 H I */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*D0 } J K L M N O P */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*D8 Q R */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*E0 \ S T U V W X */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*E8 Y Z */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*F0 0 1 2 3 4 5 6 7 */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*F8 8 9 */
! 145, 145, 145, 145, 145, 145, 145, 145,
! #else /* ASCII */
! /*00 NL SH SX EX ET NQ AK BL */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*08 BS HT LF VT FF CR SO SI */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*10 DL D1 D2 D3 D4 NK SN EB */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*18 CN EM SB EC FS GS RS US */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*20 SP ! " # $ % & ' */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*28 ( ) * + , - . / */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*30 0 1 2 3 4 5 6 7 */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*38 8 9 : ; < = > ? */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*40 @ A B C D E F G */
! 25, 145, 145, 145, 145, 145, 145, 145,
! /*48 H I J K L M N O */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*50 P Q R S T U V W */
! 145, 145, 145, 145, 145, 145, 145, 145,
! /*58 X Y Z [ \ ] ^ _ */
! 145, 145, 145, 145, 145, 145, 145, 1,
! /*60 ` a b c d e f g */
! 145, 46, 8, 15, 61, 6, 36, 48,
! /*68 h i j k l m n o */
! 3, 5, 145, 18, 63, 25, 29, 76,
! /*70 p q r s t u v w */
! 1, 145, 13, 2, 1, 51, 37, 9,
! /*78 x y z { | } ~ DL */
9, 1, 3, 145, 145, 145, 145, 145,
+ #endif
};
register int hval = len;
*** c-lex.c.orig Wed Sep 23 15:18:36 1998
--- c-lex.c Thu Sep 24 16:43:05 1998
*************** check_newline ()
*** 530,536 ****
it and ignore it; otherwise, ignore the line, with an error
if the word isn't `pragma', `ident', `define', or `undef'. */
! if ((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))
{
if (c == 'p')
{
--- 530,536 ----
it and ignore it; otherwise, ignore the line, with an error
if the word isn't `pragma', `ident', `define', or `undef'. */
! if (ISALPHA(c))
{
if (c == 'p')
{
*************** readescape (ignore_ptr)
*** 1007,1013 ****
case 'E':
if (pedantic)
pedwarn ("non-ANSI-standard escape sequence, `\\%c'", c);
! return 033;
case '?':
return c;
--- 1007,1013 ----
case 'E':
if (pedantic)
pedwarn ("non-ANSI-standard escape sequence, `\\%c'", c);
! return TARGET_ESC;
case '?':
return c;
*************** readescape (ignore_ptr)
*** 1022,1028 ****
pedwarn ("non-ANSI escape sequence `\\%c'", c);
return c;
}
! if (c >= 040 && c < 0177)
pedwarn ("unknown escape sequence `\\%c'", c);
else
pedwarn ("unknown escape sequence: `\\' followed by char code 0x%x", c);
--- 1022,1028 ----
pedwarn ("non-ANSI escape sequence `\\%c'", c);
return c;
}
! if (ISGRAPH(c))
pedwarn ("unknown escape sequence `\\%c'", c);
else
pedwarn ("unknown escape sequence: `\\' followed by char code 0x%x", c);
*************** yyerror (string)
*** 1047,1053 ****
strcat (buf, " before string constant");
else if (token_buffer[0] == '\'')
strcat (buf, " before character constant");
! else if (token_buffer[0] < 040 || (unsigned char) token_buffer[0] >= 0177)
sprintf (buf + strlen (buf), " before character 0%o",
(unsigned char) token_buffer[0]);
else
--- 1047,1053 ----
strcat (buf, " before string constant");
else if (token_buffer[0] == '\'')
strcat (buf, " before character constant");
! else if (!ISGRAPH(token_buffer[0]))
sprintf (buf + strlen (buf), " before character 0%o",
(unsigned char) token_buffer[0]);
else
*** calls.c.orig Wed Sep 23 14:09:25 1998
--- calls.c Wed Sep 23 14:19:21 1998
*************** void
*** 2300,2306 ****
emit_library_call VPROTO((rtx orgfun, int no_queue, enum machine_mode outmode,
int nargs, ...))
{
! #ifndef __STDC__
rtx orgfun;
int no_queue;
enum machine_mode outmode;
--- 2300,2306 ----
emit_library_call VPROTO((rtx orgfun, int no_queue, enum machine_mode outmode,
int nargs, ...))
{
! #ifndef USE_STDARGS
rtx orgfun;
int no_queue;
enum machine_mode outmode;
*************** emit_library_call VPROTO((rtx orgfun, in
*** 2347,2353 ****
VA_START (p, nargs);
! #ifndef __STDC__
orgfun = va_arg (p, rtx);
no_queue = va_arg (p, int);
outmode = va_arg (p, enum machine_mode);
--- 2347,2353 ----
VA_START (p, nargs);
! #ifndef USE_STDARGS
orgfun = va_arg (p, rtx);
no_queue = va_arg (p, int);
outmode = va_arg (p, enum machine_mode);
*************** rtx
*** 2791,2797 ****
emit_library_call_value VPROTO((rtx orgfun, rtx value, int no_queue,
enum machine_mode outmode, int nargs, ...))
{
! #ifndef __STDC__
rtx orgfun;
rtx value;
int no_queue;
--- 2791,2797 ----
emit_library_call_value VPROTO((rtx orgfun, rtx value, int no_queue,
enum machine_mode outmode, int nargs, ...))
{
! #ifndef USE_STDARGS
rtx orgfun;
rtx value;
int no_queue;
*************** emit_library_call_value VPROTO((rtx orgf
*** 2846,2852 ****
VA_START (p, nargs);
! #ifndef __STDC__
orgfun = va_arg (p, rtx);
value = va_arg (p, rtx);
no_queue = va_arg (p, int);
--- 2846,2852 ----
VA_START (p, nargs);
! #ifndef USE_STDARGS
orgfun = va_arg (p, rtx);
value = va_arg (p, rtx);
no_queue = va_arg (p, int);
*** cccp.c.orig Wed Sep 23 14:20:55 1998
--- cccp.c Wed Sep 23 14:22:56 1998
*************** my_strerror (errnum)
*** 9289,9302 ****
void
error VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 9289,9302 ----
void
error VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*************** error_from_errno (name)
*** 9362,9375 ****
void
warning VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 9362,9375 ----
void
warning VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*************** vwarning (msg, args)
*** 9411,9417 ****
static void
error_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef __STDC__
int line;
char * msg;
#endif
--- 9411,9417 ----
static void
error_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef USE_STDARGS
int line;
char * msg;
#endif
*************** error_with_line VPROTO ((int line, char
*** 9419,9425 ****
VA_START (args, msg);
! #ifndef __STDC__
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
--- 9419,9425 ----
VA_START (args, msg);
! #ifndef USE_STDARGS
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
*************** verror_with_line (line, msg, args)
*** 9457,9463 ****
static void
warning_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef __STDC__
int line;
char * msg;
#endif
--- 9457,9463 ----
static void
warning_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef USE_STDARGS
int line;
char * msg;
#endif
*************** warning_with_line VPROTO ((int line, cha
*** 9465,9471 ****
VA_START (args, msg);
! #ifndef __STDC__
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
--- 9465,9471 ----
VA_START (args, msg);
! #ifndef USE_STDARGS
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
*************** vwarning_with_line (line, msg, args)
*** 9511,9524 ****
void
pedwarn VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 9511,9524 ----
void
pedwarn VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*************** pedwarn VPROTO ((char * msg, ...))
*** 9532,9538 ****
void
pedwarn_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef __STDC__
int line;
char * msg;
#endif
--- 9532,9538 ----
void
pedwarn_with_line VPROTO ((int line, char * msg, ...))
{
! #ifndef USE_STDARGS
int line;
char * msg;
#endif
*************** pedwarn_with_line VPROTO ((int line, cha
*** 9540,9546 ****
VA_START (args, msg);
! #ifndef __STDC__
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
--- 9540,9546 ----
VA_START (args, msg);
! #ifndef USE_STDARGS
line = va_arg (args, int);
msg = va_arg (args, char *);
#endif
*************** static void
*** 9559,9565 ****
pedwarn_with_file_and_line VPROTO ((char *file, size_t file_len, int line,
char * msg, ...))
{
! #ifndef __STDC__
char *file;
size_t file_len;
int line;
--- 9559,9565 ----
pedwarn_with_file_and_line VPROTO ((char *file, size_t file_len, int line,
char * msg, ...))
{
! #ifndef USE_STDARGS
char *file;
size_t file_len;
int line;
*************** pedwarn_with_file_and_line VPROTO ((char
*** 9579,9585 ****
fprintf (stderr, "warning: ");
VA_START (args, msg);
! #ifndef __STDC__
file = va_arg (args, char *);
file_len = va_arg (args, size_t);
line = va_arg (args, int);
--- 9579,9585 ----
fprintf (stderr, "warning: ");
VA_START (args, msg);
! #ifndef USE_STDARGS
file = va_arg (args, char *);
file_len = va_arg (args, size_t);
line = va_arg (args, int);
*************** deps_output (string, spacer)
*** 10599,10605 ****
static void
fatal VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
--- 10599,10605 ----
static void
fatal VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
*************** fatal VPROTO ((char * msg, ...))
*** 10607,10613 ****
fprintf (stderr, "%s: ", progname);
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 10607,10613 ----
fprintf (stderr, "%s: ", progname);
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*** cexp.y.orig Wed Sep 23 15:27:14 1998
--- cexp.y Wed Sep 23 15:36:00 1998
*************** parse_escape (string_ptr, result_mask)
*** 896,902 ****
case 'E':
if (pedantic)
pedwarn ("non-ANSI-standard escape sequence, `\\%c'", c);
! return 033;
case 'f':
return TARGET_FF;
case 'n':
--- 896,902 ----
case 'E':
if (pedantic)
pedwarn ("non-ANSI-standard escape sequence, `\\%c'", c);
! return TARGET_ESC;
case 'f':
return TARGET_FF;
case 'n':
*************** initialize_random_junk ()
*** 1142,1151 ****
* refer to them.
*/
for (i = 'a'; i <= 'z'; i++) {
! ++is_idchar[i - 'a' + 'A'];
! ++is_idchar[i];
! ++is_idstart[i - 'a' + 'A'];
! ++is_idstart[i];
}
for (i = '0'; i <= '9'; i++)
++is_idchar[i];
--- 1142,1153 ----
* refer to them.
*/
for (i = 'a'; i <= 'z'; i++) {
! if (ISLOWER(i)) {
! ++is_idchar[toupper(i)];
! ++is_idchar[i];
! ++is_idstart[toupper(i)];
! ++is_idstart[i];
! }
}
for (i = '0'; i <= '9'; i++)
++is_idchar[i];
*************** initialize_random_junk ()
*** 1165,1178 ****
void
error VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 1167,1180 ----
void
error VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*************** error VPROTO ((char * msg, ...))
*** 1185,1198 ****
void
pedwarn VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 1187,1200 ----
void
pedwarn VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*************** pedwarn VPROTO ((char * msg, ...))
*** 1205,1218 ****
void
warning VPROTO ((char * msg, ...))
{
! #ifndef __STDC__
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef __STDC__
msg = va_arg (args, char *);
#endif
--- 1207,1220 ----
void
warning VPROTO ((char * msg, ...))
{
! #ifndef USE_STDARGS
char * msg;
#endif
va_list args;
VA_START (args, msg);
! #ifndef USE_STDARGS
msg = va_arg (args, char *);
#endif
*** combine.c.orig Wed Sep 23 14:56:08 1998
--- combine.c Wed Sep 23 14:56:15 1998
*************** gen_lowpart_for_combine (mode, x)
*** 9221,9227 ****
static rtx
gen_rtx_combine VPROTO((enum rtx_code code, enum machine_mode mode, ...))
{
! #ifndef __STDC__
enum rtx_code code;
enum machine_mode mode;
#endif
--- 9221,9227 ----
static rtx
gen_rtx_combine VPROTO((enum rtx_code code, enum machine_mode mode, ...))
{
! #ifndef USE_STDARGS
enum rtx_code code;
enum machine_mode mode;
#endif
*************** gen_rtx_combine VPROTO((enum rtx_code co
*** 9235,9241 ****
VA_START (p, mode);
! #ifndef __STDC__
code = va_arg (p, enum rtx_code);
mode = va_arg (p, enum machine_mode);
#endif
--- 9235,9241 ----
VA_START (p, mode);
! #ifndef USE_STDARGS
code = va_arg (p, enum rtx_code);
mode = va_arg (p, enum machine_mode);
#endif
*** config.sub.orig Wed Sep 23 14:03:14 1998
--- config.sub Wed Sep 23 14:07:04 1998
*************** case $basic_machine in
*** 365,371 ****
;;
i370-ibm* | ibm*)
basic_machine=i370-ibm
- os=-mvs
;;
# I'm not sure what "Sysv32" means. Should this be sysv3.2?
i[34567]86v32)
--- 365,370 ----
*************** case $os in
*** 724,730 ****
| -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\
| -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \
| -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
! | -aos* \
| -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
| -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
| -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \
--- 723,729 ----
| -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\
| -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \
| -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
! | -aos* | -opened* \
| -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
| -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
| -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \
*************** case $os in
*** 750,755 ****
--- 749,757 ----
-osf*)
os=-osf
;;
+ -opened*)
+ os=-openedition
+ ;;
-utek*)
os=-bsd
;;
*************** case $basic_machine in
*** 952,957 ****
--- 954,962 ----
;;
-genix*)
vendor=ns
+ ;;
+ -opened*)
+ vendor=ibm
;;
-mvs*)
vendor=ibm
*** configure.in.orig Wed Sep 23 15:44:01 1998
--- configure.in Wed Sep 23 15:47:35 1998
*************** changequote([,])dnl
*** 858,864 ****
--- 858,875 ----
use_collect2=yes
fixincludes=Makefile.in
;;
+ i370-*-opened*)
+ xm_file=i370/xm-oe.h
+ tm_file=i370/oe.h
+ xmake_file=i370/x-oe
+ tmake_file=i370/t-oe
+ fixincludes=Makefile.in # Headers are wierd, don't mess with
+ ;;
i370-*-mvs*)
+ xm_file=i370/xm-mvs.h
+ tm_file=i370/mvs.h
+ tmake_file=i370/t-mvs
+ fixincludes=Makefile.in # Headers are wierd, don't mess with
;;
changequote(,)dnl
i[34567]86-ibm-aix*) # IBM PS/2 running AIX
*** configure.orig Wed Sep 23 15:56:19 1998
--- configure Wed Sep 23 15:57:01 1998
*************** for machine in $build $host $target; do
*** 2832,2838 ****
--- 2832,2849 ----
use_collect2=yes
fixincludes=Makefile.in
;;
+ i370-*-opened*)
+ xm_file=i370/xm-oe.h
+ tm_file=i370/oe.h
+ xmake_file=i370/x-oe
+ tmake_file=i370/t-oe
+ fixincludes=Makefile.in # Headers are wierd, don't mess with
+ ;;
i370-*-mvs*)
+ xm_file=i370/xm-mvs.h
+ tm_file=i370/mvs.h
+ tmake_file=i370/t-mvs
+ fixincludes=Makefile.in # Headers are wierd, don't mess with
;;
i[34567]86-ibm-aix*) # IBM PS/2 running AIX
if test x$gas = xyes
*** cpperror.c.orig Thu Sep 24 09:55:24 1998
--- cpperror.c Thu Sep 24 09:55:44 1998
*************** v_cpp_message (pfile, is_error, msg, ap)
*** 112,118 ****
void
cpp_message VPROTO ((cpp_reader *pfile, int is_error, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
int is_error;
const char *msg;
--- 112,118 ----
void
cpp_message VPROTO ((cpp_reader *pfile, int is_error, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
int is_error;
const char *msg;
*************** cpp_message VPROTO ((cpp_reader *pfile,
*** 121,127 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
is_error = va_arg (ap, int);
msg = va_arg (ap, const char *);
--- 121,127 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
is_error = va_arg (ap, int);
msg = va_arg (ap, const char *);
*************** cpp_message VPROTO ((cpp_reader *pfile,
*** 140,146 ****
void
cpp_fatal VPROTO ((cpp_reader *pfile, const char *str, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
const char *str;
#endif
--- 140,146 ----
void
cpp_fatal VPROTO ((cpp_reader *pfile, const char *str, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
const char *str;
#endif
*************** cpp_fatal VPROTO ((cpp_reader *pfile, co
*** 148,154 ****
VA_START (ap, str);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
str = va_arg (ap, const char *);
#endif
--- 148,154 ----
VA_START (ap, str);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
str = va_arg (ap, const char *);
#endif
*** cppexp.c.orig Wed Sep 23 15:38:22 1998
--- cppexp.c Wed Sep 23 15:38:44 1998
*************** cpp_parse_escape (pfile, string_ptr)
*** 500,506 ****
case 'E':
if (CPP_PEDANTIC (pfile))
cpp_pedwarn (pfile, "non-ANSI-standard escape sequence, `\\%c'", c);
! return 033;
case 'f':
return TARGET_FF;
case 'n':
--- 500,506 ----
case 'E':
if (CPP_PEDANTIC (pfile))
cpp_pedwarn (pfile, "non-ANSI-standard escape sequence, `\\%c'", c);
! return TARGET_ESC;
case 'f':
return TARGET_FF;
case 'n':
*** cpplib.c.orig Wed Sep 23 13:05:34 1998
--- cpplib.c Thu Sep 24 09:56:36 1998
*************** initialize_char_syntax (opts)
*** 426,435 ****
* refer to them.
*/
for (i = 'a'; i <= 'z'; i++) {
! is_idchar[i - 'a' + 'A'] = 1;
! is_idchar[i] = 1;
! is_idstart[i - 'a' + 'A'] = 1;
! is_idstart[i] = 1;
}
for (i = '0'; i <= '9'; i++)
is_idchar[i] = 1;
--- 426,437 ----
* refer to them.
*/
for (i = 'a'; i <= 'z'; i++) {
! if (ISLOWER(i)) { /* remember there are holes in EBCDIC */
! is_idchar[toupper(i)] = 1;
! is_idchar[i] = 1;
! is_idstart[toupper(i)] = 1;
! is_idstart[i] = 1;
! }
}
for (i = '0'; i <= '9'; i++)
is_idchar[i] = 1;
*************** v_cpp_error (pfile, msg, ap)
*** 7444,7450 ****
void
cpp_error VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
const char *msg;
#endif
--- 7446,7452 ----
void
cpp_error VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
const char *msg;
#endif
*************** cpp_error VPROTO ((cpp_reader * pfile, c
*** 7452,7458 ****
VA_START(ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
--- 7454,7460 ----
VA_START(ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
*************** v_cpp_warning (pfile, msg, ap)
*** 7483,7489 ****
void
cpp_warning VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
const char *msg;
#endif
--- 7485,7491 ----
void
cpp_warning VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
const char *msg;
#endif
*************** cpp_warning VPROTO ((cpp_reader * pfile,
*** 7491,7497 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
--- 7493,7499 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
*************** cpp_warning VPROTO ((cpp_reader * pfile,
*** 7505,7511 ****
void
cpp_pedwarn VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
const char *msg;
#endif
--- 7507,7513 ----
void
cpp_pedwarn VPROTO ((cpp_reader * pfile, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
const char *msg;
#endif
*************** cpp_pedwarn VPROTO ((cpp_reader * pfile,
*** 7513,7519 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
--- 7515,7521 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
msg = va_arg (ap, const char *);
#endif
*************** v_cpp_error_with_line (pfile, line, colu
*** 7546,7552 ****
void
cpp_error_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
int line;
int column;
--- 7548,7554 ----
void
cpp_error_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
int line;
int column;
*************** cpp_error_with_line VPROTO ((cpp_reader
*** 7556,7562 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
--- 7558,7564 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
*************** v_cpp_warning_with_line (pfile, line, co
*** 7597,7603 ****
static void
cpp_warning_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
int line;
int column;
--- 7599,7605 ----
static void
cpp_warning_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
int line;
int column;
*************** cpp_warning_with_line VPROTO ((cpp_reade
*** 7607,7613 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
--- 7609,7615 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
*************** cpp_warning_with_line VPROTO ((cpp_reade
*** 7622,7628 ****
void
cpp_pedwarn_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
int line;
int column;
--- 7624,7630 ----
void
cpp_pedwarn_with_line VPROTO ((cpp_reader * pfile, int line, int column, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
int line;
int column;
*************** cpp_pedwarn_with_line VPROTO ((cpp_reade
*** 7632,7638 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
--- 7634,7640 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
line = va_arg (ap, int);
column = va_arg (ap, int);
*************** cpp_pedwarn_with_line VPROTO ((cpp_reade
*** 7652,7658 ****
void
cpp_pedwarn_with_file_and_line VPROTO ((cpp_reader *pfile, char *file, int line, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
char *file;
int line;
--- 7654,7660 ----
void
cpp_pedwarn_with_file_and_line VPROTO ((cpp_reader *pfile, char *file, int line, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
char *file;
int line;
*************** cpp_pedwarn_with_file_and_line VPROTO ((
*** 7662,7668 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
file = va_arg (ap, char *);
line = va_arg (ap, int);
--- 7664,7670 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
file = va_arg (ap, char *);
line = va_arg (ap, int);
*** defaults.h.orig Wed Sep 23 15:15:09 1998
--- defaults.h Wed Sep 23 15:16:28 1998
*************** do { fprintf (FILE, "\t%s\t", ASM_LONG);
*** 74,80 ****
register int c = p[i]; \
if (c == '\"' || c == '\\') \
putc ('\\', asm_out_file); \
! if (c >= ' ' && c < 0177) \
putc (c, asm_out_file); \
else \
{ \
--- 74,80 ----
register int c = p[i]; \
if (c == '\"' || c == '\\') \
putc ('\\', asm_out_file); \
! if (ISPRINT(c)) \
putc (c, asm_out_file); \
else \
{ \
*** doprint.c.orig Thu Sep 24 09:56:48 1998
--- doprint.c Thu Sep 24 09:57:05 1998
*************** checkit VPROTO ((const char* format, ...
*** 200,212 ****
va_list args;
int result;
! #ifndef __STDC__
char *format;
#endif
VA_START (args, format);
! #ifndef __STDC__
format = va_arg (args, char *);
#endif
--- 200,212 ----
va_list args;
int result;
! #ifndef USE_STDARGS
char *format;
#endif
VA_START (args, format);
! #ifndef USE_STDARGS
format = va_arg (args, char *);
#endif
*** dwarf2out.c.orig Wed Sep 23 15:10:43 1998
--- dwarf2out.c Wed Sep 23 15:12:07 1998
*************** static void dwarf2out_stack_adjust PROTO
*** 482,488 ****
register int c = p[i]; \
if (c == '\"' || c == '\\') \
putc ('\\', FILE); \
! if (c >= ' ' && c < 0177) \
putc (c, FILE); \
else \
{ \
--- 482,488 ----
register int c = p[i]; \
if (c == '\"' || c == '\\') \
putc ('\\', FILE); \
! if (ISGRAPH(c)) \
putc (c, FILE); \
else \
{ \
*** emit-rtl.c.orig Wed Sep 23 14:50:15 1998
--- emit-rtl.c Wed Sep 23 14:50:49 1998
*************** gen_rtx_MEM (mode, addr)
*** 341,347 ****
rtx
gen_rtx VPROTO((enum rtx_code code, enum machine_mode mode, ...))
{
! #ifndef __STDC__
enum rtx_code code;
enum machine_mode mode;
#endif
--- 341,347 ----
rtx
gen_rtx VPROTO((enum rtx_code code, enum machine_mode mode, ...))
{
! #ifndef USE_STDARGS
enum rtx_code code;
enum machine_mode mode;
#endif
*************** gen_rtx VPROTO((enum rtx_code code, enum
*** 352,358 ****
VA_START (p, mode);
! #ifndef __STDC__
code = va_arg (p, enum rtx_code);
mode = va_arg (p, enum machine_mode);
#endif
--- 352,358 ----
VA_START (p, mode);
! #ifndef USE_STDARGS
code = va_arg (p, enum rtx_code);
mode = va_arg (p, enum machine_mode);
#endif
*************** gen_rtx VPROTO((enum rtx_code code, enum
*** 424,430 ****
rtvec
gen_rtvec VPROTO((int n, ...))
{
! #ifndef __STDC__
int n;
#endif
int i;
--- 424,430 ----
rtvec
gen_rtvec VPROTO((int n, ...))
{
! #ifndef USE_STDARGS
int n;
#endif
int i;
*************** gen_rtvec VPROTO((int n, ...))
*** 433,439 ****
VA_START (p, n);
! #ifndef __STDC__
n = va_arg (p, int);
#endif
--- 433,439 ----
VA_START (p, n);
! #ifndef USE_STDARGS
n = va_arg (p, int);
#endif
*** final.c.orig Wed Sep 23 15:58:58 1998
--- final.c Wed Sep 23 16:07:05 1998
*************** output_asm_insn (template, operands)
*** 3411,3418 ****
Letters `acln' are implemented directly.
Other letters are passed to `output_operand' so that
the PRINT_OPERAND macro can define them. */
! else if ((*p >= 'a' && *p <= 'z')
! || (*p >= 'A' && *p <= 'Z'))
{
int letter = *p++;
c = atoi (p);
--- 3411,3417 ----
Letters `acln' are implemented directly.
Other letters are passed to `output_operand' so that
the PRINT_OPERAND macro can define them. */
! else if (ISALPHA(*p))
{
int letter = *p++;
c = atoi (p);
*************** output_addr_const (file, x)
*** 3659,3665 ****
void
asm_fprintf VPROTO((FILE *file, char *p, ...))
{
! #ifndef __STDC__
FILE *file;
char *p;
#endif
--- 3658,3664 ----
void
asm_fprintf VPROTO((FILE *file, char *p, ...))
{
! #ifndef USE_STDARGS
FILE *file;
char *p;
#endif
*************** asm_fprintf VPROTO((FILE *file, char *p,
*** 3669,3675 ****
VA_START (argptr, p);
! #ifndef __STDC__
file = va_arg (argptr, FILE *);
p = va_arg (argptr, char *);
#endif
--- 3668,3674 ----
VA_START (argptr, p);
! #ifndef USE_STDARGS
file = va_arg (argptr, FILE *);
p = va_arg (argptr, char *);
#endif
*** fix-header.c.orig Thu Sep 24 09:57:39 1998
--- fix-header.c Thu Sep 24 09:58:07 1998
*************** v_cpp_message (pfile, is_error, msg, ap)
*** 1367,1373 ****
void
cpp_message VPROTO ((cpp_reader *pfile, int is_error, const char *msg, ...))
{
! #ifndef __STDC__
cpp_reader *pfile;
int is_error;
const char *msg;
--- 1367,1373 ----
void
cpp_message VPROTO ((cpp_reader *pfile, int is_error, const char *msg, ...))
{
! #ifndef USE_STDARGS
cpp_reader *pfile;
int is_error;
const char *msg;
*************** cpp_message VPROTO ((cpp_reader *pfile,
*** 1376,1382 ****
VA_START (ap, msg);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
is_error = va_arg (ap, const int);
msg = va_arg (ap, const char *);
--- 1376,1382 ----
VA_START (ap, msg);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
is_error = va_arg (ap, const int);
msg = va_arg (ap, const char *);
*************** v_fatal (str, ap)
*** 1401,1414 ****
void
fatal VPROTO ((const char *str, ...))
{
! #ifndef __STDC__
const char *str;
#endif
va_list ap;
VA_START(ap, str);
! #ifndef __STDC__
str = va_arg (ap, const char *);
#endif
--- 1401,1414 ----
void
fatal VPROTO ((const char *str, ...))
{
! #ifndef USE_STDARGS
const char *str;
#endif
va_list ap;
VA_START(ap, str);
! #ifndef USE_STDARGS
str = va_arg (ap, const char *);
#endif
*************** fatal VPROTO ((const char *str, ...))
*** 1419,1425 ****
void
cpp_fatal VPROTO ((cpp_reader * pfile, const char *str, ...))
{
! #ifndef __STDC__
cpp_reader * pfile;
const char *str;
#endif
--- 1419,1425 ----
void
cpp_fatal VPROTO ((cpp_reader * pfile, const char *str, ...))
{
! #ifndef USE_STDARGS
cpp_reader * pfile;
const char *str;
#endif
*************** cpp_fatal VPROTO ((cpp_reader * pfile, c
*** 1427,1433 ****
VA_START(ap, str);
! #ifndef __STDC__
pfile = va_arg (ap, cpp_reader *);
str = va_arg (ap, const char *);
#endif
--- 1427,1433 ----
VA_START(ap, str);
! #ifndef USE_STDARGS
pfile = va_arg (ap, cpp_reader *);
str = va_arg (ap, const char *);
#endif
*** gansidecl.h.orig Wed Sep 23 14:40:21 1998
--- gansidecl.h Wed Sep 23 14:45:24 1998
*************** Boston, MA 02111-1307, USA. */
*** 35,44 ****
#endif
#ifndef VPROTO
! #ifdef __STDC__
#define PVPROTO(ARGS) ARGS
#define VPROTO(ARGS) ARGS
#define VA_START(va_list,var) va_start(va_list,var)
#else
#define PVPROTO(ARGS) ()
#define VPROTO(ARGS) (va_alist) va_dcl
--- 35,47 ----
#endif
#ifndef VPROTO
! #if defined(__STDC__) || defined(USE_STDARGS)
#define PVPROTO(ARGS) ARGS
#define VPROTO(ARGS) ARGS
#define VA_START(va_list,var) va_start(va_list,var)
+ #ifndef USE_STDARGS
+ #define USE_STDARGS 1
+ #endif
#else
#define PVPROTO(ARGS) ()
#define VPROTO(ARGS) (va_alist) va_dcl
*** gcc.c.orig Wed Sep 23 14:24:37 1998
--- gcc.c Wed Sep 23 14:25:58 1998
*************** concat VPROTO((char *first, ...))
*** 5252,5265 ****
register char *end;
register char *arg;
va_list args;
! #ifndef __STDC__
char *first;
#endif
/* First compute the size of the result and get sufficient memory. */
VA_START (args, first);
! #ifndef __STDC__
first = va_arg (args, char *);
#endif
--- 5252,5265 ----
register char *end;
register char *arg;
va_list args;
! #ifndef USE_STDARGS
char *first;
#endif
/* First compute the size of the result and get sufficient memory. */
VA_START (args, first);
! #ifndef USE_STDARGS
first = va_arg (args, char *);
#endif
*************** concat VPROTO((char *first, ...))
*** 5278,5284 ****
/* Now copy the individual pieces to the result string. */
VA_START (args, first);
! #ifndef __STDC__
first = va_arg (args, char *);
#endif
--- 5278,5284 ----
/* Now copy the individual pieces to the result string. */
VA_START (args, first);
! #ifndef USE_STDARGS
first = va_arg (args, char *);
#endif
*************** fancy_abort ()
*** 5354,5367 ****
static void
fatal VPROTO((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 5354,5367 ----
static void
fatal VPROTO((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*************** fatal VPROTO((char *format, ...))
*** 5376,5389 ****
static void
error VPROTO((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 5376,5389 ----
static void
error VPROTO((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genattr.c.orig Wed Sep 23 13:34:01 1998
--- genattr.c Thu Sep 24 09:58:44 1998
*************** write_upcase (str)
*** 90,97 ****
char *str;
{
for (; *str; str++)
! if (*str >= 'a' && *str <= 'z')
! printf ("%c", *str - 'a' + 'A');
else
printf ("%c", *str);
}
--- 90,97 ----
char *str;
{
for (; *str; str++)
! if (ISLOWER(*str))
! printf ("%c", toupper(*str));
else
printf ("%c", *str);
}
*************** gen_attr (attr)
*** 121,128 ****
write_upcase (XSTR (attr, 0));
printf ("_");
}
! else if (*p >= 'a' && *p <= 'z')
! printf ("%c", *p - 'a' + 'A');
else
printf ("%c", *p);
}
--- 121,128 ----
write_upcase (XSTR (attr, 0));
printf ("_");
}
! else if (ISLOWER(*p))
! printf ("%c", toupper(*p));
else
printf ("%c", *p);
}
*************** xrealloc (ptr, size)
*** 223,236 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 223,236 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genattrtab.c.orig Wed Sep 23 14:56:33 1998
--- genattrtab.c Wed Sep 23 15:00:05 1998
*************** attr_hash_add_string (hashcode, str)
*** 537,543 ****
static rtx
attr_rtx VPROTO((enum rtx_code code, ...))
{
! #ifndef __STDC__
enum rtx_code code;
#endif
va_list p;
--- 537,543 ----
static rtx
attr_rtx VPROTO((enum rtx_code code, ...))
{
! #ifndef USE_STDARGS
enum rtx_code code;
#endif
va_list p;
*************** attr_rtx VPROTO((enum rtx_code code, ...
*** 550,556 ****
VA_START (p, code);
! #ifndef __STDC__
code = va_arg (p, enum rtx_code);
#endif
--- 550,556 ----
VA_START (p, code);
! #ifndef USE_STDARGS
code = va_arg (p, enum rtx_code);
#endif
*************** attr_rtx VPROTO((enum rtx_code code, ...
*** 734,740 ****
static char *
attr_printf VPROTO((register int len, char *fmt, ...))
{
! #ifndef __STDC__
register int len;
char *fmt;
#endif
--- 734,740 ----
static char *
attr_printf VPROTO((register int len, char *fmt, ...))
{
! #ifndef USE_STDARGS
register int len;
char *fmt;
#endif
*************** attr_printf VPROTO((register int len, ch
*** 743,749 ****
VA_START (p, fmt);
! #ifndef __STDC__
len = va_arg (p, int);
fmt = va_arg (p, char *);
#endif
--- 743,749 ----
VA_START (p, fmt);
! #ifndef USE_STDARGS
len = va_arg (p, int);
fmt = va_arg (p, char *);
#endif
*************** convert_const_symbol_ref (exp, attr)
*** 1329,1336 ****
strcat (p, "_");
strcat (p, XSTR (av->value, 0));
for (; *p != '\0'; p++)
! if (*p >= 'a' && *p <= 'z')
! *p -= 'a' - 'A';
value = attr_rtx (SYMBOL_REF, string);
RTX_UNCHANGING_P (value) = 1;
--- 1329,1336 ----
strcat (p, "_");
strcat (p, XSTR (av->value, 0));
for (; *p != '\0'; p++)
! if (ISLOWER(*p))
! *p = toupper(*p);
value = attr_rtx (SYMBOL_REF, string);
RTX_UNCHANGING_P (value) = 1;
*************** evaluate_eq_attr (exp, value, insn_code,
*** 2809,2816 ****
strcat (string, "_");
strcat (string, XSTR (exp, 1));
for (p = string; *p ; p++)
! if (*p >= 'a' && *p <= 'z')
! *p -= 'a' - 'A';
newexp = attr_rtx (EQ, value,
attr_rtx (SYMBOL_REF,
--- 2809,2816 ----
strcat (string, "_");
strcat (string, XSTR (exp, 1));
for (p = string; *p ; p++)
! if (ISLOWER(*p))
! *p = toupper(*p);
newexp = attr_rtx (EQ, value,
attr_rtx (SYMBOL_REF,
*************** write_upcase (str)
*** 5255,5264 ****
char *str;
{
while (*str)
! if (*str < 'a' || *str > 'z')
! printf ("%c", *str++);
else
! printf ("%c", *str++ - 'a' + 'A');
}
static void
--- 5255,5264 ----
char *str;
{
while (*str)
! if (ISLOWER(*str))
! printf ("%c", toupper(*str++));
else
! printf ("%c", *str++);
}
static void
*************** copy_rtx_unchanging (orig)
*** 5816,5829 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 5816,5829 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** gencodes.c.orig Thu Sep 24 09:59:00 1998
--- gencodes.c Thu Sep 24 09:59:17 1998
*************** xrealloc (ptr, size)
*** 81,94 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 81,94 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genconfig.c.orig Thu Sep 24 09:59:31 1998
--- genconfig.c Thu Sep 24 09:59:48 1998
*************** xrealloc (ptr, size)
*** 270,283 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 270,283 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genemit.c.orig Wed Sep 23 13:45:27 1998
--- genemit.c Thu Sep 24 10:00:20 1998
*************** print_code (code)
*** 137,144 ****
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (*p1 >= 'a' && *p1 <= 'z')
! putchar (*p1 + 'A' - 'a');
else
putchar (*p1);
}
--- 137,144 ----
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (ISLOWER(*p1))
! putchar (toupper(*p1));
else
putchar (*p1);
}
*************** output_init_mov_optab ()
*** 661,676 ****
{
printf ("#ifdef HAVE_mov");
for (p = cc_names[i]; *p; p++)
! printf ("%c", *p >= 'A' && *p <= 'Z' ? *p - 'A' + 'a' : *p);
printf ("\n");
printf (" if (HAVE_mov");
for (p = cc_names[i]; *p; p++)
! printf ("%c", *p >= 'A' && *p <= 'Z' ? *p - 'A' + 'a' : *p);
printf (")\n");
printf (" mov_optab->handlers[(int) %smode].insn_code = CODE_FOR_mov",
cc_names[i]);
for (p = cc_names[i]; *p; p++)
! printf ("%c", *p >= 'A' && *p <= 'Z' ? *p - 'A' + 'a' : *p);
printf (";\n#endif\n");
}
--- 661,676 ----
{
printf ("#ifdef HAVE_mov");
for (p = cc_names[i]; *p; p++)
! printf ("%c", ISUPPER(*p) ? tolower(*p) : *p);
printf ("\n");
printf (" if (HAVE_mov");
for (p = cc_names[i]; *p; p++)
! printf ("%c", ISUPPER(*p) ? tolower(*p) : *p);
printf (")\n");
printf (" mov_optab->handlers[(int) %smode].insn_code = CODE_FOR_mov",
cc_names[i]);
for (p = cc_names[i]; *p; p++)
! printf ("%c", ISUPPER(*p) ? tolower(*p) : *p);
printf (";\n#endif\n");
}
*************** xrealloc (ptr, size)
*** 704,717 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 704,717 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genextract.c.orig Wed Sep 23 13:50:50 1998
--- genextract.c Thu Sep 24 10:00:58 1998
*************** print_path (path)
*** 326,334 ****
for (i = len - 1; i >=0 ; i--)
{
! if (path[i] >= 'a' && path[i] <= 'z')
printf ("XVECEXP (");
! else if (path[i] >= '0' && path[i] <= '9')
printf ("XEXP (");
else
abort ();
--- 326,334 ----
for (i = len - 1; i >=0 ; i--)
{
! if (ISLOWER(path[i]))
printf ("XVECEXP (");
! else if (ISDIGIT(path[i]))
printf ("XEXP (");
else
abort ();
*************** print_path (path)
*** 338,346 ****
for (i = 0; i < len; i++)
{
! if (path[i] >= 'a' && path[i] <= 'z')
printf (", 0, %d)", path[i] - 'a');
! else if (path[i] >= '0' && path[i] <= '9')
printf (", %d)", path[i] - '0');
else
abort ();
--- 338,346 ----
for (i = 0; i < len; i++)
{
! if (ISLOWER(path[i]))
printf (", 0, %d)", path[i] - 'a');
! else if (ISDIGIT(path[i]))
printf (", %d)", path[i] - '0');
else
abort ();
*************** xrealloc (ptr, size)
*** 372,385 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 372,385 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genflags.c.orig Thu Sep 24 10:01:35 1998
--- genflags.c Thu Sep 24 10:02:00 1998
*************** xrealloc (ptr, size)
*** 201,214 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 201,214 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genopinit.c.orig Thu Sep 24 10:06:01 1998
--- genopinit.c Thu Sep 24 10:06:17 1998
*************** xrealloc (ptr, size)
*** 306,319 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 306,319 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genoutput.c.orig Thu Sep 24 10:06:37 1998
--- genoutput.c Thu Sep 24 10:06:58 1998
*************** mybcopy (b1, b2, length)
*** 924,937 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 924,937 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*************** fancy_abort ()
*** 954,967 ****
static void
error VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 954,967 ----
static void
error VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genpeep.c.orig Wed Sep 23 13:55:14 1998
--- genpeep.c Thu Sep 24 10:07:23 1998
*************** print_code (code)
*** 377,384 ****
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (*p1 >= 'a' && *p1 <= 'z')
! putchar (*p1 + 'A' - 'a');
else
putchar (*p1);
}
--- 377,384 ----
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (ISLOWER(*p1))
! putchar (toupper(*p1));
else
putchar (*p1);
}
*************** xrealloc (ptr, size)
*** 409,422 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 409,422 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** genrecog.c.orig Wed Sep 23 13:58:49 1998
--- genrecog.c Thu Sep 24 10:07:42 1998
*************** print_code (code)
*** 1495,1502 ****
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (*p1 >= 'a' && *p1 <= 'z')
! putchar (*p1 + 'A' - 'a');
else
putchar (*p1);
}
--- 1495,1502 ----
register char *p1;
for (p1 = GET_RTX_NAME (code); *p1; p1++)
{
! if (ISLOWER(*p1))
! putchar (toupper(*p1));
else
putchar (*p1);
}
*************** change_state (oldpos, newpos, indent)
*** 1616,1622 ****
while (depth < ndepth)
{
! if (newpos[depth] >= 'a' && newpos[depth] <= 'z')
printf ("%sx%d = XVECEXP (x%d, 0, %d);\n",
indents[indent], depth + 1, depth, newpos[depth] - 'a');
else
--- 1616,1622 ----
while (depth < ndepth)
{
! if (ISLOWER(newpos[depth]))
printf ("%sx%d = XVECEXP (x%d, 0, %d);\n",
indents[indent], depth + 1, depth, newpos[depth] - 'a');
else
*************** xmalloc (size)
*** 1684,1697 ****
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef __STDC__
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef __STDC__
format = va_arg (ap, char *);
#endif
--- 1684,1697 ----
static void
fatal VPROTO ((char *format, ...))
{
! #ifndef USE_STDARGS
char *format;
#endif
va_list ap;
VA_START (ap, format);
! #ifndef USE_STDARGS
format = va_arg (ap, char *);
#endif
*** prefix.c.orig Wed Sep 23 14:27:36 1998
--- prefix.c Wed Sep 23 14:28:19 1998
*************** concat VPROTO((char *first, ...))
*** 120,133 ****
register char *end;
register char *arg;
va_list args;
! #ifndef __STDC__
char *first;
#endif
/* First compute the size of the result and get sufficient memory. */
VA_START (args, first);
! #ifndef __STDC__
first = va_arg (args, char *);
#endif
--- 120,133 ----
register char *end;
register char *arg;
va_list args;
! #ifndef USE_STDARGS
char *first;
#endif
/* First compute the size of the result and get sufficient memory. */
VA_START (args, first);
! #ifndef USE_STDARGS
first = va_arg (args, char *);
#endif
*************** concat VPROTO((char *first, ...))
*** 146,152 ****
/* Now copy the individual pieces to the result string. */
VA_START (args, first);
! #ifndef __STDC__
first = va_arg (args, char *);
#endif
--- 146,152 ----
/* Now copy the individual pieces to the result string. */
VA_START (args, first);
! #ifndef USE_STDARGS
first = va_arg (args, char *);
#endif
*** system.h.orig Wed Sep 23 15:28:16 1998
--- system.h Thu Sep 24 10:05:29 1998
***************
*** 7,15 ****
#ifndef __GCC_SYSTEM_H__
#define __GCC_SYSTEM_H__
! /* We must include stdarg.h/varargs.h before stdio.h. */
! #ifdef __STDC__
#include <stdarg.h>
#else
#include <varargs.h>
#endif
--- 7,21 ----
#ifndef __GCC_SYSTEM_H__
#define __GCC_SYSTEM_H__
! /* We must include stdarg.h/varargs.h before stdio.h.
! Note: some compilers need stdarg.h but don't define __STDC__. So,
! Allow it to be forced with USE_STDARGS */
!
! #if defined(__STDC__) || defined(USE_STDARGS)
#include <stdarg.h>
+ #ifndef USE_STDARGS
+ #define USE_STDARGS
+ #endif
#else
#include <varargs.h>
#endif
***************
*** 85,90 ****
--- 91,102 ----
#include <sys/types.h>
#include <errno.h>
+
+ /* Define a default Escape character if not defined,
+ its different for EBCDIC */
+ #ifndef TARGET_ESC
+ #define TARGET_ESC 033
+ #endif
#ifndef errno
extern int errno;
*** toplev.c.orig Wed Sep 23 14:47:04 1998
--- toplev.c Wed Sep 23 14:50:03 1998
*************** v_error_with_file_and_line (file, line,
*** 1634,1640 ****
void
error_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef __STDC__
char *file;
int line;
char *s;
--- 1634,1640 ----
void
error_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef USE_STDARGS
char *file;
int line;
char *s;
*************** error_with_file_and_line VPROTO((char *f
*** 1643,1649 ****
VA_START (ap, s);
! #ifndef __STDC__
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
--- 1643,1649 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
*************** v_error_with_decl (decl, s, ap)
*** 1671,1677 ****
void
error_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef __STDC__
tree decl;
char *s;
#endif
--- 1671,1677 ----
void
error_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef USE_STDARGS
tree decl;
char *s;
#endif
*************** error_with_decl VPROTO((tree decl, char
*** 1679,1685 ****
VA_START (ap, s);
! #ifndef __STDC__
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
--- 1679,1685 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
*************** v_error_for_asm (insn, s, ap)
*** 1710,1716 ****
void
error_for_asm VPROTO((rtx insn, char *s, ...))
{
! #ifndef __STDC__
rtx insn;
char *s;
#endif
--- 1710,1716 ----
void
error_for_asm VPROTO((rtx insn, char *s, ...))
{
! #ifndef USE_STDARGS
rtx insn;
char *s;
#endif
*************** error_for_asm VPROTO((rtx insn, char *s,
*** 1718,1724 ****
VA_START (ap, s);
! #ifndef __STDC__
insn = va_arg (ap, rtx);
s = va_arg (ap, char *);
#endif
--- 1718,1724 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
insn = va_arg (ap, rtx);
s = va_arg (ap, char *);
#endif
*************** verror (s, ap)
*** 1740,1753 ****
void
error VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 1740,1753 ----
void
error VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*************** vfatal (s, ap)
*** 1769,1782 ****
void
fatal VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 1769,1782 ----
void
fatal VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*************** v_warning_with_file_and_line (file, line
*** 1803,1809 ****
void
warning_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef __STDC__
char *file;
int line;
char *s;
--- 1803,1809 ----
void
warning_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef USE_STDARGS
char *file;
int line;
char *s;
*************** warning_with_file_and_line VPROTO((char
*** 1812,1818 ****
VA_START (ap, s);
! #ifndef __STDC__
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
--- 1812,1818 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
*************** v_warning_with_decl (decl, s, ap)
*** 1842,1848 ****
void
warning_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef __STDC__
tree decl;
char *s;
#endif
--- 1842,1848 ----
void
warning_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef USE_STDARGS
tree decl;
char *s;
#endif
*************** warning_with_decl VPROTO((tree decl, cha
*** 1850,1856 ****
VA_START (ap, s);
! #ifndef __STDC__
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
--- 1850,1856 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
*************** v_warning_for_asm (insn, s, ap)
*** 1883,1889 ****
void
warning_for_asm VPROTO((rtx insn, char *s, ...))
{
! #ifndef __STDC__
rtx insn;
char *s;
#endif
--- 1883,1889 ----
void
warning_for_asm VPROTO((rtx insn, char *s, ...))
{
! #ifndef USE_STDARGS
rtx insn;
char *s;
#endif
*************** warning_for_asm VPROTO((rtx insn, char *
*** 1891,1897 ****
VA_START (ap, s);
! #ifndef __STDC__
insn = va_arg (ap, rtx);
s = va_arg (ap, char *);
#endif
--- 1891,1897 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
insn = va_arg (ap, rtx);
s = va_arg (ap, char *);
#endif
*************** vwarning (s, ap)
*** 1913,1926 ****
void
warning VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 1913,1926 ----
void
warning VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*************** vpedwarn (s, ap)
*** 1945,1958 ****
void
pedwarn VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 1945,1958 ----
void
pedwarn VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*************** v_pedwarn_with_decl (decl, s, ap)
*** 1985,1991 ****
void
pedwarn_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef __STDC__
tree decl;
char *s;
#endif
--- 1985,1991 ----
void
pedwarn_with_decl VPROTO((tree decl, char *s, ...))
{
! #ifndef USE_STDARGS
tree decl;
char *s;
#endif
*************** pedwarn_with_decl VPROTO((tree decl, cha
*** 1993,1999 ****
VA_START (ap, s);
! #ifndef __STDC__
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
--- 1993,1999 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
decl = va_arg (ap, tree);
s = va_arg (ap, char *);
#endif
*************** v_pedwarn_with_file_and_line (file, line
*** 2018,2024 ****
void
pedwarn_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef __STDC__
char *file;
int line;
char *s;
--- 2018,2024 ----
void
pedwarn_with_file_and_line VPROTO((char *file, int line, char *s, ...))
{
! #ifndef USE_STDARGS
char *file;
int line;
char *s;
*************** pedwarn_with_file_and_line VPROTO((char
*** 2027,2033 ****
VA_START (ap, s);
! #ifndef __STDC__
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
--- 2027,2033 ----
VA_START (ap, s);
! #ifndef USE_STDARGS
file = va_arg (ap, char *);
line = va_arg (ap, int);
s = va_arg (ap, char *);
*************** vsorry (s, ap)
*** 2056,2069 ****
void
sorry VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 2056,2069 ----
void
sorry VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*************** v_really_sorry (s, ap)
*** 2090,2103 ****
void
really_sorry VPROTO((char *s, ...))
{
! #ifndef __STDC__
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef __STDC__
s = va_arg (ap, char *);
#endif
--- 2090,2103 ----
void
really_sorry VPROTO((char *s, ...))
{
! #ifndef USE_STDARGS
char *s;
#endif
va_list ap;
VA_START (ap, s);
! #ifndef USE_STDARGS
s = va_arg (ap, char *);
#endif
*** tree.c.orig Wed Sep 23 14:29:53 1998
--- tree.c Wed Sep 23 16:55:58 1998
*************** stabilize_reference_1 (e)
*** 2977,2983 ****
tree
build VPROTO((enum tree_code code, tree tt, ...))
{
! #ifndef __STDC__
enum tree_code code;
tree tt;
#endif
--- 2977,2983 ----
tree
build VPROTO((enum tree_code code, tree tt, ...))
{
! #ifndef USE_STDARGS
enum tree_code code;
tree tt;
#endif
*************** build VPROTO((enum tree_code code, tree
*** 2988,2994 ****
VA_START (p, tt);
! #ifndef __STDC__
code = va_arg (p, enum tree_code);
tt = va_arg (p, tree);
#endif
--- 2988,2994 ----
VA_START (p, tt);
! #ifndef USE_STDARGS
code = va_arg (p, enum tree_code);
tt = va_arg (p, tree);
#endif
*************** build1 (code, type, node)
*** 3103,3109 ****
tree
build_nt VPROTO((enum tree_code code, ...))
{
! #ifndef __STDC__
enum tree_code code;
#endif
va_list p;
--- 3103,3109 ----
tree
build_nt VPROTO((enum tree_code code, ...))
{
! #ifndef USE_STDARGS
enum tree_code code;
#endif
va_list p;
*************** build_nt VPROTO((enum tree_code code, ..
*** 3113,3119 ****
VA_START (p, code);
! #ifndef __STDC__
code = va_arg (p, enum tree_code);
#endif
--- 3113,3119 ----
VA_START (p, code);
! #ifndef USE_STDARGS
code = va_arg (p, enum tree_code);
#endif
*************** build_nt VPROTO((enum tree_code code, ..
*** 3133,3139 ****
tree
build_parse_node VPROTO((enum tree_code code, ...))
{
! #ifndef __STDC__
enum tree_code code;
#endif
register struct obstack *ambient_obstack = expression_obstack;
--- 3133,3139 ----
tree
build_parse_node VPROTO((enum tree_code code, ...))
{
! #ifndef USE_STDARGS
enum tree_code code;
#endif
register struct obstack *ambient_obstack = expression_obstack;
*************** build_parse_node VPROTO((enum tree_code
*** 3144,3150 ****
VA_START (p, code);
! #ifndef __STDC__
code = va_arg (p, enum tree_code);
#endif
--- 3144,3150 ----
VA_START (p, code);
! #ifndef USE_STDARGS
code = va_arg (p, enum tree_code);
#endif
*************** get_file_function_name_long (type)
*** 4849,4855 ****
if (p != first_global_object_name)
{
for (p = buf+11; *p; p++)
! if (! ((*p >= '0' && *p <= '9')
#if 0 /* we always want labels, which are valid C++ identifiers (+ `$') */
#ifndef ASM_IDENTIFY_GCC /* this is required if `.' is invalid -- k. raeburn */
|| *p == '.'
--- 4849,4855 ----
if (p != first_global_object_name)
{
for (p = buf+11; *p; p++)
! if (! ISDIGIT(*p)
#if 0 /* we always want labels, which are valid C++ identifiers (+ `$') */
#ifndef ASM_IDENTIFY_GCC /* this is required if `.' is invalid -- k. raeburn */
|| *p == '.'
*************** get_file_function_name_long (type)
*** 4861,4868 ****
#ifndef NO_DOT_IN_LABEL /* this for `.'; unlikely, but... */
|| *p == '.'
#endif
! || (*p >= 'A' && *p <= 'Z')
! || (*p >= 'a' && *p <= 'z')))
*p = '_';
}
--- 4861,4868 ----
#ifndef NO_DOT_IN_LABEL /* this for `.'; unlikely, but... */
|| *p == '.'
#endif
! || ISUPPER(*p)
! || ISLOWER(*p))
*p = '_';
}
--
Dave Pitts PULLMAN: Travel and sleep in safety and comfort.
dpitts@cozx.com My other RV IS a Pullman (Colorado Pine).
http://www.cozx.com/~dpitts