OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

New interface for lang_decode_option. 

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.

From-SVN: r20409
This commit is contained in:
Dave Brolley 1998-06-10 10:18:45 +00:00 committed by Dave Brolley
parent 297441fd87
commit ab9e0ff9c7
5 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/f/ChangeLog
View File

@ -1,3 +1,9 @@
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)

7
gcc/f/com.c
View File

@ -14904,10 +14904,11 @@ insert_block (block)
}
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 */

17
gcc/f/parse.c
View File

@ -52,11 +52,18 @@ yyparse ()
#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);

5
gcc/f/top.c
View File

@ -160,8 +160,11 @@ ffe_is_digit_string_ (char *s)
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')

2
gcc/f/top.h
View File

@ -141,7 +141,7 @@ extern bool ffe_in_4;
/* 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);