+Wed Jun 10 13:17:32 1998 Dave Brolley <brolley@cygnus.com>
+
+ * top.h (ffe_decode_option): New argc/argv interface.
+ * top.c (ffe_decode_option): New argc/argv interface.
+ * parse.c (yyparse): New argc/argv interface for ffe_decode_option.
+ * com.c (lang_decode_option): New argc/argv interface.
Mon Jun 1 19:37:42 1998 Craig Burley <burley@gnu.org>
* com.c (ffecom_init_0): Fix setup of INTEGER(KIND=7)
}
int
-lang_decode_option (p)
- char *p;
+lang_decode_option (argc, argv)
+ int argc;
+ char **argv;
{
- return ffe_decode_option (p);
+ return ffe_decode_option (argc, argv);
}
/* used by print-tree.c */
#if FFECOM_targetCURRENT == FFECOM_targetFFE
ffe_init_0 ();
- for (--argc, ++argv; argc > 0; --argc, ++argv)
- {
- if (!ffe_decode_option (argv[0]))
- fprintf (stderr, "Unrecognized option: %s\n", argv[0]);
- }
+ {
+ int strings_processed;
+ for (--argc, ++argv; argc > 0; argc -= strings_processed, argv += strings_processed)
+ {
+ strings_processed = ffe_decode_option (argc, argv);
+ if (strings_processed == 0)
+ {
+ fprintf (stderr, "Unrecognized option: %s\n", argv[0]);
+ strings_processed = 1;
+ }
+ }
+ }
#elif FFECOM_targetCURRENT == FFECOM_targetGCC
if (!ffe_is_pedantic ())
ffe_set_is_pedantic (pedantic);
recognized and handled. */
int
-ffe_decode_option (char *opt)
+ffe_decode_option (argc, argv)
+ int argc;
+ char **argv;
{
+ char *opt = argv[0];
if (opt[0] != '-')
return 0;
if (opt[1] == 'f')
/* Declare functions with prototypes. */
-int ffe_decode_option (char *opt);
+int ffe_decode_option (int argc, char **argv);
void ffe_file (ffewhereFile wf, FILE *f);
void ffe_init_0 (void);
void ffe_init_1 (void);