From 47882613c7edc42e2d6d6d07d35a564a3718ca0a Mon Sep 17 00:00:00 2001
From: Jeff Law <law@redhat.com>
Date: Fri, 29 Oct 1993 05:21:18 +0000
Subject: [PATCH] Unsorted PA tests.

---
 gas/testsuite/gas/hppa/unsorted/.Sanitize    | 38 +++++++++++++++++++
 gas/testsuite/gas/hppa/unsorted/labeldiffs.s | 40 ++++++++++++++++++++
 gas/testsuite/gas/hppa/unsorted/locallabel.s | 15 ++++++++
 gas/testsuite/gas/hppa/unsorted/ss_align.s   | 12 ++++++
 4 files changed, 105 insertions(+)
 create mode 100644 gas/testsuite/gas/hppa/unsorted/.Sanitize
 create mode 100755 gas/testsuite/gas/hppa/unsorted/labeldiffs.s
 create mode 100755 gas/testsuite/gas/hppa/unsorted/locallabel.s
 create mode 100755 gas/testsuite/gas/hppa/unsorted/ss_align.s

diff --git a/gas/testsuite/gas/hppa/unsorted/.Sanitize b/gas/testsuite/gas/hppa/unsorted/.Sanitize
new file mode 100644
index 0000000000..b3b5fba99d
--- /dev/null
+++ b/gas/testsuite/gas/hppa/unsorted/.Sanitize
@@ -0,0 +1,38 @@
+# Sanitize.in for devo.
+# $Id$
+#
+
+# Each directory to survive it's way into a release will need a file
+# like this one called "./.Sanitize".  All keyword lines must exist,
+# and must exist in the order specified by this file.  Each directory
+# in the tree will be processed, top down, in the following order.
+
+# Hash started lines like this one are comments and will be deleted
+# before anything else is done.  Blank lines will also be squashed
+# out.
+
+# The lines between the "Do-first:" line and the "Things-to-keep:"
+# line are executed as a /bin/sh shell script before anything else is
+# done in this 
+
+Do-first:
+
+
+# All files listed between the "Things-to-keep:" line and the
+# "Files-to-sed:" line will be kept.  All other files will be removed.
+# Directories listed in this section will have their own Sanitize
+# called.  Directories not listed will be removed in their entirety
+# with rm -rf.
+
+Things-to-keep:
+
+labeldiffs.s
+locallabel.s
+ss_align.s
+unsorted.exp
+
+Things-to-lose:
+
+Do-last:
+
+# End of file.
diff --git a/gas/testsuite/gas/hppa/unsorted/labeldiffs.s b/gas/testsuite/gas/hppa/unsorted/labeldiffs.s
new file mode 100755
index 0000000000..7c773bd8e4
--- /dev/null
+++ b/gas/testsuite/gas/hppa/unsorted/labeldiffs.s
@@ -0,0 +1,40 @@
+; Should check to make sure something useful gets put on those .word
+; statements.
+        .space	$TEXT$
+        .subspa	$CODE$
+
+	.align	8
+	.export	icode,data
+icode:
+	.proc
+	.callinfo	frame=0,no_calls
+	.entry
+	bv,n	0(2)
+	.exit
+	nop
+	.procend
+
+	;
+	; FIRST, argv array of pointers to args, 1st is same as path.
+	;
+	.align	8
+ic_argv:
+	.word	ic_argv1-icode	; second, pointer to 1st argument
+	.word	ic_path-icode		; first,  pointer to init path
+	.word	0			; fourth, NULL argv terminator (pad)
+	.word	0			; third,  NULL argv terminator
+
+ic_path:
+	.blockz	4096			; must be multiple of 4 bytes
+	.word	0			; in case full string is used
+	.word	0			; this will be the string terminator
+
+ic_argv1:
+	.blockz	4096			; must be multiple of 4 bytes
+	.word	0			; in case full string is used
+	.word	0			; this will be the string terminator
+
+	.export	szicode,data
+szicode:
+	.word	szicode-icode
+	.word	0			; must have at least one filler at end
diff --git a/gas/testsuite/gas/hppa/unsorted/locallabel.s b/gas/testsuite/gas/hppa/unsorted/locallabel.s
new file mode 100755
index 0000000000..7d5721edaa
--- /dev/null
+++ b/gas/testsuite/gas/hppa/unsorted/locallabel.s
@@ -0,0 +1,15 @@
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+	.SPACE $TEXT$
+	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+	.SPACE $TEXT$
+	.SUBSPA $CODE$
+
+	.align 4
+
+Label:
+L$01234:
+
diff --git a/gas/testsuite/gas/hppa/unsorted/ss_align.s b/gas/testsuite/gas/hppa/unsorted/ss_align.s
new file mode 100755
index 0000000000..6e98eb2e69
--- /dev/null
+++ b/gas/testsuite/gas/hppa/unsorted/ss_align.s
@@ -0,0 +1,12 @@
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$,QUAD=1,ALIGN=64,ACCESS=31
+	.SPACE $TEXT$
+	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+	.IMPORT $global$,DATA
+	.IMPORT $$dyncall,MILLICODE
+; gcc_compiled.:
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$
+sym1:	.WORD 2
+