diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-15 14:30:38 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-15 14:30:38 +0000 |
| commit | 5bf58eeebc1e0d30529a6348483de8a165eed95d (patch) | |
| tree | efe52867ce198bcd7d4dc2ad5dd66b0c94f8a933 /gcc/f | |
| parent | b5ee7b1e602878a6fecba6d03ca6dc126664f98e (diff) | |
| download | ppe42-gcc-5bf58eeebc1e0d30529a6348483de8a165eed95d.tar.gz ppe42-gcc-5bf58eeebc1e0d30529a6348483de8a165eed95d.zip | |
* c-common.h (GET_DIRECTIVE_LINE): Remove unused macro.
(get_directive_line): Remove unused function prototype.
* f/lex.c (ffelex_get_directive_line): Provide a more descriptive
comment. Remove reference to non-existant get_directive_line.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@77850 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/lex.c | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 9893e5287bf..e0471707eee 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,5 +1,10 @@ 2004-02-15 Roger Sayle <roger@eyesopen.com> + * lex.c (ffelex_get_directive_line): Provide a more descriptive + comment. Remove reference to non-existant get_directive_line. + +2004-02-15 Roger Sayle <roger@eyesopen.com> + PR fortran/14129 * lex.c (ffelex_cfelex_): Avoid calling xrealloc on a local stack allocated array. diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 8475d2ff2c3..9a38ad5b0bb 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -920,7 +920,11 @@ ffelex_finish_statement_ (void) } } -/* Copied from gcc/c-common.c get_directive_line. */ +/* Read a preprocessor directive line from file FINPUT. This function + returns either '\n' or EOF to indicate success or failure respectively. + Upon return, TEXT points to the contents of the line, which is stripped + of initial whitespace. The buffer pointed to by TEXT should not be + free'd and is overwritten by subsequent calls to this function. */ static int ffelex_get_directive_line_ (char **text, FILE *finput) |
