* 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 78066bcc88fc8f90337adf7283ecf98a9b72a13f..d4d4435bfe210a93387fbc500efbda78c302358a 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 1661dcc23d0326a1319102939f71a92cb480e59f..8b6bdc1c85de921a15de7021eb62787f7ce670cd 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 f572c8f8b1242aa427708c83a459c7a1780a1b2e..80dcedb86f4db3732c79774b9246a53cf12b35d5 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 1661dcc23d0326a1319102939f71a92cb480e59f..8b6bdc1c85de921a15de7021eb62787f7ce670cd 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 f572c8f8b1242aa427708c83a459c7a1780a1b2e..80dcedb86f4db3732c79774b9246a53cf12b35d5 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"
 }