* gas/hppa/more.parse/labelbug.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 77e6f5aecd6d6edf3031a18b4e787d4737574ff1..8efd08028b44092bb84575b22fdc9ae9a62942cf 100644 (file)
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -37,6 +37,7 @@ exportbug.s
 exprbug.s
 fixup7bug.s
 global.s
+labelbug.s
 linesepbug.s
 lselbug.s
 nosubspace.s

diff --git a/gas/testsuite/gas/hppa/more.parse/labelbug.s b/gas/testsuite/gas/hppa/more.parse/labelbug.s
new file mode 100644 (file)
index 0000000..783c27d
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/labelbug.s
@@ -0,0 +1,18 @@
+       .SPACE $PRIVATE$
+       .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+       .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+       .SPACE $TEXT$
+       .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+       .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+       .SPACE $TEXT$
+       .SUBSPA $CODE$
+
+       .align 4
+; A comment.  This should not be interpreted as a label, but both of the
+; following statements should.
+label_without_colon
+label_with_colon:
+
+; An instruction or pseudo-op may begin anywhere after column 0.
+ b,n label_without_colon

diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index d7de98bb3c98bde8142d93720c9f699818eba96f..1d60f94d0968cf6ec996d9d75d6554233a5decde 100755 (executable)
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -197,5 +197,8 @@ if [istarget hppa*-*-*] then {
     # Make sure GAS understands a reasonable set of standard predefined
     # registers.  eg %rp, %dp, %sp, etc.
     gas_test "stdreg.s" "" "" "Test standard predefined registers"
+
+    # Make sure GAS will accept a label without a colon.
+    gas_test "labelbug.s" "" "" "Test label without colon"
 }
 

diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index 77e6f5aecd6d6edf3031a18b4e787d4737574ff1..8efd08028b44092bb84575b22fdc9ae9a62942cf 100644 (file)
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -37,6 +37,7 @@ exportbug.s
 exprbug.s
 fixup7bug.s
 global.s
+labelbug.s
 linesepbug.s
 lselbug.s
 nosubspace.s

diff --git a/gas/testsuite/gas/hppa/parse/labelbug.s b/gas/testsuite/gas/hppa/parse/labelbug.s
new file mode 100644 (file)
index 0000000..783c27d
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/labelbug.s
@@ -0,0 +1,18 @@
+       .SPACE $PRIVATE$
+       .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+       .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+       .SPACE $TEXT$
+       .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+       .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+       .SPACE $TEXT$
+       .SUBSPA $CODE$
+
+       .align 4
+; A comment.  This should not be interpreted as a label, but both of the
+; following statements should.
+label_without_colon
+label_with_colon:
+
+; An instruction or pseudo-op may begin anywhere after column 0.
+ b,n label_without_colon

diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index d7de98bb3c98bde8142d93720c9f699818eba96f..1d60f94d0968cf6ec996d9d75d6554233a5decde 100755 (executable)
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -197,5 +197,8 @@ if [istarget hppa*-*-*] then {
     # Make sure GAS understands a reasonable set of standard predefined
     # registers.  eg %rp, %dp, %sp, etc.
     gas_test "stdreg.s" "" "" "Test standard predefined registers"
+
+    # Make sure GAS will accept a label without a colon.
+    gas_test "labelbug.s" "" "" "Test label without colon"
 }