aboutsummaryrefslogtreecommitdiff
path: root/gas
diff options
context:
space:
mode:
Diffstat (limited to 'gas')
-rw-r--r--gas/ChangeLog19
-rw-r--r--gas/Makefile.am14
-rw-r--r--gas/Makefile.in33
-rw-r--r--gas/NEWS2
-rw-r--r--gas/doc/Makefile.am4
-rw-r--r--gas/doc/Makefile.in6
-rw-r--r--gas/doc/gasp.texi1456
-rw-r--r--gas/gasp.c3761
-rw-r--r--gas/macro.c64
-rw-r--r--gas/macro.h47
-rw-r--r--gas/makefile.vms13
-rw-r--r--gas/mpw-make.sed4
-rw-r--r--gas/read.c7
-rw-r--r--gas/testsuite/ChangeLog6
-rw-r--r--gas/testsuite/config/default.exp5
-rw-r--r--gas/testsuite/gasp/INC1.H3
-rw-r--r--gas/testsuite/gasp/INC2.H2
-rw-r--r--gas/testsuite/gasp/assign.asm13
-rw-r--r--gas/testsuite/gasp/assign.err1
-rw-r--r--gas/testsuite/gasp/assign.out22
-rw-r--r--gas/testsuite/gasp/condass.asm129
-rw-r--r--gas/testsuite/gasp/condass.err0
-rw-r--r--gas/testsuite/gasp/condass.out155
-rw-r--r--gas/testsuite/gasp/crash.asm22
-rw-r--r--gas/testsuite/gasp/crash.err1
-rw-r--r--gas/testsuite/gasp/crash.out3059
-rw-r--r--gas/testsuite/gasp/crash1.asm13
-rw-r--r--gas/testsuite/gasp/crash1.err0
-rw-r--r--gas/testsuite/gasp/crash1.out24
-rw-r--r--gas/testsuite/gasp/crash2.asm41
-rw-r--r--gas/testsuite/gasp/crash2.err0
-rw-r--r--gas/testsuite/gasp/crash2.out69
-rw-r--r--gas/testsuite/gasp/data.asm23
-rw-r--r--gas/testsuite/gasp/data.err0
-rw-r--r--gas/testsuite/gasp/data.out45
-rw-r--r--gas/testsuite/gasp/exp.asm80
-rw-r--r--gas/testsuite/gasp/exp.err7
-rw-r--r--gas/testsuite/gasp/exp.out124
-rw-r--r--gas/testsuite/gasp/flonums.asm19
-rw-r--r--gas/testsuite/gasp/flonums.err0
-rw-r--r--gas/testsuite/gasp/flonums.out36
-rw-r--r--gas/testsuite/gasp/gasp.exp40
-rw-r--r--gas/testsuite/gasp/include.asm4
-rw-r--r--gas/testsuite/gasp/include.err0
-rw-r--r--gas/testsuite/gasp/include.out15
-rw-r--r--gas/testsuite/gasp/listing.asm15
-rw-r--r--gas/testsuite/gasp/listing.err0
-rw-r--r--gas/testsuite/gasp/listing.out28
-rw-r--r--gas/testsuite/gasp/macro.asm102
-rw-r--r--gas/testsuite/gasp/macro.err0
-rw-r--r--gas/testsuite/gasp/macro.out382
-rw-r--r--gas/testsuite/gasp/mdouble.asm47
-rw-r--r--gas/testsuite/gasp/mdouble.err0
-rw-r--r--gas/testsuite/gasp/mdouble.out68
-rw-r--r--gas/testsuite/gasp/mri/embed.asm5
-rw-r--r--gas/testsuite/gasp/mri/embed.out9
-rw-r--r--gas/testsuite/gasp/mri/exists.asm10
-rw-r--r--gas/testsuite/gasp/mri/exists.out24
-rw-r--r--gas/testsuite/gasp/mri/irp.asm4
-rw-r--r--gas/testsuite/gasp/mri/irp.out8
-rw-r--r--gas/testsuite/gasp/mri/irpc.asm3
-rw-r--r--gas/testsuite/gasp/mri/irpc.out8
-rw-r--r--gas/testsuite/gasp/mri/macro.asm8
-rw-r--r--gas/testsuite/gasp/mri/macro.out18
-rw-r--r--gas/testsuite/gasp/mri/narg.asm9
-rw-r--r--gas/testsuite/gasp/mri/narg.out38
-rw-r--r--gas/testsuite/gasp/mri/rept.asm3
-rw-r--r--gas/testsuite/gasp/mri/rept.out16
-rw-r--r--gas/testsuite/gasp/pl1.asm20
-rw-r--r--gas/testsuite/gasp/pl1.err1
-rw-r--r--gas/testsuite/gasp/pl1.out49
-rw-r--r--gas/testsuite/gasp/pl2.asm28
-rw-r--r--gas/testsuite/gasp/pl2.err0
-rw-r--r--gas/testsuite/gasp/pl2.out51
-rw-r--r--gas/testsuite/gasp/pl3.asm30
-rw-r--r--gas/testsuite/gasp/pl3.err0
-rw-r--r--gas/testsuite/gasp/pl3.out86
-rw-r--r--gas/testsuite/gasp/pl4.asm10
-rw-r--r--gas/testsuite/gasp/pl4.err0
-rw-r--r--gas/testsuite/gasp/pl4.out16
-rw-r--r--gas/testsuite/gasp/pl5.asm15
-rw-r--r--gas/testsuite/gasp/pl5.err0
-rw-r--r--gas/testsuite/gasp/pl5.out32
-rw-r--r--gas/testsuite/gasp/pl6.asm21
-rw-r--r--gas/testsuite/gasp/pl6.err0
-rw-r--r--gas/testsuite/gasp/pl6.out54
-rw-r--r--gas/testsuite/gasp/pl7.asm12
-rw-r--r--gas/testsuite/gasp/pl7.err1
-rw-r--r--gas/testsuite/gasp/pl7.out26
-rw-r--r--gas/testsuite/gasp/pl8.asm18
-rw-r--r--gas/testsuite/gasp/pl8.err0
-rw-r--r--gas/testsuite/gasp/pl8.out33
-rw-r--r--gas/testsuite/gasp/pr7583.asm3
-rw-r--r--gas/testsuite/gasp/pr7583.err0
-rw-r--r--gas/testsuite/gasp/pr7583.out5
-rw-r--r--gas/testsuite/gasp/reg.asm9
-rw-r--r--gas/testsuite/gasp/reg.err0
-rw-r--r--gas/testsuite/gasp/reg.out15
-rw-r--r--gas/testsuite/gasp/rep.asm13
-rw-r--r--gas/testsuite/gasp/rep.err0
-rw-r--r--gas/testsuite/gasp/rep.out391
-rw-r--r--gas/testsuite/gasp/repeat.asm14
-rw-r--r--gas/testsuite/gasp/repeat.err0
-rw-r--r--gas/testsuite/gasp/repeat.out211
-rw-r--r--gas/testsuite/gasp/reperr.asm2
-rw-r--r--gas/testsuite/gasp/reperr.err1
-rw-r--r--gas/testsuite/gasp/reperr.out5
-rw-r--r--gas/testsuite/gasp/reperr1.asm3
-rw-r--r--gas/testsuite/gasp/reperr1.err1
-rw-r--r--gas/testsuite/gasp/reperr1.out5
-rw-r--r--gas/testsuite/gasp/reperr2.asm6
-rw-r--r--gas/testsuite/gasp/reperr2.err1
-rw-r--r--gas/testsuite/gasp/reperr2.out14
-rw-r--r--gas/testsuite/gasp/reperr3.asm21
-rw-r--r--gas/testsuite/gasp/reperr3.err6
-rw-r--r--gas/testsuite/gasp/reperr3.out2035
-rw-r--r--gas/testsuite/gasp/sdata.asm24
-rw-r--r--gas/testsuite/gasp/sdata.err3
-rw-r--r--gas/testsuite/gasp/sdata.out59
-rw-r--r--gas/testsuite/gasp/sfunc.asm26
-rw-r--r--gas/testsuite/gasp/sfunc.err0
-rw-r--r--gas/testsuite/gasp/sfunc.out49
-rw-r--r--gas/testsuite/gasp/t1.asm3
-rw-r--r--gas/testsuite/gasp/t1.err0
-rw-r--r--gas/testsuite/gasp/t1.out5
-rw-r--r--gas/testsuite/gasp/t2.asm8
-rw-r--r--gas/testsuite/gasp/t2.err0
-rw-r--r--gas/testsuite/gasp/t2.out13
-rw-r--r--gas/testsuite/gasp/t3.asm12
-rw-r--r--gas/testsuite/gasp/t3.err1
-rw-r--r--gas/testsuite/gasp/t3.out25
-rw-r--r--gas/testsuite/gasp/while.asm18
-rw-r--r--gas/testsuite/gasp/while.err0
-rw-r--r--gas/testsuite/gasp/while.out388
134 files changed, 93 insertions, 13998 deletions
diff --git a/gas/ChangeLog b/gas/ChangeLog
index 67cd527..d74a0c6 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,22 @@
+2002-12-02 Nick Clifton <nickc@redhat.com>
+
+ * gasp.c: Delete. It has been deprecated.
+ * NEWS: Mention that gasp has been removed.
+ * Makefile.am: Remove references to gasp.
+ * makefile.vms: Likewise.
+ * mpw-make.sed: Likewise.
+ * Makeile.in: Regenerate.
+ * doc/gasp.texi: Delete.
+ * doc/Makefile.am: Remove references to gasp.texi.
+ * doc/Makefile.in: Regenerate.
+ * macro.c: Delete references to gasp.
+ Remove use of comment_char function parameter as it is no longer
+ needed.
+ * macro.h: Update prototypes to remove comment_char parameter.
+ Fix formatting.
+ * read.c (read_a_source_file, s_irp): Remove comment_char
+ parameter from invocation of functions in macro.c
+
2002-12-02 Hans-Peter Nilsson <hp@axis.com>
* read.c (emit_expr) [!WORKING_DOT_WORD]: Initialize x->use_jump.
diff --git a/gas/Makefile.am b/gas/Makefile.am
index 9ceb6e6..7ef0218 100644
--- a/gas/Makefile.am
+++ b/gas/Makefile.am
@@ -196,7 +196,7 @@ GAS_CFILES = \
symbols.c \
write.c
-CFILES = $(GAS_CFILES) gasp.c itbl-ops.c
+CFILES = $(GAS_CFILES) itbl-ops.c
HFILES = \
as.h \
@@ -447,8 +447,8 @@ po/POTFILES.in: @MAINT@ Makefile
for file in $(POTFILES); do echo $$file; done | sort > tmp \
&& mv tmp $(srcdir)/po/POTFILES.in
-# Note: GASP is now deprecated and will be removed at some point in the future.
-# Anything that GASP could do can now be done by GAS.
+# Note: GASP is now deprecated and has been removed. It is still
+# available in the CVS archive or older binutils releases if it is needed.
noinst_PROGRAMS = as-new
noinst_SCRIPTS = $(GDBINIT)
EXTRA_SCRIPTS = .gdbinit
@@ -512,10 +512,6 @@ $(OBJS): $(INCDIR)/bin-bugs.h $(INCDIR)/ansidecl.h $(INCDIR)/libiberty.h \
as.h asintl.h bignum.h bit_fix.h config.h emul.h expr.h flonum.h \
frags.h hash.h listing.h obj.h read.h symbols.h tc.h write.h
-gasp_new_SOURCES = gasp.c macro.c sb.c hash.c
-gasp_new_LDADD = ../libiberty/libiberty.a $(INTLLIBS)
-gasp_new_DEPENDENCIES = ../libiberty/libiberty.a $(INTLDEPS)
-
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
echo $${rootme}/../expect/expect ; \
else echo expect ; fi`
@@ -648,7 +644,7 @@ itbl-parse.c itbl-parse.h: $(srcdir)/itbl-parse.y
# stand-alone itbl assembler & disassembler
-EXTRA_PROGRAMS = gasp-new itbl-test
+EXTRA_PROGRAMS = itbl-test
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
@@ -2369,8 +2365,6 @@ symbols.o: symbols.c $(INCDIR)/symcat.h $(INCDIR)/safe-ctype.h \
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
output-file.h dwarf2dbg.h
-gasp.o: gasp.c $(INCDIR)/getopt.h $(INCDIR)/safe-ctype.h \
- sb.h macro.h $(INCDIR)/xregex.h $(INCDIR)/xregex2.h
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
emul-target.h
diff --git a/gas/Makefile.in b/gas/Makefile.in
index 18f23a3..99ca3c4 100644
--- a/gas/Makefile.in
+++ b/gas/Makefile.in
@@ -1,6 +1,6 @@
-# Makefile.in generated automatically by automake 1.4 from Makefile.am
+# Makefile.in generated automatically by automake 1.4-p5 from Makefile.am
-# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
+# Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
@@ -312,7 +312,7 @@ GAS_CFILES = \
write.c
-CFILES = $(GAS_CFILES) gasp.c itbl-ops.c
+CFILES = $(GAS_CFILES) itbl-ops.c
HFILES = \
as.h \
@@ -570,8 +570,8 @@ POTFILES = $(MULTI_CFILES) $(TARGET_ENV_HFILES) $(OBJ_FORMAT_HFILES) \
$(HFILES) $(CFILES) $(GAS_CFILES)
-# Note: GASP is now deprecated and will be removed at some point in the future.
-# Anything that GASP could do can now be done by GAS.
+# Note: GASP is now deprecated and has been removed. It is still
+# available in the CVS archive or older binutils releases if it is needed.
noinst_PROGRAMS = as-new
noinst_SCRIPTS = $(GDBINIT)
EXTRA_SCRIPTS = .gdbinit
@@ -621,10 +621,6 @@ as_new_DEPENDENCIES = $(TARG_CPU_O) $(OBJ_FORMAT_O) $(ATOF_TARG_O) \
$(extra_objects) $(GASLIBS) $(INTLDEPS)
-gasp_new_SOURCES = gasp.c macro.c sb.c hash.c
-gasp_new_LDADD = ../libiberty/libiberty.a $(INTLLIBS)
-gasp_new_DEPENDENCIES = ../libiberty/libiberty.a $(INTLDEPS)
-
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
echo $${rootme}/../expect/expect ; \
else echo expect ; fi`
@@ -642,7 +638,7 @@ EXTRA_as_new_SOURCES = config/m68k-parse.y
# stand-alone itbl assembler & disassembler
-EXTRA_PROGRAMS = gasp-new itbl-test
+EXTRA_PROGRAMS = itbl-test
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
@@ -2380,9 +2376,6 @@ DEFS = @DEFS@ -I. -I$(srcdir) -I.
CPPFLAGS = @CPPFLAGS@
LDFLAGS = @LDFLAGS@
LIBS = @LIBS@
-gasp_new_OBJECTS = gasp.$(OBJEXT) macro.$(OBJEXT) sb.$(OBJEXT) \
-hash.$(OBJEXT)
-gasp_new_LDFLAGS =
itbl_test_OBJECTS = itbl-parse.$(OBJEXT) itbl-lex.$(OBJEXT)
itbl_test_DEPENDENCIES = itbl-tops.o itbl-test.o \
../libiberty/libiberty.a
@@ -2414,10 +2407,10 @@ configure configure.in gdbinit.in itbl-lex.c itbl-parse.c
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
-TAR = tar
+TAR = gtar
GZIP_ENV = --best
-SOURCES = $(gasp_new_SOURCES) $(itbl_test_SOURCES) $(as_new_SOURCES) $(EXTRA_as_new_SOURCES)
-OBJECTS = $(gasp_new_OBJECTS) $(itbl_test_OBJECTS) $(as_new_OBJECTS)
+SOURCES = $(itbl_test_SOURCES) $(as_new_SOURCES) $(EXTRA_as_new_SOURCES)
+OBJECTS = $(itbl_test_OBJECTS) $(as_new_OBJECTS)
all: all-redirect
.SUFFIXES:
@@ -2520,10 +2513,6 @@ distclean-libtool:
maintainer-clean-libtool:
-gasp-new$(EXEEXT): $(gasp_new_OBJECTS) $(gasp_new_DEPENDENCIES)
- @rm -f gasp-new$(EXEEXT)
- $(LINK) $(gasp_new_LDFLAGS) $(gasp_new_OBJECTS) $(gasp_new_LDADD) $(LIBS)
-
itbl-test$(EXEEXT): $(itbl_test_OBJECTS) $(itbl_test_DEPENDENCIES)
@rm -f itbl-test$(EXEEXT)
$(LINK) $(itbl_test_LDFLAGS) $(itbl_test_OBJECTS) $(itbl_test_LDADD) $(LIBS)
@@ -2575,7 +2564,7 @@ maintainer-clean-recursive:
dot_seen=no; \
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
rev="$$subdir $$rev"; \
- test "$$subdir" = "." && dot_seen=yes; \
+ test "$$subdir" != "." || dot_seen=yes; \
done; \
test "$$dot_seen" = "no" && rev=". $$rev"; \
target=`echo $@ | sed s/-recursive//`; \
@@ -3274,8 +3263,6 @@ symbols.o: symbols.c $(INCDIR)/symcat.h $(INCDIR)/safe-ctype.h \
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
output-file.h dwarf2dbg.h
-gasp.o: gasp.c $(INCDIR)/getopt.h $(INCDIR)/safe-ctype.h \
- sb.h macro.h $(INCDIR)/xregex.h $(INCDIR)/xregex2.h
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
emul-target.h
diff --git a/gas/NEWS b/gas/NEWS
index c18673a..ab4ce39 100644
--- a/gas/NEWS
+++ b/gas/NEWS
@@ -1,5 +1,7 @@
-*- text -*-
+* GASP has now been removed.
+
* Support for Texas Instruments TMS320C4x and TMS320C3x series of
DSP's contributed by Michael Hayes and Svein E. Seldal.
diff --git a/gas/doc/Makefile.am b/gas/doc/Makefile.am
index 701eab2..63aa179 100644
--- a/gas/doc/Makefile.am
+++ b/gas/doc/Makefile.am
@@ -15,8 +15,6 @@ POD2MAN = pod2man --center="GNU Development Tools" \
man_MANS = as.1
-# The gasp.texi file is now deprecated, as GASP has been deprecated.
-# It will disappear in a future release.
info_TEXINFOS = as.texinfo
asconfig.texi: $(CONFIG).texi
@@ -71,7 +69,7 @@ install: install-info
# This one isn't ready for prime time yet. Not even a little bit.
-noinst_TEXINFOS = internals.texi gasp.texi
+noinst_TEXINFOS = internals.texi
DISTCLEANFILES = asconfig.texi
diff --git a/gas/doc/Makefile.in b/gas/doc/Makefile.in
index 1bd387e..7a9fcab 100644
--- a/gas/doc/Makefile.in
+++ b/gas/doc/Makefile.in
@@ -133,8 +133,6 @@ POD2MAN = pod2man --center="GNU Development Tools" \
man_MANS = as.1
-# The gasp.texi file is now deprecated, as GASP has been deprecated.
-# It will disappear in a future release.
info_TEXINFOS = as.texinfo
CPU_DOCS = \
@@ -173,7 +171,7 @@ CPU_DOCS = \
# This one isn't ready for prime time yet. Not even a little bit.
-noinst_TEXINFOS = internals.texi gasp.texi
+noinst_TEXINFOS = internals.texi
DISTCLEANFILES = asconfig.texi
@@ -195,7 +193,7 @@ DIST_COMMON = Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
-TAR = tar
+TAR = gtar
GZIP_ENV = --best
all: all-redirect
.SUFFIXES:
diff --git a/gas/doc/gasp.texi b/gas/doc/gasp.texi
deleted file mode 100644
index 889e997..0000000
--- a/gas/doc/gasp.texi
+++ /dev/null
@@ -1,1456 +0,0 @@
-\input texinfo @c -*- Texinfo -*-
-@setfilename gasp.info
-@c
-@c This file documents the assembly preprocessor "GASP"
-@c
-@c Copyright 1994, 1995, 2000, 2002 Free Software Foundation, Inc.
-@c
-@c Permission is granted to copy, distribute and/or modify this document
-@c under the terms of the GNU Free Documentation License, Version 1.1
-@c or any later version published by the Free Software Foundation;
-@c with no Invariant Sections, with no Front-Cover Texts, and with no
-@c Back-Cover Texts. A copy of the license is included in the
-@c section entitled "GNU Free Documentation License".
-
-@ifinfo
-@format
-START-INFO-DIR-ENTRY
-* gasp: (gasp). The GNU Assembler Preprocessor
-END-INFO-DIR-ENTRY
-@end format
-@end ifinfo
-
-@syncodeindex ky cp
-@syncodeindex fn cp
-
-@finalout
-@setchapternewpage odd
-@settitle GASP
-@titlepage
-@c FIXME boring title
-@title GASP, an assembly preprocessor
-@subtitle for GASP version 1
-@sp 1
-@subtitle March 1994
-@author Roland Pesch
-@page
-
-@tex
-{\parskip=0pt \hfill Cygnus Support\par
-}
-@end tex
-
-@vskip 0pt plus 1filll
-Copyright @copyright{} 1994, 1995, 2000, 2002 Free Software Foundation, Inc.
-
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.1
- or any later version published by the Free Software Foundation;
- with no Invariant Sections, with no Front-Cover Texts, and with no
- Back-Cover Texts. A copy of the license is included in the
- section entitled "GNU Free Documentation License".
-
-@end titlepage
-
-@ifinfo
-Copyright @copyright{} 1994, 1995, 2000, 2002 Free Software Foundation, Inc.
-
-@ignore
-Permission is granted to process this file through TeX and print the
-results, provided the printed document carries a copying permission
-notice identical to this one except for the removal of this paragraph
-(this paragraph not being relevant to the printed manual).
-@end ignore
-
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.1
- or any later version published by the Free Software Foundation;
- with no Invariant Sections, with no Front-Cover Texts, and with no
- Back-Cover Texts. A copy of the license is included in the
- section entitled "GNU Free Documentation License".
-
-
-@node Top
-@top GASP
-
-GASP is a preprocessor for assembly programs.
-
-This file describes version 1 of GASP.
-
-Steve Chamberlain wrote GASP; Roland Pesch wrote this manual.
-
-@menu
-* Overview:: What is GASP?
-* Invoking GASP:: Command line options.
-* Commands:: Preprocessor commands.
-* GNU Free Documentation License:: GNU Free Documentation License
-* Index:: Index.
-@end menu
-@end ifinfo
-
-@node Overview
-@chapter What is GASP?
-
-The primary purpose of the @sc{gnu} assembler is to assemble the output of
-other programs---notably compilers. When you have to hand-code
-specialized routines in assembly, that means the @sc{gnu} assembler is
-an unfriendly processor: it has no directives for macros, conditionals,
-or many other conveniences that you might expect.
-
-In some cases you can simply use the C preprocessor, or a generalized
-preprocessor like @sc{m4}; but this can be awkward, since none of these
-things are designed with assembly in mind.
-
-@sc{gasp} fills this need. It is expressly designed to provide the
-facilities you need with hand-coded assembly code. Implementing it as a
-preprocessor, rather than part of the assembler, allows the maximum
-flexibility: you can use it with hand-coded assembly, without paying a
-penalty of added complexity in the assembler you use for compiler
-output.
-
-@emph{Note} The use of @sc{gasp} has now been deprecated. Anything
-that it could do can now be done by the macro facilities built into
-@sc{gas} itself. At some point in the future the @sc{gasp} sources will
-be removed entirely from the binutils distribution.
-
-Here is a small example to give the flavor of @sc{gasp}. This input to
-@sc{gasp}
-
-@cartouche
-@example
- .MACRO saveregs from=8 to=14
-count .ASSIGNA \from
- ! save r\from..r\to
- .AWHILE \&count LE \to
- mov r\&count,@@-sp
-count .ASSIGNA \&count + 1
- .AENDW
- .ENDM
-
- saveregs from=12
-
-bar: mov #H'dead+10,r0
-foo .SDATAC "hello"<10>
- .END
-@end example
-@end cartouche
-
-@noindent
-generates this assembly program:
-
-@cartouche
-@example
- ! save r12..r14
- mov r12,@@-sp
- mov r13,@@-sp
- mov r14,@@-sp
-
-bar: mov #57005+10,r0
-foo: .byte 6,104,101,108,108,111,10
-@end example
-@end cartouche
-
-@node Invoking GASP
-@chapter Command Line Options
-
-@c FIXME! Or is there a simpler way, calling from GAS option?
-The simplest way to use @sc{gasp} is to run it as a filter and assemble
-its output. In Unix and its ilk, you can do this, for example:
-
-@c FIXME! GASP filename suffix convention?
-@example
-$ gasp prog.asm | as -o prog.o
-@end example
-
-Naturally, there are also a few command-line options to allow you to
-request variations on this basic theme. Here is the full set of
-possibilities for the @sc{gasp} command line.
-
-@example
-gasp [ -a | --alternate ]
- [ -c @var{char} | --commentchar @var{char} ]
- [ -d | --debug ] [ -h | --help ] [ -M | --mri ]
- [ -o @var{outfile} | --output @var{outfile} ]
- [ -p | --print ] [ -s | --copysource ]
- [ -u | --unreasonable ] [ -v | --version ]
- @var{infile} @dots{}
-@end example
-
-@ftable @code
-@item @var{infile} @dots{}
-@c FIXME! Why not stdin as default infile?
-The input file names. You must specify at least one input file; if you
-specify more, @sc{gasp} preprocesses them all, concatenating the output
-in the order you list the @var{infile} arguments.
-
-Mark the end of each input file with the preprocessor command
-@code{.END}. @xref{Other Commands,, Miscellaneous commands}.
-
-@item -a
-@itemx --alternate
-Use alternative macro syntax. @xref{Alternate,, Alternate macro
-syntax}, for a discussion of how this syntax differs from the default
-@sc{gasp} syntax.
-
-@cindex comment character, changing
-@cindex semicolon, as comment
-@cindex exclamation mark, as comment
-@cindex shriek, as comment
-@cindex bang, as comment
-@cindex @code{!} default comment char
-@cindex @code{;} as comment char
-@item -c '@var{char}'
-@itemx --commentchar '@var{char}'
-Use @var{char} as the comment character. The default comment character
-is @samp{!}. For example, to use a semicolon as the comment character,
-specify @w{@samp{-c ';'}} on the @sc{gasp} command line. Since
-assembler command characters often have special significance to command
-shells, it is a good idea to quote or escape @var{char} when you specify
-a comment character.
-
-For the sake of simplicity, all examples in this manual use the default
-comment character @samp{!}.
-
-@item -d
-@itemx --debug
-Show debugging statistics. In this version of @sc{gasp}, this option
-produces statistics about the string buffers that @sc{gasp} allocates
-internally. For each defined buffersize @var{s}, @sc{gasp} shows the
-number of strings @var{n} that it allocated, with a line like this:
-
-@example
-strings size @var{s} : @var{n}
-@end example
-
-@noindent
-@sc{gasp} displays these statistics on the standard error stream, when
-done preprocessing.
-
-@item -h
-@itemx --help
-Display a summary of the @sc{gasp} command line options.
-
-@item -M
-@itemx --mri
-Use MRI compatibility mode. Using this option causes @sc{gasp} to
-accept the syntax and pseudo-ops used by the Microtec Research
-@code{ASM68K} assembler.
-
-@item -o @var{outfile}
-@itemx --output @var{outfile}
-Write the output in a file called @var{outfile}. If you do not use the
-@samp{-o} option, @sc{gasp} writes its output on the standard output
-stream.
-
-@item -p
-@itemx --print
-Print line numbers. @sc{gasp} obeys this option @emph{only} if you also
-specify @samp{-s} to copy source lines to its output. With @samp{-s
--p}, @sc{gasp} displays the line number of each source line copied
-(immediately after the comment character at the beginning of the line).
-
-@item -s
-@itemx --copysource
-Copy the source lines to the output file. Use this option
-to see the effect of each preprocessor line on the @sc{gasp} output.
-@sc{gasp} places a comment character (@samp{!} by default) at
-the beginning of each source line it copies, so that you can use this
-option and still assemble the result.
-
-@item -u
-@itemx --unreasonable
-Bypass ``unreasonable expansion'' limit. Since you can define @sc{gasp}
-macros inside other macro definitions, the preprocessor normally
-includes a sanity check. If your program requires more than 1,000
-nested expansions, @sc{gasp} normally exits with an error message. Use
-this option to turn off this check, allowing unlimited nested
-expansions.
-
-@item -v
-@itemx --version
-Display the @sc{gasp} version number.
-@end ftable
-
-@node Commands
-@chapter Preprocessor Commands
-
-@sc{gasp} commands have a straightforward syntax that fits in well with
-assembly conventions. In general, a command extends for a line, and may
-have up to three fields: an optional label, the command itself, and
-optional arguments to the command. You can write commands in upper or
-lower case, though this manual shows them in upper case. @xref{Syntax
-Details,, Details of the GASP syntax}, for more information.
-
-@menu
-* Conditionals::
-* Loops::
-* Variables::
-* Macros::
-* Data::
-* Listings::
-* Other Commands::
-* Syntax Details::
-* Alternate::
-@end menu
-
-@node Conditionals
-@section Conditional assembly
-
-The conditional-assembly directives allow you to include or exclude
-portions of an assembly depending on how a pair of expressions, or a
-pair of strings, compare.
-
-The overall structure of conditionals is familiar from many other
-contexts. @code{.AIF} marks the start of a conditional, and precedes
-assembly for the case when the condition is true. An optional
-@code{.AELSE} precedes assembly for the converse case, and an
-@code{.AENDI} marks the end of the condition.
-
-@c FIXME! Why doesn't -u turn off this check?
-You may nest conditionals up to a depth of 100; @sc{gasp} rejects
-nesting beyond that, because it may indicate a bug in your macro
-structure.
-
-@c FIXME! Why isn't there something like cpp's -D option? Conditionals
-@c would be much more useful if there were.
-Conditionals are primarily useful inside macro definitions, where you
-often need different effects depending on argument values.
-@xref{Macros,, Defining your own directives}, for details about defining
-macros.
-
-@ftable @code
-@item .AIF @var{expra} @var{cmp} @var{exprb}
-@itemx .AIF "@var{stra}" @var{cmp} "@var{strb}"
-
-The governing condition goes on the same line as the @code{.AIF}
-preprocessor command. You may compare either two strings, or two
-expressions.
-
-When you compare strings, only two conditional @var{cmp} comparison
-operators are available: @samp{EQ} (true if @var{stra} and @var{strb}
-are identical), and @samp{NE} (the opposite).
-
-When you compare two expressions, @emph{both expressions must be
-absolute} (@pxref{Expressions,, Arithmetic expressions in GASP}). You
-can use these @var{cmp} comparison operators with expressions:
-
-@ftable @code
-@item EQ
-Are @var{expra} and @var{exprb} equal? (For strings, are @var{stra} and
-@var{strb} identical?)
-
-@item NE
-Are @var{expra} and @var{exprb} different? (For strings, are @var{stra}
-and @var{strb} different?
-
-@item LT
-Is @var{expra} less than @var{exprb}? (Not allowed for strings.)
-
-@item LE
-Is @var{expra} less than or equal to @var{exprb}? (Not allowed for strings.)
-
-@item GT
-Is @var{expra} greater than @var{exprb}? (Not allowed for strings.)
-
-@item GE
-Is @var{expra} greater than or equal to @var{exprb}? (Not allowed for
-strings.)
-@end ftable
-
-@item .AELSE
-Marks the start of assembly code to be included if the condition fails.
-Optional, and only allowed within a conditional (between @code{.AIF} and
-@code{.AENDI}).
-
-@item .AENDI
-Marks the end of a conditional assembly.
-@end ftable
-
-@node Loops
-@section Repetitive sections of assembly
-
-Two preprocessor directives allow you to repeatedly issue copies of the
-same block of assembly code.
-
-@ftable @code
-@item .AREPEAT @var{aexp}
-@itemx .AENDR
-If you simply need to repeat the same block of assembly over and over a
-fixed number of times, sandwich one instance of the repeated block
-between @code{.AREPEAT} and @code{.AENDR}. Specify the number of
-copies as @var{aexp} (which must be an absolute expression). For
-example, this repeats two assembly statements three times in succession:
-
-@cartouche
-@example
- .AREPEAT 3
- rotcl r2
- div1 r0,r1
- .AENDR
-@end example
-@end cartouche
-
-@item .AWHILE @var{expra} @var{cmp} @var{exprb}
-@itemx .AENDW
-@itemx .AWHILE @var{stra} @var{cmp} @var{strb}
-@itemx .AENDW
-To repeat a block of assembly depending on a conditional test, rather
-than repeating it for a specific number of times, use @code{.AWHILE}.
-@code{.AENDW} marks the end of the repeated block. The conditional
-comparison works exactly the same way as for @code{.AIF}, with the same
-comparison operators (@pxref{Conditionals,, Conditional assembly}).
-
-Since the terms of the comparison must be absolute expression,
-@code{.AWHILE} is primarily useful within macros. @xref{Macros,,
-Defining your own directives}.
-@end ftable
-
-@cindex loops, breaking out of
-@cindex breaking out of loops
-You can use the @code{.EXITM} preprocessor directive to break out of
-loops early (as well as to break out of macros). @xref{Macros,,
-Defining your own directives}.
-
-@node Variables
-@section Preprocessor variables
-
-You can use variables in @sc{gasp} to represent strings, registers, or
-the results of expressions.
-
-You must distinguish two kinds of variables:
-@enumerate
-@item
-Variables defined with @code{.EQU} or @code{.ASSIGN}. To evaluate this
-kind of variable in your assembly output, simply mention its name. For
-example, these two lines define and use a variable @samp{eg}:
-
-@cartouche
-@example
-eg .EQU FLIP-64
- @dots{}
- mov.l eg,r0
-@end example
-@end cartouche
-
-@emph{Do not use} this kind of variable in conditional expressions or
-while loops; @sc{gasp} only evaluates these variables when writing
-assembly output.
-
-@item
-Variables for use during preprocessing. You can define these
-with @code{.ASSIGNC} or @code{.ASSIGNA}. To evaluate this
-kind of variable, write @samp{\&} before the variable name; for example,
-
-@cartouche
-@example
-opcit .ASSIGNA 47
- @dots{}
- .AWHILE \&opcit GT 0
- @dots{}
- .AENDW
-@end example
-@end cartouche
-
-@sc{gasp} treats macro arguments almost the same way, but to evaluate
-them you use the prefix @samp{\} rather than @samp{\&}.
-@xref{Macros,, Defining your own directives}.
-@end enumerate
-
-@ftable @code
-@item @var{pvar} .EQU @var{expr}
-@c FIXME! Anything to beware of re GAS directive of same name?
-Assign preprocessor variable @var{pvar} the value of the expression
-@var{expr}. There are no restrictions on redefinition; use @samp{.EQU}
-with the same @var{pvar} as often as you find it convenient.
-
-@item @var{pvar} .ASSIGN @var{expr}
-Almost the same as @code{.EQU}, save that you may not redefine
-@var{pvar} using @code{.ASSIGN} once it has a value.
-@c FIXME!! Supposed to work this way, apparently, but on 9feb94 works
-@c just like .EQU
-
-@item @var{pvar} .ASSIGNA @var{aexpr}
-Define a variable with a numeric value, for use during preprocessing.
-@var{aexpr} must be an absolute expression. You can redefine variables
-with @code{.ASSIGNA} at any time.
-
-@item @var{pvar} .ASSIGNC "@var{str}"
-Define a variable with a string value, for use during preprocessing.
-You can redefine variables with @code{.ASSIGNC} at any time.
-
-@item @var{pvar} .REG (@var{register})
-Use @code{.REG} to define a variable that represents a register. In
-particular, @var{register} is @emph{not evaluated} as an expression.
-You may use @code{.REG} at will to redefine register variables.
-@end ftable
-
-All these directives accept the variable name in the ``label'' position,
-that is at the left margin. You may specify a colon after the variable
-name if you wish; the first example above could have started @samp{eg:}
-with the same effect.
-
-@c pagebreak makes for better aesthetics---ensures macro and expansion together
-@page
-@node Macros
-@section Defining your own directives
-
-The commands @code{.MACRO} and @code{.ENDM} allow you to define macros
-that generate assembly output. You can use these macros with a syntax
-similar to built-in @sc{gasp} or assembler directives. For example,
-this definition specifies a macro @code{SUM} that adds together a range of
-consecutive registers:
-
-@cartouche
-@example
- .MACRO SUM FROM=0, TO=9
- ! \FROM \TO
- mov r\FROM,r10
-COUNT .ASSIGNA \FROM+1
- .AWHILE \&COUNT LE \TO
- add r\&COUNT,r10
-COUNT .ASSIGNA \&COUNT+1
- .AENDW
- .ENDM
-@end example
-@end cartouche
-
-@noindent
-With that definition, @samp{SUM 0,5} generates this assembly output:
-
-@cartouche
-@example
- ! 0 5
- mov r0,r10
- add r1,r10
- add r2,r10
- add r3,r10
- add r4,r10
- add r5,r10
-@end example
-@end cartouche
-
-@ftable @code
-@item .MACRO @var{macname}
-@itemx .MACRO @var{macname} @var{macargs} @dots{}
-Begin the definition of a macro called @var{macname}. If your macro
-definition requires arguments, specify their names after the macro name,
-separated by commas or spaces. You can supply a default value for any
-macro argument by following the name with @samp{=@var{deflt}}. For
-example, these are all valid @code{.MACRO} statements:
-
-@table @code
-@item .MACRO COMM
-Begin the definition of a macro called @code{COMM}, which takes no
-arguments.
-
-@item .MACRO PLUS1 P, P1
-@itemx .MACRO PLUS1 P P1
-Either statement begins the definition of a macro called @code{PLUS1},
-which takes two arguments; within the macro definition, write
-@samp{\P} or @samp{\P1} to evaluate the arguments.
-
-@item .MACRO RESERVE_STR P1=0 P2
-Begin the definition of a macro called @code{RESERVE_STR}, with two
-arguments. The first argument has a default value, but not the second.
-After the definition is complete, you can call the macro either as
-@samp{RESERVE_STR @var{a},@var{b}} (with @samp{\P1} evaluating to
-@var{a} and @samp{\P2} evaluating to @var{b}), or as @samp{RESERVE_STR
-,@var{b}} (with @samp{\P1} evaluating as the default, in this case
-@samp{0}, and @samp{\P2} evaluating to @var{b}).
-@end table
-
-When you call a macro, you can specify the argument values either by
-position, or by keyword. For example, @samp{SUM 9,17} is equivalent to
-@samp{SUM TO=17, FROM=9}. Macro arguments are preprocessor variables
-similar to the variables you define with @samp{.ASSIGNA} or
-@samp{.ASSIGNC}; in particular, you can use them in conditionals or for
-loop control. (The only difference is the prefix you write to evaluate
-the variable: for a macro argument, write @samp{\@var{argname}}, but for
-a preprocessor variable, write @samp{\&@var{varname}}.)
-
-@item @var{name} .MACRO
-@itemx @var{name} .MACRO ( @var{macargs} @dots{} )
-@c FIXME check: I think no error _and_ no args recognized if I use form
-@c NAME .MACRO ARG ARG
-An alternative form of introducing a macro definition: specify the macro
-name in the label position, and the arguments (if any) between
-parentheses after the name. Defaulting rules and usage work the same
-way as for the other macro definition syntax.
-
-@item .ENDM
-Mark the end of a macro definition.
-
-@item .EXITM
-Exit early from the current macro definition, @code{.AREPEAT} loop, or
-@code{.AWHILE} loop.
-
-@cindex number of macros executed
-@cindex macros, count executed
-@item \@@
-@sc{gasp} maintains a counter of how many macros it has
-executed in this pseudo-variable; you can copy that number to your
-output with @samp{\@@}, but @emph{only within a macro definition}.
-
-@item LOCAL @var{name} [ , @dots{} ]
-@emph{Warning: @code{LOCAL} is only available if you select ``alternate
-macro syntax'' with @samp{-a} or @samp{--alternate}.} @xref{Alternate,,
-Alternate macro syntax}.
-
-Generate a string replacement for each of the @var{name} arguments, and
-replace any instances of @var{name} in each macro expansion. The
-replacement string is unique in the assembly, and different for each
-separate macro expansion. @code{LOCAL} allows you to write macros that
-define symbols, without fear of conflict between separate macro expansions.
-@end ftable
-
-@node Data
-@section Data output
-
-In assembly code, you often need to specify working areas of memory;
-depending on the application, you may want to initialize such memory or
-not. @sc{gasp} provides preprocessor directives to help you avoid
-repetitive coding for both purposes.
-
-You can use labels as usual to mark the data areas.
-
-@menu
-* Initialized::
-* Uninitialized::
-@end menu
-
-@node Initialized
-@subsection Initialized data
-
-These are the @sc{gasp} directives for initialized data, and the standard
-@sc{gnu} assembler directives they expand to:
-
-@ftable @code
-@item .DATA @var{expr}, @var{expr}, @dots{}
-@itemx .DATA.B @var{expr}, @var{expr}, @dots{}
-@itemx .DATA.W @var{expr}, @var{expr}, @dots{}
-@itemx .DATA.L @var{expr}, @var{expr}, @dots{}
-Evaluate arithmetic expressions @var{expr}, and emit the corresponding
-@code{as} directive (labelled with @var{lab}). The unqualified
-@code{.DATA} emits @samp{.long}; @code{.DATA.B} emits @samp{.byte};
-@code{.DATA.W} emits @samp{.short}; and @code{.DATA.L} emits
-@samp{.long}.
-
-For example, @samp{foo .DATA 1,2,3} emits @samp{foo: .long 1,2,3}.
-
-@item .DATAB @var{repeat}, @var{expr}
-@itemx .DATAB.B @var{repeat}, @var{expr}
-@itemx .DATAB.W @var{repeat}, @var{expr}
-@itemx .DATAB.L @var{repeat}, @var{expr}
-@c FIXME! Looks like gasp accepts and ignores args after 2nd.
-Make @code{as} emit @var{repeat} copies of the value of the expression
-@var{expr} (using the @code{as} directive @code{.fill}).
-@samp{.DATAB.B} repeats one-byte values; @samp{.DATAB.W} repeats
-two-byte values; and @samp{.DATAB.L} repeats four-byte values.
-@samp{.DATAB} without a suffix repeats four-byte values, just like
-@samp{.DATAB.L}.
-
-@c FIXME! Allowing zero might be useful for edge conditions in macros.
-@var{repeat} must be an absolute expression with a positive value.
-
-@item .SDATA "@var{str}" @dots{}
-String data. Emits a concatenation of bytes, precisely as you specify
-them (in particular, @emph{nothing is added to mark the end} of the
-string). @xref{Constants,, String and numeric constants}, for details
-about how to write strings. @code{.SDATA} concatenates multiple
-arguments, making it easy to switch between string representations. You
-can use commas to separate the individual arguments for clarity, if you
-choose.
-
-@item .SDATAB @var{repeat}, "@var{str}" @dots{}
-Repeated string data. The first argument specifies how many copies of
-the string to emit; the remaining arguments specify the string, in the
-same way as the arguments to @code{.SDATA}.
-
-@item .SDATAZ "@var{str}" @dots{}
-Zero-terminated string data. Just like @code{.SDATA}, except that
-@code{.SDATAZ} writes a zero byte at the end of the string.
-
-@item .SDATAC "@var{str}" @dots{}
-Count-prefixed string data. Just like @code{.SDATA}, except that
-@sc{gasp} precedes the string with a leading one-byte count. For
-example, @samp{.SDATAC "HI"} generates @samp{.byte 2,72,73}. Since the
-count field is only one byte, you can only use @code{.SDATAC} for
-strings less than 256 bytes in length.
-@end ftable
-
-@node Uninitialized
-@subsection Uninitialized data
-
-@c FIXME! .space different on some platforms, notably HPPA. Config?
-Use the @code{.RES}, @code{.SRES}, @code{.SRESC}, and @code{.SRESZ}
-directives to reserve memory and leave it uninitialized. @sc{gasp}
-resolves these directives to appropriate calls of the @sc{gnu}
-@code{as} @code{.space} directive.
-
-@ftable @code
-@item .RES @var{count}
-@itemx .RES.B @var{count}
-@itemx .RES.W @var{count}
-@itemx .RES.L @var{count}
-Reserve room for @var{count} uninitialized elements of data. The
-suffix specifies the size of each element: @code{.RES.B} reserves
-@var{count} bytes, @code{.RES.W} reserves @var{count} pairs of bytes,
-and @code{.RES.L} reserves @var{count} quartets. @code{.RES} without a
-suffix is equivalent to @code{.RES.L}.
-
-@item .SRES @var{count}
-@itemx .SRES.B @var{count}
-@itemx .SRES.W @var{count}
-@itemx .SRES.L @var{count}
-@c FIXME! This is boring. Shouldn't it at least have a different
-@c default size? (e.g. the "S" suggests "string", for which .B
-@c would be more appropriate)
-@code{.SRES} is a synonym for @samp{.RES}.
-
-@item .SRESC @var{count}
-@itemx .SRESC.B @var{count}
-@itemx .SRESC.W @var{count}
-@itemx .SRESC.L @var{count}
-Like @code{.SRES}, but reserves space for @code{@var{count}+1} elements.
-
-@item .SRESZ @var{count}
-@itemx .SRESZ.B @var{count}
-@itemx .SRESZ.W @var{count}
-@itemx .SRESZ.L @var{count}
-Like @code{.SRES}, but reserves space for @code{@var{count}+1} elements.
-@end ftable
-
-@node Listings
-@section Assembly listing control
-
-The @sc{gasp} listing-control directives correspond to
-related @sc{gnu} @code{as} directives.
-
-@ftable @code
-@item .PRINT LIST
-@itemx .PRINT NOLIST
-Print control. This directive emits the @sc{gnu} @code{as} directive
-@code{.list} or @code{.nolist}, according to its argument. @xref{List,,
-@code{.list}, as.info, Using as}, for details on how these directives
-interact.
-
-@item .FORM LIN=@var{ln}
-@itemx .FORM COL=@var{cols}
-@itemx .FORM LIN=@var{ln} COL=@var{cols}
-Specify the page size for assembly listings: @var{ln} represents the
-number of lines, and @var{cols} the number of columns. You may specify
-either page dimension independently, or both together. If you do not
-specify the number of lines, @sc{gasp} assumes 60 lines; if you do not
-specify the number of columns, @sc{gasp} assumes 132 columns.
-(Any values you may have specified in previous instances of @code{.FORM}
-do @emph{not} carry over as defaults.) Emits the @code{.psize}
-assembler directive.
-
-@item .HEADING @var{string}
-Specify @var{string} as the title of your assembly listings. Emits
-@samp{.title "@var{string}"}.
-
-@item .PAGE
-Force a new page in assembly listings. Emits @samp{.eject}.
-@end ftable
-
-@node Other Commands
-@section Miscellaneous commands
-
-@ftable @code
-@item .ALTERNATE
-Use the alternate macro syntax henceforth in the assembly.
-@xref{Alternate,, Alternate macro syntax}.
-
-@item .ORG
-@c FIXME! This is very strange, since _GAS_ understands .org
-This command is recognized, but not yet implemented. @sc{gasp}
-generates an error message for programs that use @code{.ORG}.
-
-@item .RADIX @var{s}
-@c FIXME no test cases in testsuite/gasp
-@sc{gasp} understands numbers in any of base two, eight, ten, or
-sixteen. You can encode the base explicitly in any numeric constant
-(@pxref{Constants,, String and numeric constants}). If you write
-numbers without an explicit indication of the base, the most recent
-@samp{.RADIX @var{s}} command determines how they are interpreted.
-@var{s} is a single letter, one of the following:
-
-@table @code
-@item .RADIX B
-Base 2.
-
-@item .RADIX Q
-Base 8.
-
-@item .RADIX D
-Base 10. This is the original default radix.
-
-@item .RADIX H
-Base 16.
-@end table
-
-You may specify the argument @var{s} in lower case (any of @samp{bqdh})
-with the same effects.
-
-@item .EXPORT @var{name}
-@itemx .GLOBAL @var{name}
-@c FIXME! No test cases in testsuite/gasp
-Declare @var{name} global (emits @samp{.global @var{name}}). The two
-directives are synonymous.
-
-@item .PROGRAM
-No effect: @sc{gasp} accepts this directive, and silently ignores it.
-
-@item .END
-Mark end of each preprocessor file. @sc{gasp} issues a warning if it
-reaches end of file without seeing this command.
-
-@item .INCLUDE "@var{str}"
-Preprocess the file named by @var{str}, as if its contents appeared
-where the @code{.INCLUDE} directive does. @sc{gasp} imposes a maximum
-limit of 30 stacked include files, as a sanity check.
-@c FIXME! Why is include depth not affected by -u?
-
-@item .ALIGN @var{size}
-@c FIXME! Why is this not utterly pointless?
-Evaluate the absolute expression @var{size}, and emit the assembly
-instruction @samp{.align @var{size}} using the result.
-@end ftable
-
-@node Syntax Details
-@section Details of the GASP syntax
-
-Since @sc{gasp} is meant to work with assembly code, its statement
-syntax has no surprises for the assembly programmer.
-
-@cindex whitespace
-@emph{Whitespace} (blanks or tabs; @emph{not} newline) is partially
-significant, in that it delimits up to three fields in a line. The
-amount of whitespace does not matter; you may line up fields in separate
-lines if you wish, but @sc{gasp} does not require that.
-
-@cindex fields of @sc{gasp} source line
-@cindex label field
-The @emph{first field}, an optional @dfn{label}, must be flush left in a
-line (with no leading whitespace) if it appears at all. You may use a
-colon after the label if you wish; @sc{gasp} neither requires the colon
-nor objects to it (but will not include it as part of the label name).
-
-@cindex directive field
-The @emph{second field}, which must appear after some whitespace,
-contains a @sc{gasp} or assembly @dfn{directive}.
-
-@cindex argument fields
-Any @emph{further fields} on a line are @dfn{arguments} to the
-directive; you can separate them from one another using either commas or
-whitespace.
-
-@menu
-* Markers::
-* Constants::
-* Symbols::
-* Expressions::
-* String Builtins::
-@end menu
-
-@node Markers
-@subsection Special syntactic markers
-
-@sc{gasp} recognizes a few special markers: to delimit comments, to
-continue a statement on the next line, to separate symbols from other
-characters, and to copy text to the output literally. (One other
-special marker, @samp{\@@}, works only within macro definitions;
-@pxref{Macros,, Defining your own directives}.)
-
-@cindex comments
-The trailing part of any @sc{gasp} source line may be a @dfn{comment}.
-A comment begins with the first unquoted comment character (@samp{!} by
-default), or an escaped or doubled comment character (@samp{\!} or
-@samp{!!} by default), and extends to the end of a line. You can
-specify what comment character to use with the @samp{-c} option
-(@pxref{Invoking GASP,, Command Line Options}). The two kinds of
-comment markers lead to slightly different treatment:
-
-@table @code
-@item !
-A single, un-escaped comment character generates an assembly comment in
-the @sc{gasp} output. @sc{gasp} evaluates any preprocessor variables
-(macro arguments, or variables defined with @code{.ASSIGNA} or
-@code{.ASSIGNC}) present. For example, a macro that begins like this
-
-@example
- .MACRO SUM FROM=0, TO=9
- ! \FROM \TO
-@end example
-
-@noindent
-issues as the first line of output a comment that records the
-values you used to call the macro.
-
-@c comments, preprocessor-only
-@c preprocessor-only comments
-@c GASP-only comments
-@item \!
-@itemx !!
-Either an escaped comment character, or a double comment character,
-marks a @sc{gasp} source comment. @sc{gasp} does not copy such comments
-to the assembly output.
-@end table
-
-@cindex continuation character
-@kindex +
-To @emph{continue a statement} on the next line of the file, begin the
-second line with the character @samp{+}.
-
-@cindex literal copy to output
-@cindex copying literally to output
-@cindex preprocessing, avoiding
-@cindex avoiding preprocessing
-Occasionally you may want to prevent @sc{gasp} from preprocessing some
-particular bit of text. To @emph{copy literally} from the @sc{gasp}
-source to its output, place @samp{\(} before the string to copy, and
-@samp{)} at the end. For example, write @samp{\(\!)} if you need the
-characters @samp{\!} in your assembly output.
-
-@cindex symbol separator
-@cindex text, separating from symbols
-@cindex symbols, separating from text
-To @emph{separate a preprocessor variable} from text to appear
-immediately after its value, write a single quote (@code{'}). For
-example, @samp{.SDATA "\P'1"} writes a string built by concatenating the
-value of @code{P} and the digit @samp{1}. (You cannot achieve this by
-writing just @samp{\P1}, since @samp{P1} is itself a valid name for a
-preprocessor variable.)
-
-@node Constants
-@subsection String and numeric constants
-
-There are two ways of writing @dfn{string constants} in @sc{gasp}: as
-literal text, and by numeric byte value. Specify a string literal
-between double quotes (@code{"@var{str}"}). Specify an individual
-numeric byte value as an absolute expression between angle brackets
-(@code{<@var{expr}>}. Directives that output strings allow you to
-specify any number of either kind of value, in whatever order is
-convenient, and concatenate the result. (Alternate syntax mode
-introduces a number of alternative string notations; @pxref{Alternate,,
-Alternate macro syntax}.)
-
-@c Details of numeric notation, e.g. base prefixes
-You can write @dfn{numeric constants} either in a specific base, or in
-whatever base is currently selected (either 10, or selected by the most
-recent @code{.RADIX}).
-
-To write a number in a @emph{specific base}, use the pattern
-@code{@var{s}'@var{ddd}}: a base specifier character @var{s}, followed
-by a single quote followed by digits @var{ddd}. The base specifier
-character matches those you can specify with @code{.RADIX}: @samp{B} for
-base 2, @samp{Q} for base 8, @samp{D} for base 10, and @samp{H} for base
-16. (You can write this character in lower case if you prefer.)
-
-You can write floating point constants using the same syntax recognised
-by GAS @ref{Flonums,,Flonums,as,The GNU Assembler.}. A constraint is
-that these constants will be interpreted as decimal values irrespective
-of the currently selected base.
-
-@c FIXME! What are rules for recognizing number in deflt base? Whatever
-@c is left over after parsing other things??
-
-@node Symbols
-@subsection Symbols
-
-@sc{gasp} recognizes symbol names that start with any alphabetic character,
-@samp{_}, or @samp{$}, and continue with any of the same characters or
-with digits. Label names follow the same rules.
-
-@node Expressions
-@subsection Arithmetic expressions in GASP
-
-@cindex absolute expressions
-@cindex relocatable expressions
-There are two kinds of expressions, depending on their result:
-@dfn{absolute} expressions, which resolve to a constant (that is, they
-do not involve any values unknown to @sc{gasp}), and @dfn{relocatable}
-expressions, which must reduce to the form
-
-@example
-@var{addsym}+@var{const}-@var{subsym}
-@end example
-
-@noindent
-where @var{addsym} and @var{subsym} are assembly symbols of unknown
-value, and @var{const} is a constant.
-
-Arithmetic for @sc{gasp} expressions follows very similar rules to C.
-You can use parentheses to change precedence; otherwise, arithmetic
-primitives have decreasing precedence in the order of the following
-list.
-
-@enumerate
-@item
-Single-argument @code{+} (identity), @code{-} (arithmetic opposite), or
-@code{~} (bitwise negation). @emph{The argument must be an absolute
-expression.}
-
-@item
-@code{*} (multiplication) and @code{/} (division). @emph{Both arguments
-must be absolute expressions.}
-
-@item
-@code{+} (addition) and @code{-} (subtraction). @emph{At least one argument
-must be absolute.}
-@c FIXME! Actually, subtraction doesn't check for this.
-
-@item
-@code{&} (bitwise and). @emph{Both arguments must be absolute.}
-
-@item
-@c FIXME! I agree ~ is a better notation than ^ for xor, but is the
-@c improvement worth differing from C?
-@code{|} (bitwise or) and @code{~} (bitwise exclusive or; @code{^} in
-C). @emph{Both arguments must be absolute.}
-@end enumerate
-
-@node String Builtins
-@subsection String primitives
-
-You can use these primitives to manipulate strings (in the argument
-field of @sc{gasp} statements):
-
-@ftable @code
-@item .LEN("@var{str}")
-Calculate the length of string @code{"@var{str}"}, as an absolute
-expression. For example, @samp{.RES.B .LEN("sample")} reserves six
-bytes of memory.
-
-@item .INSTR("@var{string}", "@var{seg}", @var{ix})
-Search for the first occurrence of @var{seg} after position @var{ix} of
-@var{string}. For example, @samp{.INSTR("ABCDEFG", "CDE", 0)} evaluates
-to the absolute result @code{2}.
-
-The result is @code{-1} if @var{seg} does not occur in @var{string}
-after position @var{ix}.
-
-@item .SUBSTR("@var{string}",@var{start},@var{len})
-The substring of @var{string} beginning at byte number @var{start} and
-extending for @var{len} bytes.
-@end ftable
-
-@node Alternate
-@section Alternate macro syntax
-
-If you specify @samp{-a} or @samp{--alternate} on the @sc{gasp} command
-line, the preprocessor uses somewhat different syntax. This syntax is
-reminiscent of the syntax of Phar Lap macro assembler, but it
-is @emph{not} meant to be a full emulation of Phar Lap or similar
-assemblers. In particular, @sc{gasp} does not support directives such
-as @code{DB} and @code{IRP}, even in alternate syntax mode.
-
-In particular, @samp{-a} (or @samp{--alternate}) elicits these
-differences:
-
-@table @emph
-@item Preprocessor directives
-You can use @sc{gasp} preprocessor directives without a leading @samp{.}
-dot. For example, you can write @samp{SDATA} with the same effect as
-@samp{.SDATA}.
-
-@item LOCAL
-One additional directive, @code{LOCAL}, is available. @xref{Macros,,
-Defining your own directives}, for an explanation of how to use
-@code{LOCAL}.
-
-@need 2000
-@item String delimiters
-You can write strings delimited in these other ways besides
-@code{"@var{string}"}:
-
-@table @code
-@item '@var{string}'
-You can delimit strings with single-quote charaters.
-
-@item <@var{string}>
-You can delimit strings with matching angle brackets.
-@end table
-
-@item single-character string escape
-To include any single character literally in a string (even if the
-character would otherwise have some special meaning), you can prefix the
-character with @samp{!} (an exclamation mark). For example, you can
-write @samp{<4.3 !> 5.4!!>} to get the literal text @samp{4.3 > 5.4!}.
-
-@item Expression results as strings
-You can write @samp{%@var{expr}} to evaluate the expression @var{expr}
-and use the result as a string.
-@end table
-
-@node GNU Free Documentation License
-@chapter GNU Free Documentation License
-
- GNU Free Documentation License
-
- Version 1.1, March 2000
-
- Copyright (C) 2000 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-
-0. PREAMBLE
-
-The purpose of this License is to make a manual, textbook, or other
-written document "free" in the sense of freedom: to assure everyone
-the effective freedom to copy and redistribute it, with or without
-modifying it, either commercially or noncommercially. Secondarily,
-this License preserves for the author and publisher a way to get
-credit for their work, while not being considered responsible for
-modifications made by others.
-
-This License is a kind of "copyleft", which means that derivative
-works of the document must themselves be free in the same sense. It
-complements the GNU General Public License, which is a copyleft
-license designed for free software.
-
-We have designed this License in order to use it for manuals for free
-software, because free software needs free documentation: a free
-program should come with manuals providing the same freedoms that the
-software does. But this License is not limited to software manuals;
-it can be used for any textual work, regardless of subject matter or
-whether it is published as a printed book. We recommend this License
-principally for works whose purpose is instruction or reference.
-
-
-1. APPLICABILITY AND DEFINITIONS
-
-This License applies to any manual or other work that contains a
-notice placed by the copyright holder saying it can be distributed
-under the terms of this License. The "Document", below, refers to any
-such manual or work. Any member of the public is a licensee, and is
-addressed as "you".
-
-A "Modified Version" of the Document means any work containing the
-Document or a portion of it, either copied verbatim, or with
-modifications and/or translated into another language.
-
-A "Secondary Section" is a named appendix or a front-matter section of
-the Document that deals exclusively with the relationship of the
-publishers or authors of the Document to the Document's overall subject
-(or to related matters) and contains nothing that could fall directly
-within that overall subject. (For example, if the Document is in part a
-textbook of mathematics, a Secondary Section may not explain any
-mathematics.) The relationship could be a matter of historical
-connection with the subject or with related matters, or of legal,
-commercial, philosophical, ethical or political position regarding
-them.
-
-The "Invariant Sections" are certain Secondary Sections whose titles
-are designated, as being those of Invariant Sections, in the notice
-that says that the Document is released under this License.
-
-The "Cover Texts" are certain short passages of text that are listed,
-as Front-Cover Texts or Back-Cover Texts, in the notice that says that
-the Document is released under this License.
-
-A "Transparent" copy of the Document means a machine-readable copy,
-represented in a format whose specification is available to the
-general public, whose contents can be viewed and edited directly and
-straightforwardly with generic text editors or (for images composed of
-pixels) generic paint programs or (for drawings) some widely available
-drawing editor, and that is suitable for input to text formatters or
-for automatic translation to a variety of formats suitable for input
-to text formatters. A copy made in an otherwise Transparent file
-format whose markup has been designed to thwart or discourage
-subsequent modification by readers is not Transparent. A copy that is
-not "Transparent" is called "Opaque".
-
-Examples of suitable formats for Transparent copies include plain
-ASCII without markup, Texinfo input format, LaTeX input format, SGML
-or XML using a publicly available DTD, and standard-conforming simple
-HTML designed for human modification. Opaque formats include
-PostScript, PDF, proprietary formats that can be read and edited only
-by proprietary word processors, SGML or XML for which the DTD and/or
-processing tools are not generally available, and the
-machine-generated HTML produced by some word processors for output
-purposes only.
-
-The "Title Page" means, for a printed book, the title page itself,
-plus such following pages as are needed to hold, legibly, the material
-this License requires to appear in the title page. For works in
-formats which do not have any title page as such, "Title Page" means
-the text near the most prominent appearance of the work's title,
-preceding the beginning of the body of the text.
-
-
-2. VERBATIM COPYING
-
-You may copy and distribute the Document in any medium, either
-commercially or noncommercially, provided that this License, the
-copyright notices, and the license notice saying this License applies
-to the Document are reproduced in all copies, and that you add no other
-conditions whatsoever to those of this License. You may not use
-technical measures to obstruct or control the reading or further
-copying of the copies you make or distribute. However, you may accept
-compensation in exchange for copies. If you distribute a large enough
-number of copies you must also follow the conditions in section 3.
-
-You may also lend copies, under the same conditions stated above, and
-you may publicly display copies.
-
-
-3. COPYING IN QUANTITY
-
-If you publish printed copies of the Document numbering more than 100,
-and the Document's license notice requires Cover Texts, you must enclose
-the copies in covers that carry, clearly and legibly, all these Cover
-Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on
-the back cover. Both covers must also clearly and legibly identify
-you as the publisher of these copies. The front cover must present
-the full title with all words of the title equally prominent and
-visible. You may add other material on the covers in addition.
-Copying with changes limited to the covers, as long as they preserve
-the title of the Document and satisfy these conditions, can be treated
-as verbatim copying in other respects.
-
-If the required texts for either cover are too voluminous to fit
-legibly, you should put the first ones listed (as many as fit
-reasonably) on the actual cover, and continue the rest onto adjacent
-pages.
-
-If you publish or distribute Opaque copies of the Document numbering
-more than 100, you must either include a machine-readable Transparent
-copy along with each Opaque copy, or state in or with each Opaque copy
-a publicly-accessible computer-network location containing a complete
-Transparent copy of the Document, free of added material, which the
-general network-using public has access to download anonymously at no
-charge using public-standard network protocols. If you use the latter
-option, you must take reasonably prudent steps, when you begin
-distribution of Opaque copies in quantity, to ensure that this
-Transparent copy will remain thus accessible at the stated location
-until at least one year after the last time you distribute an Opaque
-copy (directly or through your agents or retailers) of that edition to
-the public.
-
-It is requested, but not required, that you contact the authors of the
-Document well before redistributing any large number of copies, to give
-them a chance to provide you with an updated version of the Document.
-
-
-4. MODIFICATIONS
-
-You may copy and distribute a Modified Version of the Document under
-the conditions of sections 2 and 3 above, provided that you release
-the Modified Version under precisely this License, with the Modified
-Version filling the role of the Document, thus licensing distribution
-and modification of the Modified Version to whoever possesses a copy
-of it. In addition, you must do these things in the Modified Version:
-
-A. Use in the Title Page (and on the covers, if any) a title distinct
- from that of the Document, and from those of previous versions
- (which should, if there were any, be listed in the History section
- of the Document). You may use the same title as a previous version
- if the original publisher of that version gives permission.
-B. List on the Title Page, as authors, one or more persons or entities
- responsible for authorship of the modifications in the Modified
- Version, together with at least five of the principal authors of the
- Document (all of its principal authors, if it has less than five).
-C. State on the Title page the name of the publisher of the
- Modified Version, as the publisher.
-D. Preserve all the copyright notices of the Document.
-E. Add an appropriate copyright notice for your modifications
- adjacent to the other copyright notices.
-F. Include, immediately after the copyright notices, a license notice
- giving the public permission to use the Modified Version under the
- terms of this License, in the form shown in the Addendum below.
-G. Preserve in that license notice the full lists of Invariant Sections
- and required Cover Texts given in the Document's license notice.
-H. Include an unaltered copy of this License.
-I. Preserve the section entitled "History", and its title, and add to
- it an item stating at least the title, year, new authors, and
- publisher of the Modified Version as given on the Title Page. If
- there is no section entitled "History" in the Document, create one
- stating the title, year, authors, and publisher of the Document as
- given on its Title Page, then add an item describing the Modified
- Version as stated in the previous sentence.
-J. Preserve the network location, if any, given in the Document for
- public access to a Transparent copy of the Document, and likewise
- the network locations given in the Document for previous versions
- it was based on. These may be placed in the "History" section.
- You may omit a network location for a work that was published at
- least four years before the Document itself, or if the original
- publisher of the version it refers to gives permission.
-K. In any section entitled "Acknowledgements" or "Dedications",
- preserve the section's title, and preserve in the section all the
- substance and tone of each of the contributor acknowledgements
- and/or dedications given therein.
-L. Preserve all the Invariant Sections of the Document,
- unaltered in their text and in their titles. Section numbers
- or the equivalent are not considered part of the section titles.
-M. Delete any section entitled "Endorsements". Such a section
- may not be included in the Modified Version.
-N. Do not retitle any existing section as "Endorsements"
- or to conflict in title with any Invariant Section.
-
-If the Modified Version includes new front-matter sections or
-appendices that qualify as Secondary Sections and contain no material
-copied from the Document, you may at your option designate some or all
-of these sections as invariant. To do this, add their titles to the
-list of Invariant Sections in the Modified Version's license notice.
-These titles must be distinct from any other section titles.
-
-You may add a section entitled "Endorsements", provided it contains
-nothing but endorsements of your Modified Version by various
-parties--for example, statements of peer review or that the text has
-been approved by an organization as the authoritative definition of a
-standard.
-
-You may add a passage of up to five words as a Front-Cover Text, and a
-passage of up to 25 words as a Back-Cover Text, to the end of the list
-of Cover Texts in the Modified Version. Only one passage of
-Front-Cover Text and one of Back-Cover Text may be added by (or
-through arrangements made by) any one entity. If the Document already
-includes a cover text for the same cover, previously added by you or
-by arrangement made by the same entity you are acting on behalf of,
-you may not add another; but you may replace the old one, on explicit
-permission from the previous publisher that added the old one.
-
-The author(s) and publisher(s) of the Document do not by this License
-give permission to use their names for publicity for or to assert or
-imply endorsement of any Modified Version.
-
-
-5. COMBINING DOCUMENTS
-
-You may combine the Document with other documents released under this
-License, under the terms defined in section 4 above for modified
-versions, provided that you include in the combination all of the
-Invariant Sections of all of the original documents, unmodified, and
-list them all as Invariant Sections of your combined work in its
-license notice.
-
-The combined work need only contain one copy of this License, and
-multiple identical Invariant Sections may be replaced with a single
-copy. If there are multiple Invariant Sections with the same name but
-different contents, make the title of each such section unique by
-adding at the end of it, in parentheses, the name of the original
-author or publisher of that section if known, or else a unique number.
-Make the same adjustment to the section titles in the list of
-Invariant Sections in the license notice of the combined work.
-
-In the combination, you must combine any sections entitled "History"
-in the various original documents, forming one section entitled
-"History"; likewise combine any sections entitled "Acknowledgements",
-and any sections entitled "Dedications". You must delete all sections
-entitled "Endorsements."
-
-
-6. COLLECTIONS OF DOCUMENTS
-
-You may make a collection consisting of the Document and other documents
-released under this License, and replace the individual copies of this
-License in the various documents with a single copy that is included in
-the collection, provided that you follow the rules of this License for
-verbatim copying of each of the documents in all other respects.
-
-You may extract a single document from such a collection, and distribute
-it individually under this License, provided you insert a copy of this
-License into the extracted document, and follow this License in all
-other respects regarding verbatim copying of that document.
-
-
-7. AGGREGATION WITH INDEPENDENT WORKS
-
-A compilation of the Document or its derivatives with other separate
-and independent documents or works, in or on a volume of a storage or
-distribution medium, does not as a whole count as a Modified Version
-of the Document, provided no compilation copyright is claimed for the
-compilation. Such a compilation is called an "aggregate", and this
-License does not apply to the other self-contained works thus compiled
-with the Document, on account of their being thus compiled, if they
-are not themselves derivative works of the Document.
-
-If the Cover Text requirement of section 3 is applicable to these
-copies of the Document, then if the Document is less than one quarter
-of the entire aggregate, the Document's Cover Texts may be placed on
-covers that surround only the Document within the aggregate.
-Otherwise they must appear on covers around the whole aggregate.
-
-
-8. TRANSLATION
-
-Translation is considered a kind of modification, so you may
-distribute translations of the Document under the terms of section 4.
-Replacing Invariant Sections with translations requires special
-permission from their copyright holders, but you may include
-translations of some or all Invariant Sections in addition to the
-original versions of these Invariant Sections. You may include a
-translation of this License provided that you also include the
-original English version of this License. In case of a disagreement
-between the translation and the original English version of this
-License, the original English version will prevail.
-
-
-9. TERMINATION
-
-You may not copy, modify, sublicense, or distribute the Document except
-as expressly provided for under this License. Any other attempt to
-copy, modify, sublicense or distribute the Document is void, and will
-automatically terminate your rights under this License. However,
-parties who have received copies, or rights, from you under this
-License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-
-10. FUTURE REVISIONS OF THIS LICENSE
-
-The Free Software Foundation may publish new, revised versions
-of the GNU Free Documentation License from time to time. Such new
-versions will be similar in spirit to the present version, but may
-differ in detail to address new problems or concerns. See
-http://www.gnu.org/copyleft/.
-
-Each version of the License is given a distinguishing version number.
-If the Document specifies that a particular numbered version of this
-License "or any later version" applies to it, you have the option of
-following the terms and conditions either of that specified version or
-of any later version that has been published (not as a draft) by the
-Free Software Foundation. If the Document does not specify a version
-number of this License, you may choose any version ever published (not
-as a draft) by the Free Software Foundation.
-
-
-ADDENDUM: How to use this License for your documents
-
-To use this License in a document you have written, include a copy of
-the License in the document and put the following copyright and
-license notices just after the title page:
-
-@smallexample
- Copyright (c) YEAR YOUR NAME.
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.1
- or any later version published by the Free Software Foundation;
- with the Invariant Sections being LIST THEIR TITLES, with the
- Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.
- A copy of the license is included in the section entitled "GNU
- Free Documentation License".
-@end smallexample
-
-If you have no Invariant Sections, write "with no Invariant Sections"
-instead of saying which ones are invariant. If you have no
-Front-Cover Texts, write "no Front-Cover Texts" instead of
-"Front-Cover Texts being LIST"; likewise for Back-Cover Texts.
-
-If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of
-free software license, such as the GNU General Public License,
-to permit their use in free software.
-
-@node Index
-@unnumbered Index
-
-@printindex cp
-
-@contents
-@bye
diff --git a/gas/gasp.c b/gas/gasp.c
deleted file mode 100644
index d1e4185..0000000
--- a/gas/gasp.c
+++ /dev/null
@@ -1,3761 +0,0 @@
-/* gasp.c - Gnu assembler preprocessor main program.
- Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
- Free Software Foundation, Inc.
-
- Written by Steve and Judy Chamberlain of Cygnus Support,
- sac@cygnus.com
-
- This file is part of GASP, the GNU Assembler Preprocessor.
-
- GASP is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
-
- GASP is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with GASP; see the file COPYING. If not, write to the Free
- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
-
-/*
-This program translates the input macros and stuff into a form
-suitable for gas to consume.
-
- gasp [-sdhau] [-c char] [-o <outfile>] <infile>*
-
- -s copy source to output
- -c <char> comments are started with <char> instead of !
- -u allow unreasonable stuff
- -p print line numbers
- -d print debugging stats
- -s semi colons start comments
- -a use alternate syntax
- Pseudo ops can start with or without a .
- Labels have to be in first column.
- -I specify include dir
- Macro arg parameters subsituted by name, don't need the &.
- String can start with ' too.
- Strings can be surrounded by <..>
- A %<exp> in a string evaluates the expression
- Literal char in a string with !
-*/
-
-#include "config.h"
-#include "bin-bugs.h"
-
-#include <assert.h>
-#include <stdio.h>
-#include <string.h>
-#include "getopt.h"
-
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#endif
-
-#ifdef NEED_MALLOC_DECLARATION
-extern char *malloc ();
-#endif
-
-#include "ansidecl.h"
-#include "libiberty.h"
-#include "safe-ctype.h"
-#include "sb.h"
-#include "macro.h"
-#include "asintl.h"
-#include "xregex.h"
-
-char *program_version = "1.2";
-
-/* This is normally declared in as.h, but we don't include that. We
- need the function because other files linked with gasp.c might call
- it. */
-extern void as_abort PARAMS ((const char *, int, const char *));
-
-/* The default obstack chunk size. If we set this to zero, the
- obstack code will use whatever will fit in a 4096 byte block. This
- is used by the hash table code used by macro.c. */
-int chunksize = 0;
-
-#define MAX_INCLUDES 30 /* Maximum include depth. */
-#define MAX_REASONABLE 1000 /* Maximum number of expansions. */
-
-int unreasonable; /* -u on command line. */
-int stats; /* -d on command line. */
-int print_line_number; /* -p flag on command line. */
-int copysource; /* -c flag on command line. */
-int warnings; /* Number of WARNINGs generated so far. */
-int errors; /* Number of ERRORs generated so far. */
-int fatals; /* Number of fatal ERRORs generated so far (either 0 or 1). */
-int alternate = 0; /* -a on command line. */
-int mri = 0; /* -M on command line. */
-char comment_char = '!';
-int radix = 10; /* Default radix. */
-
-int had_end; /* Seen .END. */
-
-/* The output stream. */
-FILE *outfile;
-
-/* The attributes of each character are stored as a bit pattern
- chartype, which gives us quick tests. */
-
-#define FIRSTBIT 1
-#define NEXTBIT 2
-#define SEPBIT 4
-#define WHITEBIT 8
-#define COMMENTBIT 16
-#define BASEBIT 32
-#define ISCOMMENTCHAR(x) (chartype[(unsigned char)(x)] & COMMENTBIT)
-#define ISFIRSTCHAR(x) (chartype[(unsigned char)(x)] & FIRSTBIT)
-#define ISNEXTCHAR(x) (chartype[(unsigned char)(x)] & NEXTBIT)
-#define ISSEP(x) (chartype[(unsigned char)(x)] & SEPBIT)
-#define ISWHITE(x) (chartype[(unsigned char)(x)] & WHITEBIT)
-#define ISBASE(x) (chartype[(unsigned char)(x)] & BASEBIT)
-static char chartype[256];
-
-/* Conditional assembly uses the `ifstack'. Each aif pushes another
- entry onto the stack, and sets the on flag if it should. The aelse
- sets hadelse, and toggles on. An aend pops a level. We limit to
- 100 levels of nesting, not because we're facists pigs with read
- only minds, but because more than 100 levels of nesting is probably
- a bug in the user's macro structure. */
-
-#define IFNESTING 100
-struct {
- int on; /* Is the level being output. */
- int hadelse; /* Has an aelse been seen. */
-} ifstack[IFNESTING];
-
-int ifi;
-
-/* The final and intermediate results of expression evaluation are kept in
- exp_t's. Note that a symbol is not an sb, but a pointer into the input
- line. It must be coped somewhere safe before the next line is read in. */
-
-typedef struct {
- char *name;
- int len;
-} symbol;
-
-typedef struct {
- int value; /* Constant part. */
- symbol add_symbol; /* Name part. */
- symbol sub_symbol; /* Name part. */
-} exp_t;
-
-/* Hashing is done in a pretty standard way. A hash_table has a
- pointer to a vector of pointers to hash_entrys, and the size of the
- vector. A hash_entry contains a union of all the info we like to
- store in hash table. If there is a hash collision, hash_entries
- with the same hash are kept in a chain. */
-
-/* What the data in a hash_entry means. */
-typedef enum {
- hash_integer, /* Name->integer mapping. */
- hash_string, /* Name->string mapping. */
- hash_macro, /* Name is a macro. */
- hash_formal /* Name is a formal argument. */
-} hash_type;
-
-typedef struct hs {
- sb key; /* Symbol name. */
- hash_type type; /* Symbol meaning. */
- union {
- sb s;
- int i;
- struct macro_struct *m;
- struct formal_struct *f;
- } value;
- struct hs *next; /* Next hash_entry with same hash key. */
-} hash_entry;
-
-typedef struct {
- hash_entry **table;
- int size;
-} hash_table;
-
-/* How we nest files and expand macros etc.
-
- We keep a stack of of include_stack structs. Each include file
- pushes a new level onto the stack. We keep an sb with a pushback
- too. unget chars are pushed onto the pushback sb, getchars first
- checks the pushback sb before reading from the input stream.
-
- Small things are expanded by adding the text of the item onto the
- pushback sb. Larger items are grown by pushing a new level and
- allocating the entire pushback buf for the item. Each time
- something like a macro is expanded, the stack index is changed. We
- can then perform an exitm by popping all entries off the stack with
- the same stack index. If we're being reasonable, we can detect
- recusive expansion by checking the index is reasonably small. */
-
-typedef enum {
- include_file, include_repeat, include_while, include_macro
-} include_type;
-
-struct include_stack {
- sb pushback; /* Current pushback stream. */
- int pushback_index; /* Next char to read from stream. */
- FILE *handle; /* Open file. */
- sb name; /* Name of file. */
- int linecount; /* Number of lines read so far. */
- include_type type;
- int index; /* Index of this layer. */
-} include_stack[MAX_INCLUDES];
-
-struct include_stack *sp;
-#define isp (sp - include_stack)
-
-/* Include file list. */
-
-typedef struct include_path {
- struct include_path *next;
- sb path;
-} include_path;
-
-include_path *paths_head;
-include_path *paths_tail;
-
-static void quit PARAMS ((void));
-static void hash_new_table PARAMS ((int, hash_table *));
-static int hash PARAMS ((sb *));
-static hash_entry *hash_create PARAMS ((hash_table *, sb *));
-static void hash_add_to_string_table PARAMS ((hash_table *, sb *, sb *, int));
-static void hash_add_to_int_table PARAMS ((hash_table *, sb *, int));
-static hash_entry *hash_lookup PARAMS ((hash_table *, sb *));
-static void checkconst PARAMS ((int, exp_t *));
-static int is_flonum PARAMS ((int, sb *));
-static int chew_flonum PARAMS ((int, sb *, sb *));
-static int sb_strtol PARAMS ((int, sb *, int, int *));
-static int level_0 PARAMS ((int, sb *, exp_t *));
-static int level_1 PARAMS ((int, sb *, exp_t *));
-static int level_2 PARAMS ((int, sb *, exp_t *));
-static int level_3 PARAMS ((int, sb *, exp_t *));
-static int level_4 PARAMS ((int, sb *, exp_t *));
-static int level_5 PARAMS ((int, sb *, exp_t *));
-static int exp_parse PARAMS ((int, sb *, exp_t *));
-static void exp_string PARAMS ((exp_t *, sb *));
-static int exp_get_abs PARAMS ((const char *, int, sb *, int *));
-#if 0
-static void strip_comments PARAMS ((sb *));
-#endif
-static void unget PARAMS ((int));
-static void include_buf PARAMS ((sb *, sb *, include_type, int));
-static void include_print_where_line PARAMS ((FILE *));
-static void include_print_line PARAMS ((FILE *));
-static int get_line PARAMS ((sb *));
-static int grab_label PARAMS ((sb *, sb *));
-static void change_base PARAMS ((int, sb *, sb *));
-static void do_end PARAMS ((sb *));
-static void do_assign PARAMS ((int, int, sb *));
-static void do_radix PARAMS ((sb *));
-static int get_opsize PARAMS ((int, sb *, int *));
-static int eol PARAMS ((int, sb *));
-static void do_data PARAMS ((int, sb *, int));
-static void do_datab PARAMS ((int, sb *));
-static void do_align PARAMS ((int, sb *));
-static void do_res PARAMS ((int, sb *, int));
-static void do_export PARAMS ((sb *));
-static void do_print PARAMS ((int, sb *));
-static void do_heading PARAMS ((int, sb *));
-static void do_page PARAMS ((void));
-static void do_form PARAMS ((int, sb *));
-static int get_any_string PARAMS ((int, sb *, sb *, int, int));
-static int skip_openp PARAMS ((int, sb *));
-static int skip_closep PARAMS ((int, sb *));
-static int dolen PARAMS ((int, sb *, sb *));
-static int doinstr PARAMS ((int, sb *, sb *));
-static int dosubstr PARAMS ((int, sb *, sb *));
-static void process_assigns PARAMS ((int, sb *, sb *));
-static int get_and_process PARAMS ((int, sb *, sb *));
-static void process_file PARAMS ((void));
-static void free_old_entry PARAMS ((hash_entry *));
-static void do_assigna PARAMS ((int, sb *));
-static void do_assignc PARAMS ((int, sb *));
-static void do_reg PARAMS ((int, sb *));
-static int condass_lookup_name PARAMS ((sb *, int, sb *, int));
-static int whatcond PARAMS ((int, sb *, int *));
-static int istrue PARAMS ((int, sb *));
-static void do_aif PARAMS ((int, sb *));
-static void do_aelse PARAMS ((void));
-static void do_aendi PARAMS ((void));
-static int condass_on PARAMS ((void));
-static void do_if PARAMS ((int, sb *, int));
-static int get_mri_string PARAMS ((int, sb *, sb *, int));
-static void do_ifc PARAMS ((int, sb *, int));
-static void do_aendr PARAMS ((void));
-static void do_awhile PARAMS ((int, sb *));
-static void do_aendw PARAMS ((void));
-static void do_exitm PARAMS ((void));
-static void do_arepeat PARAMS ((int, sb *));
-static void do_endm PARAMS ((void));
-static void do_irp PARAMS ((int, sb *, int));
-static void do_local PARAMS ((int, sb *));
-static void do_macro PARAMS ((int, sb *));
-static int macro_op PARAMS ((int, sb *));
-static int getstring PARAMS ((int, sb *, sb *));
-static void do_sdata PARAMS ((int, sb *, int));
-static void do_sdatab PARAMS ((int, sb *));
-static int new_file PARAMS ((const char *));
-static void do_include PARAMS ((int, sb *));
-static void include_pop PARAMS ((void));
-static int get PARAMS ((void));
-static int linecount PARAMS ((void));
-static int include_next_index PARAMS ((void));
-static void chartype_init PARAMS ((void));
-static int process_pseudo_op PARAMS ((int, sb *, sb *));
-static void add_keyword PARAMS ((const char *, int));
-static void process_init PARAMS ((void));
-static void do_define PARAMS ((const char *));
-static void show_usage PARAMS ((FILE *, int));
-static void show_help PARAMS ((void));
-
-#define FATAL(x) \
- do \
- { \
- include_print_where_line (stderr); \
- fprintf x; \
- fatals++; \
- quit (); \
- } \
- while (0)
-
-#define ERROR(x) \
- do \
- { \
- include_print_where_line (stderr); \
- fprintf x; \
- errors++; \
- } \
- while (0)
-
-#define WARNING(x) \
- do \
- { \
- include_print_where_line (stderr); \
- fprintf x; \
- warnings++; \
- } \
- while (0)
-
-/* Exit the program and return the right ERROR code. */
-
-static void
-quit ()
-{
- int exitcode;
- if (fatals + errors)
- exitcode = 1;
- else
- exitcode = 0;
-
- if (stats)
- {
- int i;
- for (i = 0; i < sb_max_power_two; i++)
- {
- fprintf (stderr, "strings size %8d : %d\n",
- 1 << i, string_count[i]);
- }
- }
- exit (exitcode);
-}
-
-/* Hash table maintenance. */
-
-/* Build a new hash table with size buckets
- and fill in the info at ptr. */
-
-static void
-hash_new_table (size, ptr)
- int size;
- hash_table *ptr;
-{
- int i;
- ptr->size = size;
- ptr->table = (hash_entry **) xmalloc (size * (sizeof (hash_entry *)));
- /* Fill with null-pointer, not zero-bit-pattern. */
- for (i = 0; i < size; i++)
- ptr->table[i] = 0;
-}
-
-/* Calculate and return the hash value of the sb at key. */
-
-static int
-hash (key)
- sb *key;
-{
- int k = 0x1234;
- int i;
- char *p = key->ptr;
- for (i = 0; i < key->len; i++)
- {
- k ^= (k << 2) ^ *p;
- p++;
- }
- return k & 0xf0fff;
-}
-
-/* Look up key in hash_table tab. If present, then return it,
- otherwise build a new one and fill it with hash_integer. */
-
-static hash_entry *
-hash_create (tab, key)
- hash_table *tab;
- sb *key;
-{
- int k = hash (key) % tab->size;
- hash_entry *p;
- hash_entry **table = tab->table;
-
- p = table[k];
-
- while (1)
- {
- if (!p)
- {
- hash_entry *n = (hash_entry *) xmalloc (sizeof (hash_entry));
- n->next = table[k];
- sb_new (&n->key);
- sb_add_sb (&n->key, key);
- table[k] = n;
- n->type = hash_integer;
- return n;
- }
- if (strncmp (table[k]->key.ptr, key->ptr, key->len) == 0)
- {
- return p;
- }
- p = p->next;
- }
-}
-
-/* Add sb name with key into hash_table tab.
- If replacing old value and again, then ERROR. */
-
-static void
-hash_add_to_string_table (tab, key, name, again)
- hash_table *tab;
- sb *key;
- sb *name;
- int again;
-{
- hash_entry *ptr = hash_create (tab, key);
- if (ptr->type == hash_integer)
- {
- sb_new (&ptr->value.s);
- }
- if (ptr->value.s.len)
- {
- if (!again)
- ERROR ((stderr, _("redefinition not allowed\n")));
- }
-
- ptr->type = hash_string;
- sb_reset (&ptr->value.s);
-
- sb_add_sb (&ptr->value.s, name);
-}
-
-/* Add integer name to hash_table tab with sb key. */
-
-static void
-hash_add_to_int_table (tab, key, name)
- hash_table *tab;
- sb *key;
- int name;
-{
- hash_entry *ptr = hash_create (tab, key);
- ptr->value.i = name;
-}
-
-/* Look up sb key in hash_table tab.
- If found, return hash_entry result, else 0. */
-
-static hash_entry *
-hash_lookup (tab, key)
- hash_table *tab;
- sb *key;
-{
- int k = hash (key) % tab->size;
- hash_entry **table = tab->table;
- hash_entry *p = table[k];
- while (p)
- {
- if (p->key.len == key->len
- && strncmp (p->key.ptr, key->ptr, key->len) == 0)
- return p;
- p = p->next;
- }
- return 0;
-}
-
-/* expressions
-
- are handled in a really simple recursive decent way. each bit of
- the machine takes an index into an sb and a pointer to an exp_t,
- modifies the *exp_t and returns the index of the first character
- past the part of the expression parsed.
-
- expression precedence:
- ( )
- unary + - ~
- * /
- + -
- &
- | ~
-*/
-
-/* Make sure that the exp_t at term is constant.
- If not the give the op ERROR. */
-
-static void
-checkconst (op, term)
- int op;
- exp_t *term;
-{
- if (term->add_symbol.len
- || term->sub_symbol.len)
- {
- ERROR ((stderr, _("the %c operator cannot take non-absolute arguments.\n"), op));
- }
-}
-
-/* Chew the flonum from the string starting at idx. Adjust idx to
- point to the next character after the flonum. */
-
-static int
-chew_flonum (idx, string, out)
- int idx;
- sb *string;
- sb *out;
-{
- sb buf;
- regex_t reg;
- regmatch_t match;
-
- /* Duplicate and null terminate `string'. */
- sb_new (&buf);
- sb_add_sb (&buf, string);
- sb_add_char (&buf, '\0');
-
- if (regcomp (&reg, "([0-9]*\\.[0-9]+([eE][+-]?[0-9]+)?)", REG_EXTENDED) != 0)
- return idx;
- if (regexec (&reg, &buf.ptr[idx], 1, &match, 0) != 0)
- return idx;
-
- /* Copy the match to the output. */
- assert (match.rm_eo >= match.rm_so);
- sb_add_buffer (out, &buf.ptr[idx], match.rm_eo - match.rm_so);
-
- sb_kill (&buf);
- regfree (&reg);
- idx += match.rm_eo;
- return idx;
-}
-
-static int
-is_flonum (idx, string)
- int idx;
- sb *string;
-{
- sb buf;
- regex_t reg;
- int rc;
-
- /* Duplicate and null terminate `string'. */
- sb_new (&buf);
- sb_add_sb (&buf, string);
- sb_add_char (&buf, '\0');
-
- if (regcomp (&reg, "^[0-9]*\\.[0-9]+([eE][+-]?[0-9]+)?", REG_EXTENDED) != 0)
- return 0;
-
- rc = regexec (&reg, &buf.ptr[idx], 0, NULL, 0);
- sb_kill (&buf);
- regfree (&reg);
- return (rc == 0);
-}
-
-/* Turn the number in string at idx into a number of base, fill in
- ptr, and return the index of the first character not in the number. */
-
-static int
-sb_strtol (idx, string, base, ptr)
- int idx;
- sb *string;
- int base;
- int *ptr;
-{
- int value = 0;
- idx = sb_skip_white (idx, string);
-
- while (idx < string->len)
- {
- int ch = string->ptr[idx];
- int dig = 0;
- if (ISDIGIT (ch))
- dig = ch - '0';
- else if (ch >= 'a' && ch <= 'f')
- dig = ch - 'a' + 10;
- else if (ch >= 'A' && ch <= 'F')
- dig = ch - 'A' + 10;
- else
- break;
-
- if (dig >= base)
- break;
-
- value = value * base + dig;
- idx++;
- }
- *ptr = value;
- return idx;
-}
-
-static int
-level_0 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- lhs->add_symbol.len = 0;
- lhs->add_symbol.name = 0;
-
- lhs->sub_symbol.len = 0;
- lhs->sub_symbol.name = 0;
-
- idx = sb_skip_white (idx, string);
-
- lhs->value = 0;
-
- if (ISDIGIT (string->ptr[idx]))
- {
- idx = sb_strtol (idx, string, 10, &lhs->value);
- }
- else if (ISFIRSTCHAR (string->ptr[idx]))
- {
- int len = 0;
- lhs->add_symbol.name = string->ptr + idx;
- while (idx < string->len && ISNEXTCHAR (string->ptr[idx]))
- {
- idx++;
- len++;
- }
- lhs->add_symbol.len = len;
- }
- else if (string->ptr[idx] == '"')
- {
- sb acc;
- sb_new (&acc);
- ERROR ((stderr, _("string where expression expected.\n")));
- idx = getstring (idx, string, &acc);
- sb_kill (&acc);
- }
- else
- {
- ERROR ((stderr, _("can't find primary in expression.\n")));
- idx++;
- }
- return sb_skip_white (idx, string);
-}
-
-static int
-level_1 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- idx = sb_skip_white (idx, string);
-
- switch (string->ptr[idx])
- {
- case '+':
- idx = level_1 (idx + 1, string, lhs);
- break;
- case '~':
- idx = level_1 (idx + 1, string, lhs);
- checkconst ('~', lhs);
- lhs->value = ~lhs->value;
- break;
- case '-':
- {
- symbol t;
- idx = level_1 (idx + 1, string, lhs);
- lhs->value = -lhs->value;
- t = lhs->add_symbol;
- lhs->add_symbol = lhs->sub_symbol;
- lhs->sub_symbol = t;
- break;
- }
- case '(':
- idx++;
- idx = level_5 (sb_skip_white (idx, string), string, lhs);
- if (string->ptr[idx] != ')')
- ERROR ((stderr, _("misplaced closing parens.\n")));
- else
- idx++;
- break;
- default:
- idx = level_0 (idx, string, lhs);
- break;
- }
- return sb_skip_white (idx, string);
-}
-
-static int
-level_2 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- exp_t rhs;
-
- idx = level_1 (idx, string, lhs);
-
- while (idx < string->len && (string->ptr[idx] == '*'
- || string->ptr[idx] == '/'))
- {
- char op = string->ptr[idx++];
- idx = level_1 (idx, string, &rhs);
- switch (op)
- {
- case '*':
- checkconst ('*', lhs);
- checkconst ('*', &rhs);
- lhs->value *= rhs.value;
- break;
- case '/':
- checkconst ('/', lhs);
- checkconst ('/', &rhs);
- if (rhs.value == 0)
- ERROR ((stderr, _("attempt to divide by zero.\n")));
- else
- lhs->value /= rhs.value;
- break;
- }
- }
- return sb_skip_white (idx, string);
-}
-
-static int
-level_3 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- exp_t rhs;
-
- idx = level_2 (idx, string, lhs);
-
- while (idx < string->len
- && (string->ptr[idx] == '+'
- || string->ptr[idx] == '-'))
- {
- char op = string->ptr[idx++];
- idx = level_2 (idx, string, &rhs);
- switch (op)
- {
- case '+':
- lhs->value += rhs.value;
- if (lhs->add_symbol.name && rhs.add_symbol.name)
- {
- ERROR ((stderr, _("can't add two relocatable expressions\n")));
- }
- /* Change nn+symbol to symbol + nn. */
- if (rhs.add_symbol.name)
- {
- lhs->add_symbol = rhs.add_symbol;
- }
- break;
- case '-':
- lhs->value -= rhs.value;
- lhs->sub_symbol = rhs.add_symbol;
- break;
- }
- }
- return sb_skip_white (idx, string);
-}
-
-static int
-level_4 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- exp_t rhs;
-
- idx = level_3 (idx, string, lhs);
-
- while (idx < string->len &&
- string->ptr[idx] == '&')
- {
- char op = string->ptr[idx++];
- idx = level_3 (idx, string, &rhs);
- switch (op)
- {
- case '&':
- checkconst ('&', lhs);
- checkconst ('&', &rhs);
- lhs->value &= rhs.value;
- break;
- }
- }
- return sb_skip_white (idx, string);
-}
-
-static int
-level_5 (idx, string, lhs)
- int idx;
- sb *string;
- exp_t *lhs;
-{
- exp_t rhs;
-
- idx = level_4 (idx, string, lhs);
-
- while (idx < string->len
- && (string->ptr[idx] == '|' || string->ptr[idx] == '~'))
- {
- char op = string->ptr[idx++];
- idx = level_4 (idx, string, &rhs);
- switch (op)
- {
- case '|':
- checkconst ('|', lhs);
- checkconst ('|', &rhs);
- lhs->value |= rhs.value;
- break;
- case '~':
- checkconst ('~', lhs);
- checkconst ('~', &rhs);
- lhs->value ^= rhs.value;
- break;
- }
- }
- return sb_skip_white (idx, string);
-}
-
-/* Parse the expression at offset idx into string, fill up res with
- the result. Return the index of the first char past the
- expression. */
-
-static int
-exp_parse (idx, string, res)
- int idx;
- sb *string;
- exp_t *res;
-{
- return level_5 (sb_skip_white (idx, string), string, res);
-}
-
-/* Turn the expression at exp into text and glue it onto the end of
- string. */
-
-static void
-exp_string (exp, string)
- exp_t *exp;
- sb *string;
-{
- int np = 0;
- int ad = 0;
- sb_reset (string);
-
- if (exp->add_symbol.len)
- {
- sb_add_buffer (string, exp->add_symbol.name, exp->add_symbol.len);
- np = 1;
- ad = 1;
- }
- if (exp->value)
- {
- char buf[20];
- if (np)
- sb_add_char (string, '+');
- sprintf (buf, "%d", exp->value);
- sb_add_string (string, buf);
- np = 1;
- ad = 1;
- }
- if (exp->sub_symbol.len)
- {
- sb_add_char (string, '-');
- sb_add_buffer (string, exp->add_symbol.name, exp->add_symbol.len);
- np = 0;
- ad = 1;
- }
-
- if (!ad)
- sb_add_char (string, '0');
-}
-
-/* Parse the expression at offset idx into sb in. Return the value in
- val. If the expression is not constant, give ERROR emsg. Return
- the index of the first character past the end of the expression. */
-
-static int
-exp_get_abs (emsg, idx, in, val)
- const char *emsg;
- int idx;
- sb *in;
- int *val;
-{
- exp_t res;
- idx = exp_parse (idx, in, &res);
- if (res.add_symbol.len || res.sub_symbol.len)
- ERROR ((stderr, "%s", emsg));
- *val = res.value;
- return idx;
-}
-
-/* Current label parsed from line. */
-sb label;
-
-/* Hash table for all assigned variables. */
-hash_table assign_hash_table;
-
-/* Hash table for keyword. */
-hash_table keyword_hash_table;
-
-/* Hash table for eq variables. */
-hash_table vars;
-
-#define in_comment ';'
-
-#if 0
-static void
-strip_comments (out)
- sb *out;
-{
- char *s = out->ptr;
- int i = 0;
- for (i = 0; i < out->len; i++)
- {
- if (ISCOMMENTCHAR (s[i]))
- {
- out->len = i;
- return;
- }
- }
-}
-#endif
-
-/* Push back character ch so that it can be read again. */
-
-static void
-unget (ch)
- int ch;
-{
- if (ch == '\n')
- {
- sp->linecount--;
- }
- if (sp->pushback_index)
- sp->pushback_index--;
- else
- sb_add_char (&sp->pushback, ch);
-}
-
-/* Push the sb ptr onto the include stack, with the given name, type
- and index. */
-
-static void
-include_buf (name, ptr, type, index)
- sb *name;
- sb *ptr;
- include_type type;
- int index;
-{
- sp++;
- if (sp - include_stack >= MAX_INCLUDES)
- FATAL ((stderr, _("unreasonable nesting.\n")));
- sb_new (&sp->name);
- sb_add_sb (&sp->name, name);
- sp->handle = 0;
- sp->linecount = 1;
- sp->pushback_index = 0;
- sp->type = type;
- sp->index = index;
- sb_new (&sp->pushback);
- sb_add_sb (&sp->pushback, ptr);
-}
-
-/* Used in ERROR messages, print info on where the include stack is
- onto file. */
-
-static void
-include_print_where_line (file)
- FILE *file;
-{
- struct include_stack *p = include_stack + 1;
-
- while (p <= sp)
- {
- fprintf (file, "%s:%d ", sb_name (&p->name), p->linecount - 1);
- p++;
- }
-}
-
-/* Used in listings, print the line number onto file. */
-
-static void
-include_print_line (file)
- FILE *file;
-{
- int n;
- struct include_stack *p = include_stack + 1;
-
- n = fprintf (file, "%4d", p->linecount);
- p++;
- while (p <= sp)
- {
- n += fprintf (file, ".%d", p->linecount);
- p++;
- }
- while (n < 8 * 3)
- {
- fprintf (file, " ");
- n++;
- }
-}
-
-/* Read a line from the top of the include stack into sb in. */
-
-static int
-get_line (in)
- sb *in;
-{
- int online = 0;
- int more = 1;
-
- if (copysource)
- {
- putc (comment_char, outfile);
- if (print_line_number)
- include_print_line (outfile);
- }
-
- while (1)
- {
- int ch = get ();
-
- while (ch == '\r')
- ch = get ();
-
- if (ch == EOF)
- {
- if (online)
- {
- WARNING ((stderr, _("End of file not at start of line.\n")));
- if (copysource)
- putc ('\n', outfile);
- ch = '\n';
- }
- else
- more = 0;
- break;
- }
-
- if (copysource)
- {
- putc (ch, outfile);
- }
-
- if (ch == '\n')
- {
- ch = get ();
- online = 0;
- if (ch == '+')
- {
- /* Continued line. */
- if (copysource)
- {
- putc (comment_char, outfile);
- putc ('+', outfile);
- }
- ch = get ();
- }
- else
- {
- if (ch != EOF)
- unget (ch);
- break;
- }
- }
- else
- {
- sb_add_char (in, ch);
- }
- online++;
- }
-
- return more;
-}
-
-/* Find a label from sb in and put it in out. */
-
-static int
-grab_label (in, out)
- sb *in;
- sb *out;
-{
- int i = 0;
- sb_reset (out);
- if (ISFIRSTCHAR (in->ptr[i]) || in->ptr[i] == '\\')
- {
- sb_add_char (out, in->ptr[i]);
- i++;
- while ((ISNEXTCHAR (in->ptr[i])
- || in->ptr[i] == '\\'
- || in->ptr[i] == '&')
- && i < in->len)
- {
- sb_add_char (out, in->ptr[i]);
- i++;
- }
- }
- return i;
-}
-
-/* Find all strange base stuff and turn into decimal. Also
- find all the other numbers and convert them from the default radix. */
-
-static void
-change_base (idx, in, out)
- int idx;
- sb *in;
- sb *out;
-{
- char buffer[20];
-
- while (idx < in->len)
- {
- if (in->ptr[idx] == '\\'
- && idx + 1 < in->len
- && in->ptr[idx + 1] == '(')
- {
- idx += 2;
- while (idx < in->len
- && in->ptr[idx] != ')')
- {
- sb_add_char (out, in->ptr[idx]);
- idx++;
- }
- if (idx < in->len)
- idx++;
- }
- else if (idx < in->len - 1 && in->ptr[idx + 1] == '\'' && ! mri)
- {
- int base;
- int value;
- switch (in->ptr[idx])
- {
- case 'b':
- case 'B':
- base = 2;
- break;
- case 'q':
- case 'Q':
- base = 8;
- break;
- case 'h':
- case 'H':
- base = 16;
- break;
- case 'd':
- case 'D':
- base = 10;
- break;
- default:
- ERROR ((stderr, _("Illegal base character %c.\n"), in->ptr[idx]));
- base = 10;
- break;
- }
-
- idx = sb_strtol (idx + 2, in, base, &value);
- sprintf (buffer, "%d", value);
- sb_add_string (out, buffer);
- }
- else if (ISFIRSTCHAR (in->ptr[idx]))
- {
- /* Copy entire names through quickly. */
- sb_add_char (out, in->ptr[idx]);
- idx++;
- while (idx < in->len && ISNEXTCHAR (in->ptr[idx]))
- {
- sb_add_char (out, in->ptr[idx]);
- idx++;
- }
- }
- else if (is_flonum (idx, in))
- {
- idx = chew_flonum (idx, in, out);
- }
- else if (ISDIGIT (in->ptr[idx]))
- {
- int value;
- /* All numbers must start with a digit, let's chew it and
- spit out decimal. */
- idx = sb_strtol (idx, in, radix, &value);
- sprintf (buffer, "%d", value);
- sb_add_string (out, buffer);
-
- /* Skip all undigsested letters. */
- while (idx < in->len && ISNEXTCHAR (in->ptr[idx]))
- {
- sb_add_char (out, in->ptr[idx]);
- idx++;
- }
- }
- else if (in->ptr[idx] == '"' || in->ptr[idx] == '\'')
- {
- char tchar = in->ptr[idx];
- /* Copy entire names through quickly. */
- sb_add_char (out, in->ptr[idx]);
- idx++;
- while (idx < in->len && in->ptr[idx] != tchar)
- {
- sb_add_char (out, in->ptr[idx]);
- idx++;
- }
- }
- else
- {
- /* Nothing special, just pass it through. */
- sb_add_char (out, in->ptr[idx]);
- idx++;
- }
- }
-
-}
-
-/* .end */
-
-static void
-do_end (in)
- sb *in;
-{
- had_end = 1;
- if (mri)
- fprintf (outfile, "%s\n", sb_name (in));
-}
-
-/* .assign */
-
-static void
-do_assign (again, idx, in)
- int again;
- int idx;
- sb *in;
-{
- /* Stick label in symbol table with following value. */
- exp_t e;
- sb acc;
-
- sb_new (&acc);
- idx = exp_parse (idx, in, &e);
- exp_string (&e, &acc);
- hash_add_to_string_table (&assign_hash_table, &label, &acc, again);
- sb_kill (&acc);
-}
-
-/* .radix [b|q|d|h] */
-
-static void
-do_radix (ptr)
- sb *ptr;
-{
- int idx = sb_skip_white (0, ptr);
- switch (ptr->ptr[idx])
- {
- case 'B':
- case 'b':
- radix = 2;
- break;
- case 'q':
- case 'Q':
- radix = 8;
- break;
- case 'd':
- case 'D':
- radix = 10;
- break;
- case 'h':
- case 'H':
- radix = 16;
- break;
- default:
- ERROR ((stderr, _("radix is %c must be one of b, q, d or h"), radix));
- }
-}
-
-/* Parse off a .b, .w or .l. */
-
-static int
-get_opsize (idx, in, size)
- int idx;
- sb *in;
- int *size;
-{
- *size = 4;
- if (in->ptr[idx] == '.')
- {
- idx++;
- }
- switch (in->ptr[idx])
- {
- case 'b':
- case 'B':
- *size = 1;
- break;
- case 'w':
- case 'W':
- *size = 2;
- break;
- case 'l':
- case 'L':
- *size = 4;
- break;
- case ' ':
- case '\t':
- break;
- default:
- ERROR ((stderr, _("size must be one of b, w or l, is %c.\n"), in->ptr[idx]));
- break;
- }
- idx++;
-
- return idx;
-}
-
-static int
-eol (idx, line)
- int idx;
- sb *line;
-{
- idx = sb_skip_white (idx, line);
- if (idx < line->len
- && ISCOMMENTCHAR(line->ptr[idx]))
- return 1;
- if (idx >= line->len)
- return 1;
- return 0;
-}
-
-/* .data [.b|.w|.l] <data>*
- or d[bwl] <data>* */
-
-static void
-do_data (idx, in, size)
- int idx;
- sb *in;
- int size;
-{
- int opsize = 4;
- char *opname = ".yikes!";
- sb acc;
- sb_new (&acc);
-
- if (!size)
- {
- idx = get_opsize (idx, in, &opsize);
- }
- else
- {
- opsize = size;
- }
- switch (opsize)
- {
- case 4:
- opname = ".long";
- break;
- case 2:
- opname = ".short";
- break;
- case 1:
- opname = ".byte";
- break;
- }
-
- fprintf (outfile, "%s\t", opname);
-
- idx = sb_skip_white (idx, in);
-
- if (alternate
- && idx < in->len
- && in->ptr[idx] == '"')
- {
- int i;
- idx = getstring (idx, in, &acc);
- for (i = 0; i < acc.len; i++)
- {
- if (i)
- fprintf (outfile, ",");
- fprintf (outfile, "%d", acc.ptr[i]);
- }
- }
- else
- {
- while (!eol (idx, in))
- {
- exp_t e;
- idx = exp_parse (idx, in, &e);
- exp_string (&e, &acc);
- sb_add_char (&acc, 0);
- fprintf (outfile, "%s", acc.ptr);
- if (idx < in->len && in->ptr[idx] == ',')
- {
- fprintf (outfile, ",");
- idx++;
- }
- }
- }
- sb_kill (&acc);
- sb_print_at (outfile, idx, in);
- fprintf (outfile, "\n");
-}
-
-/* .datab [.b|.w|.l] <repeat>,<fill> */
-
-static void
-do_datab (idx, in)
- int idx;
- sb *in;
-{
- int opsize;
- int repeat;
- int fill;
-
- idx = get_opsize (idx, in, &opsize);
-
- idx = exp_get_abs (_("datab repeat must be constant.\n"), idx, in, &repeat);
- idx = sb_skip_comma (idx, in);
- idx = exp_get_abs (_("datab data must be absolute.\n"), idx, in, &fill);
-
- fprintf (outfile, ".fill\t%d,%d,%d\n", repeat, opsize, fill);
-}
-
-/* .align <size> */
-
-static void
-do_align (idx, in)
- int idx;
- sb *in;
-{
- int al, have_fill, fill;
-
- idx = exp_get_abs (_("align needs absolute expression.\n"), idx, in, &al);
- idx = sb_skip_white (idx, in);
- have_fill = 0;
- fill = 0;
- if (! eol (idx, in))
- {
- idx = sb_skip_comma (idx, in);
- idx = exp_get_abs (_(".align needs absolute fill value.\n"), idx, in,
- &fill);
- have_fill = 1;
- }
-
- fprintf (outfile, ".align %d", al);
- if (have_fill)
- fprintf (outfile, ",%d", fill);
- fprintf (outfile, "\n");
-}
-
-/* .res[.b|.w|.l] <size> */
-
-static void
-do_res (idx, in, type)
- int idx;
- sb *in;
- int type;
-{
- int size = 4;
- int count = 0;
-
- idx = get_opsize (idx, in, &size);
- while (!eol (idx, in))
- {
- idx = sb_skip_white (idx, in);
- if (in->ptr[idx] == ',')
- idx++;
- idx = exp_get_abs (_("res needs absolute expression for fill count.\n"), idx, in, &count);
-
- if (type == 'c' || type == 'z')
- count++;
-
- fprintf (outfile, ".space %d\n", count * size);
- }
-}
-
-/* .export */
-
-static void
-do_export (in)
- sb *in;
-{
- fprintf (outfile, ".global %s\n", sb_name (in));
-}
-
-/* .print [list] [nolist] */
-
-static void
-do_print (idx, in)
- int idx;
- sb *in;
-{
- idx = sb_skip_white (idx, in);
- while (idx < in->len)
- {
- if (strncasecmp (in->ptr + idx, "LIST", 4) == 0)
- {
- fprintf (outfile, ".list\n");
- idx += 4;
- }
- else if (strncasecmp (in->ptr + idx, "NOLIST", 6) == 0)
- {
- fprintf (outfile, ".nolist\n");
- idx += 6;
- }
- idx++;
- }
-}
-
-/* .head */
-
-static void
-do_heading (idx, in)
- int idx;
- sb *in;
-{
- sb head;
- sb_new (&head);
- idx = getstring (idx, in, &head);
- fprintf (outfile, ".title \"%s\"\n", sb_name (&head));
- sb_kill (&head);
-}
-
-/* .page */
-
-static void
-do_page ()
-{
- fprintf (outfile, ".eject\n");
-}
-
-/* .form [lin=<value>] [col=<value>] */
-
-static void
-do_form (idx, in)
- int idx;
- sb *in;
-{
- int lines = 60;
- int columns = 132;
- idx = sb_skip_white (idx, in);
-
- while (idx < in->len)
- {
-
- if (strncasecmp (in->ptr + idx, "LIN=", 4) == 0)
- {
- idx += 4;
- idx = exp_get_abs (_("form LIN= needs absolute expresssion.\n"), idx, in, &lines);
- }
-
- if (strncasecmp (in->ptr + idx, _("COL="), 4) == 0)
- {
- idx += 4;
- idx = exp_get_abs (_("form COL= needs absolute expresssion.\n"), idx, in, &columns);
- }
-
- idx++;
- }
- fprintf (outfile, ".psize %d,%d\n", lines, columns);
-
-}
-
-/* Fetch string from the input stream,
- rules:
- 'Bxyx<whitespace> -> return 'Bxyza
- %<char> -> return string of decimal value of x
- "<string>" -> return string
- xyx<whitespace> -> return xyz
-*/
-
-static int
-get_any_string (idx, in, out, expand, pretend_quoted)
- int idx;
- sb *in;
- sb *out;
- int expand;
- int pretend_quoted;
-{
- sb_reset (out);
- idx = sb_skip_white (idx, in);
-
- if (idx < in->len)
- {
- if (in->len > 2 && in->ptr[idx + 1] == '\'' && ISBASE (in->ptr[idx]))
- {
- while (!ISSEP (in->ptr[idx]))
- sb_add_char (out, in->ptr[idx++]);
- }
- else if (in->ptr[idx] == '%'
- && alternate
- && expand)
- {
- int val;
- char buf[20];
- /* Turns the next expression into a string. */
- /* xgettext: no-c-format */
- idx = exp_get_abs (_("% operator needs absolute expression"),
- idx + 1,
- in,
- &val);
- sprintf (buf, "%d", val);
- sb_add_string (out, buf);
- }
- else if (in->ptr[idx] == '"'
- || in->ptr[idx] == '<'
- || (alternate && in->ptr[idx] == '\''))
- {
- if (alternate && expand)
- {
- /* Keep the quotes. */
- sb_add_char (out, '\"');
-
- idx = getstring (idx, in, out);
- sb_add_char (out, '\"');
-
- }
- else
- {
- idx = getstring (idx, in, out);
- }
- }
- else
- {
- while (idx < in->len
- && (in->ptr[idx] == '"'
- || in->ptr[idx] == '\''
- || pretend_quoted
- || !ISSEP (in->ptr[idx])))
- {
- if (in->ptr[idx] == '"'
- || in->ptr[idx] == '\'')
- {
- char tchar = in->ptr[idx];
- sb_add_char (out, in->ptr[idx++]);
- while (idx < in->len
- && in->ptr[idx] != tchar)
- sb_add_char (out, in->ptr[idx++]);
- if (idx == in->len)
- return idx;
- }
- sb_add_char (out, in->ptr[idx++]);
- }
- }
- }
-
- return idx;
-}
-
-/* Skip along sb in starting at idx, suck off whitespace a ( and more
- whitespace. Return the idx of the next char. */
-
-static int
-skip_openp (idx, in)
- int idx;
- sb *in;
-{
- idx = sb_skip_white (idx, in);
- if (in->ptr[idx] != '(')
- ERROR ((stderr, _("misplaced ( .\n")));
- idx = sb_skip_white (idx + 1, in);
- return idx;
-}
-
-/* Skip along sb in starting at idx, suck off whitespace a ) and more
- whitespace. Return the idx of the next char. */
-
-static int
-skip_closep (idx, in)
- int idx;
- sb *in;
-{
- idx = sb_skip_white (idx, in);
- if (in->ptr[idx] != ')')
- ERROR ((stderr, _("misplaced ).\n")));
- idx = sb_skip_white (idx + 1, in);
- return idx;
-}
-
-/* .len */
-
-static int
-dolen (idx, in, out)
- int idx;
- sb *in;
- sb *out;
-{
-
- sb stringout;
- char buffer[10];
-
- sb_new (&stringout);
- idx = skip_openp (idx, in);
- idx = get_and_process (idx, in, &stringout);
- idx = skip_closep (idx, in);
- sprintf (buffer, "%d", stringout.len);
- sb_add_string (out, buffer);
-
- sb_kill (&stringout);
- return idx;
-}
-
-/* .instr */
-
-static int
-doinstr (idx, in, out)
- int idx;
- sb *in;
- sb *out;
-{
- sb string;
- sb search;
- int i;
- int start;
- int res;
- char buffer[10];
-
- sb_new (&string);
- sb_new (&search);
- idx = skip_openp (idx, in);
- idx = get_and_process (idx, in, &string);
- idx = sb_skip_comma (idx, in);
- idx = get_and_process (idx, in, &search);
- idx = sb_skip_comma (idx, in);
- if (ISDIGIT (in->ptr[idx]))
- {
- idx = exp_get_abs (_(".instr needs absolute expresson.\n"), idx, in, &start);
- }
- else
- {
- start = 0;
- }
- idx = skip_closep (idx, in);
- res = -1;
- for (i = start; i < string.len; i++)
- {
- if (strncmp (string.ptr + i, search.ptr, search.len) == 0)
- {
- res = i;
- break;
- }
- }
- sprintf (buffer, "%d", res);
- sb_add_string (out, buffer);
- sb_kill (&string);
- sb_kill (&search);
- return idx;
-}
-
-static int
-dosubstr (idx, in, out)
- int idx;
- sb *in;
- sb *out;
-{
- sb string;
- int pos;
- int len;
- sb_new (&string);
-
- idx = skip_openp (idx, in);
- idx = get_and_process (idx, in, &string);
- idx = sb_skip_comma (idx, in);
- idx = exp_get_abs (_("need absolute position.\n"), idx, in, &pos);
- idx = sb_skip_comma (idx, in);
- idx = exp_get_abs (_("need absolute length.\n"), idx, in, &len);
- idx = skip_closep (idx, in);
-
- if (len < 0 || pos < 0 ||
- pos > string.len
- || pos + len > string.len)
- {
- sb_add_string (out, " ");
- }
- else
- {
- sb_add_char (out, '"');
- while (len > 0)
- {
- sb_add_char (out, string.ptr[pos++]);
- len--;
- }
- sb_add_char (out, '"');
- }
- sb_kill (&string);
- return idx;
-}
-
-/* Scan line, change tokens in the hash table to their replacements. */
-
-static void
-process_assigns (idx, in, buf)
- int idx;
- sb *in;
- sb *buf;
-{
- while (idx < in->len)
- {
- hash_entry *ptr;
- if (in->ptr[idx] == '\\'
- && idx + 1 < in->len
- && in->ptr[idx + 1] == '(')
- {
- do
- {
- sb_add_char (buf, in->ptr[idx]);
- idx++;
- }
- while (idx < in->len && in->ptr[idx - 1] != ')');
- }
- else if (in->ptr[idx] == '\\'
- && idx + 1 < in->len
- && in->ptr[idx + 1] == '&')
- {
- idx = condass_lookup_name (in, idx + 2, buf, 1);
- }
- else if (in->ptr[idx] == '\\'
- && idx + 1 < in->len
- && in->ptr[idx + 1] == '$')
- {
- idx = condass_lookup_name (in, idx + 2, buf, 0);
- }
- else if (idx + 3 < in->len
- && in->ptr[idx] == '.'
- && TOUPPER (in->ptr[idx + 1]) == 'L'
- && TOUPPER (in->ptr[idx + 2]) == 'E'
- && TOUPPER (in->ptr[idx + 3]) == 'N')
- idx = dolen (idx + 4, in, buf);
- else if (idx + 6 < in->len
- && in->ptr[idx] == '.'
- && TOUPPER (in->ptr[idx + 1]) == 'I'
- && TOUPPER (in->ptr[idx + 2]) == 'N'
- && TOUPPER (in->ptr[idx + 3]) == 'S'
- && TOUPPER (in->ptr[idx + 4]) == 'T'
- && TOUPPER (in->ptr[idx + 5]) == 'R')
- idx = doinstr (idx + 6, in, buf);
- else if (idx + 7 < in->len
- && in->ptr[idx] == '.'
- && TOUPPER (in->ptr[idx + 1]) == 'S'
- && TOUPPER (in->ptr[idx + 2]) == 'U'
- && TOUPPER (in->ptr[idx + 3]) == 'B'
- && TOUPPER (in->ptr[idx + 4]) == 'S'
- && TOUPPER (in->ptr[idx + 5]) == 'T'
- && TOUPPER (in->ptr[idx + 6]) == 'R')
- idx = dosubstr (idx + 7, in, buf);
- else if (ISFIRSTCHAR (in->ptr[idx]))
- {
- /* May be a simple name subsitution, see if we have a word. */
- sb acc;
- int cur = idx + 1;
- while (cur < in->len
- && (ISNEXTCHAR (in->ptr[cur])))
- cur++;
-
- sb_new (&acc);
- sb_add_buffer (&acc, in->ptr + idx, cur - idx);
- ptr = hash_lookup (&assign_hash_table, &acc);
- if (ptr)
- {
- /* Found a definition for it. */
- sb_add_sb (buf, &ptr->value.s);
- }
- else
- {
- /* No definition, just copy the word. */
- sb_add_sb (buf, &acc);
- }
- sb_kill (&acc);
- idx = cur;
- }
- else
- {
- sb_add_char (buf, in->ptr[idx++]);
- }
- }
-}
-
-static int
-get_and_process (idx, in, out)
- int idx;
- sb *in;
- sb *out;
-{
- sb t;
- sb_new (&t);
- idx = get_any_string (idx, in, &t, 1, 0);
- process_assigns (0, &t, out);
- sb_kill (&t);
- return idx;
-}
-
-static void
-process_file ()
-{
- sb line;
- sb t1, t2;
- sb acc;
- sb label_in;
- int more;
-
- sb_new (&line);
- sb_new (&t1);
- sb_new (&t2);
- sb_new (&acc);
- sb_new (&label_in);
- sb_reset (&line);
- more = get_line (&line);
- while (more)
- {
- /* Find any label and pseudo op that we're intested in. */
- int l;
- if (line.len == 0)
- {
- if (condass_on ())
- fprintf (outfile, "\n");
- }
- else if (mri
- && (line.ptr[0] == '*'
- || line.ptr[0] == '!'))
- {
- /* MRI line comment. */
- fprintf (outfile, "%s", sb_name (&line));
- }
- else
- {
- l = grab_label (&line, &label_in);
- sb_reset (&label);
-
- if (line.ptr[l] == ':')
- l++;
- while (ISWHITE (line.ptr[l]) && l < line.len)
- l++;
-
- if (label_in.len)
- {
- int do_assigns;
-
- /* Munge the label, unless this is EQU or ASSIGN. */
- do_assigns = 1;
- if (l < line.len
- && (line.ptr[l] == '.' || alternate || mri))
- {
- int lx = l;
-
- if (line.ptr[lx] == '.')
- ++lx;
- if (lx + 3 <= line.len
- && strncasecmp ("EQU", line.ptr + lx, 3) == 0
- && (lx + 3 == line.len
- || ! ISFIRSTCHAR (line.ptr[lx + 3])))
- do_assigns = 0;
- else if (lx + 6 <= line.len
- && strncasecmp ("ASSIGN", line.ptr + lx, 6) == 0
- && (lx + 6 == line.len
- || ! ISFIRSTCHAR (line.ptr[lx + 6])))
- do_assigns = 0;
- }
-
- if (do_assigns)
- process_assigns (0, &label_in, &label);
- else
- sb_add_sb (&label, &label_in);
- }
-
- if (l < line.len)
- {
- if (process_pseudo_op (l, &line, &acc))
- {
-
- }
- else if (condass_on ())
- {
- if (macro_op (l, &line))
- {
-
- }
- else
- {
- {
- if (label.len)
- {
- fprintf (outfile, "%s:\t", sb_name (&label));
- }
- else
- fprintf (outfile, "\t");
- sb_reset (&t1);
- process_assigns (l, &line, &t1);
- sb_reset (&t2);
- change_base (0, &t1, &t2);
- fprintf (outfile, "%s\n", sb_name (&t2));
- }
- }
- }
- }
- else
- {
- /* Only a label on this line. */
- if (label.len && condass_on ())
- {
- fprintf (outfile, "%s:\n", sb_name (&label));
- }
- }
- }
-
- if (had_end)
- break;
- sb_reset (&line);
- more = get_line (&line);
- }
-
- if (!had_end && !mri)
- WARNING ((stderr, _("END missing from end of file.\n")));
-}
-
-static void
-free_old_entry (ptr)
- hash_entry *ptr;
-{
- if (ptr)
- {
- if (ptr->type == hash_string)
- sb_kill (&ptr->value.s);
- }
-}
-
-/* name: .ASSIGNA <value> */
-
-static void
-do_assigna (idx, in)
- int idx;
- sb *in;
-{
- sb tmp;
- int val;
- sb_new (&tmp);
-
- process_assigns (idx, in, &tmp);
- idx = exp_get_abs (_(".ASSIGNA needs constant expression argument.\n"), 0, &tmp, &val);
-
- if (!label.len)
- {
- ERROR ((stderr, _(".ASSIGNA without label.\n")));
- }
- else
- {
- hash_entry *ptr = hash_create (&vars, &label);
- free_old_entry (ptr);
- ptr->type = hash_integer;
- ptr->value.i = val;
- }
- sb_kill (&tmp);
-}
-
-/* name: .ASSIGNC <string> */
-
-static void
-do_assignc (idx, in)
- int idx;
- sb *in;
-{
- sb acc;
- sb_new (&acc);
- idx = getstring (idx, in, &acc);
-
- if (!label.len)
- {
- ERROR ((stderr, _(".ASSIGNS without label.\n")));
- }
- else
- {
- hash_entry *ptr = hash_create (&vars, &label);
- free_old_entry (ptr);
- ptr->type = hash_string;
- sb_new (&ptr->value.s);
- sb_add_sb (&ptr->value.s, &acc);
- }
- sb_kill (&acc);
-}
-
-/* name: .REG (reg) */
-
-static void
-do_reg (idx, in)
- int idx;
- sb *in;
-{
- /* Remove reg stuff from inside parens. */
- sb what;
- if (!mri)
- idx = skip_openp (idx, in);
- else
- idx = sb_skip_white (idx, in);
- sb_new (&what);
- while (idx < in->len
- && (mri
- ? ! eol (idx, in)
- : in->ptr[idx] != ')'))
- {
- sb_add_char (&what, in->ptr[idx]);
- idx++;
- }
- hash_add_to_string_table (&assign_hash_table, &label, &what, 1);
- sb_kill (&what);
-}
-
-static int
-condass_lookup_name (inbuf, idx, out, warn)
- sb *inbuf;
- int idx;
- sb *out;
- int warn;
-{
- hash_entry *ptr;
- sb condass_acc;
- sb_new (&condass_acc);
-
- while (idx < inbuf->len
- && ISNEXTCHAR (inbuf->ptr[idx]))
- {
- sb_add_char (&condass_acc, inbuf->ptr[idx++]);
- }
-
- if (inbuf->ptr[idx] == '\'')
- idx++;
- ptr = hash_lookup (&vars, &condass_acc);
-
- if (!ptr)
- {
- if (warn)
- {
- WARNING ((stderr, _("Can't find preprocessor variable %s.\n"), sb_name (&condass_acc)));
- }
- else
- {
- sb_add_string (out, "0");
- }
- }
- else
- {
- if (ptr->type == hash_integer)
- {
- char buffer[30];
- sprintf (buffer, "%d", ptr->value.i);
- sb_add_string (out, buffer);
- }
- else
- {
- sb_add_sb (out, &ptr->value.s);
- }
- }
- sb_kill (&condass_acc);
- return idx;
-}
-
-#define EQ 1
-#define NE 2
-#define GE 3
-#define LT 4
-#define LE 5
-#define GT 6
-#define NEVER 7
-
-static int
-whatcond (idx, in, val)
- int idx;
- sb *in;
- int *val;
-{
- int cond;
-
- idx = sb_skip_white (idx, in);
- cond = NEVER;
- if (idx + 1 < in->len)
- {
- char *p;
- char a, b;
-
- p = in->ptr + idx;
- a = TOUPPER (p[0]);
- b = TOUPPER (p[1]);
- if (a == 'E' && b == 'Q')
- cond = EQ;
- else if (a == 'N' && b == 'E')
- cond = NE;
- else if (a == 'L' && b == 'T')
- cond = LT;
- else if (a == 'L' && b == 'E')
- cond = LE;
- else if (a == 'G' && b == 'T')
- cond = GT;
- else if (a == 'G' && b == 'E')
- cond = GE;
- }
- if (cond == NEVER)
- {
- ERROR ((stderr, _("Comparison operator must be one of EQ, NE, LT, LE, GT or GE.\n")));
- cond = NEVER;
- }
- idx = sb_skip_white (idx + 2, in);
- *val = cond;
- return idx;
-}
-
-static int
-istrue (idx, in)
- int idx;
- sb *in;
-{
- int res;
- sb acc_a;
- sb cond;
- sb acc_b;
- sb_new (&acc_a);
- sb_new (&cond);
- sb_new (&acc_b);
- idx = sb_skip_white (idx, in);
-
- if (in->ptr[idx] == '"')
- {
- int cond;
- int same;
- /* This is a string comparision. */
- idx = getstring (idx, in, &acc_a);
- idx = whatcond (idx, in, &cond);
- idx = getstring (idx, in, &acc_b);
- same = acc_a.len == acc_b.len
- && (strncmp (acc_a.ptr, acc_b.ptr, acc_a.len) == 0);
-
- if (cond != EQ && cond != NE)
- {
- ERROR ((stderr, _("Comparison operator for strings must be EQ or NE\n")));
- res = 0;
- }
- else
- res = (cond != EQ) ^ same;
- }
- else
- /* This is a numeric expression. */
- {
- int vala;
- int valb;
- int cond;
- idx = exp_get_abs (_("Conditional operator must have absolute operands.\n"), idx, in, &vala);
- idx = whatcond (idx, in, &cond);
- idx = sb_skip_white (idx, in);
- if (in->ptr[idx] == '"')
- {
- WARNING ((stderr, _("String compared against expression.\n")));
- res = 0;
- }
- else
- {
- idx = exp_get_abs (_("Conditional operator must have absolute operands.\n"), idx, in, &valb);
- switch (cond)
- {
- default:
- res = 42;
- break;
- case EQ:
- res = vala == valb;
- break;
- case NE:
- res = vala != valb;
- break;
- case LT:
- res = vala < valb;
- break;
- case LE:
- res = vala <= valb;
- break;
- case GT:
- res = vala > valb;
- break;
- case GE:
- res = vala >= valb;
- break;
- case NEVER:
- res = 0;
- break;
- }
- }
- }
-
- sb_kill (&acc_a);
- sb_kill (&cond);
- sb_kill (&acc_b);
- return res;
-}
-
-/* .AIF */
-
-static void
-do_aif (idx, in)
- int idx;
- sb *in;
-{
- if (ifi >= IFNESTING)
- {
- FATAL ((stderr, _("AIF nesting unreasonable.\n")));
- }
- ifi++;
- ifstack[ifi].on = ifstack[ifi - 1].on ? istrue (idx, in) : 0;
- ifstack[ifi].hadelse = 0;
-}
-
-/* .AELSE */
-
-static void
-do_aelse ()
-{
- ifstack[ifi].on = ifstack[ifi - 1].on ? !ifstack[ifi].on : 0;
- if (ifstack[ifi].hadelse)
- {
- ERROR ((stderr, _("Multiple AELSEs in AIF.\n")));
- }
- ifstack[ifi].hadelse = 1;
-}
-
-/* .AENDI */
-
-static void
-do_aendi ()
-{
- if (ifi != 0)
- {
- ifi--;
- }
- else
- {
- ERROR ((stderr, _("AENDI without AIF.\n")));
- }
-}
-
-static int
-condass_on ()
-{
- return ifstack[ifi].on;
-}
-
-/* MRI IFEQ, IFNE, IFLT, IFLE, IFGE, IFGT. */
-
-static void
-do_if (idx, in, cond)
- int idx;
- sb *in;
- int cond;
-{
- int val;
- int res;
-
- if (ifi >= IFNESTING)
- {
- FATAL ((stderr, _("IF nesting unreasonable.\n")));
- }
-
- idx = exp_get_abs (_("Conditional operator must have absolute operands.\n"),
- idx, in, &val);
- switch (cond)
- {
- default:
- case EQ: res = val == 0; break;
- case NE: res = val != 0; break;
- case LT: res = val < 0; break;
- case LE: res = val <= 0; break;
- case GE: res = val >= 0; break;
- case GT: res = val > 0; break;
- }
-
- ifi++;
- ifstack[ifi].on = ifstack[ifi - 1].on ? res : 0;
- ifstack[ifi].hadelse = 0;
-}
-
-/* Get a string for the MRI IFC or IFNC pseudo-ops. */
-
-static int
-get_mri_string (idx, in, val, terminator)
- int idx;
- sb *in;
- sb *val;
- int terminator;
-{
- idx = sb_skip_white (idx, in);
-
- if (idx < in->len
- && in->ptr[idx] == '\'')
- {
- sb_add_char (val, '\'');
- for (++idx; idx < in->len; ++idx)
- {
- sb_add_char (val, in->ptr[idx]);
- if (in->ptr[idx] == '\'')
- {
- ++idx;
- if (idx >= in->len
- || in->ptr[idx] != '\'')
- break;
- }
- }
- idx = sb_skip_white (idx, in);
- }
- else
- {
- int i;
-
- while (idx < in->len
- && in->ptr[idx] != terminator)
- {
- sb_add_char (val, in->ptr[idx]);
- ++idx;
- }
- i = val->len - 1;
- while (i >= 0 && ISWHITE (val->ptr[i]))
- --i;
- val->len = i + 1;
- }
-
- return idx;
-}
-
-/* MRI IFC, IFNC */
-
-static void
-do_ifc (idx, in, ifnc)
- int idx;
- sb *in;
- int ifnc;
-{
- sb first;
- sb second;
- int res;
-
- if (ifi >= IFNESTING)
- {
- FATAL ((stderr, _("IF nesting unreasonable.\n")));
- }
-
- sb_new (&first);
- sb_new (&second);
-
- idx = get_mri_string (idx, in, &first, ',');
-
- if (idx >= in->len || in->ptr[idx] != ',')
- {
- ERROR ((stderr, _("Bad format for IF or IFNC.\n")));
- return;
- }
-
- idx = get_mri_string (idx + 1, in, &second, ';');
-
- res = (first.len == second.len
- && strncmp (first.ptr, second.ptr, first.len) == 0);
- res ^= ifnc;
-
- ifi++;
- ifstack[ifi].on = ifstack[ifi - 1].on ? res : 0;
- ifstack[ifi].hadelse = 0;
-}
-
-/* .ENDR */
-
-static void
-do_aendr ()
-{
- if (!mri)
- ERROR ((stderr, _("AENDR without a AREPEAT.\n")));
- else
- ERROR ((stderr, _("ENDR without a REPT.\n")));
-}
-
-/* .AWHILE */
-
-static void
-do_awhile (idx, in)
- int idx;
- sb *in;
-{
- int line = linecount ();
- sb exp;
- sb sub;
- int doit;
-
- sb_new (&sub);
- sb_new (&exp);
-
- process_assigns (idx, in, &exp);
- doit = istrue (0, &exp);
-
- if (! buffer_and_nest ("AWHILE", "AENDW", &sub, get_line))
- FATAL ((stderr, _("AWHILE without a AENDW at %d.\n"), line - 1));
-
- /* Turn
- .AWHILE exp
- foo
- .AENDW
- into
- foo
- .AWHILE exp
- foo
- .ENDW
- */
-
- if (doit)
- {
- int index = include_next_index ();
-
- sb copy;
- sb_new (&copy);
- sb_add_sb (&copy, &sub);
- sb_add_sb (&copy, in);
- sb_add_string (&copy, "\n");
- sb_add_sb (&copy, &sub);
- sb_add_string (&copy, "\t.AENDW\n");
- /* Push another WHILE. */
- include_buf (&exp, &copy, include_while, index);
- sb_kill (&copy);
- }
- sb_kill (&exp);
- sb_kill (&sub);
-}
-
-/* .AENDW */
-
-static void
-do_aendw ()
-{
- ERROR ((stderr, _("AENDW without a AENDW.\n")));
-}
-
-/* .EXITM
-
- Pop things off the include stack until the type and index changes. */
-
-static void
-do_exitm ()
-{
- include_type type = sp->type;
- if (type == include_repeat
- || type == include_while
- || type == include_macro)
- {
- int index = sp->index;
- include_pop ();
- while (sp->index == index
- && sp->type == type)
- {
- include_pop ();
- }
- }
-}
-
-/* .AREPEAT */
-
-static void
-do_arepeat (idx, in)
- int idx;
- sb *in;
-{
- int line = linecount ();
- sb exp; /* Buffer with expression in it. */
- sb copy; /* Expanded repeat block. */
- sb sub; /* Contents of AREPEAT. */
- int rc;
- int ret;
- char buffer[30];
-
- sb_new (&exp);
- sb_new (&copy);
- sb_new (&sub);
- process_assigns (idx, in, &exp);
- idx = exp_get_abs (_("AREPEAT must have absolute operand.\n"), 0, &exp, &rc);
- if (!mri)
- ret = buffer_and_nest ("AREPEAT", "AENDR", &sub, get_line);
- else
- ret = buffer_and_nest ("REPT", "ENDR", &sub, get_line);
- if (! ret)
- FATAL ((stderr, _("AREPEAT without a AENDR at %d.\n"), line - 1));
- if (rc > 0)
- {
- /* Push back the text following the repeat, and another repeat block
- so
- .AREPEAT 20
- foo
- .AENDR
- gets turned into
- foo
- .AREPEAT 19
- foo
- .AENDR
- */
- int index = include_next_index ();
- sb_add_sb (&copy, &sub);
- if (rc > 1)
- {
- if (!mri)
- sprintf (buffer, "\t.AREPEAT %d\n", rc - 1);
- else
- sprintf (buffer, "\tREPT %d\n", rc - 1);
- sb_add_string (&copy, buffer);
- sb_add_sb (&copy, &sub);
- if (!mri)
- sb_add_string (&copy, " .AENDR\n");
- else
- sb_add_string (&copy, " ENDR\n");
- }
-
- include_buf (&exp, &copy, include_repeat, index);
- }
- sb_kill (&exp);
- sb_kill (&sub);
- sb_kill (&copy);
-}
-
-/* .ENDM */
-
-static void
-do_endm ()
-{
- ERROR ((stderr, _(".ENDM without a matching .MACRO.\n")));
-}
-
-/* MRI IRP pseudo-op. */
-
-static void
-do_irp (idx, in, irpc)
- int idx;
- sb *in;
- int irpc;
-{
- const char *err;
- sb out;
-
- sb_new (&out);
-
- err = expand_irp (irpc, idx, in, &out, get_line, comment_char);
- if (err != NULL)
- ERROR ((stderr, "%s\n", err));
-
- fprintf (outfile, "%s", sb_terminate (&out));
-
- sb_kill (&out);
-}
-
-/* Macro processing. */
-
-/* Parse off LOCAL n1, n2,... Invent a label name for it. */
-
-static void
-do_local (idx, line)
- int idx ATTRIBUTE_UNUSED;
- sb *line ATTRIBUTE_UNUSED;
-{
- ERROR ((stderr, _("LOCAL outside of MACRO")));
-}
-
-static void
-do_macro (idx, in)
- int idx;
- sb *in;
-{
- const char *err;
- int line = linecount ();
-
- err = define_macro (idx, in, &label, get_line, (const char **) NULL);
- if (err != NULL)
- ERROR ((stderr, _("macro at line %d: %s\n"), line - 1, err));
-}
-
-static int
-macro_op (idx, in)
- int idx;
- sb *in;
-{
- const char *err;
- sb out;
- sb name;
-
- if (! macro_defined)
- return 0;
-
- sb_terminate (in);
- if (! check_macro (in->ptr + idx, &out, comment_char, &err, NULL))
- return 0;
-
- if (err != NULL)
- ERROR ((stderr, "%s\n", err));
-
- sb_new (&name);
- sb_add_string (&name, _("macro expansion"));
-
- include_buf (&name, &out, include_macro, include_next_index ());
-
- sb_kill (&name);
- sb_kill (&out);
-
- return 1;
-}
-
-/* String handling. */
-
-static int
-getstring (idx, in, acc)
- int idx;
- sb *in;
- sb *acc;
-{
- idx = sb_skip_white (idx, in);
-
- while (idx < in->len
- && (in->ptr[idx] == '"'
- || in->ptr[idx] == '<'
- || (in->ptr[idx] == '\'' && alternate)))
- {
- if (in->ptr[idx] == '<')
- {
- if (alternate || mri)
- {
- int nest = 0;
- idx++;
- while ((in->ptr[idx] != '>' || nest)
- && idx < in->len)
- {
- if (in->ptr[idx] == '!')
- {
- idx++;
- sb_add_char (acc, in->ptr[idx++]);
- }
- else
- {
- if (in->ptr[idx] == '>')
- nest--;
- if (in->ptr[idx] == '<')
- nest++;
- sb_add_char (acc, in->ptr[idx++]);
- }
- }
- idx++;
- }
- else
- {
- int code;
- idx++;
- idx = exp_get_abs (_("Character code in string must be absolute expression.\n"),
- idx, in, &code);
- sb_add_char (acc, code);
-
- if (in->ptr[idx] != '>')
- ERROR ((stderr, _("Missing > for character code.\n")));
- idx++;
- }
- }
- else if (in->ptr[idx] == '"' || in->ptr[idx] == '\'')
- {
- char tchar = in->ptr[idx];
- idx++;
- while (idx < in->len)
- {
- if (alternate && in->ptr[idx] == '!')
- {
- idx++;
- sb_add_char (acc, in->ptr[idx++]);
- }
- else
- {
- if (in->ptr[idx] == tchar)
- {
- idx++;
- if (idx >= in->len || in->ptr[idx] != tchar)
- break;
- }
- sb_add_char (acc, in->ptr[idx]);
- idx++;
- }
- }
- }
- }
-
- return idx;
-}
-
-/* .SDATA[C|Z] <string> */
-
-static void
-do_sdata (idx, in, type)
- int idx;
- sb *in;
- int type;
-{
- int nc = 0;
- int pidx = -1;
- sb acc;
- sb_new (&acc);
- fprintf (outfile, ".byte\t");
-
- while (!eol (idx, in))
- {
- int i;
- sb_reset (&acc);
- idx = sb_skip_white (idx, in);
- while (!eol (idx, in))
- {
- pidx = idx = get_any_string (idx, in, &acc, 0, 1);
- if (type == 'c')
- {
- if (acc.len > 255)
- {
- ERROR ((stderr, _("string for SDATAC longer than 255 characters (%d).\n"), acc.len));
- }
- fprintf (outfile, "%d", acc.len);
- nc = 1;
- }
-
- for (i = 0; i < acc.len; i++)
- {
- if (nc)
- {
- fprintf (outfile, ",");
- }
- fprintf (outfile, "%d", acc.ptr[i]);
- nc = 1;
- }
-
- if (type == 'z')
- {
- if (nc)
- fprintf (outfile, ",");
- fprintf (outfile, "0");
- }
- idx = sb_skip_comma (idx, in);
- if (idx == pidx)
- break;
- }
- if (!alternate && in->ptr[idx] != ',' && idx != in->len)
- {
- fprintf (outfile, "\n");
- ERROR ((stderr, _("illegal character in SDATA line (0x%x).\n"),
- in->ptr[idx]));
- break;
- }
- idx++;
- }
- sb_kill (&acc);
- fprintf (outfile, "\n");
-}
-
-/* .SDATAB <count> <string> */
-
-static void
-do_sdatab (idx, in)
- int idx;
- sb *in;
-{
- int repeat;
- int i;
- sb acc;
- sb_new (&acc);
-
- idx = exp_get_abs (_("Must have absolute SDATAB repeat count.\n"), idx, in, &repeat);
- if (repeat <= 0)
- {
- ERROR ((stderr, _("Must have positive SDATAB repeat count (%d).\n"), repeat));
- repeat = 1;
- }
-
- idx = sb_skip_comma (idx, in);
- idx = getstring (idx, in, &acc);
-
- for (i = 0; i < repeat; i++)
- {
- if (i)
- fprintf (outfile, "\t");
- fprintf (outfile, ".byte\t");
- sb_print (outfile, &acc);
- fprintf (outfile, "\n");
- }
- sb_kill (&acc);
-
-}
-
-static int
-new_file (name)
- const char *name;
-{
- FILE *newone = fopen (name, "r");
- if (!newone)
- return 0;
-
- if (isp == MAX_INCLUDES)
- FATAL ((stderr, _("Unreasonable include depth (%ld).\n"), (long) isp));
-
- sp++;
- sp->handle = newone;
-
- sb_new (&sp->name);
- sb_add_string (&sp->name, name);
-
- sp->linecount = 1;
- sp->pushback_index = 0;
- sp->type = include_file;
- sp->index = 0;
- sb_new (&sp->pushback);
- return 1;
-}
-
-static void
-do_include (idx, in)
- int idx;
- sb *in;
-{
- sb t;
- sb cat;
- include_path *includes;
-
- sb_new (&t);
- sb_new (&cat);
-
- if (! mri)
- idx = getstring (idx, in, &t);
- else
- {
- idx = sb_skip_white (idx, in);
- while (idx < in->len && ! ISWHITE (in->ptr[idx]))
- {
- sb_add_char (&t, in->ptr[idx]);
- ++idx;
- }
- }
-
- for (includes = paths_head; includes; includes = includes->next)
- {
- sb_reset (&cat);
- sb_add_sb (&cat, &includes->path);
- sb_add_char (&cat, '/');
- sb_add_sb (&cat, &t);
- if (new_file (sb_name (&cat)))
- {
- break;
- }
- }
- if (!includes)
- {
- if (! new_file (sb_name (&t)))
- FATAL ((stderr, _("Can't open include file `%s'.\n"), sb_name (&t)));
- }
- sb_kill (&cat);
- sb_kill (&t);
-}
-
-static void
-include_pop ()
-{
- if (sp != include_stack)
- {
- if (sp->handle)
- fclose (sp->handle);
- sp--;
- }
-}
-
-/* Get the next character from the include stack. If there's anything
- in the pushback buffer, take that first. If we're at eof, pop from
- the stack and try again. Keep the linecount up to date. */
-
-static int
-get ()
-{
- int r;
-
- if (sp->pushback.len != sp->pushback_index)
- {
- r = (char) (sp->pushback.ptr[sp->pushback_index++]);
- /* When they've all gone, reset the pointer. */
- if (sp->pushback_index == sp->pushback.len)
- {
- sp->pushback.len = 0;
- sp->pushback_index = 0;
- }
- }
- else if (sp->handle)
- {
- r = getc (sp->handle);
- }
- else
- r = EOF;
-
- if (r == EOF && isp)
- {
- include_pop ();
- r = get ();
- while (r == EOF && isp)
- {
- include_pop ();
- r = get ();
- }
- return r;
- }
- if (r == '\n')
- {
- sp->linecount++;
- }
-
- return r;
-}
-
-static int
-linecount ()
-{
- return sp->linecount;
-}
-
-static int
-include_next_index ()
-{
- static int index;
- if (!unreasonable
- && index > MAX_REASONABLE)
- FATAL ((stderr, _("Unreasonable expansion (-u turns off check).\n")));
- return ++index;
-}
-
-/* Initialize the chartype vector. */
-
-static void
-chartype_init ()
-{
- int x;
- for (x = 0; x < 256; x++)
- {
- if (ISALPHA (x) || x == '_' || x == '$')
- chartype[x] |= FIRSTBIT;
-
- if (mri && x == '.')
- chartype[x] |= FIRSTBIT;
-
- if (ISDIGIT (x) || ISALPHA (x) || x == '_' || x == '$')
- chartype[x] |= NEXTBIT;
-
- if (x == ' ' || x == '\t' || x == ',' || x == '"' || x == ';'
- || x == '"' || x == '<' || x == '>' || x == ')' || x == '(')
- chartype[x] |= SEPBIT;
-
- if (x == 'b' || x == 'B'
- || x == 'q' || x == 'Q'
- || x == 'h' || x == 'H'
- || x == 'd' || x == 'D')
- chartype [x] |= BASEBIT;
-
- if (x == ' ' || x == '\t')
- chartype[x] |= WHITEBIT;
-
- if (x == comment_char)
- chartype[x] |= COMMENTBIT;
- }
-}
-
-/* What to do with all the keywords. */
-#define PROCESS 0x1000 /* Run substitution over the line. */
-#define LAB 0x2000 /* Spit out the label. */
-
-#define K_EQU (PROCESS|1)
-#define K_ASSIGN (PROCESS|2)
-#define K_REG (PROCESS|3)
-#define K_ORG (PROCESS|4)
-#define K_RADIX (PROCESS|5)
-#define K_DATA (LAB|PROCESS|6)
-#define K_DATAB (LAB|PROCESS|7)
-#define K_SDATA (LAB|PROCESS|8)
-#define K_SDATAB (LAB|PROCESS|9)
-#define K_SDATAC (LAB|PROCESS|10)
-#define K_SDATAZ (LAB|PROCESS|11)
-#define K_RES (LAB|PROCESS|12)
-#define K_SRES (LAB|PROCESS|13)
-#define K_SRESC (LAB|PROCESS|14)
-#define K_SRESZ (LAB|PROCESS|15)
-#define K_EXPORT (LAB|PROCESS|16)
-#define K_GLOBAL (LAB|PROCESS|17)
-#define K_PRINT (LAB|PROCESS|19)
-#define K_FORM (LAB|PROCESS|20)
-#define K_HEADING (LAB|PROCESS|21)
-#define K_PAGE (LAB|PROCESS|22)
-#define K_IMPORT (LAB|PROCESS|23)
-#define K_PROGRAM (LAB|PROCESS|24)
-#define K_END (PROCESS|25)
-#define K_INCLUDE (PROCESS|26)
-#define K_IGNORED (PROCESS|27)
-#define K_ASSIGNA (PROCESS|28)
-#define K_ASSIGNC (29)
-#define K_AIF (PROCESS|30)
-#define K_AELSE (PROCESS|31)
-#define K_AENDI (PROCESS|32)
-#define K_AREPEAT (PROCESS|33)
-#define K_AENDR (PROCESS|34)
-#define K_AWHILE (35)
-#define K_AENDW (PROCESS|36)
-#define K_EXITM (37)
-#define K_MACRO (PROCESS|38)
-#define K_ENDM (39)
-#define K_ALIGN (PROCESS|LAB|40)
-#define K_ALTERNATE (41)
-#define K_DB (LAB|PROCESS|42)
-#define K_DW (LAB|PROCESS|43)
-#define K_DL (LAB|PROCESS|44)
-#define K_LOCAL (45)
-#define K_IFEQ (PROCESS|46)
-#define K_IFNE (PROCESS|47)
-#define K_IFLT (PROCESS|48)
-#define K_IFLE (PROCESS|49)
-#define K_IFGE (PROCESS|50)
-#define K_IFGT (PROCESS|51)
-#define K_IFC (PROCESS|52)
-#define K_IFNC (PROCESS|53)
-#define K_IRP (PROCESS|54)
-#define K_IRPC (PROCESS|55)
-
-struct keyword {
- char *name;
- int code;
- int extra;
-};
-
-static struct keyword kinfo[] = {
- { "EQU", K_EQU, 0 },
- { "ALTERNATE", K_ALTERNATE, 0 },
- { "ASSIGN", K_ASSIGN, 0 },
- { "REG", K_REG, 0 },
- { "ORG", K_ORG, 0 },
- { "RADIX", K_RADIX, 0 },
- { "DATA", K_DATA, 0 },
- { "DB", K_DB, 0 },
- { "DW", K_DW, 0 },
- { "DL", K_DL, 0 },
- { "DATAB", K_DATAB, 0 },
- { "SDATA", K_SDATA, 0 },
- { "SDATAB", K_SDATAB, 0 },
- { "SDATAZ", K_SDATAZ, 0 },
- { "SDATAC", K_SDATAC, 0 },
- { "RES", K_RES, 0 },
- { "SRES", K_SRES, 0 },
- { "SRESC", K_SRESC, 0 },
- { "SRESZ", K_SRESZ, 0 },
- { "EXPORT", K_EXPORT, 0 },
- { "GLOBAL", K_GLOBAL, 0 },
- { "PRINT", K_PRINT, 0 },
- { "FORM", K_FORM, 0 },
- { "HEADING", K_HEADING, 0 },
- { "PAGE", K_PAGE, 0 },
- { "PROGRAM", K_IGNORED, 0 },
- { "END", K_END, 0 },
- { "INCLUDE", K_INCLUDE, 0 },
- { "ASSIGNA", K_ASSIGNA, 0 },
- { "ASSIGNC", K_ASSIGNC, 0 },
- { "AIF", K_AIF, 0 },
- { "AELSE", K_AELSE, 0 },
- { "AENDI", K_AENDI, 0 },
- { "AREPEAT", K_AREPEAT, 0 },
- { "AENDR", K_AENDR, 0 },
- { "EXITM", K_EXITM, 0 },
- { "MACRO", K_MACRO, 0 },
- { "ENDM", K_ENDM, 0 },
- { "AWHILE", K_AWHILE, 0 },
- { "ALIGN", K_ALIGN, 0 },
- { "AENDW", K_AENDW, 0 },
- { "ALTERNATE", K_ALTERNATE, 0 },
- { "LOCAL", K_LOCAL, 0 },
- { NULL, 0, 0 }
-};
-
-/* Although the conditional operators are handled by gas, we need to
- handle them here as well, in case they are used in a recursive
- macro to end the recursion. */
-
-static struct keyword mrikinfo[] = {
- { "IFEQ", K_IFEQ, 0 },
- { "IFNE", K_IFNE, 0 },
- { "IFLT", K_IFLT, 0 },
- { "IFLE", K_IFLE, 0 },
- { "IFGE", K_IFGE, 0 },
- { "IFGT", K_IFGT, 0 },
- { "IFC", K_IFC, 0 },
- { "IFNC", K_IFNC, 0 },
- { "ELSEC", K_AELSE, 0 },
- { "ENDC", K_AENDI, 0 },
- { "MEXIT", K_EXITM, 0 },
- { "REPT", K_AREPEAT, 0 },
- { "IRP", K_IRP, 0 },
- { "IRPC", K_IRPC, 0 },
- { "ENDR", K_AENDR, 0 },
- { NULL, 0, 0 }
-};
-
-/* Look for a pseudo op on the line. If one's there then call
- its handler. */
-
-static int
-process_pseudo_op (idx, line, acc)
- int idx;
- sb *line;
- sb *acc;
-{
- int oidx = idx;
-
- if (line->ptr[idx] == '.' || alternate || mri)
- {
- /* Scan forward and find pseudo name. */
- char *in;
- hash_entry *ptr;
-
- char *s;
- char *e;
- if (line->ptr[idx] == '.')
- idx++;
- in = line->ptr + idx;
- s = in;
- e = s;
- sb_reset (acc);
-
- while (idx < line->len && *e && ISFIRSTCHAR (*e))
- {
- sb_add_char (acc, *e);
- e++;
- idx++;
- }
-
- ptr = hash_lookup (&keyword_hash_table, acc);
-
- if (!ptr)
- {
-#if 0
- /* This one causes lots of pain when trying to preprocess
- ordinary code. */
- WARNING ((stderr, _("Unrecognised pseudo op `%s'.\n"),
- sb_name (acc)));
-#endif
- return 0;
- }
- if (ptr->value.i & LAB)
- {
- /* Output the label. */
- if (label.len)
- {
- fprintf (outfile, "%s:\t", sb_name (&label));
- }
- else
- fprintf (outfile, "\t");
- }
-
- if (mri && ptr->value.i == K_END)
- {
- sb t;
-
- sb_new (&t);
- sb_add_buffer (&t, line->ptr + oidx, idx - oidx);
- fprintf (outfile, "\t%s", sb_name (&t));
- sb_kill (&t);
- }
-
- if (ptr->value.i & PROCESS)
- {
- /* Polish the rest of the line before handling the pseudo op. */
-#if 0
- strip_comments (line);
-#endif
- sb_reset (acc);
- process_assigns (idx, line, acc);
- sb_reset (line);
- change_base (0, acc, line);
- idx = 0;
- }
- if (!condass_on ())
- {
- switch (ptr->value.i)
- {
- case K_AIF:
- do_aif (idx, line);
- break;
- case K_AELSE:
- do_aelse ();
- break;
- case K_AENDI:
- do_aendi ();
- break;
- }
- return 1;
- }
- else
- {
- switch (ptr->value.i)
- {
- case K_ALTERNATE:
- alternate = 1;
- macro_init (1, mri, 0, exp_get_abs);
- return 1;
- case K_AELSE:
- do_aelse ();
- return 1;
- case K_AENDI:
- do_aendi ();
- return 1;
- case K_ORG:
- ERROR ((stderr, _("ORG command not allowed.\n")));
- break;
- case K_RADIX:
- do_radix (line);
- return 1;
- case K_DB:
- do_data (idx, line, 1);
- return 1;
- case K_DW:
- do_data (idx, line, 2);
- return 1;
- case K_DL:
- do_data (idx, line, 4);
- return 1;
- case K_DATA:
- do_data (idx, line, 0);
- return 1;
- case K_DATAB:
- do_datab (idx, line);
- return 1;
- case K_SDATA:
- do_sdata (idx, line, 0);
- return 1;
- case K_SDATAB:
- do_sdatab (idx, line);
- return 1;
- case K_SDATAC:
- do_sdata (idx, line, 'c');
- return 1;
- case K_SDATAZ:
- do_sdata (idx, line, 'z');
- return 1;
- case K_ASSIGN:
- do_assign (0, 0, line);
- return 1;
- case K_AIF:
- do_aif (idx, line);
- return 1;
- case K_AREPEAT:
- do_arepeat (idx, line);
- return 1;
- case K_AENDW:
- do_aendw ();
- return 1;
- case K_AWHILE:
- do_awhile (idx, line);
- return 1;
- case K_AENDR:
- do_aendr ();
- return 1;
- case K_EQU:
- do_assign (1, idx, line);
- return 1;
- case K_ALIGN:
- do_align (idx, line);
- return 1;
- case K_RES:
- do_res (idx, line, 0);
- return 1;
- case K_SRES:
- do_res (idx, line, 's');
- return 1;
- case K_INCLUDE:
- do_include (idx, line);
- return 1;
- case K_LOCAL:
- do_local (idx, line);
- return 1;
- case K_MACRO:
- do_macro (idx, line);
- return 1;
- case K_ENDM:
- do_endm ();
- return 1;
- case K_SRESC:
- do_res (idx, line, 'c');
- return 1;
- case K_PRINT:
- do_print (idx, line);
- return 1;
- case K_FORM:
- do_form (idx, line);
- return 1;
- case K_HEADING:
- do_heading (idx, line);
- return 1;
- case K_PAGE:
- do_page ();
- return 1;
- case K_GLOBAL:
- case K_EXPORT:
- do_export (line);
- return 1;
- case K_IMPORT:
- return 1;
- case K_SRESZ:
- do_res (idx, line, 'z');
- return 1;
- case K_IGNORED:
- return 1;
- case K_END:
- do_end (line);
- return 1;
- case K_ASSIGNA:
- do_assigna (idx, line);
- return 1;
- case K_ASSIGNC:
- do_assignc (idx, line);
- return 1;
- case K_EXITM:
- do_exitm ();
- return 1;
- case K_REG:
- do_reg (idx, line);
- return 1;
- case K_IFEQ:
- do_if (idx, line, EQ);
- return 1;
- case K_IFNE:
- do_if (idx, line, NE);
- return 1;
- case K_IFLT:
- do_if (idx, line, LT);
- return 1;
- case K_IFLE:
- do_if (idx, line, LE);
- return 1;
- case K_IFGE:
- do_if (idx, line, GE);
- return 1;
- case K_IFGT:
- do_if (idx, line, GT);
- return 1;
- case K_IFC:
- do_ifc (idx, line, 0);
- return 1;
- case K_IFNC:
- do_ifc (idx, line, 1);
- return 1;
- case K_IRP:
- do_irp (idx, line, 0);
- return 1;
- case K_IRPC:
- do_irp (idx, line, 1);
- return 1;
- }
- }
- }
- return 0;
-}
-
-/* Add a keyword to the hash table. */
-
-static void
-add_keyword (name, code)
- const char *name;
- int code;
-{
- sb label;
- int j;
-
- sb_new (&label);
- sb_add_string (&label, name);
-
- hash_add_to_int_table (&keyword_hash_table, &label, code);
-
- sb_reset (&label);
- for (j = 0; name[j]; j++)
- sb_add_char (&label, name[j] - 'A' + 'a');
- hash_add_to_int_table (&keyword_hash_table, &label, code);
-
- sb_kill (&label);
-}
-
-/* Build the keyword hash table - put each keyword in the table twice,
- once upper and once lower case. */
-
-static void
-process_init ()
-{
- int i;
-
- for (i = 0; kinfo[i].name; i++)
- add_keyword (kinfo[i].name, kinfo[i].code);
-
- if (mri)
- {
- for (i = 0; mrikinfo[i].name; i++)
- add_keyword (mrikinfo[i].name, mrikinfo[i].code);
- }
-}
-
-static void
-do_define (string)
- const char *string;
-{
- sb label;
- int res = 1;
- hash_entry *ptr;
- sb_new (&label);
-
- while (*string)
- {
- if (*string == '=')
- {
- sb value;
- sb_new (&value);
- string++;
- while (*string)
- {
- sb_add_char (&value, *string);
- string++;
- }
- exp_get_abs (_("Invalid expression on command line.\n"),
- 0, &value, &res);
- sb_kill (&value);
- break;
- }
- sb_add_char (&label, *string);
-
- string++;
- }
-
- ptr = hash_create (&vars, &label);
- free_old_entry (ptr);
- ptr->type = hash_integer;
- ptr->value.i = res;
- sb_kill (&label);
-}
-
-char *program_name;
-
-/* The list of long options. */
-static struct option long_options[] =
-{
- { "alternate", no_argument, 0, 'a' },
- { "include", required_argument, 0, 'I' },
- { "commentchar", required_argument, 0, 'c' },
- { "copysource", no_argument, 0, 's' },
- { "debug", no_argument, 0, 'd' },
- { "help", no_argument, 0, 'h' },
- { "mri", no_argument, 0, 'M' },
- { "output", required_argument, 0, 'o' },
- { "print", no_argument, 0, 'p' },
- { "unreasonable", no_argument, 0, 'u' },
- { "version", no_argument, 0, 'v' },
- { "define", required_argument, 0, 'd' },
- { NULL, no_argument, 0, 0 }
-};
-
-/* Show a usage message and exit. */
-static void
-show_usage (file, status)
- FILE *file;
- int status;
-{
- fprintf (file, _("\
-Usage: %s \n\
- [-a] [--alternate] enter alternate macro mode\n\
- [-c char] [--commentchar char] change the comment character from !\n\
- [-d] [--debug] print some debugging info\n\
- [-h] [--help] print this message\n\
- [-M] [--mri] enter MRI compatibility mode\n\
- [-o out] [--output out] set the output file\n\
- [-p] [--print] print line numbers\n"), program_name);
- fprintf (file, _("\
- [-s] [--copysource] copy source through as comments \n\
- [-u] [--unreasonable] allow unreasonable nesting\n\
- [-v] [--version] print the program version\n\
- [-Dname=value] create preprocessor variable called name, with value\n\
- [-Ipath] add to include path list\n\
- [in-file]\n"));
- if (status == 0)
- printf (_("Report bugs to %s\n"), REPORT_BUGS_TO);
- exit (status);
-}
-
-/* Display a help message and exit. */
-
-static void
-show_help ()
-{
- printf (_("%s: Gnu Assembler Macro Preprocessor\n"), program_name);
- show_usage (stdout, 0);
-}
-
-int main PARAMS ((int, char **));
-
-int
-main (argc, argv)
- int argc;
- char **argv;
-{
- int opt;
- char *out_name = 0;
- sp = include_stack;
-
- ifstack[0].on = 1;
- ifi = 0;
-
-#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
- setlocale (LC_MESSAGES, "");
-#endif
-#if defined (HAVE_SETLOCALE)
- setlocale (LC_CTYPE, "");
-#endif
- bindtextdomain (PACKAGE, LOCALEDIR);
- textdomain (PACKAGE);
-
- program_name = argv[0];
- xmalloc_set_program_name (program_name);
-
- hash_new_table (101, &keyword_hash_table);
- hash_new_table (101, &assign_hash_table);
- hash_new_table (101, &vars);
-
- sb_new (&label);
-
- while ((opt = getopt_long (argc, argv, "I:sdhavc:upo:D:M", long_options,
- (int *) NULL))
- != EOF)
- {
- switch (opt)
- {
- case 'o':
- out_name = optarg;
- break;
- case 'u':
- unreasonable = 1;
- break;
- case 'I':
- {
- include_path *p = (include_path *) xmalloc (sizeof (include_path));
- p->next = NULL;
- sb_new (&p->path);
- sb_add_string (&p->path, optarg);
- if (paths_tail)
- paths_tail->next = p;
- else
- paths_head = p;
- paths_tail = p;
- }
- break;
- case 'p':
- print_line_number = 1;
- break;
- case 'c':
- comment_char = optarg[0];
- break;
- case 'a':
- alternate = 1;
- break;
- case 's':
- copysource = 1;
- break;
- case 'd':
- stats = 1;
- break;
- case 'D':
- do_define (optarg);
- break;
- case 'M':
- mri = 1;
- comment_char = ';';
- break;
- case 'h':
- show_help ();
- /* NOTREACHED */
- case 'v':
- /* This output is intended to follow the GNU standards document. */
- printf (_("GNU assembler pre-processor %s\n"), program_version);
- printf (_("Copyright 1996 Free Software Foundation, Inc.\n"));
- printf (_("\
-This program is free software; you may redistribute it under the terms of\n\
-the GNU General Public License. This program has absolutely no warranty.\n"));
- exit (0);
- /* NOTREACHED */
- case 0:
- break;
- default:
- show_usage (stderr, 1);
- /* NOTREACHED */
- }
- }
-
- process_init ();
-
- macro_init (alternate, mri, 0, exp_get_abs);
-
- if (out_name)
- {
- outfile = fopen (out_name, "w");
- if (!outfile)
- {
- fprintf (stderr, _("%s: Can't open output file `%s'.\n"),
- program_name, out_name);
- exit (1);
- }
- }
- else
- {
- outfile = stdout;
- }
-
- chartype_init ();
- if (!outfile)
- outfile = stdout;
-
- /* Process all the input files. */
-
- while (optind < argc)
- {
- if (new_file (argv[optind]))
- {
- process_file ();
- }
- else
- {
- fprintf (stderr, _("%s: Can't open input file `%s'.\n"),
- program_name, argv[optind]);
- exit (1);
- }
- optind++;
- }
-
- quit ();
- return 0;
-}
-
-/* This function is used because an abort in some of the other files
- may be compiled into as_abort because they include as.h. */
-
-void
-as_abort (file, line, fn)
- const char *file, *fn;
- int line;
-{
- fprintf (stderr, _("Internal error, aborting at %s line %d"), file, line);
- if (fn)
- fprintf (stderr, " in %s", fn);
- fprintf (stderr, _("\nPlease report this bug.\n"));
- exit (1);
-}
diff --git a/gas/macro.c b/gas/macro.c
index 3f2aaf6..3ca815a 100644
--- a/gas/macro.c
+++ b/gas/macro.c
@@ -1,4 +1,4 @@
-/* macro.c - macro support for gas and gasp
+/* macro.c - macro support for gas
Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
Free Software Foundation, Inc.
@@ -63,7 +63,7 @@ extern void *alloca ();
#include "asintl.h"
/* The routines in this file handle macro definition and expansion.
- They are called by both gasp and gas. */
+ They are called by gas. */
/* Internal functions. */
@@ -75,8 +75,8 @@ static int get_apost_token PARAMS ((int, sb *, sb *, int));
static int sub_actual
PARAMS ((int, sb *, sb *, struct hash_control *, int, sb *, int));
static const char *macro_expand_body
- PARAMS ((sb *, sb *, formal_entry *, struct hash_control *, int, int));
-static const char *macro_expand PARAMS ((int, sb *, macro_entry *, sb *, int));
+ PARAMS ((sb *, sb *, formal_entry *, struct hash_control *, int));
+static const char *macro_expand PARAMS ((int, sb *, macro_entry *, sb *));
#define ISWHITE(x) ((x) == ' ' || (x) == '\t')
@@ -99,7 +99,7 @@ static struct hash_control *macro_hash;
int macro_defined;
-/* Whether we are in GASP alternate mode. */
+/* Whether we are in alternate syntax mode. */
static int macro_alternate;
@@ -653,12 +653,11 @@ sub_actual (start, in, t, formal_hash, kind, out, copyifnotthere)
/* Expand the body of a macro. */
static const char *
-macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
+macro_expand_body (in, out, formals, formal_hash, locals)
sb *in;
sb *out;
formal_entry *formals;
struct hash_control *formal_hash;
- int comment_char;
int locals;
{
sb t;
@@ -689,14 +688,7 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
else if (in->ptr[src] == '\\')
{
src++;
- if (in->ptr[src] == comment_char && comment_char != '\0')
- {
- /* This is a comment, just drop the rest of the line. */
- while (src < in->len
- && in->ptr[src] != '\n')
- src++;
- }
- else if (in->ptr[src] == '(')
+ if (in->ptr[src] == '(')
{
/* Sub in till the next ')' literally. */
src++;
@@ -779,7 +771,7 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
formal_entry *f;
src = sb_skip_white (src + 5, in);
- while (in->ptr[src] != '\n' && in->ptr[src] != comment_char)
+ while (in->ptr[src] != '\n')
{
static int loccnt;
char buf[20];
@@ -806,17 +798,6 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
}
}
}
- else if (comment_char != '\0'
- && in->ptr[src] == comment_char
- && src + 1 < in->len
- && in->ptr[src + 1] == comment_char
- && !inquote)
- {
- /* Two comment chars in a row cause the rest of the line to
- be dropped. */
- while (src < in->len && in->ptr[src] != '\n')
- src++;
- }
else if (in->ptr[src] == '"'
|| (macro_mri && in->ptr[src] == '\''))
{
@@ -899,12 +880,11 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
body. */
static const char *
-macro_expand (idx, in, m, out, comment_char)
+macro_expand (idx, in, m, out)
int idx;
sb *in;
macro_entry *m;
sb *out;
- int comment_char;
{
sb t;
formal_entry *ptr;
@@ -954,7 +934,7 @@ macro_expand (idx, in, m, out, comment_char)
/* Peel off the actuals and store them away in the hash tables' actuals. */
idx = sb_skip_white (idx, in);
- while (idx < in->len && in->ptr[idx] != comment_char)
+ while (idx < in->len)
{
int scan;
@@ -1056,8 +1036,7 @@ macro_expand (idx, in, m, out, comment_char)
sb_add_string (&ptr->actual, buffer);
}
- err = macro_expand_body (&m->sub, out, m->formals, m->formal_hash,
- comment_char, 1);
+ err = macro_expand_body (&m->sub, out, m->formals, m->formal_hash, 1);
if (err != NULL)
return err;
@@ -1090,14 +1069,12 @@ macro_expand (idx, in, m, out, comment_char)
}
/* Check for a macro. If one is found, put the expansion into
- *EXPAND. COMMENT_CHAR is the comment character--this is used by
- gasp. Return 1 if a macro is found, 0 otherwise. */
+ *EXPAND. Return 1 if a macro is found, 0 otherwise. */
int
-check_macro (line, expand, comment_char, error, info)
+check_macro (line, expand, error, info)
const char *line;
sb *expand;
- int comment_char;
const char **error;
macro_entry **info;
{
@@ -1135,7 +1112,7 @@ check_macro (line, expand, comment_char, error, info)
sb_add_char (&line_sb, *s++);
sb_new (expand);
- *error = macro_expand (0, &line_sb, macro, expand, comment_char);
+ *error = macro_expand (0, &line_sb, macro, expand);
sb_kill (&line_sb);
@@ -1160,13 +1137,12 @@ delete_macro (name)
success, or an error message otherwise. */
const char *
-expand_irp (irpc, idx, in, out, get_line, comment_char)
+expand_irp (irpc, idx, in, out, get_line)
int irpc;
int idx;
sb *in;
sb *out;
int (*get_line) PARAMS ((sb *));
- int comment_char;
{
const char *mn;
sb sub;
@@ -1204,10 +1180,10 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
sb_reset (out);
idx = sb_skip_comma (idx, in);
- if (idx >= in->len || in->ptr[idx] == comment_char)
+ if (idx >= in->len)
{
/* Expand once with a null string. */
- err = macro_expand_body (&sub, out, &f, h, comment_char, 0);
+ err = macro_expand_body (&sub, out, &f, h, 0);
if (err != NULL)
return err;
}
@@ -1215,7 +1191,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
{
if (irpc && in->ptr[idx] == '"')
++idx;
- while (idx < in->len && in->ptr[idx] != comment_char)
+ while (idx < in->len)
{
if (!irpc)
idx = get_any_string (idx, in, &f.actual, 1, 0);
@@ -1226,7 +1202,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
int nxt;
nxt = sb_skip_white (idx + 1, in);
- if (nxt >= in->len || in->ptr[nxt] == comment_char)
+ if (nxt >= in->len)
{
idx = nxt;
break;
@@ -1236,7 +1212,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
sb_add_char (&f.actual, in->ptr[idx]);
++idx;
}
- err = macro_expand_body (&sub, out, &f, h, comment_char, 0);
+ err = macro_expand_body (&sub, out, &f, h, 0);
if (err != NULL)
return err;
if (!irpc)
diff --git a/gas/macro.h b/gas/macro.h
index b9dc2d0..7710215 100644
--- a/gas/macro.h
+++ b/gas/macro.h
@@ -1,5 +1,5 @@
-/* macro.h - header file for macro support for gas and gasp
- Copyright 1994, 1995, 1996, 1997, 1998, 2000
+/* macro.h - header file for macro support for gas
+ Copyright 1994, 1995, 1996, 1997, 1998, 2000, 2002
Free Software Foundation, Inc.
Written by Steve and Judy Chamberlain of Cygnus Support,
@@ -37,14 +37,14 @@
name and its default value. Each time the macro is expanded, the
formals get the actual values attatched to them. */
-/* describe the formal arguments to a macro */
+/* Describe the formal arguments to a macro. */
typedef struct formal_struct {
- struct formal_struct *next; /* next formal in list */
- sb name; /* name of the formal */
- sb def; /* the default value */
- sb actual; /* the actual argument (changed on each expansion) */
- int index; /* the index of the formal 0..formal_count-1 */
+ struct formal_struct *next; /* Next formal in list. */
+ sb name; /* Name of the formal. */
+ sb def; /* The default value. */
+ sb actual; /* The actual argument (changed on each expansion). */
+ int index; /* The index of the formal 0..formal_count - 1. */
} formal_entry;
/* Other values found in the index field of a formal_entry. */
@@ -52,13 +52,14 @@ typedef struct formal_struct {
#define NARG_INDEX (-2)
#define LOCAL_INDEX (-3)
-/* describe the macro. */
+/* Describe the macro. */
-typedef struct macro_struct {
- sb sub; /* substitution text. */
- int formal_count; /* number of formal args. */
- formal_entry *formals; /* pointer to list of formal_structs */
- struct hash_control *formal_hash; /* hash table of formals. */
+typedef struct macro_struct
+{
+ sb sub; /* Substitution text. */
+ int formal_count; /* Number of formal args. */
+ formal_entry *formals; /* Pointer to list of formal_structs. */
+ struct hash_control *formal_hash; /* Hash table of formals. */
} macro_entry;
/* Whether any macros have been defined. */
@@ -72,16 +73,16 @@ extern int macro_nest;
extern int buffer_and_nest
PARAMS ((const char *, const char *, sb *, int (*) PARAMS ((sb *))));
extern void macro_init
- PARAMS ((int alternate, int mri, int strip_at,
- int (*) PARAMS ((const char *, int, sb *, int *))));
-extern void macro_mri_mode PARAMS ((int));
+ PARAMS ((int, int, int, int (*) PARAMS ((const char *, int, sb *, int *))));
+extern void macro_mri_mode
+ PARAMS ((int));
extern const char *define_macro
- PARAMS ((int idx, sb *in, sb *label, int (*get_line) PARAMS ((sb *)),
- const char **namep));
-extern int check_macro PARAMS ((const char *, sb *, int, const char **,
- macro_entry **));
-extern void delete_macro PARAMS ((const char *));
+ PARAMS ((int, sb *, sb *, int (*) PARAMS ((sb *)), const char **));
+extern int check_macro
+ PARAMS ((const char *, sb *, const char **, macro_entry **));
+extern void delete_macro
+ PARAMS ((const char *));
extern const char *expand_irp
- PARAMS ((int, int, sb *, sb *, int (*) PARAMS ((sb *)), int));
+ PARAMS ((int, int, sb *, sb *, int (*) PARAMS ((sb *))));
#endif
diff --git a/gas/makefile.vms b/gas/makefile.vms
index f4c30d4..7016dce 100644
--- a/gas/makefile.vms
+++ b/gas/makefile.vms
@@ -45,8 +45,6 @@ OBJS=targ-cpu.obj,obj-format.obj,atof-targ.obj,app.obj,as.obj,atof-generic.obj,\
literal.obj,messages.obj,output-file.obj,read.obj,subsegs.obj,symbols.obj,\
write.obj,listing.obj,ecoff.obj,stabs.obj,sb.obj,macro.obj,ehopt.obj
-GASPOBJS = gasp.obj,macro.obj,sb.obj,hash.obj
-
LIBIBERTY = [-.libiberty]libiberty.olb
ifeq ($(ARCH),ALPHA)
@@ -59,7 +57,7 @@ LIBOPCODES =
BFDDEP =
endif
-all: config.status $(BFDDEP) as.exe gasp.exe
+all: config.status $(BFDDEP) as.exe
as.exe: $(OBJS) $(LIBOPCODES) $(LIBBFD) $(LIBIBERTY)
ifeq ($(ARCH),ALPHA)
@@ -68,13 +66,6 @@ else
link$(LFLAGS)/exe=$@ $(OBJS),$(LIBIBERTY)/lib$(LIBS)
endif
-gasp.exe: $(GASPOBJS) $(LIBBFD) $(LIBIBERTY)
-ifeq ($(ARCH),ALPHA)
- link$(LFLAGS)/exe=$@ $(GASPOBJS),$(LIBBFD)/lib,$(LIBIBERTY)/lib$(LIBS)
-else
- link$(LFLAGS)/exe=$@ $(GASPOBJS),$(LIBIBERTY)/lib$(LIBS)
-endif
-
config.status:
$$ @config-gas
@@ -108,7 +99,7 @@ targ-cpu.obj: targ-cpu.c targ-cpu.h [.config]atof-vax.c
gmake -f makefile.vms "CC=$(CC)"
$(CD) [-.gas]
-install: as.exe gasp.exe
+install: as.exe
$(CP) $^ GNU_ROOT\:[BIN]
clean:
diff --git a/gas/mpw-make.sed b/gas/mpw-make.sed
index 16f12a5..3bcb0ce 100644
--- a/gas/mpw-make.sed
+++ b/gas/mpw-make.sed
@@ -58,18 +58,15 @@ LOCAL_LOADLIBES = \
# Whack out the config.h dependency, it only causes excess rebuilds.
/{OBJS}/s/{OBJS} \\Option-f "{o}"config.h/{OBJS} \\Option-f/
-/gasp.c/s/gasp\.c "{o}"config.h/gasp.c/
# ALL_CFLAGS includes TDEFINES, which is not desirable at link time.
/CC_LD/s/ALL_CFLAGS/CFLAGS/g
# The resource file is called mac-as.r.
/as.new.r/s/as\.new\.r/mac-as.r/
-/gasp.new.r/s/gasp\.new\.r/mac-as.r/
# ...and the PROG_NAME doesn't have a .new in it.
/PROG_NAME/s/PROG_NAME='"'as.new'"'/PROG_NAME='"'as'"'/
-/PROG_NAME/s/PROG_NAME='"'gasp.new'"'/PROG_NAME='"'gasp'"'/
# Whack out recursive makes, they won't work.
/^[ ][ ]*srcroot=/,/^[ ][ ]*(cd /d
@@ -90,7 +87,6 @@ install \\Option-f all install-only\
install-only \\Option-f\
NewFolderRecursive "{bindir}"\
Duplicate -y :as.new "{bindir}"as\
- Duplicate -y :gasp.new "{bindir}"gasp\
# Whack out config-rebuilding targets, they won't work.
diff --git a/gas/read.c b/gas/read.c
index 8179215..8fdcf43 100644
--- a/gas/read.c
+++ b/gas/read.c
@@ -862,7 +862,7 @@ read_a_source_file (name)
const char *err;
macro_entry *macro;
- if (check_macro (s, &out, '\0', &err, &macro))
+ if (check_macro (s, &out, &err, &macro))
{
if (err != NULL)
as_bad ("%s", err);
@@ -1855,7 +1855,7 @@ s_irp (irpc)
sb_new (&out);
- err = expand_irp (irpc, 0, &s, &out, get_line_sb, '\0');
+ err = expand_irp (irpc, 0, &s, &out, get_line_sb);
if (err != NULL)
as_bad_where (file, line, "%s", err);
@@ -2296,8 +2296,7 @@ get_line_sb (line)
return 1;
}
-/* Define a macro. This is an interface to macro.c, which is shared
- between gas and gasp. */
+/* Define a macro. This is an interface to macro.c. */
void
s_macro (ignore)
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 95c9be9..583811a 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2002-12-02 Nick Clifton <nickc@redhat.com>
+
+ * gasp: Remove entire directory tree. (Gasp has been removed from
+ binutils).
+ * config/default.asp (GASP): Remove definition and initialization.
+
2002-12-01 Stephane Carrez <stcarrez@nerim.fr>
* gas/m68hc11/m68hc11.exp: Rename from all.exp; run the new tests.
diff --git a/gas/testsuite/config/default.exp b/gas/testsuite/config/default.exp
index f162d81..ef4a531 100644
--- a/gas/testsuite/config/default.exp
+++ b/gas/testsuite/config/default.exp
@@ -5,11 +5,6 @@ if ![info exists AS] then {
set AS [findfile $base_dir/../as-new "../as-new" [transform as]]
}
-global GASP
-if ![info exists GASP] then {
- set GASP [findfile $base_dir/../gasp-new "../gasp-new" [transform gasp]]
-}
-
global ASFLAGS
if ![info exists ASFLAGS] then {
set ASFLAGS ""
diff --git a/gas/testsuite/gasp/INC1.H b/gas/testsuite/gasp/INC1.H
deleted file mode 100644
index 0d37323..0000000
--- a/gas/testsuite/gasp/INC1.H
+++ /dev/null
@@ -1,3 +0,0 @@
-FILE 1 FIRST LINE
- .INCLUDE "INC2.H"
-FILE 1 LAST LINE
diff --git a/gas/testsuite/gasp/INC2.H b/gas/testsuite/gasp/INC2.H
deleted file mode 100644
index 083c3dc..0000000
--- a/gas/testsuite/gasp/INC2.H
+++ /dev/null
@@ -1,2 +0,0 @@
- FILE 2 FIRST LINE
- FILE 2 LAST LINE
diff --git a/gas/testsuite/gasp/assign.asm b/gas/testsuite/gasp/assign.asm
deleted file mode 100644
index 7f66718..0000000
--- a/gas/testsuite/gasp/assign.asm
+++ /dev/null
@@ -1,13 +0,0 @@
-
-foo: .ASSIGNC "hello"
-BAR: .ASSIGNA 12+34
-
- \&foo'foo
- \&foo\&foo\&foo
- \&foo \&foo \&foo
- \&BAR\&bar\&BAR
-
-
-
-
- .END
diff --git a/gas/testsuite/gasp/assign.err b/gas/testsuite/gasp/assign.err
deleted file mode 100644
index fe3733f..0000000
--- a/gas/testsuite/gasp/assign.err
+++ /dev/null
@@ -1 +0,0 @@
-assign.asm:8 Can't find preprocessor variable bar.
diff --git a/gas/testsuite/gasp/assign.out b/gas/testsuite/gasp/assign.out
deleted file mode 100644
index 85509ae..0000000
--- a/gas/testsuite/gasp/assign.out
+++ /dev/null
@@ -1,22 +0,0 @@
-!
-
-!foo: .ASSIGNC "hello"
-!BAR: .ASSIGNA 12+34
-!
-
-! \&foo'foo
- hellofoo
-! \&foo\&foo\&foo
- hellohellohello
-! \&foo \&foo \&foo
- hello hello hello
-! \&BAR\&bar\&BAR
- 4646
-!
-
-!
-
-!
-
-!
-! .END
diff --git a/gas/testsuite/gasp/condass.asm b/gas/testsuite/gasp/condass.asm
deleted file mode 100644
index 2bd9f07..0000000
--- a/gas/testsuite/gasp/condass.asm
+++ /dev/null
@@ -1,129 +0,0 @@
- .AIF 1 EQ 1
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 2
- BAD
- .AELSE
- OK
- .AENDI
- .AIF 1 EQ 2
- BAD
- .AELSE
- OK
- .AIF 1 EQ 2
- BAD
- .AELSE
- OK
- .AENDI
- .AENDI
- .AIF 1 LT 2
- OK
- .AENDI
- .AIF 1 EQ 2
- BAD
- .AENDI
- .AIF 1 NE 2
- OK
- .AENDI
- .AIF 1 LE 2
- OK
- .AENDI
- .AIF 1 GT 2
- BAD
- .AENDI
- .AIF 3 GE 2
- OK
- .AENDI
- .AIF 3 LT 2
- BAD
- .AENDI
- .AIF 3 EQ 2
- BAD
- .AENDI
- .AIF 3 NE 2
- OK
- .AENDI
- .AIF 3 LE 2
- BAD
- .AENDI
- .AIF 3 GT 2
- OK
- .AENDI
- .AIF 3 GE 2
- OK
- .AENDI
- .AIF "FOO" EQ "BAR"
- BAD
- .AENDI
- .AIF "FOO" EQ "FOO"
- OK
- .AENDI
- .AIF "FOO" NE "BAR"
- OK
- .AENDI
- .AIF "FOO" EQ "FOO"
- OK
- .AENDI
- .AIF 1 EQ 1
- .AIF 1 EQ 1
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- OK
- .AENDI
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- OK
- .AENDI
- .AIF 1 EQ 1
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- .AIF 1 EQ 1
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- OK
- .AENDI
- OK
- .AENDI
- .AIF 1 EQ 1
- OK
- .AIF 1 EQ 1
- OK
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- OK
- .AENDI
- .AELSE
- BAD
- .AENDI
- .AIF 1 EQ 0
- BAD
- .AELSE
- OK
- .AENDI
- .END
diff --git a/gas/testsuite/gasp/condass.err b/gas/testsuite/gasp/condass.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/condass.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/condass.out b/gas/testsuite/gasp/condass.out
deleted file mode 100644
index 115cef5..0000000
--- a/gas/testsuite/gasp/condass.out
+++ /dev/null
@@ -1,155 +0,0 @@
-! .AIF 1 EQ 1
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 2
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! .AIF 1 EQ 2
-! BAD
-! .AELSE
-! OK
- OK
-! .AIF 1 EQ 2
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! .AENDI
-! .AIF 1 LT 2
-! OK
- OK
-! .AENDI
-! .AIF 1 EQ 2
-! BAD
-! .AENDI
-! .AIF 1 NE 2
-! OK
- OK
-! .AENDI
-! .AIF 1 LE 2
-! OK
- OK
-! .AENDI
-! .AIF 1 GT 2
-! BAD
-! .AENDI
-! .AIF 3 GE 2
-! OK
- OK
-! .AENDI
-! .AIF 3 LT 2
-! BAD
-! .AENDI
-! .AIF 3 EQ 2
-! BAD
-! .AENDI
-! .AIF 3 NE 2
-! OK
- OK
-! .AENDI
-! .AIF 3 LE 2
-! BAD
-! .AENDI
-! .AIF 3 GT 2
-! OK
- OK
-! .AENDI
-! .AIF 3 GE 2
-! OK
- OK
-! .AENDI
-! .AIF "FOO" EQ "BAR"
-! BAD
-! .AENDI
-! .AIF "FOO" EQ "FOO"
-! OK
- OK
-! .AENDI
-! .AIF "FOO" NE "BAR"
-! OK
- OK
-! .AENDI
-! .AIF "FOO" EQ "FOO"
-! OK
- OK
-! .AENDI
-! .AIF 1 EQ 1
-! .AIF 1 EQ 1
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! .AIF 1 EQ 1
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! .AIF 1 EQ 1
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! OK
- OK
-! .AENDI
-! .AIF 1 EQ 1
-! OK
- OK
-! .AIF 1 EQ 1
-! OK
- OK
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! .AELSE
-! BAD
-! .AENDI
-! .AIF 1 EQ 0
-! BAD
-! .AELSE
-! OK
- OK
-! .AENDI
-! .END
diff --git a/gas/testsuite/gasp/crash.asm b/gas/testsuite/gasp/crash.asm
deleted file mode 100644
index a710cc5..0000000
--- a/gas/testsuite/gasp/crash.asm
+++ /dev/null
@@ -1,22 +0,0 @@
-
- Stuff to try and crash it
-
-foo: .MACRO
- HI
-bar: .MACRO
- THERE
- bar
- .ENDM
-
-
- .ENDM
- foo
- foo
- foo
- foo
- foo
- bar
-
-
-
-
diff --git a/gas/testsuite/gasp/crash.err b/gas/testsuite/gasp/crash.err
deleted file mode 100644
index 1008802..0000000
--- a/gas/testsuite/gasp/crash.err
+++ /dev/null
@@ -1 +0,0 @@
-crash.asm:18 Unreasonable expansion (-u turns off check).
diff --git a/gas/testsuite/gasp/crash.out b/gas/testsuite/gasp/crash.out
deleted file mode 100644
index 6b948a3..0000000
--- a/gas/testsuite/gasp/crash.out
+++ /dev/null
@@ -1,3059 +0,0 @@
-!
-
-! Stuff to try and crash it
- Stuff to try and crash it
-!
-
-!foo: .MACRO
-! HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-!
-! .ENDM
-! foo
-! HI
- HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-
-!
-
-! foo
-! HI
- HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-
-!
-
-! foo
-! HI
- HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-
-!
-
-! foo
-! HI
- HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-
-!
-
-! foo
-! HI
- HI
-!bar: .MACRO
-! THERE
-! bar
-! .ENDM
-!
-
-!
-
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
-! THERE
- THERE
-! bar
diff --git a/gas/testsuite/gasp/crash1.asm b/gas/testsuite/gasp/crash1.asm
deleted file mode 100644
index d2b6b30..0000000
--- a/gas/testsuite/gasp/crash1.asm
+++ /dev/null
@@ -1,13 +0,0 @@
-
-
- .MACRO foo a b c=a
- \a \b \c \d
- .ENDM
-
- foo 1 2
- foo 1 2 3 4
- foo 1
- foo
-
-
- .END
diff --git a/gas/testsuite/gasp/crash1.err b/gas/testsuite/gasp/crash1.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/crash1.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/crash1.out b/gas/testsuite/gasp/crash1.out
deleted file mode 100644
index 725d078..0000000
--- a/gas/testsuite/gasp/crash1.out
+++ /dev/null
@@ -1,24 +0,0 @@
-!
-
-!
-
-! .MACRO foo a b c=a
-! \a \b \c \d
-! .ENDM
-!
-
-! foo 1 2
-! 1 2 a \d
- 1 2 a \d
-! foo 1 2 3 4
-! foo 1
-! 1 a \d
- 1 a \d
-! foo
-! a \d
- a \d
-!
-
-!
-
-! .END
diff --git a/gas/testsuite/gasp/crash2.asm b/gas/testsuite/gasp/crash2.asm
deleted file mode 100644
index 288a003..0000000
--- a/gas/testsuite/gasp/crash2.asm
+++ /dev/null
@@ -1,41 +0,0 @@
-
-foo: .ASSIGNA 1
- \&foo+1
- \&foo+1
-foo: .ASSIGNC "foo"
- \&foo+1
- \&foo+1
-
-foo: .ASSIGNA 1
- \&foo+1
- \&foo+1
-foo: .ASSIGNC "foo"
- \&foo+1
- \&foo+1
-
-foo: .ASSIGNA 1
- \&foo+1
- \&foo+1
-foo: .ASSIGNC "foo"
- \&foo+1
- \&foo+1
-
-foo: .ASSIGNA 1
- \&foo+1
- \&foo+1
-foo: .ASSIGNC "foo"
- \&foo+1
- \&foo+1
-
-foo: .ASSIGNA 1
- \&foo+1
- \&foo+1
-foo: .ASSIGNC "foo"
- \&foo+1
- \&foo+1
- foo
- foo foo
- foo foo
- foo
- .END
-
diff --git a/gas/testsuite/gasp/crash2.err b/gas/testsuite/gasp/crash2.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/crash2.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/crash2.out b/gas/testsuite/gasp/crash2.out
deleted file mode 100644
index 0d1a2f7..0000000
--- a/gas/testsuite/gasp/crash2.out
+++ /dev/null
@@ -1,69 +0,0 @@
-!
-
-!foo: .ASSIGNA 1
-! \&foo+1
- 1+1
-! \&foo+1
- 1+1
-!foo: .ASSIGNC "foo"
-! \&foo+1
- foo+1
-! \&foo+1
- foo+1
-!
-
-!foo: .ASSIGNA 1
-! \&foo+1
- 1+1
-! \&foo+1
- 1+1
-!foo: .ASSIGNC "foo"
-! \&foo+1
- foo+1
-! \&foo+1
- foo+1
-!
-
-!foo: .ASSIGNA 1
-! \&foo+1
- 1+1
-! \&foo+1
- 1+1
-!foo: .ASSIGNC "foo"
-! \&foo+1
- foo+1
-! \&foo+1
- foo+1
-!
-
-!foo: .ASSIGNA 1
-! \&foo+1
- 1+1
-! \&foo+1
- 1+1
-!foo: .ASSIGNC "foo"
-! \&foo+1
- foo+1
-! \&foo+1
- foo+1
-!
-
-!foo: .ASSIGNA 1
-! \&foo+1
- 1+1
-! \&foo+1
- 1+1
-!foo: .ASSIGNC "foo"
-! \&foo+1
- foo+1
-! \&foo+1
- foo+1
-! foo
- foo
-! foo foo
- foo foo
-! foo foo
- foo foo
-! foo
- foo
-! .END
diff --git a/gas/testsuite/gasp/data.asm b/gas/testsuite/gasp/data.asm
deleted file mode 100644
index ba6b0a0..0000000
--- a/gas/testsuite/gasp/data.asm
+++ /dev/null
@@ -1,23 +0,0 @@
-
-foo .DATA 1,2,3
-bar .DATA 1,2,3,4,5 ,6
- .DATA.B 12345,12,2
- .DATA.W 9,2,12,3,13+41,foo+9
- .DATA.L 2~99
-
-
-
- .DATAB 1,2,3
- .DATAB 1,2,3
-
-
-
-
- .DATAB 1,9+32
-
- .DATAB.L 1,H'11111111
- .DATAB.W 2,H'2222
- .DATAB.B 3,H'333
-
-
- .END
diff --git a/gas/testsuite/gasp/data.err b/gas/testsuite/gasp/data.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/data.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/data.out b/gas/testsuite/gasp/data.out
deleted file mode 100644
index e96e1e5..0000000
--- a/gas/testsuite/gasp/data.out
+++ /dev/null
@@ -1,45 +0,0 @@
-!
-
-!foo .DATA 1,2,3
-foo: .long 1,2,3
-!bar .DATA 1,2,3,4,5 ,6
-bar: .long 1,2,3,4,5,6
-! .DATA.B 12345,12,2
- .byte 12345,12,2
-! .DATA.W 9,2,12,3,13+41,foo+9
- .short 9,2,12,3,54,foo+9
-! .DATA.L 2~99
- .long 97
-!
-
-!
-
-!
-
-! .DATAB 1,2,3
- .fill 1,4,2
-! .DATAB 1,2,3
- .fill 1,4,2
-!
-
-!
-
-!
-
-!
-
-! .DATAB 1,9+32
- .fill 1,4,41
-!
-
-! .DATAB.L 1,H'11111111
- .fill 1,4,286331153
-! .DATAB.W 2,H'2222
- .fill 2,2,8738
-! .DATAB.B 3,H'333
- .fill 3,1,819
-!
-
-!
-
-! .END
diff --git a/gas/testsuite/gasp/exp.asm b/gas/testsuite/gasp/exp.asm
deleted file mode 100644
index 041608a..0000000
--- a/gas/testsuite/gasp/exp.asm
+++ /dev/null
@@ -1,80 +0,0 @@
-
-; test all ops
-
-a1 .EQU 4+10
-a2 .EQU 4-10
-a3 .EQU 4&10
-a4 .EQU 4|2
-a5 .EQU 4~2
-a6 .EQU 4*10
-a7 .EQU 40/10
-a8 .EQU +7
-a9 .EQU -7
-a10 .EQU ~7
-
-
- a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
-
-; test the priorities
-
-b1 .EQU 1|2~3&4+5-8*7/2
-b2 .EQU (1|2~(3&(4+5-(8*(7/2)))))
-b3 .EQU 10*2/3*4
-b4 .EQU (((10*2)/3)*4)
-b5 .EQU 10+2-3+4
-b6 .EQU (((10+2)-3)+4)
-
- b1 b2 b3 b4
-
-; test association
-
-c1 .EQU -~3
-c2 .EQU ~-3
-c3 .EQU -(~3)
-c4 .EQU ~(-3)
-
- c1 c2 c3 c4
-
-; test rules for symbols
-
-ok1 .EQU FOO
-ok2 .EQU FOO+10
-ok3 .EQU 10+FOO
-ok4 .EQU FOO-10
-
- ok1
- ok2
- ok3
- ok4
-
-ok5 .EQU FOO+3+4+5+6
-ok6 .EQU FOO-BAR
-
- ok5
- ok6
-
-bad1 .EQU FOO+FOO
-bad2 .EQU FOO*2
-bad3 .EQU FOO/2
-bad4 .EQU FOO|2
-bad5 .EQU FOO&2
-bad6 .EQU FOO~2
-bad7 .EQU FOO*2
-
-; test spacing
-
-space1 .EQU 1 + 2 +3+FOO + 3
-space2
-
-; from the SH manual
-
- .DATA.L 1+(2-(3+(4-5))),1
-
- .DATA.L -H'fffffff1+H'000000f0*H'00000010|H'000000f0&H'0000ffff,H'00000fff
-
- .DATA.L -~-~H'0000000f,H'00
-
-
-
-
- .END
diff --git a/gas/testsuite/gasp/exp.err b/gas/testsuite/gasp/exp.err
deleted file mode 100644
index f41fd52..0000000
--- a/gas/testsuite/gasp/exp.err
+++ /dev/null
@@ -1,7 +0,0 @@
-exp.asm:56 can't add two relocatable expressions
-exp.asm:57 the * operator cannot take non-absolute arguments.
-exp.asm:58 the / operator cannot take non-absolute arguments.
-exp.asm:59 the | operator cannot take non-absolute arguments.
-exp.asm:60 the & operator cannot take non-absolute arguments.
-exp.asm:61 the ~ operator cannot take non-absolute arguments.
-exp.asm:62 the * operator cannot take non-absolute arguments.
diff --git a/gas/testsuite/gasp/exp.out b/gas/testsuite/gasp/exp.out
deleted file mode 100644
index cecb9a8..0000000
--- a/gas/testsuite/gasp/exp.out
+++ /dev/null
@@ -1,124 +0,0 @@
-!
-
-!; test all ops
- ; test all ops
-!
-
-!a1 .EQU 4+10
-!a2 .EQU 4-10
-!a3 .EQU 4&10
-!a4 .EQU 4|2
-!a5 .EQU 4~2
-!a6 .EQU 4*10
-!a7 .EQU 40/10
-!a8 .EQU +7
-!a9 .EQU -7
-!a10 .EQU ~7
-!
-
-!
-
-! a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
- 14 -6 0 6 6 40 4 7 -7 -8
-!
-
-!; test the priorities
- ; test the priorities
-!
-
-!b1 .EQU 1|2~3&4+5-8*7/2
-!b2 .EQU (1|2~(3&(4+5-(8*(7/2)))))
-!b3 .EQU 10*2/3*4
-!b4 .EQU (((10*2)/3)*4)
-!b5 .EQU 10+2-3+4
-!b6 .EQU (((10+2)-3)+4)
-!
-
-! b1 b2 b3 b4
- 2 2 24 24
-!
-
-!; test association
- ; test association
-!
-
-!c1 .EQU -~3
-!c2 .EQU ~-3
-!c3 .EQU -(~3)
-!c4 .EQU ~(-3)
-!
-
-! c1 c2 c3 c4
- 4 2 4 2
-!
-
-!; test rules for symbols
- ; test rules for symbols
-!
-
-!ok1 .EQU FOO
-!ok2 .EQU FOO+10
-!ok3 .EQU 10+FOO
-!ok4 .EQU FOO-10
-!
-
-! ok1
- FOO
-! ok2
- FOO+10
-! ok3
- FOO+10
-! ok4
- FOO+-10
-!
-
-!ok5 .EQU FOO+3+4+5+6
-!ok6 .EQU FOO-BAR
-!
-
-! ok5
- FOO+18
-! ok6
- FOO-FOO
-!
-
-!bad1 .EQU FOO+FOO
-!bad2 .EQU FOO*2
-!bad3 .EQU FOO/2
-!bad4 .EQU FOO|2
-!bad5 .EQU FOO&2
-!bad6 .EQU FOO~2
-!bad7 .EQU FOO*2
-!
-
-!; test spacing
- ; test spacing
-!
-
-!space1 .EQU 1 + 2 +3+FOO + 3
-!space2
-space2:
-!
-
-!; from the SH manual
- ; from the SH manual
-!
-
-! .DATA.L 1+(2-(3+(4-5))),1
- .long 1,1
-!
-
-! .DATA.L -H'fffffff1+H'000000f0*H'00000010|H'000000f0&H'0000ffff,H'00000fff
- .long 4095,4095
-!
-
-! .DATA.L -~-~H'0000000f,H'00
- .long 17,0
-!
-
-!
-
-!
-!
-
-! .END
diff --git a/gas/testsuite/gasp/flonums.asm b/gas/testsuite/gasp/flonums.asm
deleted file mode 100644
index e6ddb5a..0000000
--- a/gas/testsuite/gasp/flonums.asm
+++ /dev/null
@@ -1,19 +0,0 @@
-.RADIX Q
- ! test floats now
- .float -H'C
- .float -9.0
- .float 0.9
- .float +0.9
- .float +.9
- .float -00.0009
- .float -2.900
- .float 1.1e+10
- .float +1.1e+10
- .float +1.1e-10
- .float -1.1E+10
- .float +1.1E+1000
- .float +1.1E+0001 10
- .float 11.11E-10 10
- .float H'C.3
- .float H'C.H'C
-.END
diff --git a/gas/testsuite/gasp/flonums.err b/gas/testsuite/gasp/flonums.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/flonums.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/flonums.out b/gas/testsuite/gasp/flonums.out
deleted file mode 100644
index 23bde3d..0000000
--- a/gas/testsuite/gasp/flonums.out
+++ /dev/null
@@ -1,36 +0,0 @@
-!.RADIX Q
-! ! test floats now
- ! test floats now
-! .float -H'C
- .float -12
-! .float -9.0
- .float -9.0
-! .float 0.9
- .float 0.9
-! .float +0.9
- .float +0.9
-! .float +.9
- .float +.9
-! .float -00.0009
- .float -00.0009
-! .float -2.900
- .float -2.900
-! .float 1.1e+10
- .float 1.1e+10
-! .float +1.1e+10
- .float +1.1e+10
-! .float +1.1e-10
- .float +1.1e-10
-! .float -1.1E+10
- .float -1.1E+10
-! .float +1.1E+1000
- .float +1.1E+1000
-! .float +1.1E+0001 10
- .float +1.1E+0001 8
-! .float 11.11E-10 10
- .float 11.11E-10 8
-! .float H'C.3
- .float 12.3
-! .float H'C.H'C
- .float 12.12
-!.END
diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp
deleted file mode 100644
index e8b007eb..0000000
--- a/gas/testsuite/gasp/gasp.exp
+++ /dev/null
@@ -1,40 +0,0 @@
-# Test gasp.
-
-# GASP is now deprecated (and not built by default)
-# so if it does not exist, do not test it.
-global GASP
-if {![info exists GASP] || ! [file exists $GASP] } then {
- return 1
-}
-
-proc gasp_test { filename testname opt } {
- global GASP
- global srcdir
- global host_triplet
-
- send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n"
- catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs
- catch "exec diff gasp.out $filename.out" diffs
- set diffs [prune_warnings $diffs]
- if ![string match "" $diffs] {
- send_log "$diffs\n"
- verbose $diffs
- fail $testname
- return 0
- } else {
- pass $testname
- }
-
-}
-
-foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
- regsub -all ".asm" $src "" t
- regsub "^.*/(\[^/\]*)$" $t "gasp \\1" testname
- gasp_test $t $testname ""
-}
-
-foreach src [ lsort [ glob $srcdir/gasp/mri/*.asm ] ] {
- regsub -all ".asm" $src "" t
- regsub "^.*/(\[^/\]*)$" $t "gasp MRI \\1" testname
- gasp_test $t $testname "-M"
-}
diff --git a/gas/testsuite/gasp/include.asm b/gas/testsuite/gasp/include.asm
deleted file mode 100644
index 69ed1dd..0000000
--- a/gas/testsuite/gasp/include.asm
+++ /dev/null
@@ -1,4 +0,0 @@
- HI
- .INCLUDE "INC1.H"
- THERE
- .END
diff --git a/gas/testsuite/gasp/include.err b/gas/testsuite/gasp/include.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/include.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/include.out b/gas/testsuite/gasp/include.out
deleted file mode 100644
index d77a0df..0000000
--- a/gas/testsuite/gasp/include.out
+++ /dev/null
@@ -1,15 +0,0 @@
-! HI
- HI
-! .INCLUDE "INC1.H"
-!FILE 1 FIRST LINE
-FILE: 1 FIRST LINE
-! .INCLUDE "INC2.H"
-! FILE 2 FIRST LINE
- FILE 2 FIRST LINE
-! FILE 2 LAST LINE
- FILE 2 LAST LINE
-!FILE 1 LAST LINE
-FILE: 1 LAST LINE
-! THERE
- THERE
-! .END
diff --git a/gas/testsuite/gasp/listing.asm b/gas/testsuite/gasp/listing.asm
deleted file mode 100644
index 2f14cfc..0000000
--- a/gas/testsuite/gasp/listing.asm
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
- .HEADING " ""QUOTE"" "
- .PAGE
- .PRINT LIST
- foo
- .PRINT NOLIST
- foo
-
-
- .FORM LIN=12
- .FORM COL=90
- .FORM LIN=123 COL=23
-
- .END
diff --git a/gas/testsuite/gasp/listing.err b/gas/testsuite/gasp/listing.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/listing.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/listing.out b/gas/testsuite/gasp/listing.out
deleted file mode 100644
index 585bda2..0000000
--- a/gas/testsuite/gasp/listing.out
+++ /dev/null
@@ -1,28 +0,0 @@
-!
-
-!
-
-! .HEADING " ""QUOTE"" "
- .title " "QUOTE" "
-! .PAGE
- .eject
-! .PRINT LIST
- .list
-! foo
- foo
-! .PRINT NOLIST
- .nolist
-! foo
- foo
-!
-
-!
-
-! .FORM LIN=12
- .psize 12,132
-! .FORM COL=90
- .psize 60,90
-! .FORM LIN=123 COL=23
- .psize 123,23
-!
-! .END
diff --git a/gas/testsuite/gasp/macro.asm b/gas/testsuite/gasp/macro.asm
deleted file mode 100644
index dfb16bf..0000000
--- a/gas/testsuite/gasp/macro.asm
+++ /dev/null
@@ -1,102 +0,0 @@
- .MACRO SUM FROM=0, TO=9
- ; \FROM \TO
- MOV R\FROM,R10
-COUNT .ASSIGNA \FROM+1
- .AWHILE \&COUNT LE \TO
- MOV R\&COUNT,R10
-COUNT .ASSIGNA \&COUNT+1
- .AENDW
- .ENDM
-
- SUM 0,5
- SUM TO=5
- SUM FROM=2, TO=5
-
-
-; hi this is a comment
- .MACRO BACK_SLASH_SET
- \(MOV #"\",R0)
- .ENDM
- BACK_SLASH_SET
- .MACRO COMM
- bar ; this comment will get copied out
- foo \; this one will get dropped
- .ENDM
- COMM
- BACK_SLASH_SET
- .MACRO PLUS2
- ADD #1,R\&V1
- .SDATA "\&V'1"
- .ENDM
-V .ASSIGNC "R"
-V1 .ASSIGNA 1
- PLUS2
- .MACRO PLUS1 P,P1
- ADD #1,\P1
- .SDATA "\P'1"
- .ENDM
- PLUS1 R,R1
-
- .MACRO SUM P1
- MOV R0,R10
- ADD R1,R10
- ADD R2,R10
- \P1
- ADD R3,R10
- .ENDM
-
- SUM .EXITM
-
- .MACRO foo bar=a default=b
- \bar
- \default
- bar
- default
- .ENDM
- foo default=dog bar=cat
- foo X Y
- foo
- foo bar=cat default=dog
-
-
- .MACRO foo bar
- HI
- HI \bar
- HI
- .ENDM
-
- foo 1
- foo 123
- foo 1 2 3 4
- foo
-
-
- .MACRO PUSH Rn
- MOV.L \Rn,@-r15
- .ENDM
- PUSH R0
- PUSH R1
-
-
- .MACRO RES_STR STR, Rn
- MOV.L #str\@,\Rn
- BRA end_str\@
- NOP
-str\@ .SDATA "\STR"
- .ALIGN 2
-end_str\@
- .ENDM
-
- RES_STR "ONE",R0
- RES_STR "TWO",R1
- RES_STR "THREE",R2
-
-
-
- RES_STR STR=donkey Rn=R1
- RES_STR donkey,R1
- RES_STR donkey Rn=R1
- .END
-
-
-
diff --git a/gas/testsuite/gasp/macro.err b/gas/testsuite/gasp/macro.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/macro.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/macro.out b/gas/testsuite/gasp/macro.out
deleted file mode 100644
index 7604f42..0000000
--- a/gas/testsuite/gasp/macro.out
+++ /dev/null
@@ -1,382 +0,0 @@
-! .MACRO SUM FROM=0, TO=9
-! ; \FROM \TO
-! MOV R\FROM,R10
-!COUNT .ASSIGNA \FROM+1
-! .AWHILE \&COUNT LE \TO
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! .ENDM
-!
-
-! SUM 0,5
-! ; 0 5
- ; 0 5
-! MOV R0,R10
- MOV R0,R10
-!COUNT .ASSIGNA 0+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R1,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R2,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R3,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R4,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R5,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! SUM TO=5
-! ; 0 5
- ; 0 5
-! MOV R0,R10
- MOV R0,R10
-!COUNT .ASSIGNA 0+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R1,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R2,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R3,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R4,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R5,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! SUM FROM=2, TO=5
-! ; 2 5
- ; 2 5
-! MOV R2,R10
- MOV R2,R10
-!COUNT .ASSIGNA 2+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R3,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R4,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-! MOV R\&COUNT,R10
- MOV R5,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AWHILE \&COUNT LE 5
-! MOV R\&COUNT,R10
-!COUNT .ASSIGNA \&COUNT+1
-! .AENDW
-!
-
-!
-
-!; hi this is a comment
- ; hi this is a comment
-! .MACRO BACK_SLASH_SET
-! \(MOV #"\",R0)
-! .ENDM
-! BACK_SLASH_SET
-! MOV #"\",R0
- MOV #"\",R0
-! .MACRO COMM
-! bar ; this comment will get copied out
-! foo \; this one will get dropped
-! .ENDM
-! COMM
-! bar ; this comment will get copied out
- bar ; this comment will get copied out
-! foo \; this one will get dropped
- foo \; this one will get dropped
-! BACK_SLASH_SET
-! MOV #"\",R0
- MOV #"\",R0
-! .MACRO PLUS2
-! ADD #1,R\&V1
-! .SDATA "\&V'1"
-! .ENDM
-!V .ASSIGNC "R"
-!V1 .ASSIGNA 1
-! PLUS2
-! ADD #1,R\&V1
- ADD #1,R1
-! .SDATA "\&V'1"
- .byte 82,49
-! .MACRO PLUS1 P,P1
-! ADD #1,\P1
-! .SDATA "\P'1"
-! .ENDM
-! PLUS1 R,R1
-! ADD #1,R1
- ADD #1,R1
-! .SDATA "R1"
- .byte 82,49
-!
-
-! .MACRO SUM P1
-! MOV R0,R10
-! ADD R1,R10
-! ADD R2,R10
-! \P1
-! ADD R3,R10
-! .ENDM
-!
-
-! SUM .EXITM
-! MOV R0,R10
- MOV R0,R10
-! ADD R1,R10
- ADD R1,R10
-! ADD R2,R10
- ADD R2,R10
-! .EXITM
-!
-
-! .MACRO foo bar=a default=b
-! \bar
-! \default
-! bar
-! default
-! .ENDM
-! foo default=dog bar=cat
-! cat
- cat
-! dog
- dog
-! bar
- bar
-! default
- default
-! foo X Y
-! X
- X
-! Y
- Y
-! bar
- bar
-! default
- default
-! foo
-! a
- a
-! b
- b
-! bar
- bar
-! default
- default
-! foo bar=cat default=dog
-! cat
- cat
-! dog
- dog
-! bar
- bar
-! default
- default
-!
-
-!
-
-! .MACRO foo bar
-! HI
-! HI \bar
-! HI
-! .ENDM
-!
-
-! foo 1
-! HI
- HI
-! HI 1
- HI 1
-! HI
- HI
-! foo 123
-! HI
- HI
-! HI 123
- HI 123
-! HI
- HI
-! foo 1 2 3 4
-! foo
-! HI
- HI
-! HI
- HI
-! HI
- HI
-!
-
-!
-! .MACRO PUSH Rn
-! MOV.L \Rn,@-r15
-! .ENDM
-! PUSH R0
-! MOV.L R0,@-r15
- MOV.L R0,@-r15
-! PUSH R1
-! MOV.L R1,@-r15
- MOV.L R1,@-r15
-!
-
-!
-
-! .MACRO RES_STR STR, Rn
-! MOV.L #str\@,\Rn
-! BRA end_str\@
-! NOP
-!str\@ .SDATA "\STR"
-! .ALIGN 2
-!end_str\@
-! .ENDM
-!
-! RES_STR "ONE",R0
-! MOV.L #str18,R0
- MOV.L #str18,R0
-! BRA end_str18
- BRA end_str18
-! NOP
- NOP
-!str18 .SDATA "ONE"
-str18: .byte 79,78,69
-! .ALIGN 2
- .align 2
-!end_str18
-end_str18:
-! RES_STR "TWO",R1
-! MOV.L #str19,R1
- MOV.L #str19,R1
-! BRA end_str19
- BRA end_str19
-! NOP
- NOP
-!str19 .SDATA "TWO"
-str19: .byte 84,87,79
-! .ALIGN 2
- .align 2
-!end_str19
-end_str19:
-! RES_STR "THREE",R2
-! MOV.L #str20,R2
- MOV.L #str20,R2
-! BRA end_str20
- BRA end_str20
-! NOP
- NOP
-!str20 .SDATA "THREE"
-str20: .byte 84,72,82,69,69
-! .ALIGN 2
- .align 2
-!end_str20
-end_str20:
-!
-
-!
-
-!
-
-! RES_STR STR=donkey Rn=R1
-! MOV.L #str21,R1
- MOV.L #str21,R1
-! BRA end_str21
- BRA end_str21
-! NOP
- NOP
-!str21 .SDATA "donkey"
-str21: .byte 100,111,110,107,101,121
-! .ALIGN 2
- .align 2
-!end_str21
-end_str21:
-! RES_STR donkey,R1
-! MOV.L #str22,R1
- MOV.L #str22,R1
-! BRA end_str22
- BRA end_str22
-! NOP
- NOP
-!str22 .SDATA "donkey"
-str22: .byte 100,111,110,107,101,121
-! .ALIGN 2
- .align 2
-!end_str22
-end_str22:
-! RES_STR donkey Rn=R1
-! MOV.L #str23,R1
- MOV.L #str23,R1
-! BRA end_str23
- BRA end_str23
-! NOP
- NOP
-!str23 .SDATA "donkey"
-str23: .byte 100,111,110,107,101,121
-! .ALIGN 2
- .align 2
-!end_str23
-end_str23:
-! .END
diff --git a/gas/testsuite/gasp/mdouble.asm b/gas/testsuite/gasp/mdouble.asm
deleted file mode 100644
index dbb77b4..0000000
--- a/gas/testsuite/gasp/mdouble.asm
+++ /dev/null
@@ -1,47 +0,0 @@
-
- .MACRO HI
- A
- \! this is hidden
- B
- ! this is not
- C
- .ENDM
- Hello
- HI
- Emily
-
-
- H'0f
- 200+H'0F
-
-XX .ASSIGNA Q'100
-! Definition:
- .MACRO GET X=100,Y,Z
- MOV #\X+H'0F,@B
- \Y
-\Z JMP @MAIN
-L\@ ADD #1,@HL
- MOV #0,@C \! Clear C
- ADD #2,@C
- ADD #\&XX, @C
- .ENDM
-
- NOP
-
-!Call:
- GET 200,"ADD #1,@B", ENTRY
- .END
-
- ; Definition:
-
-
- NOP
-
- ;Call:
- MOV #200+0F,@B
- ADD #1,@B
-ENTRY: JMP @MAIN
-L00000: ADD #1,@HL
- MOV #0,@C
- ADD #2,@C
- ADD #0, @C
diff --git a/gas/testsuite/gasp/mdouble.err b/gas/testsuite/gasp/mdouble.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/mdouble.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/mdouble.out b/gas/testsuite/gasp/mdouble.out
deleted file mode 100644
index 61eec93..0000000
--- a/gas/testsuite/gasp/mdouble.out
+++ /dev/null
@@ -1,68 +0,0 @@
-!
-
-! .MACRO HI
-! A
-! \! this is hidden
-! B
-! ! this is not
-! C
-! .ENDM
-! Hello
- Hello
-! HI
-! A
- A
-!
-! B
- B
-! ! this is not
- ! this is not
-! C
- C
-! Emily
- Emily
-!
-!
-
-! H'0f
- 15
-! 200+H'0F
- 200+15
-!
-
-!XX .ASSIGNA Q'100
-!! Definition:
- ! Definition:
-! .MACRO GET X=100,Y,Z
-! MOV #\X+H'0F,@B
-! \Y
-!\Z JMP @MAIN
-!L\@ ADD #1,@HL
-! MOV #0,@C \! Clear C
-! ADD #2,@C
-! ADD #\&XX, @C
-! .ENDM
-!
-
-! NOP
- NOP
-!
-
-!!Call:
- !Call:
-! GET 200,"ADD #1,@B", ENTRY
-! MOV #200+H'0F,@B
- MOV #200+15,@B
-! ADD #1,@B
- ADD #1,@B
-!ENTRY JMP @MAIN
-ENTRY: JMP @MAIN
-!L1 ADD #1,@HL
-L1: ADD #1,@HL
-! MOV #0,@C
- MOV #0,@C
-! ADD #2,@C
- ADD #2,@C
-! ADD #\&XX, @C
- ADD #64, @C
-! .END
diff --git a/gas/testsuite/gasp/mri/embed.asm b/gas/testsuite/gasp/mri/embed.asm
deleted file mode 100644
index f1b8f78..0000000
--- a/gas/testsuite/gasp/mri/embed.asm
+++ /dev/null
@@ -1,5 +0,0 @@
-embed macro label
-addr&&label dc.l label
- endm
-
- embed foo
diff --git a/gas/testsuite/gasp/mri/embed.out b/gas/testsuite/gasp/mri/embed.out
deleted file mode 100644
index 92d925f..0000000
--- a/gas/testsuite/gasp/mri/embed.out
+++ /dev/null
@@ -1,9 +0,0 @@
-;embed macro label
-;addr&&label dc.l label
-; endm
-;
-
-; embed foo
-;addrfoo dc.l foo
-addrfoo: dc.l foo
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/mri/exists.asm b/gas/testsuite/gasp/mri/exists.asm
deleted file mode 100644
index 87220c6..0000000
--- a/gas/testsuite/gasp/mri/exists.asm
+++ /dev/null
@@ -1,10 +0,0 @@
-exists macro arg1,arg2
- ifne ==arg2
- move arg1,arg2
- elsec
- push arg1
- endc
- endm
-
- exists foo,bar
- exists foo
diff --git a/gas/testsuite/gasp/mri/exists.out b/gas/testsuite/gasp/mri/exists.out
deleted file mode 100644
index e75337d..0000000
--- a/gas/testsuite/gasp/mri/exists.out
+++ /dev/null
@@ -1,24 +0,0 @@
-;exists macro arg1,arg2
-; ifne ==arg2
-; move arg1,arg2
-; elsec
-; push arg1
-; endc
-; endm
-;
-
-; exists foo,bar
-; ifne -1
-; move foo,bar
- move foo,bar
-; elsec
-; push foo
-; endc
-; exists foo
-; ifne 0
-; move foo,
-; elsec
-; push foo
- push foo
-; endc
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/mri/irp.asm b/gas/testsuite/gasp/mri/irp.asm
deleted file mode 100644
index cda21d9..0000000
--- a/gas/testsuite/gasp/mri/irp.asm
+++ /dev/null
@@ -1,4 +0,0 @@
- irp param,arg1,arg2,arg3
- dc.l param
- endr
- end quit
diff --git a/gas/testsuite/gasp/mri/irp.out b/gas/testsuite/gasp/mri/irp.out
deleted file mode 100644
index 9105620..0000000
--- a/gas/testsuite/gasp/mri/irp.out
+++ /dev/null
@@ -1,8 +0,0 @@
-; irp param,arg1,arg2,arg3
-; dc.l param
-; endr
- dc.l arg1
- dc.l arg2
- dc.l arg3
-; end quit
- end quit
diff --git a/gas/testsuite/gasp/mri/irpc.asm b/gas/testsuite/gasp/mri/irpc.asm
deleted file mode 100644
index a51d687..0000000
--- a/gas/testsuite/gasp/mri/irpc.asm
+++ /dev/null
@@ -1,3 +0,0 @@
- irpc dummy,1234
- dc.l dummy
- endr
diff --git a/gas/testsuite/gasp/mri/irpc.out b/gas/testsuite/gasp/mri/irpc.out
deleted file mode 100644
index 59f8824..0000000
--- a/gas/testsuite/gasp/mri/irpc.out
+++ /dev/null
@@ -1,8 +0,0 @@
-; irpc dummy,1234
-; dc.l dummy
-; endr
- dc.l 1
- dc.l 2
- dc.l 3
- dc.l 4
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/mri/macro.asm b/gas/testsuite/gasp/mri/macro.asm
deleted file mode 100644
index b711bd0..0000000
--- a/gas/testsuite/gasp/mri/macro.asm
+++ /dev/null
@@ -1,8 +0,0 @@
-get macro arg1,arg2,arg3
- dc.l arg1
- arg2
-arg3 dc.l \4
- move.\0 d0,d1
- endm
-
- get.b 1,<dc.l 2>,label,four
diff --git a/gas/testsuite/gasp/mri/macro.out b/gas/testsuite/gasp/mri/macro.out
deleted file mode 100644
index 86eeb94..0000000
--- a/gas/testsuite/gasp/mri/macro.out
+++ /dev/null
@@ -1,18 +0,0 @@
-;get macro arg1,arg2,arg3
-; dc.l arg1
-; arg2
-;arg3 dc.l \4
-; move.\0 d0,d1
-; endm
-;
-
-; get.b 1,<dc.l 2>,label,four
-; dc.l 1
- dc.l 1
-; dc.l 2
- dc.l 2
-;label dc.l four
-label: dc.l four
-; move.b d0,d1
- move.b d0,d1
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/mri/narg.asm b/gas/testsuite/gasp/mri/narg.asm
deleted file mode 100644
index 114c940..0000000
--- a/gas/testsuite/gasp/mri/narg.asm
+++ /dev/null
@@ -1,9 +0,0 @@
-loop macro arg1,arg2,arg3
- dc.l NARG
- ifne NARG
- dc.l arg1
- loop arg2,arg3
- endc
- endm
-
- loop 1,2,3
diff --git a/gas/testsuite/gasp/mri/narg.out b/gas/testsuite/gasp/mri/narg.out
deleted file mode 100644
index 723ebc1..0000000
--- a/gas/testsuite/gasp/mri/narg.out
+++ /dev/null
@@ -1,38 +0,0 @@
-;loop macro arg1,arg2,arg3
-; dc.l NARG
-; ifne NARG
-; dc.l arg1
-; loop arg2,arg3
-; endc
-; endm
-;
-
-; loop 1,2,3
-; dc.l 3
- dc.l 3
-; ifne 3
-; dc.l 1
- dc.l 1
-; loop 2,3
-; dc.l 2
- dc.l 2
-; ifne 2
-; dc.l 2
- dc.l 2
-; loop 3,
-; dc.l 1
- dc.l 1
-; ifne 1
-; dc.l 3
- dc.l 3
-; loop ,
-; dc.l 0
- dc.l 0
-; ifne 0
-; dc.l
-; loop ,
-; endc
-; endc
-; endc
-; endc
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/mri/rept.asm b/gas/testsuite/gasp/mri/rept.asm
deleted file mode 100644
index d563bb2..0000000
--- a/gas/testsuite/gasp/mri/rept.asm
+++ /dev/null
@@ -1,3 +0,0 @@
- rept 3
- dc.l 1
- endr
diff --git a/gas/testsuite/gasp/mri/rept.out b/gas/testsuite/gasp/mri/rept.out
deleted file mode 100644
index da4ed6b..0000000
--- a/gas/testsuite/gasp/mri/rept.out
+++ /dev/null
@@ -1,16 +0,0 @@
-; rept 3
-; dc.l 1
-; endr
-; dc.l 1
- dc.l 1
-; REPT 2
-; dc.l 1
-; ENDR
-; dc.l 1
- dc.l 1
-; REPT 1
-; dc.l 1
-; ENDR
-; dc.l 1
- dc.l 1
-; \ No newline at end of file
diff --git a/gas/testsuite/gasp/pl1.asm b/gas/testsuite/gasp/pl1.asm
deleted file mode 100644
index f38bfde..0000000
--- a/gas/testsuite/gasp/pl1.asm
+++ /dev/null
@@ -1,20 +0,0 @@
-
- .ALTERNATE
-
-alloc MACRO val1,val2
- DB val1
- DB val2
- ENDM
-
- alloc "that's" 'show biz'
- alloc 0,1
- alloc 0 1
- alloc 0 1
- alloc ,1
-
-
-
-
-
-
-
diff --git a/gas/testsuite/gasp/pl1.err b/gas/testsuite/gasp/pl1.err
deleted file mode 100644
index a1e3318..0000000
--- a/gas/testsuite/gasp/pl1.err
+++ /dev/null
@@ -1 +0,0 @@
-END missing from end of file.
diff --git a/gas/testsuite/gasp/pl1.out b/gas/testsuite/gasp/pl1.out
deleted file mode 100644
index 8b80f12..0000000
--- a/gas/testsuite/gasp/pl1.out
+++ /dev/null
@@ -1,49 +0,0 @@
-!
-! .ALTERNATE
-!
-
-!alloc MACRO val1,val2
-! DB val1
-! DB val2
-! ENDM
-!
-
-! alloc "that's" 'show biz'
-! DB "that's"
- .byte 116,104,97,116,39,115
-! DB "show biz"
- .byte 115,104,111,119,32,98,105,122
-! alloc 0,1
-! DB 0
- .byte 0
-! DB 1
- .byte 1
-! alloc 0 1
-! DB 0
- .byte 0
-! DB 1
- .byte 1
-! alloc 0 1
-! DB 0
- .byte 0
-! DB 1
- .byte 1
-! alloc ,1
-! DB
- .byte
-! DB 1
- .byte 1
-!
-
-!
-
-!
-!
-
-!
-
-!
-
-!
-
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/pl2.asm b/gas/testsuite/gasp/pl2.asm
deleted file mode 100644
index 2971137..0000000
--- a/gas/testsuite/gasp/pl2.asm
+++ /dev/null
@@ -1,28 +0,0 @@
-
-
- .ALTERNATE
-
- ! ok
- !! also ok
-
-foo MACRO
- ! you can see me
- !! but not me
- ! you can see me
- !! but not me
- but this "SHOULD !!BE OK"
- ENDM
-
- foo
-
-
-define MACRO val1,val2
- DB val1 ! this comment will show up
- DB val2 !! this on won't
- ENDM
-
- define 0,1
-
-
- END
-
diff --git a/gas/testsuite/gasp/pl2.err b/gas/testsuite/gasp/pl2.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl2.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl2.out b/gas/testsuite/gasp/pl2.out
deleted file mode 100644
index cca6fa3..0000000
--- a/gas/testsuite/gasp/pl2.out
+++ /dev/null
@@ -1,51 +0,0 @@
-!
-
-!
-
-! .ALTERNATE
-!
-
-! ! ok
- ! ok
-! !! also ok
- !! also ok
-!
-
-!foo MACRO
-! ! you can see me
-! !! but not me
-! ! you can see me
-! !! but not me
-! but this "SHOULD !!BE OK"
-! ENDM
-!
-
-! foo
-! ! you can see me
- ! you can see me
-!
-! ! you can see me
- ! you can see me
-!
-! but this "SHOULD !!BE OK"
- but this "SHOULD !!BE OK"
-!
-
-!
-
-!define MACRO val1,val2
-! DB val1 ! this comment will show up
-! DB val2 !! this on won't
-! ENDM
-!
-
-! define 0,1
-! DB 0 ! this comment will show up
- .byte 0! this comment will show up
-! DB 1
- .byte 1
-!
-
-!
-
-! END
diff --git a/gas/testsuite/gasp/pl3.asm b/gas/testsuite/gasp/pl3.asm
deleted file mode 100644
index 0131dcc..0000000
--- a/gas/testsuite/gasp/pl3.asm
+++ /dev/null
@@ -1,30 +0,0 @@
- .ALTERNATE
-
-foo MACRO string
- LOCAL lab1, lab2
-lab1: DATA.L lab2
-lab2: SDATA string
- ENDM
-
- foo "An example"
- foo "using LOCAL"
-
-! test of LOCAL directive
-
-chk_err MACRO limit
- LOCAL skip !! frob
- LOCAL zap,dog,barf
-barf: cmp ax,limit !! check value against
- !! limit
- jle skip !! skip call if OK
-skip: call error
- foo dog
- zap dog
- nop
- ENDM
-
- chk_err 5
- chk_err 10
-
-
- END
diff --git a/gas/testsuite/gasp/pl3.err b/gas/testsuite/gasp/pl3.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl3.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl3.out b/gas/testsuite/gasp/pl3.out
deleted file mode 100644
index 066194c..0000000
--- a/gas/testsuite/gasp/pl3.out
+++ /dev/null
@@ -1,86 +0,0 @@
-! .ALTERNATE
-!
-
-!foo MACRO string
-! LOCAL lab1, lab2
-!lab1: DATA.L lab2
-!lab2: SDATA string
-! ENDM
-!
-
-! foo "An example"
-!
-!LL0001: DATA.L LL0002
-LL0001: .long LL0002
-!LL0002: SDATA "An example"
-LL0002: .byte 65,110,32,101,120,97,109,112,108,101
-! foo "using LOCAL"
-!
-!LL0003: DATA.L LL0004
-LL0003: .long LL0004
-!LL0004: SDATA "using LOCAL"
-LL0004: .byte 117,115,105,110,103,32,76,79,67,65,76
-!
-
-!! test of LOCAL directive
- ! test of LOCAL directive
-!
-
-!chk_err MACRO limit
-! LOCAL skip !! frob
-! LOCAL zap,dog,barf
-!barf: cmp ax,limit !! check value against
-! !! limit
-! jle skip !! skip call if OK
-!skip: call error
-! foo dog
-! zap dog
-! nop
-! ENDM
-!
-
-! chk_err 5
-!
-!
-!LL0008: cmp ax,5
-LL0008: cmp ax,5
-!
-! jle LL0005
- jle LL0005
-!LL0005: call error
-LL0005: call error
-! foo LL0007
-!
-!LL0009: DATA.L LL000a
-LL0009: .long LL000a
-!LL000a: SDATA LL0007
-LL000a: .byte 76,76,48,48,48,55
-! LL0006 LL0007
- LL0006 LL0007
-! nop
- nop
-! chk_err 10
-!
-!
-!LL000e: cmp ax,10
-LL000e: cmp ax,10
-!
-! jle LL000b
- jle LL000b
-!LL000b: call error
-LL000b: call error
-! foo LL000d
-!
-!LL000f: DATA.L LL0010
-LL000f: .long LL0010
-!LL0010: SDATA LL000d
-LL0010: .byte 76,76,48,48,48,100
-! LL000c LL000d
- LL000c LL000d
-! nop
- nop
-!
-
-!
-
-! END
diff --git a/gas/testsuite/gasp/pl4.asm b/gas/testsuite/gasp/pl4.asm
deleted file mode 100644
index f1dd3e8..0000000
--- a/gas/testsuite/gasp/pl4.asm
+++ /dev/null
@@ -1,10 +0,0 @@
- .ALTERNATE
-! test of macro substitution around &s
-
-
-foo MACRO a,b
- x&a&b
- ENDM
-
- foo 3 2
- END
diff --git a/gas/testsuite/gasp/pl4.err b/gas/testsuite/gasp/pl4.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl4.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl4.out b/gas/testsuite/gasp/pl4.out
deleted file mode 100644
index 35d1391..0000000
--- a/gas/testsuite/gasp/pl4.out
+++ /dev/null
@@ -1,16 +0,0 @@
-! .ALTERNATE
-!! test of macro substitution around &s
- ! test of macro substitution around &s
-!
-
-!
-
-!foo MACRO a,b
-! x&a&b
-! ENDM
-!
-
-! foo 3 2
-! x32
- x32
-! END
diff --git a/gas/testsuite/gasp/pl5.asm b/gas/testsuite/gasp/pl5.asm
deleted file mode 100644
index 16b999b..0000000
--- a/gas/testsuite/gasp/pl5.asm
+++ /dev/null
@@ -1,15 +0,0 @@
-! test of literal text operator
- .ALTERNATE
-foop MACRO str1,str2
- SDATA "str1"
- SDATA str2
- ENDM
-
-
-
- foop this< is a <string> with angle brackets>
- foop this< is a string with spaces>
- foop this < is a string with a !>>
-
-
- END
diff --git a/gas/testsuite/gasp/pl5.err b/gas/testsuite/gasp/pl5.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl5.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl5.out b/gas/testsuite/gasp/pl5.out
deleted file mode 100644
index 0aa488b..0000000
--- a/gas/testsuite/gasp/pl5.out
+++ /dev/null
@@ -1,32 +0,0 @@
-!! test of literal text operator
- ! test of literal text operator
-! .ALTERNATE
-!foop MACRO str1,str2
-! SDATA "str1"
-! SDATA str2
-! ENDM
-!
-
-!
-
-!
-! foop this< is a <string> with angle brackets>
-! SDATA "this"
- .byte 116,104,105,115
-! SDATA " is a <string> with angle brackets"
- .byte 32,105,115,32,97,32,60,115,116,114,105,110,103,62,32,119,105,116,104,32,97,110,103,108,101,32,98,114,97,99,107,101,116,115
-! foop this< is a string with spaces>
-! SDATA "this"
- .byte 116,104,105,115
-! SDATA " is a string with spaces"
- .byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,115,112,97,99,101,115
-! foop this < is a string with a !>>
-! SDATA "this"
- .byte 116,104,105,115
-! SDATA " is a string with a >"
- .byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,97,32,62
-!
-
-!
-
-! END
diff --git a/gas/testsuite/gasp/pl6.asm b/gas/testsuite/gasp/pl6.asm
deleted file mode 100644
index 162d617..0000000
--- a/gas/testsuite/gasp/pl6.asm
+++ /dev/null
@@ -1,21 +0,0 @@
- .ALTERNATE
-! test of expression operator
-define MACRO val, string
- SDATA val
- SDATA string
- ENDM
- define "1","99%of100" ! notice % within string
- define %1 + 2, "=3"
-
-
- define % 1 + 2 %3+4
-
- define %3*4-2 <=10>
-
- define %3*4-2 5
-
- define %1 + 2,<is equal to %1 + 2, right?>
-
- ! has no effect
-
- end
diff --git a/gas/testsuite/gasp/pl6.err b/gas/testsuite/gasp/pl6.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl6.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl6.out b/gas/testsuite/gasp/pl6.out
deleted file mode 100644
index dcd16cf..0000000
--- a/gas/testsuite/gasp/pl6.out
+++ /dev/null
@@ -1,54 +0,0 @@
-! .ALTERNATE
-!! test of expression operator
- ! test of expression operator
-!define MACRO val, string
-! SDATA val
-! SDATA string
-! ENDM
-! define "1","99%of100" ! notice % within string
-! SDATA "1"
- .byte 49
-! SDATA "99%of100"
- .byte 57,57,37,111,102,49,48,48
-! define %1 + 2, "=3"
-! SDATA 3
- .byte 51
-! SDATA "=3"
- .byte 61,51
-!
-
-!
-
-! define % 1 + 2 %3+4
-! SDATA 3
- .byte 51
-! SDATA 7
- .byte 55
-!
-
-! define %3*4-2 <=10>
-! SDATA 10
- .byte 49,48
-! SDATA "=10"
- .byte 61,49,48
-!
-
-! define %3*4-2 5
-! SDATA 10
- .byte 49,48
-! SDATA 5
- .byte 53
-!
-
-! define %1 + 2,<is equal to %1 + 2, right?>
-! SDATA 3
- .byte 51
-! SDATA "is equal to %1 + 2, right?"
- .byte 105,115,32,101,113,117,97,108,32,116,111,32,37,49,32,43,32,50,44,32,114,105,103,104,116,63
-!
-
-! ! has no effect
- ! has no effect
-!
-
-! end
diff --git a/gas/testsuite/gasp/pl7.asm b/gas/testsuite/gasp/pl7.asm
deleted file mode 100644
index 58a40af..0000000
--- a/gas/testsuite/gasp/pl7.asm
+++ /dev/null
@@ -1,12 +0,0 @@
- .ALTERNATE
-! test of string operators
-define MACRO str1,str2
- SDATA str1
- SDATA "str2"
-ENDM
- define one" way to get "spaces,0
- define "lot's! of <special>,chars%", 0
-
-
-
-
diff --git a/gas/testsuite/gasp/pl7.err b/gas/testsuite/gasp/pl7.err
deleted file mode 100644
index a1e3318..0000000
--- a/gas/testsuite/gasp/pl7.err
+++ /dev/null
@@ -1 +0,0 @@
-END missing from end of file.
diff --git a/gas/testsuite/gasp/pl7.out b/gas/testsuite/gasp/pl7.out
deleted file mode 100644
index 1519b34..0000000
--- a/gas/testsuite/gasp/pl7.out
+++ /dev/null
@@ -1,26 +0,0 @@
-! .ALTERNATE
-!! test of string operators
- ! test of string operators
-!define MACRO str1,str2
-! SDATA str1
-! SDATA "str2"
-!ENDM
-! define one" way to get "spaces,0
-! SDATA one" way to get "spaces
- .byte 111,110,101,34,32,119,97,121,32,116,111,32,103,101,116,32,34,115,112,97,99,101,115
-! SDATA "0"
- .byte 48
-! define "lot's! of <special>,chars%", 0
-! SDATA "lot's of <special>,chars%"
- .byte 108,111,116,39,115,32,111,102,32,60,115,112,101,99,105,97,108,62,44,99,104,97,114,115,37
-! SDATA "0"
- .byte 48
-!
-
-!
-
-!
-
-!
-
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/pl8.asm b/gas/testsuite/gasp/pl8.asm
deleted file mode 100644
index 925b172..0000000
--- a/gas/testsuite/gasp/pl8.asm
+++ /dev/null
@@ -1,18 +0,0 @@
-
- .ALTERNATE
- SDATA %1+2+3
- SDATA "5"
-
-
-
- MACRO foo
- SDATA "HI" !! this will go
- SDATA "THERE ! this will stay
- ENDM
-
- foo
-
-
- SDATA <!<this is <a wacky> example!>!!>
- SDATA "<this is <a wacky> example>!"
- END
diff --git a/gas/testsuite/gasp/pl8.err b/gas/testsuite/gasp/pl8.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pl8.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pl8.out b/gas/testsuite/gasp/pl8.out
deleted file mode 100644
index 3710412..0000000
--- a/gas/testsuite/gasp/pl8.out
+++ /dev/null
@@ -1,33 +0,0 @@
-!
-
-! .ALTERNATE
-! SDATA %1+2+3
- .byte 37,49,43,50,43,51,32
-! SDATA "5"
- .byte 53
-!
-
-!
-
-!
-
-! MACRO foo
-! SDATA "HI" !! this will go
-! SDATA "THERE ! this will stay
-! ENDM
-!
-
-! foo
-! SDATA "HI"
- .byte 72,73
-! SDATA "THERE ! this will stay
- .byte 84,72,69,82,69,9,32,116,104,105,115,32,119,105,108,108,32,115,116,97,121
-!
-
-!
-
-! SDATA <!<this is <a wacky> example!>!!>
- .byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,33
-! SDATA "<this is <a wacky> example>!"
- .byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,34
-! END
diff --git a/gas/testsuite/gasp/pr7583.asm b/gas/testsuite/gasp/pr7583.asm
deleted file mode 100644
index c97caf5..0000000
--- a/gas/testsuite/gasp/pr7583.asm
+++ /dev/null
@@ -1,3 +0,0 @@
-
- .sdata "v1.0000"
- .end
diff --git a/gas/testsuite/gasp/pr7583.err b/gas/testsuite/gasp/pr7583.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/pr7583.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/pr7583.out b/gas/testsuite/gasp/pr7583.out
deleted file mode 100644
index a5df1d7..0000000
--- a/gas/testsuite/gasp/pr7583.out
+++ /dev/null
@@ -1,5 +0,0 @@
-!
-
-! .sdata "v1.0000"
- .byte 118,49,46,48,48,48,48
-! .end
diff --git a/gas/testsuite/gasp/reg.asm b/gas/testsuite/gasp/reg.asm
deleted file mode 100644
index eb463ed..0000000
--- a/gas/testsuite/gasp/reg.asm
+++ /dev/null
@@ -1,9 +0,0 @@
-
-
-foo .REG (r1)
- add foo,foo
-
-bar .reg (r2)
- add bar,foo
-
- .END
diff --git a/gas/testsuite/gasp/reg.err b/gas/testsuite/gasp/reg.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/reg.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/reg.out b/gas/testsuite/gasp/reg.out
deleted file mode 100644
index 79268a3..0000000
--- a/gas/testsuite/gasp/reg.out
+++ /dev/null
@@ -1,15 +0,0 @@
-!
-
-!
-
-!foo .REG (r1)
-! add foo,foo
- add r1,r1
-!
-
-!bar .reg (r2)
-! add bar,foo
- add r2,r1
-!
-
-! .END
diff --git a/gas/testsuite/gasp/rep.asm b/gas/testsuite/gasp/rep.asm
deleted file mode 100644
index 027ac47..0000000
--- a/gas/testsuite/gasp/rep.asm
+++ /dev/null
@@ -1,13 +0,0 @@
- .AREPEAT 5
- FIVE
- .AREPEAT 2
- TWO
- .AENDR
- .AREPEAT 3
- THREE
- .AREPEAT 2
- TWO
- .AENDR
- .AENDR
- .AENDR
- .END
diff --git a/gas/testsuite/gasp/rep.err b/gas/testsuite/gasp/rep.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/rep.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/rep.out b/gas/testsuite/gasp/rep.out
deleted file mode 100644
index 510d0e1..0000000
--- a/gas/testsuite/gasp/rep.out
+++ /dev/null
@@ -1,391 +0,0 @@
-! .AREPEAT 5
-! FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! .AENDR
-! FIVE
- FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 4
-! FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! .AENDR
-! FIVE
- FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! .AENDR
-! FIVE
- FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! .AENDR
-! FIVE
- FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! .AENDR
-! FIVE
- FIVE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 3
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 2
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! .AENDR
-! THREE
- THREE
-! .AREPEAT 2
-! TWO
-! .AENDR
-! TWO
- TWO
-! .AREPEAT 1
-! TWO
-! .AENDR
-! TWO
- TWO
-! .END
diff --git a/gas/testsuite/gasp/repeat.asm b/gas/testsuite/gasp/repeat.asm
deleted file mode 100644
index 7a85da3..0000000
--- a/gas/testsuite/gasp/repeat.asm
+++ /dev/null
@@ -1,14 +0,0 @@
-
- .AREPEAT 10
- TEN
- .AREPEAT 2
- TWENTY
- .AENDR
- .AENDR
-
- .AREPEAT 3
- ROTCL R2
- DIV1 R0,R1
- .AENDR
-
- .END
diff --git a/gas/testsuite/gasp/repeat.err b/gas/testsuite/gasp/repeat.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/repeat.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/repeat.out b/gas/testsuite/gasp/repeat.out
deleted file mode 100644
index 705d8d8..0000000
--- a/gas/testsuite/gasp/repeat.out
+++ /dev/null
@@ -1,211 +0,0 @@
-!
-
-! .AREPEAT 10
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 9
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 8
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 7
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 6
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 5
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 4
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 3
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 2
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! .AENDR
-! TEN
- TEN
-! .AREPEAT 2
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-! .AREPEAT 1
-! TWENTY
-! .AENDR
-! TWENTY
- TWENTY
-!
-
-! .AREPEAT 3
-! ROTCL R2
-! DIV1 R0,R1
-! .AENDR
-! ROTCL R2
- ROTCL R2
-! DIV1 R0,R1
- DIV1 R0,R1
-! .AREPEAT 2
-! ROTCL R2
-! DIV1 R0,R1
-! .AENDR
-! ROTCL R2
- ROTCL R2
-! DIV1 R0,R1
- DIV1 R0,R1
-! .AREPEAT 1
-! ROTCL R2
-! DIV1 R0,R1
-! .AENDR
-! ROTCL R2
- ROTCL R2
-! DIV1 R0,R1
- DIV1 R0,R1
-!
-
-! .END
diff --git a/gas/testsuite/gasp/reperr.asm b/gas/testsuite/gasp/reperr.asm
deleted file mode 100644
index 60882b2..0000000
--- a/gas/testsuite/gasp/reperr.asm
+++ /dev/null
@@ -1,2 +0,0 @@
-
- .REPEAT 10
diff --git a/gas/testsuite/gasp/reperr.err b/gas/testsuite/gasp/reperr.err
deleted file mode 100644
index a1e3318..0000000
--- a/gas/testsuite/gasp/reperr.err
+++ /dev/null
@@ -1 +0,0 @@
-END missing from end of file.
diff --git a/gas/testsuite/gasp/reperr.out b/gas/testsuite/gasp/reperr.out
deleted file mode 100644
index 2c9f8c6..0000000
--- a/gas/testsuite/gasp/reperr.out
+++ /dev/null
@@ -1,5 +0,0 @@
-!
-
-! .REPEAT 10
- .REPEAT 10
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/reperr1.asm b/gas/testsuite/gasp/reperr1.asm
deleted file mode 100644
index 2d987e4..0000000
--- a/gas/testsuite/gasp/reperr1.asm
+++ /dev/null
@@ -1,3 +0,0 @@
-
- .AREPEAT 10
- .END
diff --git a/gas/testsuite/gasp/reperr1.err b/gas/testsuite/gasp/reperr1.err
deleted file mode 100644
index 536545b..0000000
--- a/gas/testsuite/gasp/reperr1.err
+++ /dev/null
@@ -1 +0,0 @@
-End of file whilst inside AREPEAT, started on line 3.
diff --git a/gas/testsuite/gasp/reperr1.out b/gas/testsuite/gasp/reperr1.out
deleted file mode 100644
index dd82880..0000000
--- a/gas/testsuite/gasp/reperr1.out
+++ /dev/null
@@ -1,5 +0,0 @@
-!
-
-! .AREPEAT 10
-! .END
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/reperr2.asm b/gas/testsuite/gasp/reperr2.asm
deleted file mode 100644
index de06a71..0000000
--- a/gas/testsuite/gasp/reperr2.asm
+++ /dev/null
@@ -1,6 +0,0 @@
-
- .AREPEAT 5
- .AENDR
- .AENDR
- .END
-
diff --git a/gas/testsuite/gasp/reperr2.err b/gas/testsuite/gasp/reperr2.err
deleted file mode 100644
index 840ccc5..0000000
--- a/gas/testsuite/gasp/reperr2.err
+++ /dev/null
@@ -1 +0,0 @@
-reperr2.asm:4 AENDR without a AREPEAT.
diff --git a/gas/testsuite/gasp/reperr2.out b/gas/testsuite/gasp/reperr2.out
deleted file mode 100644
index df7a84d..0000000
--- a/gas/testsuite/gasp/reperr2.out
+++ /dev/null
@@ -1,14 +0,0 @@
-!
-
-! .AREPEAT 5
-! .AENDR
-! .AREPEAT 4
-! .AENDR
-! .AREPEAT 3
-! .AENDR
-! .AREPEAT 2
-! .AENDR
-! .AREPEAT 1
-! .AENDR
-! .AENDR
-! .END
diff --git a/gas/testsuite/gasp/reperr3.asm b/gas/testsuite/gasp/reperr3.asm
deleted file mode 100644
index 464bc79..0000000
--- a/gas/testsuite/gasp/reperr3.asm
+++ /dev/null
@@ -1,21 +0,0 @@
- .AREPEAT 4
- .AREPEAT 4
- .AREPEAT 4
- .AREPEAT 4
- stuff
- .AENDR
- which
- .AENDR
- will
- .AENDR
- get
- .AENDR
- repetaed
- .AENDR
-
- .AENDR
- .AENDR
- .AENDR
- .AENDR
- .AENDR
- .END
diff --git a/gas/testsuite/gasp/reperr3.err b/gas/testsuite/gasp/reperr3.err
deleted file mode 100644
index 1be0dce..0000000
--- a/gas/testsuite/gasp/reperr3.err
+++ /dev/null
@@ -1,6 +0,0 @@
-reperr3.asm:14 AENDR without a AREPEAT.
-reperr3.asm:16 AENDR without a AREPEAT.
-reperr3.asm:17 AENDR without a AREPEAT.
-reperr3.asm:18 AENDR without a AREPEAT.
-reperr3.asm:19 AENDR without a AREPEAT.
-reperr3.asm:20 AENDR without a AREPEAT.
diff --git a/gas/testsuite/gasp/reperr3.out b/gas/testsuite/gasp/reperr3.out
deleted file mode 100644
index 9a3513b..0000000
--- a/gas/testsuite/gasp/reperr3.out
+++ /dev/null
@@ -1,2035 +0,0 @@
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! get
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 3
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 2
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 1
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! get
- get
-! .AREPEAT 3
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! get
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 3
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 2
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 1
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! get
- get
-! .AREPEAT 2
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! get
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 3
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 2
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 1
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! get
- get
-! .AREPEAT 1
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! get
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 3
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 2
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! .AREPEAT 1
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! will
-! .AENDR
-! .AREPEAT 4
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 3
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 2
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! .AREPEAT 1
-! .AREPEAT 4
-! stuff
-! .AENDR
-! which
-! .AENDR
-! .AREPEAT 4
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 3
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 2
-! stuff
-! .AENDR
-! stuff
- stuff
-! .AREPEAT 1
-! stuff
-! .AENDR
-! stuff
- stuff
-! which
- which
-! will
- will
-! get
- get
-! repetaed
- repetaed
-! .AENDR
-!
-
-! .AENDR
-! .AENDR
-! .AENDR
-! .AENDR
-! .AENDR
-! .END
diff --git a/gas/testsuite/gasp/sdata.asm b/gas/testsuite/gasp/sdata.asm
deleted file mode 100644
index d6bd23c..0000000
--- a/gas/testsuite/gasp/sdata.asm
+++ /dev/null
@@ -1,24 +0,0 @@
-
-
- .SDATA "HI","STEVE"
- .SDATA "HI" , "STEVE" , <72>,<73>,<83><69><86><69>
-
- .SDATA "H""I" , "STEVE" , <72>,<73>,<83><69><86><69>
-
-
-
- .SDATA "SHOULD NOT FAIL" "HERE"
- .SDATA "SHOULD FAIL" foo "HERE"
-
- .SDATAB 8,"BOINK"
-
- ; examples from book
-
- .SDATAB 2,"AAAAA"
- .SDATAB 2,"""BBB"""
- .SDATAB 2,"AABB"<H'07>
-
-
-a1: .SDATAZ "HI"
-a2: .SDATAC "HI"
-a3: .SDATA "HI"
diff --git a/gas/testsuite/gasp/sdata.err b/gas/testsuite/gasp/sdata.err
deleted file mode 100644
index 7544ccc..0000000
--- a/gas/testsuite/gasp/sdata.err
+++ /dev/null
@@ -1,3 +0,0 @@
-sdata.asm:19 Character code in string must be absolute expression.
-sdata.asm:19 Missing > for character code.
-END missing from end of file.
diff --git a/gas/testsuite/gasp/sdata.out b/gas/testsuite/gasp/sdata.out
deleted file mode 100644
index e689d35..0000000
--- a/gas/testsuite/gasp/sdata.out
+++ /dev/null
@@ -1,59 +0,0 @@
-!
-
-!
-
-! .SDATA "HI","STEVE"
- .byte 72,73,83,84,69,86,69
-! .SDATA "HI" , "STEVE" , <72>,<73>,<83><69><86><69>
- .byte 72,73,83,84,69,86,69,72,73,83,69,86,69
-!
-
-! .SDATA "H""I" , "STEVE" , <72>,<73>,<83><69><86><69>
- .byte 72,34,73,83,84,69,86,69,72,73,83,69,86,69
-!
-
-!
-
-!
-
-! .SDATA "SHOULD NOT FAIL" "HERE"
- .byte 83,72,79,85,76,68,32,78,79,84,32,70,65,73,76,72,69,82,69
-! .SDATA "SHOULD FAIL" foo "HERE"
- .byte 83,72,79,85,76,68,32,70,65,73,76,102,111,111,32,34,72,69,82,69,34,32
-!
-
-! .SDATAB 8,"BOINK"
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
- .byte 66,79,73,78,75
-!
-
-! ; examples from book
- ; examples from book
-!
-
-! .SDATAB 2,"AAAAA"
- .byte 65,65,65,65,65
- .byte 65,65,65,65,65
-! .SDATAB 2,"""BBB"""
- .byte 34,66,66,66,34
- .byte 34,66,66,66,34
-! .SDATAB 2,"AABB"<H'07>
- .byte 65,65,66,66,0
- .byte 65,65,66,66,0
-!
-
-!
-
-!a1: .SDATAZ "HI"
-a1: .byte 72,73,0
-!a2: .SDATAC "HI"
-a2: .byte 2,72,73
-!a3: .SDATA "HI"
-a3: .byte 72,73
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/sfunc.asm b/gas/testsuite/gasp/sfunc.asm
deleted file mode 100644
index b59949a..0000000
--- a/gas/testsuite/gasp/sfunc.asm
+++ /dev/null
@@ -1,26 +0,0 @@
-
- .MACRO RESERVE_STR P1=0 P2
- .SDATA .SUBSTR("ABCDEFG",\P1,\P2)
- .ENDM
-
- RESERVE_STR 2,2
- RESERVE_STR ,3
-
-
- .MACRO FIND_STR P1
- .DATA.W .INSTR("ABCDEFG","\P1", 0)
- .ENDM
-
- FIND_STR CDE
- FIND_STR H
-
- .MACRO RESERVE_LENGTH P1
- .ALIGN 4
- .SRES .LEN("\P1")
- .ENDM
-
- RESERVE_LENGTH ABCDEF
- RESERVE_LENGTH ABC
-
- .END
-
diff --git a/gas/testsuite/gasp/sfunc.err b/gas/testsuite/gasp/sfunc.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/sfunc.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/sfunc.out b/gas/testsuite/gasp/sfunc.out
deleted file mode 100644
index 50f694f..0000000
--- a/gas/testsuite/gasp/sfunc.out
+++ /dev/null
@@ -1,49 +0,0 @@
-!
-
-! .MACRO RESERVE_STR P1=0 P2
-! .SDATA .SUBSTR("ABCDEFG",\P1,\P2)
-! .ENDM
-!
-
-! RESERVE_STR 2,2
-! .SDATA .SUBSTR("ABCDEFG",2,2)
- .byte 67,68
-! RESERVE_STR ,3
-! .SDATA .SUBSTR("ABCDEFG",0,3)
- .byte 65,66,67
-!
-
-!
-
-! .MACRO FIND_STR P1
-! .DATA.W .INSTR("ABCDEFG","\P1", 0)
-! .ENDM
-!
-
-! FIND_STR CDE
-! .DATA.W .INSTR("ABCDEFG","CDE", 0)
- .short 2
-! FIND_STR H
-! .DATA.W .INSTR("ABCDEFG","H", 0)
- .short -1
-!
-
-! .MACRO RESERVE_LENGTH P1
-! .ALIGN 4
-! .SRES .LEN("\P1")
-! .ENDM
-!
-
-! RESERVE_LENGTH ABCDEF
-! .ALIGN 4
- .align 4
-! .SRES .LEN("ABCDEF")
- .space 24
-! RESERVE_LENGTH ABC
-! .ALIGN 4
- .align 4
-! .SRES .LEN("ABC")
- .space 12
-!
-
-! .END
diff --git a/gas/testsuite/gasp/t1.asm b/gas/testsuite/gasp/t1.asm
deleted file mode 100644
index df54c6c..0000000
--- a/gas/testsuite/gasp/t1.asm
+++ /dev/null
@@ -1,3 +0,0 @@
-
- test for eof in middle of line
- .END
diff --git a/gas/testsuite/gasp/t1.err b/gas/testsuite/gasp/t1.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/t1.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/t1.out b/gas/testsuite/gasp/t1.out
deleted file mode 100644
index 39230e1..0000000
--- a/gas/testsuite/gasp/t1.out
+++ /dev/null
@@ -1,5 +0,0 @@
-!
-
-! test for eof in middle of line
- test for eof in middle of line
-! .END
diff --git a/gas/testsuite/gasp/t2.asm b/gas/testsuite/gasp/t2.asm
deleted file mode 100644
index 38a351a..0000000
--- a/gas/testsuite/gasp/t2.asm
+++ /dev/null
@@ -1,8 +0,0 @@
-
-
- test
-+ continued
-+ lines
-
-
- .END
diff --git a/gas/testsuite/gasp/t2.err b/gas/testsuite/gasp/t2.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/t2.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/t2.out b/gas/testsuite/gasp/t2.out
deleted file mode 100644
index 0c44e8b..0000000
--- a/gas/testsuite/gasp/t2.out
+++ /dev/null
@@ -1,13 +0,0 @@
-!
-
-!
-
-! test
-!+continued
-!+lines
- testcontinuedlines
-!
-
-!
-
-! .END
diff --git a/gas/testsuite/gasp/t3.asm b/gas/testsuite/gasp/t3.asm
deleted file mode 100644
index 27702db..0000000
--- a/gas/testsuite/gasp/t3.asm
+++ /dev/null
@@ -1,12 +0,0 @@
-
- test base convertions
-
- B'1001000
- Q'210
- D'136
- H'88
-
- FOOB'1001000BAR
- FOOQ'210BAR
- FOOD'136BAR
- FOOH'88BAR
diff --git a/gas/testsuite/gasp/t3.err b/gas/testsuite/gasp/t3.err
deleted file mode 100644
index a1e3318..0000000
--- a/gas/testsuite/gasp/t3.err
+++ /dev/null
@@ -1 +0,0 @@
-END missing from end of file.
diff --git a/gas/testsuite/gasp/t3.out b/gas/testsuite/gasp/t3.out
deleted file mode 100644
index 8ad150b..0000000
--- a/gas/testsuite/gasp/t3.out
+++ /dev/null
@@ -1,25 +0,0 @@
-!
-
-! test base convertions
- test base convertions
-!
-
-! B'1001000
- 72
-! Q'210
- 136
-! D'136
- 136
-! H'88
- 136
-!
-
-! FOOB'1001000BAR
- FOOB'1001000BAR
-! FOOQ'210BAR
- FOOQ'210BAR
-! FOOD'136BAR
- FOOD'136BAR
-! FOOH'88BAR
- FOOH'88BAR
-! \ No newline at end of file
diff --git a/gas/testsuite/gasp/while.asm b/gas/testsuite/gasp/while.asm
deleted file mode 100644
index 09143cc..0000000
--- a/gas/testsuite/gasp/while.asm
+++ /dev/null
@@ -1,18 +0,0 @@
- donkey
-bar .ASSIGNA 0
- .AWHILE \&bar LT 5
- HI BAR IS \&bar
-foo .ASSIGNA 0
- .AWHILE \&foo LT 2
- HI BEFORE
- .AREPEAT 2
- HI MEDIUM \&foo \&bar
- .AENDR
- HI AFTER
-foo .ASSIGNA \&foo + 1
- .AENDW
-bar .ASSIGNA \&bar + 1
- AND ITS NOW \&bar
- .AENDW
- .END
-
diff --git a/gas/testsuite/gasp/while.err b/gas/testsuite/gasp/while.err
deleted file mode 100644
index e69de29..0000000
--- a/gas/testsuite/gasp/while.err
+++ /dev/null
diff --git a/gas/testsuite/gasp/while.out b/gas/testsuite/gasp/while.out
deleted file mode 100644
index 128aeb1..0000000
--- a/gas/testsuite/gasp/while.out
+++ /dev/null
@@ -1,388 +0,0 @@
-! donkey
- donkey
-!bar .ASSIGNA 0
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! HI BAR IS \&bar
- HI BAR IS 0
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 0
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 0
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 0
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 0
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
- AND ITS NOW 1
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! HI BAR IS \&bar
- HI BAR IS 1
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 1
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 1
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 1
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 1
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
- AND ITS NOW 2
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! HI BAR IS \&bar
- HI BAR IS 2
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 2
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 2
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 2
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 2
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
- AND ITS NOW 3
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! HI BAR IS \&bar
- HI BAR IS 3
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 3
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 3
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 3
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 3
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
- AND ITS NOW 4
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! HI BAR IS \&bar
- HI BAR IS 4
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 4
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 0 4
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-! HI BEFORE
- HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 4
-! .AREPEAT 1
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI MEDIUM \&foo \&bar
- HI MEDIUM 1 4
-! HI AFTER
- HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
- AND ITS NOW 5
-! .AWHILE \&bar LT 5
-! HI BAR IS \&bar
-!foo .ASSIGNA 0
-! .AWHILE \&foo LT 2
-! HI BEFORE
-! .AREPEAT 2
-! HI MEDIUM \&foo \&bar
-! .AENDR
-! HI AFTER
-!foo .ASSIGNA \&foo + 1
-! .AENDW
-!bar .ASSIGNA \&bar + 1
-! AND ITS NOW \&bar
-! .AENDW
-! .END