From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-24717-listarch-gdb-patches=sources.redhat.com@sources.redhat.com>
Received: (qmail 15095 invoked by alias); 29 May 2003 23:44:46 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 15029 invoked from network); 29 May 2003 23:44:43 -0000
Received: from unknown (HELO are.twiddle.net) (64.81.246.98)
  by sources.redhat.com with SMTP; 29 May 2003 23:44:43 -0000
Received: from are.twiddle.net (localhost.localdomain [127.0.0.1])
	by are.twiddle.net (8.12.8/8.12.8) with ESMTP id h4TNigg6004520
	for <gdb-patches@sources.redhat.com>; Thu, 29 May 2003 16:44:42 -0700
Received: (from rth@localhost)
	by are.twiddle.net (8.12.8/8.12.8/Submit) id h4TNigh3004518
	for gdb-patches@sources.redhat.com; Thu, 29 May 2003 16:44:42 -0700
X-Authentication-Warning: are.twiddle.net: rth set sender to rth@twiddle.net using -f
Date: Thu, 29 May 2003 23:44:00 -0000
From: Richard Henderson <rth@twiddle.net>
To: gdb-patches@sources.redhat.com
Subject: [RFA] gdb.asm/alpha.inc
Message-ID: <20030529234442.GA4294@twiddle.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.4i
X-SW-Source: 2003-05/txt/msg00560.txt.bz2

I assume this is ok, but I'll go ahead and wait for explicit permission.


r~


	* gdb.asm/alpha.inc: New file.
	* gdb.asm/asm-source.exp: Use it.

Index: testsuite/gdb.asm/alpha.inc
===================================================================
RCS file: testsuite/gdb.asm/alpha.inc
diff -N testsuite/gdb.asm/alpha.inc
*** /dev/null	1 Jan 1970 00:00:00 -0000
--- testsuite/gdb.asm/alpha.inc	29 May 2003 23:41:33 -0000
***************
*** 0 ****
--- 1,58 ----
+ 	comment "subroutine declare"
+ 	.macro gdbasm_declare name
+ 	.ent	\name
+ \name:
+ 	.endm
+ 
+ 	comment "subroutine prologue"
+ 	.macro gdbasm_enter
+ 	.frame	$sp, 16, $ra, 0
+ 	.mask	0x04000000, -16
+ 	ldgp	$gp, 0($27)
+ 	subq	$sp, 16, $sp
+ 	stq	$26, 0($sp)
+ 	.prologue 1
+ 	.endm
+ 
+ 	comment "subroutine epilogue"
+ 	.macro gdbasm_leave
+ 	ldq	$26, 0($sp)
+ 	addq	$sp, 16, $sp
+ 	ret
+ 	.endm
+ 
+ 	comment "subroutine end"
+ 	.macro gdbasm_end name
+ 	.end	\name
+ 	.endm
+ 
+ 	.macro gdbasm_call subr
+ 	jsr	$26, \subr
+ 	ldgp	$gp, 0($26)
+ 	.endm
+ 
+ 	.macro gdbasm_several_nops
+ 	nop
+ 	nop
+ 	nop
+ 	nop
+ 	.endm
+ 
+ 	comment "exit (0)"
+ 	.macro gdbasm_exit0
+ 	lda	$16, 0($31)
+ 	lda	$0, 1($31)
+ 	callsys
+ 	.endm
+ 
+ 	comment "crt0 startup"
+ 	.macro gdbasm_startup
+ 	ldgp	$gp, 0($27)
+ 	.endm
+ 
+ 	comment "Declare a data variable"
+ 	.macro gdbasm_datavar name value
+ 	.data
+ \name:
+ 	.long	\value
+ 	.endm
Index: testsuite/gdb.asm/asm-source.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/asm-source.exp,v
retrieving revision 1.33
diff -c -p -d -r1.33 asm-source.exp
*** testsuite/gdb.asm/asm-source.exp	7 May 2003 21:52:53 -0000	1.33
--- testsuite/gdb.asm/asm-source.exp	29 May 2003 23:41:33 -0000
*************** set asm-flags ""
*** 36,41 ****
--- 36,47 ----
  set link-flags ""
  
  switch -glob -- [istarget] {
+     "alpha*-*-*" {
+         set asm-arch alpha
+ 	# ??? Won't work with ecoff systems like Tru64, but then we also
+ 	# don't have any other -g flag that creates mdebug output.
+         set asm-flags "-gdwarf2 -I${srcdir}/${subdir} -I${objdir}/${subdir}"
+     }
      "*arm-*-*" {
          set asm-arch arm
      }