cppmain.c (struct printer): New member source.

* cppmain.c (struct printer): New member source.
	(scan_translation_unit): Fix spacing at start of lines.
	(cb_line_change): Update.

	* gcc.dg/cpp/spacing2.c: New test.

From-SVN: r46237
This commit is contained in:
Neil Booth 2001-10-12 22:31:04 +00:00 committed by Neil Booth
parent 42273f3225
commit 0c34509f6d
3 changed files with 40 additions and 8 deletions

View File

@ -1,3 +1,11 @@
2001-10-12 Neil Booth <neil@daikokuya.demon.co.uk>
* cppmain.c (struct printer): New member source.
(scan_translation_unit): Fix spacing at start of lines.
(cb_line_change): Update.
* gcc.dg/cpp/spacing2.c: New test.
2001-10-12 Hans-Peter Nilsson <hp@axis.com>
* config/cris/arit.c: Use __builtin_labs, not abs.

View File

@ -33,6 +33,7 @@ struct printer
FILE *outf; /* Stream to write to. */
const struct line_map *map; /* Logical to physical line mappings. */
const cpp_token *prev; /* Previous token. */
const cpp_token *source; /* Source token for spacing. */
unsigned int line; /* Line currently being written. */
unsigned char printed; /* Nonzero if something output at line. */
};
@ -222,8 +223,8 @@ scan_translation_unit (pfile)
cpp_reader *pfile;
{
bool avoid_paste = false;
const cpp_token *source = NULL;
print.source = NULL;
for (;;)
{
const cpp_token *token = cpp_get_token (pfile);
@ -231,9 +232,10 @@ scan_translation_unit (pfile)
if (token->type == CPP_PADDING)
{
avoid_paste = true;
if (source == NULL
|| (!(source->flags & PREV_WHITE) && token->val.source == NULL))
source = token->val.source;
if (print.source == NULL
|| (!(print.source->flags & PREV_WHITE)
&& token->val.source == NULL))
print.source = token->val.source;
continue;
}
@ -243,9 +245,9 @@ scan_translation_unit (pfile)
/* Subtle logic to output a space if and only if necessary. */
if (avoid_paste)
{
if (source == NULL)
source = token;
if (source->flags & PREV_WHITE
if (print.source == NULL)
print.source = token;
if (print.source->flags & PREV_WHITE
|| (print.prev && cpp_avoid_paste (pfile, print.prev, token))
|| (print.prev == NULL && token->type == CPP_HASH))
putc (' ', print.outf);
@ -254,7 +256,7 @@ scan_translation_unit (pfile)
putc (' ', print.outf);
avoid_paste = false;
source = NULL;
print.source = NULL;
print.prev = token;
cpp_output_token (token, print.outf);
@ -348,6 +350,7 @@ cb_line_change (pfile, token, parsing_args)
maybe_print_line (print.map, token->line);
print.printed = 1;
print.prev = 0;
print.source = 0;
/* Supply enough spaces to put this token in its original column,
one space per column greater than 2, since scan_translation_unit

View File

@ -0,0 +1,21 @@
/* Copyright (C) 2001 Free Software Foundation, Inc. */
/* { dg-do preprocess } */
/* We used to output an unnecessary leading space, leading to Emacs
confusion with its Makefile abuse.
Neil Booth, 12 Oct 2001. */
#define EMPTY
#define foo bar
a = EMPTY
foo.. /* No leading space on output. */
/*
{ dg-final { if ![file exists spacing2.i] { return } } }
{ dg-final { if \{ [grep spacing2.i "^bar\.\."] != "" \} \{ } }
{ dg-final { return \} } }
{ dg-final { fail "spacing2.c: spacing issues" } }
*/