* gas/testsuite/gas/sh/pcrel.d: New test.

* gas/testsuite/gas/sh/pcrel.s: Sources for new test.
* gas/testsuite/gas/sh/basic.exp: Run it.

gas/testsuite/ChangeLog

@@ -1,3 +1,9 @@
+2002-02-04  Alexandre Oliva  <aoliva@redhat.com>
+
+	* gas/testsuite/gas/sh/pcrel.d: New test.
+	* gas/testsuite/gas/sh/pcrel.s: Sources for new test.
+	* gas/testsuite/gas/sh/basic.exp: Run it.
+
 2002-02-04  Hans-Peter Nilsson  <hp@bitrange.com>
 
 	* gas/mmix/basep-8.d, gas/mmix/basep-9.s, gas/mmix/basep-9.d,

gas/testsuite/gas/sh/basic.exp

@@ -1,4 +1,4 @@
-# Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+# Copyright (C) 1995, 1996, 1997, 2002 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -90,4 +90,6 @@ if [istarget sh*-*-*] then {
     do_fp
     # Test DSP instructions
     run_dump_test "dsp"
+
+    run_dump_test "pcrel"
 }

gas/testsuite/gas/sh/pcrel.d

@@ -0,0 +1,21 @@
+#as: -big
+#objdump: -d
+#name: PC-relative loads
+
+.*:     file format .*sh.*
+
+Disassembly of section .text:
+
+00000000 <code>:
+   0:	d1 03       	mov\.l	10 <litpool>,r1	! 0xfffffff0
+   2:	d1 03       	mov\.l	10 <litpool>,r1	! 0xfffffff0
+   4:	c7 02       	mova	10 <litpool>,r0
+   6:	61 02       	mov\.l	@r0,r1
+   8:	d1 01       	mov\.l	10 <litpool>,r1	! 0xfffffff0
+   a:	01 03       	bsrf	r1
+   c:	00 09       	nop	
+   e:	00 09       	nop	
+
+00000010 <litpool>:
+  10:	ff ff       	\.word 0xffff
+  12:	ff f0       	\.word 0xfff0

gas/testsuite/gas/sh/pcrel.s

@@ -0,0 +1,14 @@
+	.text
+
+	.p2align 2
+code:
+	mov.l	litpool, r1
+	mov.l	@(14,pc), r1
+	mova	@(litpool-.,pc), r0
+	mov.l	@r0,r1
+	mov.l	@(litpool-.,pc), r1
+	bsrf	r1
+	nop
+	nop
+litpool:
+	.long	code - .