X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/f6b561d9f9cbc6fc95bbb86518372a5cb52f45a6..efbc95a7e4fcba4363372df34f183d7db89a85a6:/src/scan-skel.l diff --git a/src/scan-skel.l b/src/scan-skel.l index c3844f13..c7e7190f 100644 --- a/src/scan-skel.l +++ b/src/scan-skel.l @@ -1,6 +1,6 @@ /* Scan Bison Skeletons. -*- C -*- - Copyright (C) 2001-2012 Free Software Foundation, Inc. + Copyright (C) 2001-2013 Free Software Foundation, Inc. This file is part of Bison, the GNU Compiler Compiler. @@ -186,7 +186,7 @@ flag (const char *arg) else if (STREQ (arg, "fatal")) return fatal; else if (STREQ (arg, "note")) - return silent; + return silent | complaint | no_caret; else if (STREQ (arg, "warn")) return Wother; else @@ -226,7 +226,7 @@ at_complain (int argc, char *argv[], char **out_namep, int *out_linenop) indent += SUB_INDENT; else indent = 0; - complain_args (locp, w, &indent, argc - 3, argv + 3); + complain_args (locp, w, &indent, argc - 4, argv + 4); if (w & silent) indent -= SUB_INDENT; } @@ -247,7 +247,7 @@ at_output (int argc, char *argv[], char **out_namep, int *out_linenop) *out_linenop = 1; } - static void +static void fail_for_at_directive_too_few_args (char const *at_directive_name) { complain (NULL, fatal, _("too few arguments for %s directive in skeleton"),