projects / deliverable / binutils-gdb.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
* s390-opc.c (INSTR_SS_L2RDRD): New.
[deliverable/binutils-gdb.git] / gas / app.c
diff --git a/gas/app.c b/gas/app.c
index 68336d2e8cc1095f3210c28428b9417a8169d4bb..b40411537088c538c5e82d3a3f52c8bb2b0efedd 100644 (file)
--- a/gas/app.c
+++ b/gas/app.c
@@ -1,5 +1,6 @@
 /* This is the Assembler Pre-Processor
 /* This is the Assembler Pre-Processor
-   Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 97, 98, 1999
+   Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
+   1999, 2000, 2001, 2002, 2003, 2006
    Free Software Foundation, Inc.
 
    This file is part of GAS, the GNU Assembler.
    Free Software Foundation, Inc.
 
    This file is part of GAS, the GNU Assembler.
@@ -16,17 +17,16 @@
 
    You should have received a copy of the GNU General Public License
    along with GAS; see the file COPYING.  If not, write to the Free
 
    You should have received a copy of the GNU General Public License
    along with GAS; see the file COPYING.  If not, write to the Free
-   Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-   02111-1307, USA.  */
+   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
+   02110-1301, USA.  */
 
 
-/* Modified by Allen Wirfs-Brock, Instantiations Inc 2/90 */
+/* Modified by Allen Wirfs-Brock, Instantiations Inc 2/90.  */
 /* App, the assembler pre-processor.  This pre-processor strips out excess
    spaces, turns single-quoted characters into a decimal constant, and turns
    # <number> <filename> <garbage> into a .line <number>\n.file <filename>
    pair.  This needs better error-handling.  */
 
 /* App, the assembler pre-processor.  This pre-processor strips out excess
    spaces, turns single-quoted characters into a decimal constant, and turns
    # <number> <filename> <garbage> into a .line <number>\n.file <filename>
    pair.  This needs better error-handling.  */
 
-#include <stdio.h>
-#include "as.h"                        /* For BAD_CASE() only */
+#include "as.h"
 
 #if (__STDC__ != 1)
 #ifndef const
 
 #if (__STDC__ != 1)
 #ifndef const
@@ -34,6 +34,7 @@
 #endif
 #endif
 
 #endif
 #endif
 
+#ifdef TC_M68K
 /* Whether we are scrubbing in m68k MRI mode.  This is different from
    flag_m68k_mri, because the two flags will be affected by the .mri
    pseudo-op at different times.  */
 /* Whether we are scrubbing in m68k MRI mode.  This is different from
    flag_m68k_mri, because the two flags will be affected by the .mri
    pseudo-op at different times.  */
@@ -42,9 +43,12 @@ static int scrub_m68k_mri;
 /* The pseudo-op which switches in and out of MRI mode.  See the
    comment in do_scrub_chars.  */
 static const char mri_pseudo[] = ".mri 0";
 /* The pseudo-op which switches in and out of MRI mode.  See the
    comment in do_scrub_chars.  */
 static const char mri_pseudo[] = ".mri 0";
+#else
+#define scrub_m68k_mri 0
+#endif
 
 #if defined TC_ARM && defined OBJ_ELF
 
 #if defined TC_ARM && defined OBJ_ELF
-/* The pseudo-op for which we need to special-case `@' characters. 
+/* The pseudo-op for which we need to special-case `@' characters.
    See the comment in do_scrub_chars.  */
 static const char   symver_pseudo[] = ".symver";
 static const char * symver_state;
    See the comment in do_scrub_chars.  */
 static const char   symver_pseudo[] = ".symver";
 static const char * symver_state;
@@ -73,40 +77,43 @@ static const char symbol_chars[] =
 #ifdef DOUBLEBAR_PARALLEL
 #define LEX_IS_DOUBLEBAR_1ST           13
 #endif
 #ifdef DOUBLEBAR_PARALLEL
 #define LEX_IS_DOUBLEBAR_1ST           13
 #endif
+#define LEX_IS_PARALLEL_SEPARATOR      14
 #define IS_SYMBOL_COMPONENT(c)         (lex[c] == LEX_IS_SYMBOL_COMPONENT)
 #define IS_WHITESPACE(c)               (lex[c] == LEX_IS_WHITESPACE)
 #define IS_LINE_SEPARATOR(c)           (lex[c] == LEX_IS_LINE_SEPARATOR)
 #define IS_SYMBOL_COMPONENT(c)         (lex[c] == LEX_IS_SYMBOL_COMPONENT)
 #define IS_WHITESPACE(c)               (lex[c] == LEX_IS_WHITESPACE)
 #define IS_LINE_SEPARATOR(c)           (lex[c] == LEX_IS_LINE_SEPARATOR)
+#define IS_PARALLEL_SEPARATOR(c)       (lex[c] == LEX_IS_PARALLEL_SEPARATOR)
 #define IS_COMMENT(c)                  (lex[c] == LEX_IS_COMMENT_START)
 #define IS_LINE_COMMENT(c)             (lex[c] == LEX_IS_LINE_COMMENT_START)
 #define        IS_NEWLINE(c)                   (lex[c] == LEX_IS_NEWLINE)
 
 #define IS_COMMENT(c)                  (lex[c] == LEX_IS_COMMENT_START)
 #define IS_LINE_COMMENT(c)             (lex[c] == LEX_IS_LINE_COMMENT_START)
 #define        IS_NEWLINE(c)                   (lex[c] == LEX_IS_NEWLINE)
 
-static int process_escape PARAMS ((int));
+static int process_escape (int);
 
 /* FIXME-soon: The entire lexer/parser thingy should be
    built statically at compile time rather than dynamically
 
 /* FIXME-soon: The entire lexer/parser thingy should be
    built statically at compile time rather than dynamically
-   each and every time the assembler is run.  xoxorich. */
+   each and every time the assembler is run.  xoxorich.  */
 
 
-void 
-do_scrub_begin (m68k_mri)
-     int m68k_mri;
+void
+do_scrub_begin (int m68k_mri ATTRIBUTE_UNUSED)
 {
   const char *p;
   int c;
 
 {
   const char *p;
   int c;
 
-  scrub_m68k_mri = m68k_mri;
-
   lex[' '] = LEX_IS_WHITESPACE;
   lex['\t'] = LEX_IS_WHITESPACE;
   lex['\r'] = LEX_IS_WHITESPACE;
   lex['\n'] = LEX_IS_NEWLINE;
   lex[' '] = LEX_IS_WHITESPACE;
   lex['\t'] = LEX_IS_WHITESPACE;
   lex['\r'] = LEX_IS_WHITESPACE;
   lex['\n'] = LEX_IS_NEWLINE;
-  lex[';'] = LEX_IS_LINE_SEPARATOR;
   lex[':'] = LEX_IS_COLON;
 
   lex[':'] = LEX_IS_COLON;
 
+#ifdef TC_M68K
+  scrub_m68k_mri = m68k_mri;
+
   if (! m68k_mri)
   if (! m68k_mri)
+#endif
     {
       lex['"'] = LEX_IS_STRINGQUOTE;
 
     {
       lex['"'] = LEX_IS_STRINGQUOTE;
 
-#ifndef TC_HPPA
+#if ! defined (TC_HPPA) && ! defined (TC_I370)
+      /* I370 uses single-quotes to delimit integer, float constants.  */
       lex['\''] = LEX_IS_ONECHAR_QUOTE;
 #endif
 
       lex['\''] = LEX_IS_ONECHAR_QUOTE;
 #endif
 
@@ -121,9 +128,7 @@ do_scrub_begin (m68k_mri)
   /* Note that these override the previous defaults, e.g. if ';' is a
      comment char, then it isn't a line separator.  */
   for (p = symbol_chars; *p; ++p)
   /* Note that these override the previous defaults, e.g. if ';' is a
      comment char, then it isn't a line separator.  */
   for (p = symbol_chars; *p; ++p)
-    {
-      lex[(unsigned char) *p] = LEX_IS_SYMBOL_COMPONENT;
-    }                          /* declare symbol characters */
+    lex[(unsigned char) *p] = LEX_IS_SYMBOL_COMPONENT;
 
   for (c = 128; c < 256; ++c)
     lex[c] = LEX_IS_SYMBOL_COMPONENT;
 
   for (c = 128; c < 256; ++c)
     lex[c] = LEX_IS_SYMBOL_COMPONENT;
@@ -143,36 +148,37 @@ do_scrub_begin (m68k_mri)
 #define tc_comment_chars comment_chars
 #endif
   for (p = tc_comment_chars; *p; p++)
 #define tc_comment_chars comment_chars
 #endif
   for (p = tc_comment_chars; *p; p++)
-    {
-      lex[(unsigned char) *p] = LEX_IS_COMMENT_START;
-    }                          /* declare comment chars */
+    lex[(unsigned char) *p] = LEX_IS_COMMENT_START;
 
   for (p = line_comment_chars; *p; p++)
 
   for (p = line_comment_chars; *p; p++)
-    {
-      lex[(unsigned char) *p] = LEX_IS_LINE_COMMENT_START;
-    }                          /* declare line comment chars */
+    lex[(unsigned char) *p] = LEX_IS_LINE_COMMENT_START;
 
   for (p = line_separator_chars; *p; p++)
 
   for (p = line_separator_chars; *p; p++)
-    {
-      lex[(unsigned char) *p] = LEX_IS_LINE_SEPARATOR;
-    }                          /* declare line separators */
+    lex[(unsigned char) *p] = LEX_IS_LINE_SEPARATOR;
+
+#ifdef tc_parallel_separator_chars
+  /* This macro permits the processor to specify all characters which
+     separate parallel insns on the same line.  */
+  for (p = tc_parallel_separator_chars; *p; p++)
+    lex[(unsigned char) *p] = LEX_IS_PARALLEL_SEPARATOR;
+#endif
 
   /* Only allow slash-star comments if slash is not in use.
      FIXME: This isn't right.  We should always permit them.  */
   if (lex['/'] == 0)
 
   /* Only allow slash-star comments if slash is not in use.
      FIXME: This isn't right.  We should always permit them.  */
   if (lex['/'] == 0)
-    {
-      lex['/'] = LEX_IS_TWOCHAR_COMMENT_1ST;
-    }
+    lex['/'] = LEX_IS_TWOCHAR_COMMENT_1ST;
 
 
+#ifdef TC_M68K
   if (m68k_mri)
     {
       lex['\''] = LEX_IS_STRINGQUOTE;
       lex[';'] = LEX_IS_COMMENT_START;
       lex['*'] = LEX_IS_LINE_COMMENT_START;
       /* The MRI documentation says '!' is LEX_IS_COMMENT_START, but
   if (m68k_mri)
     {
       lex['\''] = LEX_IS_STRINGQUOTE;
       lex[';'] = LEX_IS_COMMENT_START;
       lex['*'] = LEX_IS_LINE_COMMENT_START;
       /* The MRI documentation says '!' is LEX_IS_COMMENT_START, but
-         then it can't be used in an expression.  */
+        then it can't be used in an expression.  */
       lex['!'] = LEX_IS_LINE_COMMENT_START;
     }
       lex['!'] = LEX_IS_LINE_COMMENT_START;
     }
+#endif
 
 #ifdef TC_V850
   lex['-'] = LEX_IS_DOUBLEDASH_1ST;
 
 #ifdef TC_V850
   lex['-'] = LEX_IS_DOUBLEDASH_1ST;
@@ -181,12 +187,12 @@ do_scrub_begin (m68k_mri)
   lex['|'] = LEX_IS_DOUBLEBAR_1ST;
 #endif
 #ifdef TC_D30V
   lex['|'] = LEX_IS_DOUBLEBAR_1ST;
 #endif
 #ifdef TC_D30V
-  /* must do this is we want VLIW instruction with "->" or "<-" */
+  /* Must do this is we want VLIW instruction with "->" or "<-".  */
   lex['-'] = LEX_IS_SYMBOL_COMPONENT;
 #endif
   lex['-'] = LEX_IS_SYMBOL_COMPONENT;
 #endif
-}                              /* do_scrub_begin() */
+}
 
 
-/* Saved state of the scrubber */
+/* Saved state of the scrubber.  */
 static int state;
 static int old_state;
 static char *out_string;
 static int state;
 static int old_state;
 static char *out_string;
@@ -204,24 +210,26 @@ static char mri_last_ch;
    That's why we have to save it all.  */
 
 struct app_save
    That's why we have to save it all.  */
 
 struct app_save
-  {
-    int          state;
-    int          old_state;
-    char *       out_string;
-    char         out_buf[sizeof (out_buf)];
-    int          add_newlines;
-    char *       saved_input;
-    int          saved_input_len;
-    int          scrub_m68k_mri;
-    const char * mri_state;
-    char         mri_last_ch;
+{
+  int          state;
+  int          old_state;
+  char *       out_string;
+  char         out_buf[sizeof (out_buf)];
+  int          add_newlines;
+  char *       saved_input;
+  int          saved_input_len;
+#ifdef TC_M68K
+  int          scrub_m68k_mri;
+#endif
+  const char * mri_state;
+  char         mri_last_ch;
 #if defined TC_ARM && defined OBJ_ELF
 #if defined TC_ARM && defined OBJ_ELF
-    const char * symver_state;
+  const char * symver_state;
 #endif
 #endif
-  };
+};
 
 char *
 
 char *
-app_push ()
+app_push (void)
 {
   register struct app_save *saved;
 
 {
   register struct app_save *saved;
 
@@ -239,14 +247,16 @@ app_push ()
       memcpy (saved->saved_input, saved_input, saved_input_len);
       saved->saved_input_len = saved_input_len;
     }
       memcpy (saved->saved_input, saved_input, saved_input_len);
       saved->saved_input_len = saved_input_len;
     }
+#ifdef TC_M68K
   saved->scrub_m68k_mri = scrub_m68k_mri;
   saved->scrub_m68k_mri = scrub_m68k_mri;
+#endif
   saved->mri_state = mri_state;
   saved->mri_last_ch = mri_last_ch;
 #if defined TC_ARM && defined OBJ_ELF
   saved->symver_state = symver_state;
 #endif
 
   saved->mri_state = mri_state;
   saved->mri_last_ch = mri_last_ch;
 #if defined TC_ARM && defined OBJ_ELF
   saved->symver_state = symver_state;
 #endif
 
-  /* do_scrub_begin() is not useful, just wastes time. */
+  /* do_scrub_begin() is not useful, just wastes time.  */
 
   state = 0;
   saved_input = NULL;
 
   state = 0;
   saved_input = NULL;
@@ -254,13 +264,12 @@ app_push ()
   return (char *) saved;
 }
 
   return (char *) saved;
 }
 
-void 
-app_pop (arg)
-     char *arg;
+void
+app_pop (char *arg)
 {
   register struct app_save *saved = (struct app_save *) arg;
 
 {
   register struct app_save *saved = (struct app_save *) arg;
 
-  /* There is no do_scrub_end (). */
+  /* There is no do_scrub_end ().  */
   state = saved->state;
   old_state = saved->old_state;
   out_string = saved->out_string;
   state = saved->state;
   old_state = saved->old_state;
   out_string = saved->out_string;
@@ -276,7 +285,9 @@ app_pop (arg)
       saved_input_len = saved->saved_input_len;
       free (saved->saved_input);
     }
       saved_input_len = saved->saved_input_len;
       free (saved->saved_input);
     }
+#ifdef TC_M68K
   scrub_m68k_mri = saved->scrub_m68k_mri;
   scrub_m68k_mri = saved->scrub_m68k_mri;
+#endif
   mri_state = saved->mri_state;
   mri_last_ch = saved->mri_last_ch;
 #if defined TC_ARM && defined OBJ_ELF
   mri_state = saved->mri_state;
   mri_last_ch = saved->mri_last_ch;
 #if defined TC_ARM && defined OBJ_ELF
@@ -284,13 +295,13 @@ app_pop (arg)
 #endif
 
   free (arg);
 #endif
 
   free (arg);
-}                              /* app_pop() */
+}
 
 /* @@ This assumes that \n &c are the same on host and target.  This is not
    necessarily true.  */
 
 /* @@ This assumes that \n &c are the same on host and target.  This is not
    necessarily true.  */
-static int 
-process_escape (ch)
-     int ch;
+
+static int
+process_escape (int ch)
 {
   switch (ch)
     {
 {
   switch (ch)
     {
@@ -325,10 +336,7 @@ process_escape (ch)
    This is the way the old code used to work.  */
 
 int
    This is the way the old code used to work.  */
 
 int
-do_scrub_chars (get, tostart, tolen)
-     int (*get) PARAMS ((char *, int));
-     char *tostart;
-     int tolen;
+do_scrub_chars (int (*get) (char *, int), char *tostart, int tolen)
 {
   char *to = tostart;
   char *toend = tostart + tolen;
 {
   char *to = tostart;
   char *toend = tostart + tolen;
@@ -336,6 +344,8 @@ do_scrub_chars (get, tostart, tolen)
   char *fromend;
   int fromlen;
   register int ch, ch2 = 0;
   char *fromend;
   int fromlen;
   register int ch, ch2 = 0;
+  /* Character that started the string we're working on.  */
+  static char quotechar;
 
   /*State 0: beginning of normal line
          1: After first whitespace on line (flush more white)
 
   /*State 0: beginning of normal line
          1: After first whitespace on line (flush more white)
@@ -352,17 +362,29 @@ do_scrub_chars (get, tostart, tolen)
         -1: output string in out_string and go to the state in old_state
         -2: flush text until a '*' '/' is seen, then go to state old_state
 #ifdef TC_V850
         -1: output string in out_string and go to the state in old_state
         -2: flush text until a '*' '/' is seen, then go to state old_state
 #ifdef TC_V850
-         12: After seeing a dash, looking for a second dash as a start of comment.
+        12: After seeing a dash, looking for a second dash as a start
+            of comment.
 #endif
 #ifdef DOUBLEBAR_PARALLEL
 #endif
 #ifdef DOUBLEBAR_PARALLEL
-        13: After seeing a vertical bar, looking for a second vertical bar as a parallel expression seperator.
+        13: After seeing a vertical bar, looking for a second
+            vertical bar as a parallel expression separator.
+#endif
+#ifdef TC_IA64
+        14: After seeing a `(' at state 0, looking for a `)' as
+            predicate.
+        15: After seeing a `(' at state 1, looking for a `)' as
+            predicate.
+#endif
+#ifdef TC_Z80
+        16: After seeing an 'a' or an 'A' at the start of a symbol
+        17: After seeing an 'f' or an 'F' in state 16
 #endif
          */
 
   /* I added states 9 and 10 because the MIPS ECOFF assembler uses
      constructs like ``.loc 1 20''.  This was turning into ``.loc
      120''.  States 9 and 10 ensure that a space is never dropped in
 #endif
          */
 
   /* I added states 9 and 10 because the MIPS ECOFF assembler uses
      constructs like ``.loc 1 20''.  This was turning into ``.loc
      120''.  States 9 and 10 ensure that a space is never dropped in
-     between characters which could appear in a identifier.  Ian
+     between characters which could appear in an identifier.  Ian
      Taylor, ian@cygnus.com.
 
      I added state 11 so that something like "Lfoo add %r25,%r26,%r27" works
      Taylor, ian@cygnus.com.
 
      I added state 11 so that something like "Lfoo add %r25,%r26,%r27" works
@@ -399,13 +421,13 @@ do_scrub_chars (get, tostart, tolen)
      I don't want to make such a significant change to the assembler's
      memory usage.  */
 
      I don't want to make such a significant change to the assembler's
      memory usage.  */
 
-#define PUT(pch)                       \
-  do                                   \
-    {                                  \
-      *to++ = (pch);                   \
-      if (to >= toend)                 \
-        goto tofull;                   \
-    }                                  \
+#define PUT(pch)                               \
+  do                                           \
+    {                                          \
+      *to++ = (pch);                           \
+      if (to >= toend)                         \
+       goto tofull;                            \
+    }                                          \
   while (0)
 
   if (saved_input != NULL)
   while (0)
 
   if (saved_input != NULL)
@@ -425,8 +447,8 @@ do_scrub_chars (get, tostart, tolen)
   while (1)
     {
       /* The cases in this switch end with continue, in order to
   while (1)
     {
       /* The cases in this switch end with continue, in order to
-         branch back to the top of this while loop and generate the
-         next output character in the appropriate state.  */
+        branch back to the top of this while loop and generate the
+        next output character in the appropriate state.  */
       switch (state)
        {
        case -1:
       switch (state)
        {
        case -1:
@@ -509,9 +531,9 @@ do_scrub_chars (get, tostart, tolen)
 
        case 5:
          /* We are going to copy everything up to a quote character,
 
        case 5:
          /* We are going to copy everything up to a quote character,
-             with special handling for a backslash.  We try to
-             optimize the copying in the simple case without using the
-             GET and PUT macros.  */
+            with special handling for a backslash.  We try to
+            optimize the copying in the simple case without using the
+            GET and PUT macros.  */
          {
            char *s;
            int len;
          {
            char *s;
            int len;
@@ -519,11 +541,8 @@ do_scrub_chars (get, tostart, tolen)
            for (s = from; s < fromend; s++)
              {
                ch = *s;
            for (s = from; s < fromend; s++)
              {
                ch = *s;
-               /* This condition must be changed if the type of any
-                   other character can be LEX_IS_STRINGQUOTE.  */
                if (ch == '\\'
                if (ch == '\\'
-                   || ch == '"'
-                   || ch == '\''
+                   || ch == quotechar
                    || ch == '\n')
                  break;
              }
                    || ch == '\n')
                  break;
              }
@@ -541,12 +560,12 @@ do_scrub_chars (get, tostart, tolen)
          ch = GET ();
          if (ch == EOF)
            {
          ch = GET ();
          if (ch == EOF)
            {
-             as_warn (_("end of file in string: inserted '\"'"));
+             as_warn (_("end of file in string; '%c' inserted"), quotechar);
              state = old_state;
              UNGET ('\n');
              state = old_state;
              UNGET ('\n');
-             PUT ('"');
+             PUT (quotechar);
            }
            }
-         else if (lex[ch] == LEX_IS_STRINGQUOTE)
+         else if (ch == quotechar)
            {
              state = old_state;
              PUT (ch);
            {
              state = old_state;
              PUT (ch);
@@ -561,8 +580,7 @@ do_scrub_chars (get, tostart, tolen)
          else if (scrub_m68k_mri && ch == '\n')
            {
              /* Just quietly terminate the string.  This permits lines like
          else if (scrub_m68k_mri && ch == '\n')
            {
              /* Just quietly terminate the string.  This permits lines like
-                  bne  label   loop if we haven't reach end yet
-                */
+                  bne  label   loop if we haven't reach end yet.  */
              state = old_state;
              UNGET (ch);
              PUT ('\'');
              state = old_state;
              UNGET (ch);
              PUT ('\'');
@@ -586,6 +604,11 @@ do_scrub_chars (get, tostart, tolen)
              PUT ('\\');
              continue;
 
              PUT ('\\');
              continue;
 
+           case EOF:
+             as_warn (_("end of file in string; '%c' inserted"), quotechar);
+             PUT (quotechar);
+             continue;
+
            case '"':
            case '\\':
            case 'b':
            case '"':
            case '\\':
            case 'b':
@@ -605,30 +628,21 @@ do_scrub_chars (get, tostart, tolen)
            case '6':
            case '7':
              break;
            case '6':
            case '7':
              break;
-#if defined(IGNORE_NONSTANDARD_ESCAPES) | defined(ONLY_STANDARD_ESCAPES)
-           default:
-             as_warn (_("Unknown escape '\\%c' in string: Ignored"), ch);
-             break;
-#else  /* ONLY_STANDARD_ESCAPES */
+
            default:
            default:
-             /* Accept \x as x for any x */
+#ifdef ONLY_STANDARD_ESCAPES
+             as_warn (_("unknown escape '\\%c' in string; ignored"), ch);
+#endif
              break;
              break;
-#endif /* ONLY_STANDARD_ESCAPES */
-
-           case EOF:
-             as_warn (_("End of file in string: '\"' inserted"));
-             PUT ('"');
-             continue;
            }
          PUT (ch);
          continue;
 
        case 7:
          ch = GET ();
            }
          PUT (ch);
          continue;
 
        case 7:
          ch = GET ();
+         quotechar = ch;
          state = 5;
          old_state = 8;
          state = 5;
          old_state = 8;
-         if (ch == EOF)
-           goto fromeof;
          PUT (ch);
          continue;
 
          PUT (ch);
          continue;
 
@@ -641,13 +655,75 @@ do_scrub_chars (get, tostart, tolen)
          state = 0;
          PUT (ch);
          continue;
          state = 0;
          PUT (ch);
          continue;
+
+#ifdef DOUBLEBAR_PARALLEL
+       case 13:
+         ch = GET ();
+         if (ch != '|')
+           abort ();
+
+         /* Reset back to state 1 and pretend that we are parsing a
+            line from just after the first white space.  */
+         state = 1;
+         PUT ('|');
+         continue;
+#endif
+#ifdef TC_Z80
+       case 16:
+         /* We have seen an 'a' at the start of a symbol, look for an 'f'.  */
+         ch = GET ();
+         if (ch == 'f' || ch == 'F') 
+           {
+             state = 17;
+             PUT (ch);
+           }
+         else
+           {
+             state = 9;
+             break;
+           }
+       case 17:
+         /* We have seen "af" at the start of a symbol,
+            a ' here is a part of that symbol.  */
+         ch = GET ();
+         state = 9;
+         if (ch == '\'')
+           /* Change to avoid warning about unclosed string.  */
+           PUT ('`');
+         else
+           UNGET (ch);
+         break;
+#endif
        }
 
        }
 
-      /* OK, we are somewhere in states 0 through 4 or 9 through 11 */
+      /* OK, we are somewhere in states 0 through 4 or 9 through 11.  */
 
       /* flushchar: */
       ch = GET ();
 
 
       /* flushchar: */
       ch = GET ();
 
+#ifdef TC_IA64
+      if (ch == '(' && (state == 0 || state == 1))
+       {
+         state += 14;
+         PUT (ch);
+         continue;
+       }
+      else if (state == 14 || state == 15)
+       {
+         if (ch == ')')
+           {
+             state -= 14;
+             PUT (ch);
+             ch = GET ();
+           }
+         else
+           {
+             PUT (ch);
+             continue;
+           }
+       }
+#endif
+
     recycle:
 
 #if defined TC_ARM && defined OBJ_ELF
     recycle:
 
 #if defined TC_ARM && defined OBJ_ELF
@@ -681,9 +757,9 @@ do_scrub_chars (get, tostart, tolen)
 
 #ifdef TC_M68K
       /* We want to have pseudo-ops which control whether we are in
 
 #ifdef TC_M68K
       /* We want to have pseudo-ops which control whether we are in
-         MRI mode or not.  Unfortunately, since m68k MRI mode affects
-         the scrubber, that means that we need a special purpose
-         recognizer here.  */
+        MRI mode or not.  Unfortunately, since m68k MRI mode affects
+        the scrubber, that means that we need a special purpose
+        recognizer here.  */
       if (mri_state == NULL)
        {
          if ((state == 0 || state == 1)
       if (mri_state == NULL)
        {
          if ((state == 0 || state == 1)
@@ -720,14 +796,14 @@ do_scrub_chars (get, tostart, tolen)
          else
            {
              /* We've read the entire pseudo-op.  mips_last_ch is
          else
            {
              /* We've read the entire pseudo-op.  mips_last_ch is
-                 either '0' or '1' indicating whether to enter or
-                 leave MRI mode.  */
+                either '0' or '1' indicating whether to enter or
+                leave MRI mode.  */
              do_scrub_begin (mri_last_ch == '1');
              mri_state = NULL;
 
              /* We continue handling the character as usual.  The
              do_scrub_begin (mri_last_ch == '1');
              mri_state = NULL;
 
              /* We continue handling the character as usual.  The
-                 main gas reader must also handle the .mri pseudo-op
-                 to control expression parsing and the like.  */
+                main gas reader must also handle the .mri pseudo-op
+                to control expression parsing and the like.  */
            }
        }
 #endif
            }
        }
 #endif
@@ -765,23 +841,25 @@ do_scrub_chars (get, tostart, tolen)
            }
 
 #ifdef KEEP_WHITE_AROUND_COLON
            }
 
 #ifdef KEEP_WHITE_AROUND_COLON
-          if (lex[ch] == LEX_IS_COLON)
-            {
-              /* only keep this white if there's no white *after* the colon */
-              ch2 = GET ();
-              UNGET (ch2);
-              if (!IS_WHITESPACE (ch2))
-                {
-                  state = 9;
-                  UNGET (ch);
-                  PUT (' ');
-                  break;
-                }
-            }
+         if (lex[ch] == LEX_IS_COLON)
+           {
+             /* Only keep this white if there's no white *after* the
+                colon.  */
+             ch2 = GET ();
+             UNGET (ch2);
+             if (!IS_WHITESPACE (ch2))
+               {
+                 state = 9;
+                 UNGET (ch);
+                 PUT (' ');
+                 break;
+               }
+           }
 #endif
          if (IS_COMMENT (ch)
              || ch == '/'
 #endif
          if (IS_COMMENT (ch)
              || ch == '/'
-             || IS_LINE_SEPARATOR (ch))
+             || IS_LINE_SEPARATOR (ch)
+             || IS_PARALLEL_SEPARATOR (ch))
            {
              if (scrub_m68k_mri)
                {
            {
              if (scrub_m68k_mri)
                {
@@ -809,9 +887,6 @@ do_scrub_chars (get, tostart, tolen)
 
          switch (state)
            {
 
          switch (state)
            {
-           case 0:
-             state++;
-             goto recycle;     /* Punted leading sp */
            case 1:
              /* We can arrive here if we leave a leading whitespace
                 character at the beginning of a line.  */
            case 1:
              /* We can arrive here if we leave a leading whitespace
                 character at the beginning of a line.  */
@@ -849,18 +924,14 @@ do_scrub_chars (get, tostart, tolen)
              state = 10;       /* Sp after symbol char */
              goto recycle;
            case 11:
              state = 10;       /* Sp after symbol char */
              goto recycle;
            case 11:
-             if (flag_m68k_mri
-#ifdef LABELS_WITHOUT_COLONS
-                 || 1
-#endif
-                 )
+             if (LABELS_WITHOUT_COLONS || flag_m68k_mri)
                state = 1;
              else
                {
                  /* We know that ch is not ':', since we tested that
                state = 1;
              else
                {
                  /* We know that ch is not ':', since we tested that
-                     case above.  Therefore this is not a label, so it
-                     must be the opcode, and we've just seen the
-                     whitespace after it.  */
+                    case above.  Therefore this is not a label, so it
+                    must be the opcode, and we've just seen the
+                    whitespace after it.  */
                  state = 3;
                }
              UNGET (ch);
                  state = 3;
                }
              UNGET (ch);
@@ -892,7 +963,7 @@ do_scrub_chars (get, tostart, tolen)
                    break;
 
                  /* This UNGET will ensure that we count newlines
                    break;
 
                  /* This UNGET will ensure that we count newlines
-                     correctly.  */
+                    correctly.  */
                  UNGET (ch2);
                }
 
                  UNGET (ch2);
                }
 
@@ -902,6 +973,21 @@ do_scrub_chars (get, tostart, tolen)
              ch = ' ';
              goto recycle;
            }
              ch = ' ';
              goto recycle;
            }
+#ifdef DOUBLESLASH_LINE_COMMENTS
+         else if (ch2 == '/')
+           {
+             do
+               {
+                 ch = GET ();
+               }
+             while (ch != EOF && !IS_NEWLINE (ch));
+             if (ch == EOF)
+               as_warn ("end of file in comment; newline inserted");
+             state = 0;
+             PUT ('\n');
+             break;
+           }
+#endif
          else
            {
              if (ch2 != EOF)
          else
            {
              if (ch2 != EOF)
@@ -913,15 +999,16 @@ do_scrub_chars (get, tostart, tolen)
          break;
 
        case LEX_IS_STRINGQUOTE:
          break;
 
        case LEX_IS_STRINGQUOTE:
+         quotechar = ch;
          if (state == 10)
            {
          if (state == 10)
            {
-             /* Preserve the whitespace in foo "bar" */
+             /* Preserve the whitespace in foo "bar".  */
              UNGET (ch);
              state = 3;
              PUT (' ');
 
              /* PUT didn't jump out.  We could just break, but we
              UNGET (ch);
              state = 3;
              PUT (' ');
 
              /* PUT didn't jump out.  We could just break, but we
-                 know what will happen, so optimize a bit.  */
+                know what will happen, so optimize a bit.  */
              ch = GET ();
              old_state = 3;
            }
              ch = GET ();
              old_state = 3;
            }
@@ -937,7 +1024,7 @@ do_scrub_chars (get, tostart, tolen)
        case LEX_IS_ONECHAR_QUOTE:
          if (state == 10)
            {
        case LEX_IS_ONECHAR_QUOTE:
          if (state == 10)
            {
-             /* Preserve the whitespace in foo 'b' */
+             /* Preserve the whitespace in foo 'b'.  */
              UNGET (ch);
              state = 3;
              PUT (' ');
              UNGET (ch);
              state = 3;
              PUT (' ');
@@ -966,7 +1053,7 @@ do_scrub_chars (get, tostart, tolen)
          if ((ch = GET ()) != '\'')
            {
 #ifdef REQUIRE_CHAR_CLOSE_QUOTE
          if ((ch = GET ()) != '\'')
            {
 #ifdef REQUIRE_CHAR_CLOSE_QUOTE
-             as_warn (_("Missing close quote: (assumed)"));
+             as_warn (_("missing close quote; (assumed)"));
 #else
              if (ch != EOF)
                UNGET (ch);
 #else
              if (ch != EOF)
                UNGET (ch);
@@ -989,7 +1076,7 @@ do_scrub_chars (get, tostart, tolen)
 
        case LEX_IS_COLON:
 #ifdef KEEP_WHITE_AROUND_COLON
 
        case LEX_IS_COLON:
 #ifdef KEEP_WHITE_AROUND_COLON
-          state = 9;
+         state = 9;
 #else
          if (state == 9 || state == 10)
            state = 3;
 #else
          if (state == 9 || state == 10)
            state = 3;
@@ -1006,50 +1093,54 @@ do_scrub_chars (get, tostart, tolen)
              --add_newlines;
              UNGET (ch);
            }
              --add_newlines;
              UNGET (ch);
            }
-         /* fall thru into... */
+         /* Fall through.  */
 
        case LEX_IS_LINE_SEPARATOR:
          state = 0;
          PUT (ch);
          break;
 
 
        case LEX_IS_LINE_SEPARATOR:
          state = 0;
          PUT (ch);
          break;
 
+       case LEX_IS_PARALLEL_SEPARATOR:
+         state = 1;
+         PUT (ch);
+         break;
+
 #ifdef TC_V850
        case LEX_IS_DOUBLEDASH_1ST:
 #ifdef TC_V850
        case LEX_IS_DOUBLEDASH_1ST:
-         ch2 = GET();
+         ch2 = GET ();
          if (ch2 != '-')
            {
              UNGET (ch2);
              goto de_fault;
            }
          if (ch2 != '-')
            {
              UNGET (ch2);
              goto de_fault;
            }
-         /* read and skip to end of line */
+         /* Read and skip to end of line.  */
          do
            {
              ch = GET ();
            }
          while (ch != EOF && ch != '\n');
          do
            {
              ch = GET ();
            }
          while (ch != EOF && ch != '\n');
+
          if (ch == EOF)
          if (ch == EOF)
-           {
-             as_warn (_("end of file in comment; newline inserted"));
-           }
+           as_warn (_("end of file in comment; newline inserted"));
+
          state = 0;
          PUT ('\n');
          break;
          state = 0;
          PUT ('\n');
          break;
-#endif     
+#endif
 #ifdef DOUBLEBAR_PARALLEL
        case LEX_IS_DOUBLEBAR_1ST:
 #ifdef DOUBLEBAR_PARALLEL
        case LEX_IS_DOUBLEBAR_1ST:
-         ch2 = GET();
+         ch2 = GET ();
+         UNGET (ch2);
          if (ch2 != '|')
          if (ch2 != '|')
-           {
-             UNGET (ch2);
-             goto de_fault;
-           }
-         /* Reset back to state 1 and pretend that we are parsing a line from
-            just after the first white space.  */
-         state = 1;
-         PUT ('|');
+           goto de_fault;
+
+         /* Handle '||' in two states as invoking PUT twice might
+            result in the first one jumping out of this loop.  We'd
+            then lose track of the state and one '|' char.  */
+         state = 13;
          PUT ('|');
          break;
          PUT ('|');
          break;
-#endif     
+#endif
        case LEX_IS_LINE_COMMENT_START:
          /* FIXME-someday: The two character comment stuff was badly
             thought out.  On i386, we want '/' as line comment start
        case LEX_IS_LINE_COMMENT_START:
          /* FIXME-someday: The two character comment stuff was badly
             thought out.  On i386, we want '/' as line comment start
@@ -1068,7 +1159,7 @@ do_scrub_chars (get, tostart, tolen)
                {
                  UNGET (ch2);
                }
                {
                  UNGET (ch2);
                }
-           } /* bad hack */
+           }
 
          if (state == 0 || state == 1) /* Only comment at start of line.  */
            {
 
          if (state == 0 || state == 1) /* Only comment at start of line.  */
            {
@@ -1081,24 +1172,26 @@ do_scrub_chars (get, tostart, tolen)
                  ch = GET ();
                }
              while (ch != EOF && IS_WHITESPACE (ch));
                  ch = GET ();
                }
              while (ch != EOF && IS_WHITESPACE (ch));
+
              if (ch == EOF)
                {
                  as_warn (_("end of file in comment; newline inserted"));
                  PUT ('\n');
                  break;
                }
              if (ch == EOF)
                {
                  as_warn (_("end of file in comment; newline inserted"));
                  PUT ('\n');
                  break;
                }
+
              if (ch < '0' || ch > '9' || state != 0 || startch != '#')
                {
                  /* Not a cpp line.  */
                  while (ch != EOF && !IS_NEWLINE (ch))
                    ch = GET ();
                  if (ch == EOF)
              if (ch < '0' || ch > '9' || state != 0 || startch != '#')
                {
                  /* Not a cpp line.  */
                  while (ch != EOF && !IS_NEWLINE (ch))
                    ch = GET ();
                  if (ch == EOF)
-                   as_warn (_("EOF in Comment: Newline inserted"));
+                   as_warn (_("end of file in comment; newline inserted"));
                  state = 0;
                  PUT ('\n');
                  break;
                }
                  state = 0;
                  PUT ('\n');
                  break;
                }
-             /* Loks like `# 123 "filename"' from cpp.  */
+             /* Looks like `# 123 "filename"' from cpp.  */
              UNGET (ch);
              old_state = 4;
              state = -1;
              UNGET (ch);
              old_state = 4;
              state = -1;
@@ -1115,12 +1208,14 @@ do_scrub_chars (get, tostart, tolen)
             Trap is the only short insn that has a first operand that is
             neither register nor label.
             We must prevent exef0f ||trap #1 to degenerate to exef0f ||trap#1 .
             Trap is the only short insn that has a first operand that is
             neither register nor label.
             We must prevent exef0f ||trap #1 to degenerate to exef0f ||trap#1 .
-            We can't make '#' LEX_IS_SYMBOL_COMPONENT because it is already
-            LEX_IS_LINE_COMMENT_START.  However, it is the only character in
-            line_comment_chars for d10v, hence we can recognize it as such.  */
+            We can't make '#' LEX_IS_SYMBOL_COMPONENT because it is
+            already LEX_IS_LINE_COMMENT_START.  However, it is the
+            only character in line_comment_chars for d10v, hence we
+            can recognize it as such.  */
          /* An alternative approach would be to reset the state to 1 when
             we see '||', '<'- or '->', but that seems to be overkill.  */
          /* An alternative approach would be to reset the state to 1 when
             we see '||', '<'- or '->', but that seems to be overkill.  */
-         if (state == 10) PUT (' ');
+         if (state == 10)
+           PUT (' ');
 #endif
          /* We have a line comment character which is not at the
             start of a line.  If this is also a normal comment
 #endif
          /* We have a line comment character which is not at the
             start of a line.  If this is also a normal comment
@@ -1140,11 +1235,15 @@ do_scrub_chars (get, tostart, tolen)
 #if defined TC_ARM && defined OBJ_ELF
          /* On the ARM, `@' is the comment character.
             Unfortunately this is also a special character in ELF .symver
 #if defined TC_ARM && defined OBJ_ELF
          /* On the ARM, `@' is the comment character.
             Unfortunately this is also a special character in ELF .symver
-            directives (and .type, though we deal with those another way).  So
-            we check if this line is such a directive, and treat the character
-            as default if so.  This is a hack.  */
+            directives (and .type, though we deal with those another way).
+            So we check if this line is such a directive, and treat
+            the character as default if so.  This is a hack.  */
          if ((symver_state != NULL) && (*symver_state == 0))
            goto de_fault;
          if ((symver_state != NULL) && (*symver_state == 0))
            goto de_fault;
+#endif
+#ifdef WARN_COMMENTS
+         if (!found_comment)
+           as_where (&found_comment_file, &found_comment);
 #endif
          do
            {
 #endif
          do
            {
@@ -1169,11 +1268,35 @@ do_scrub_chars (get, tostart, tolen)
              break;
            }
 
              break;
            }
 
+#ifdef TC_Z80
+         /* "af'" is a symbol containing '\''.  */
+         if (state == 3 && (ch == 'a' || ch == 'A')) 
+           {
+             state = 16;
+             PUT (ch);
+             ch = GET ();
+             if (ch == 'f' || ch == 'F') 
+               {
+                 state = 17;
+                 PUT (ch);
+                 break;
+               }
+             else
+               {
+                 state = 9;
+                 if (!IS_SYMBOL_COMPONENT (ch)) 
+                   {
+                     UNGET (ch);
+                     break;
+                   }
+               }
+           }
+#endif
          if (state == 3)
            state = 9;
 
          /* This is a common case.  Quickly copy CH and all the
          if (state == 3)
            state = 9;
 
          /* This is a common case.  Quickly copy CH and all the
-             following symbol component or normal characters.  */
+            following symbol component or normal characters.  */
          if (to + 1 < toend
              && mri_state == NULL
 #if defined TC_ARM && defined OBJ_ELF
          if (to + 1 < toend
              && mri_state == NULL
 #if defined TC_ARM && defined OBJ_ELF
@@ -1188,44 +1311,31 @@ do_scrub_chars (get, tostart, tolen)
                {
                  int type;
 
                {
                  int type;
 
-                 ch2 = * (unsigned char *) s;
+                 ch2 = *(unsigned char *) s;
                  type = lex[ch2];
                  if (type != 0
                      && type != LEX_IS_SYMBOL_COMPONENT)
                    break;
                }
                  type = lex[ch2];
                  if (type != 0
                      && type != LEX_IS_SYMBOL_COMPONENT)
                    break;
                }
+
              if (s > from)
              if (s > from)
-               {
-                 /* Handle the last character normally, for
-                     simplicity.  */
-                 --s;
-               }
+               /* Handle the last character normally, for
+                  simplicity.  */
+               --s;
+
              len = s - from;
              len = s - from;
+
              if (len > (toend - to) - 1)
                len = (toend - to) - 1;
              if (len > (toend - to) - 1)
                len = (toend - to) - 1;
+
              if (len > 0)
                {
                  PUT (ch);
              if (len > 0)
                {
                  PUT (ch);
-                 if (len > 8)
-                   {
-                     memcpy (to, from, len);
-                     to += len;
-                     from += len;
-                   }
-                 else
-                   {
-                     switch (len)
-                       {
-                       case 8: *to++ = *from++;
-                       case 7: *to++ = *from++;
-                       case 6: *to++ = *from++;
-                       case 5: *to++ = *from++;
-                       case 4: *to++ = *from++;
-                       case 3: *to++ = *from++;
-                       case 2: *to++ = *from++;
-                       case 1: *to++ = *from++;
-                       }
-                   } 
+                 memcpy (to, from, len);
+                 to += len;
+                 from += len;
+                 if (to >= toend)
+                   goto tofull;
                  ch = GET ();
                }
            }
                  ch = GET ();
                }
            }
@@ -1236,15 +1346,15 @@ do_scrub_chars (get, tostart, tolen)
          /* Some relatively `normal' character.  */
          if (state == 0)
            {
          /* Some relatively `normal' character.  */
          if (state == 0)
            {
-             state = 11;       /* Now seeing label definition */
+             state = 11;       /* Now seeing label definition.  */
            }
          else if (state == 1)
            {
            }
          else if (state == 1)
            {
-             state = 2;        /* Ditto */
+             state = 2;        /* Ditto.  */
            }
          else if (state == 9)
            {
            }
          else if (state == 9)
            {
-             if (lex[ch] != LEX_IS_SYMBOL_COMPONENT)
+             if (!IS_SYMBOL_COMPONENT (ch))
                state = 3;
            }
          else if (state == 10)
                state = 3;
            }
          else if (state == 10)
@@ -1293,4 +1403,3 @@ do_scrub_chars (get, tostart, tolen)
   return to - tostart;
 }
 
   return to - tostart;
 }
 
-/* end of app.c */
GDB Binutils - Deliverables
This page took 0.036073 seconds and 4 git commands to generate.