* gas/hppa/more.parse/callinfobug.s: New test.

        * gas/hppa/omre.parse/parse.exp: Run it.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 78066bc..d4d4435 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 Wed Mar 16 11:57:07 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
+       * gas/hppa/more.parse/callinfobug.s: New test.
+       * gas/hppa/omre.parse/parse.exp: Run it.
+
        * gas/hppa/more.parse/regpopbug.s: New test.
        * gas/hppa/more.parse/parse.exp: Run it.
 

diff --git a/gas/testsuite/gas/hppa/more.parse/.Sanitize b/gas/testsuite/gas/hppa/more.parse/.Sanitize
index 1661dcc..8b6bdc1 100644 (file)
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -32,6 +32,7 @@ appbug.s
 block1.s
 block2.s
 calldatabug.s
+callinfobug.s
 defbug.s
 entrybug.s
 exportbug.s

diff --git a/gas/testsuite/gas/hppa/more.parse/callinfobug.s b/gas/testsuite/gas/hppa/more.parse/callinfobug.s
new file mode 100644 (file)
index 0000000..219add1
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/callinfobug.s
@@ -0,0 +1,7 @@
+       .space $TEXT$
+       .subspa $CODE$
+       .align 4
+       .export divu,millicode
+       .proc
+       .callinfo millicode
+       .procend

diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index f572c8f..80dcedb 100755 (executable)
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -212,5 +212,8 @@ if [istarget hppa*-*-*] then {
 
     # Make sure gas handles various kinds of .reg pseudo-ops
     gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
+
+    # Check some bugs that have appeared in parsing .callinfo directives
+    gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"
 }
 

diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index 1661dcc..8b6bdc1 100644 (file)
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -32,6 +32,7 @@ appbug.s
 block1.s
 block2.s
 calldatabug.s
+callinfobug.s
 defbug.s
 entrybug.s
 exportbug.s

diff --git a/gas/testsuite/gas/hppa/parse/callinfobug.s b/gas/testsuite/gas/hppa/parse/callinfobug.s
new file mode 100644 (file)
index 0000000..219add1
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/callinfobug.s
@@ -0,0 +1,7 @@
+       .space $TEXT$
+       .subspa $CODE$
+       .align 4
+       .export divu,millicode
+       .proc
+       .callinfo millicode
+       .procend

diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index f572c8f..80dcedb 100755 (executable)
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -212,5 +212,8 @@ if [istarget hppa*-*-*] then {
 
     # Make sure gas handles various kinds of .reg pseudo-ops
     gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
+
+    # Check some bugs that have appeared in parsing .callinfo directives
+    gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"
 }