aboutsummaryrefslogtreecommitdiff
path: root/gas
diff options
context:
space:
mode:
authorIan Lance Taylor <ian@airs.com>1995-11-03 18:31:25 +0000
committerIan Lance Taylor <ian@airs.com>1995-11-03 18:31:25 +0000
commit07d012f66c135c8d021001454bc14b6d0d9ace8e (patch)
tree6745a0f6e70a7fb2a0c9ae28f85a59178ad2933c /gas
parenta132c404b60006e8038cc19bc84e08c056c11e6e (diff)
downloadgdb-07d012f66c135c8d021001454bc14b6d0d9ace8e.zip
gdb-07d012f66c135c8d021001454bc14b6d0d9ace8e.tar.gz
gdb-07d012f66c135c8d021001454bc14b6d0d9ace8e.tar.bz2
* as.c (main): On TC_A29K, call macro_init with macro_alternate
set to 1. * macro.c (get_any_string): Don't keep quotes if macro_strip_at is set, even if macro_alternate is set. (get_apost_token): If macro_strip_at, only skip kind if it is '@'. (sub_actual): If macro_strip_at, and kind is '@', don't look up the token unless it ended in '@'. * config/tc-a29k.c (line_separator_chars): Remove '@'. * doc/c-a29k.texi: Document macro usage on A29K.
Diffstat (limited to 'gas')
-rw-r--r--gas/ChangeLog12
-rw-r--r--gas/config/tc-a29k.c2
-rw-r--r--gas/doc/c-a29k.texi16
-rw-r--r--gas/macro.c31
4 files changed, 46 insertions, 15 deletions
diff --git a/gas/ChangeLog b/gas/ChangeLog
index 74cd48d..f01840f 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,15 @@
+Fri Nov 3 13:02:59 1995 Ian Lance Taylor <ian@cygnus.com>
+
+ * as.c (main): On TC_A29K, call macro_init with macro_alternate
+ set to 1.
+ * macro.c (get_any_string): Don't keep quotes if macro_strip_at is
+ set, even if macro_alternate is set.
+ (get_apost_token): If macro_strip_at, only skip kind if it is '@'.
+ (sub_actual): If macro_strip_at, and kind is '@', don't look up
+ the token unless it ended in '@'.
+ * config/tc-a29k.c (line_separator_chars): Remove '@'.
+ * doc/c-a29k.texi: Document macro usage on A29K.
+
Thu Nov 2 23:07:57 1995 Ian Lance Taylor <ian@cygnus.com>
* config/tc-m68k.c (m68k_ip): Handle new 'W' place, meaning a
diff --git a/gas/config/tc-a29k.c b/gas/config/tc-a29k.c
index 9832a38..96b13d9 100644
--- a/gas/config/tc-a29k.c
+++ b/gas/config/tc-a29k.c
@@ -104,7 +104,7 @@ const char line_comment_chars[] = "#";
/* We needed an unused char for line separation to work around the
lack of macros, using sed and such. */
-const char line_separator_chars[] = "@";
+const char line_separator_chars[] = "";
/* Chars that can be used to separate mant from exp in floating point nums */
const char EXP_CHARS[] = "eE";
diff --git a/gas/doc/c-a29k.texi b/gas/doc/c-a29k.texi
index 1e5383b..771831a 100644
--- a/gas/doc/c-a29k.texi
+++ b/gas/doc/c-a29k.texi
@@ -31,10 +31,20 @@
@node AMD29K Syntax
@section Syntax
@menu
+* AMD29K-Macros:: Macros
* AMD29K-Chars:: Special Characters
* AMD29K-Regs:: Register Names
@end menu
+@node AMD29K-Macros
+@subsection Macros
+
+@cindex Macros, AMD 29K
+@cindex AMD 29K macros
+The macro syntax used on the AMD 29K is like that described in the AMD
+29K Family Macro Assembler Specification. Normal @code{@value{AS}}
+macros should still work.
+
@node AMD29K-Chars
@subsection Special Characters
@@ -42,12 +52,6 @@
@cindex AMD 29K line comment character
@samp{;} is the line comment character.
-@cindex line separator, AMD 29K
-@cindex AMD 29K line separator
-@cindex statement separator, AMD 29K
-@cindex AMD 29K statement separator
-@samp{@@} can be used instead of a newline to separate statements.
-
@cindex identifiers, AMD 29K
@cindex AMD 29K identifiers
The character @samp{?} is permitted in identifiers (but may not begin
diff --git a/gas/macro.c b/gas/macro.c
index e256fee..5743f79 100644
--- a/gas/macro.c
+++ b/gas/macro.c
@@ -23,7 +23,11 @@
#include "config.h"
#include <stdio.h>
+#ifdef HAVE_STRING_H
#include <string.h>
+#else
+#include <strings.h>
+#endif
#include <ctype.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
@@ -382,7 +386,9 @@ get_any_string (idx, in, out, expand, pretend_quoted)
|| in->ptr[idx] == '<'
|| (macro_alternate && in->ptr[idx] == '\''))
{
- if (macro_alternate && expand)
+ if (macro_alternate
+ && ! macro_strip_at
+ && expand)
{
/* Keep the quotes */
sb_add_char (out, '\"');
@@ -573,8 +579,10 @@ get_apost_token (idx, in, name, kind)
int kind;
{
idx = get_token (idx, in, name);
- if (idx < in->len && in->ptr[idx] == kind
- && (! macro_mri || macro_strip_at))
+ if (idx < in->len
+ && in->ptr[idx] == kind
+ && (! macro_mri || macro_strip_at)
+ && (! macro_strip_at || kind == '@'))
idx++;
return idx;
}
@@ -582,8 +590,8 @@ get_apost_token (idx, in, name, kind)
/* Substitute the actual value for a formal parameter. */
static int
-sub_actual (src, in, t, formal_hash, kind, out, copyifnotthere)
- int src;
+sub_actual (start, in, t, formal_hash, kind, out, copyifnotthere)
+ int start;
sb *in;
sb *t;
struct hash_control *formal_hash;
@@ -591,11 +599,18 @@ sub_actual (src, in, t, formal_hash, kind, out, copyifnotthere)
sb *out;
int copyifnotthere;
{
+ int src;
formal_entry *ptr;
- src = get_apost_token (src, in, t, kind);
- /* See if it's in the macro's hash table */
- ptr = (formal_entry *) hash_find (formal_hash, sb_terminate (t));
+ src = get_apost_token (start, in, t, kind);
+ /* See if it's in the macro's hash table, unless this is
+ macro_strip_at and kind is '@' and the token did not end in '@'. */
+ if (macro_strip_at
+ && kind == '@'
+ && (src == start || in->ptr[src - 1] != '@'))
+ ptr = NULL;
+ else
+ ptr = (formal_entry *) hash_find (formal_hash, sb_terminate (t));
if (ptr)
{
if (ptr->actual.len)