From 9fdb1f509e56d4408647c62e12ae0fc027f94a4b Mon Sep 17 00:00:00 2001
From: Randolph Chung <tausq@debian.org>
Date: Fri, 9 Dec 2005 11:05:26 +0000
Subject: [PATCH] 2005-12-09  Randolph Chung  <tausq@debian.org>

	* gdb.asm/asm-source.exp (hppa64-*-hpux*): New.
	* gdb.asm/pa64.inc: New file.
---
 gdb/testsuite/ChangeLog              |  5 +++
 gdb/testsuite/gdb.asm/asm-source.exp |  5 +++
 gdb/testsuite/gdb.asm/pa64.inc       | 46 ++++++++++++++++++++++++++++
 3 files changed, 56 insertions(+)
 create mode 100644 gdb/testsuite/gdb.asm/pa64.inc

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index cbf9c5b75e3..9b2ecf89376 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-09  Randolph Chung  <tausq@debian.org>
+
+	* gdb.asm/asm-source.exp (hppa64-*-hpux*): New.
+	* gdb.asm/pa64.inc: New file.
+
 2005-12-09  Randolph Chung  <tausq@debian.org>
 
 	* gdb.asm/common.inc: Indent commands.
diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp
index ced0af7d0c2..eceeb5d4dd5 100644
--- a/gdb/testsuite/gdb.asm/asm-source.exp
+++ b/gdb/testsuite/gdb.asm/asm-source.exp
@@ -144,6 +144,11 @@ switch -glob -- [istarget] {
         set asm-flags "-I${srcdir}/${subdir} -I${objdir}/${subdir}"
 	set debug-flags "-gdwarf-2"
     }
+    "hppa64-*-hpux*" {
+        set asm-arch pa64
+        set asm-flags "-I${srcdir}/${subdir} -I${objdir}/${subdir}"
+	set debug-flags "-gdwarf-2"
+    }
     "h83*-*" {
 	set asm-arch h8300
 	set asm-flags "-gdwarf2 -I${srcdir}/${subdir} -I${objdir}/${subdir}"
diff --git a/gdb/testsuite/gdb.asm/pa64.inc b/gdb/testsuite/gdb.asm/pa64.inc
new file mode 100644
index 00000000000..a8aafcd472c
--- /dev/null
+++ b/gdb/testsuite/gdb.asm/pa64.inc
@@ -0,0 +1,46 @@
+	comment "subroutine prologue"
+	.macro gdbasm_enter
+	std %rp, -16(%sp)
+	copy %r3, %r1
+	copy %sp, %r3
+	std,ma %r1, 128(%sp)
+	.endm
+
+	comment "subroutine epilogue"
+	.macro gdbasm_leave
+	ldd -16(%r3), %rp
+	bve (%rp)
+	ldd,mb -128(%sp), %r3
+	.endm
+
+	.macro gdbasm_call subr
+	b,l	\subr , %rp
+	nop
+	.endm
+
+	.macro gdbasm_several_nops
+	nop
+	nop
+	nop
+	nop
+	.endm
+
+	comment "exit (0)"
+	.macro gdbasm_exit0
+	comment "Don't know how to exit, but this will certainly halt..."
+	ldw	0(%r0), %r1
+	.endm
+
+	comment "crt0 startup"
+	.macro gdbasm_startup
+	.align 8
+	.endm
+
+	comment "Declare a data variable"
+	.purgem gdbasm_datavar
+	.macro gdbasm_datavar name value
+	.data
+\name:
+	.long	\value
+	.endm
+
-- 
2.30.2