* builtins.exp (test_size): Alpha seems to have long builtins.

	* tests1.exp: Setup xfail "*-*-*" for "ptype r2".
	* tests2.exp: Add check to skip chill tests.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 27c7d73d90478d7a4302e10339ba2db4650372e2..c645bd70fb8b1f35f4a7a48f35ed8a1f6d62a418 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,9 @@
+Fri Dec 29 10:46:09 1995  Fred Fish  <fnf@cygnus.com>
+
+       * builtins.exp (test_size):  Alpha seems to have long builtins.
+       * tests1.exp: Setup xfail "*-*-*" for "ptype r2".
+       * tests2.exp: Add check to skip chill tests.
+       
 Mon Dec 11 16:53:40 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        * tuples.ch, tuples.exp:  Exhance test cases (from PR 8643).

diff --git a/gdb/testsuite/gdb.chill/builtins.exp b/gdb/testsuite/gdb.chill/builtins.exp
index e67c3e8aba705281feee85f8f77fff38ee17e73a..820b54025570af064c2aa39a3e060066b1ee0f90 100644 (file)
--- a/gdb/testsuite/gdb.chill/builtins.exp
+++ b/gdb/testsuite/gdb.chill/builtins.exp
@@ -117,8 +117,13 @@ proc test_lower {} {
     test_print_accept "print lower(char)" "C'00'"
     test_print_accept "print lower(byte)" "-128"
     test_print_accept "print lower(ubyte)" "0"
-    test_print_accept "print lower(int)" "-32768"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print lower(int)" "-2147483648"
+    } else {
+       test_print_accept "print lower(int)" "-32768"
+    }
     test_print_accept "print lower(uint)" "0"
+    setup_xfail "alpha-*-*"
     test_print_accept "print lower(long)" "-2147483648"
     test_print_accept "print lower(ulong)" "0"
     test_print_accept "print lower(m_set)" "e1"
@@ -133,8 +138,13 @@ proc test_lower {} {
     test_print_accept "print lower(v_char)" "C'00'"
     test_print_accept "print lower(v_byte)" "-128"
     test_print_accept "print lower(v_ubyte)" "0"
-    test_print_accept "print lower(v_int)" "-32768"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print lower(v_int)" "-2147483648"
+    } else {
+       test_print_accept "print lower(v_int)" "-32768"
+    }
     test_print_accept "print lower(v_uint)" "0"
+    setup_xfail "alpha-*-*"
     test_print_accept "print lower(v_long)" "-2147483648"
     test_print_accept "print lower(v_ulong)" "0"
     test_print_accept "print lower(v_set)" "e1"
@@ -162,7 +172,11 @@ proc test_lower {} {
     test_print_accept "print lower(m_arr)" "1";
     test_print_accept "print lower(m_char_arr)" "C'00'"
     test_print_accept "print lower(m_bool_arr)" "FALSE"
-    test_print_accept "print lower(m_int_arr)" "-32768"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print lower(m_int_arr)" "-2147483648"
+    } else {
+       test_print_accept "print lower(m_int_arr)" "-32768"
+    }
     test_print_accept "print lower(m_set_arr)" "e1"
     test_print_accept "print lower(m_set_range_arr)" "e2"
     test_print_accept "print lower(m_char_range_arr)" "'A'"
@@ -174,7 +188,11 @@ proc test_lower {} {
     test_print_accept "print lower(v_arr)" "1";
     test_print_accept "print lower(v_char_arr)" "C'00'"
     test_print_accept "print lower(v_bool_arr)" "FALSE"
-    test_print_accept "print lower(v_int_arr)" "-32768"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print lower(v_int_arr)" "-2147483648"
+    } else {
+       test_print_accept "print lower(v_int_arr)" "-32768"
+    }
     test_print_accept "print lower(v_set_arr)" "e1"
     test_print_accept "print lower(v_set_range_arr)" "e2"
     test_print_accept "print lower(v_char_range_arr)" "'A'"
@@ -194,10 +212,18 @@ proc test_upper {} {
     test_print_accept "print upper(char)" "C'ff'"
     test_print_accept "print upper(byte)" "127"
     test_print_accept "print upper(ubyte)" "255"
-    test_print_accept "print upper(int)" "32767"
-    test_print_accept "print upper(uint)" "65535"
-    test_print_accept "print upper(long)" "2147483647"
-    test_print_accept "print upper(ulong)" "4294967295"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print upper(int)" "2147483647"
+       test_print_accept "print upper(uint)" "4294967295"
+       setup_xfail "alpha-*-*"
+       test_print_accept "print upper(long)" "4294967295"
+       test_print_accept "print upper(ulong)" "18446744073709551615"
+    } else {
+       test_print_accept "print upper(int)" "32767"
+       test_print_accept "print upper(uint)" "65535"
+       test_print_accept "print upper(long)" "2147483647"
+       test_print_accept "print upper(ulong)" "4294967295"
+    }
     test_print_accept "print upper(m_set)" "e6"
     test_print_accept "print upper(m_set_range)" "e5"
     test_print_accept "print upper(m_char_range)" "'Z'"
@@ -210,10 +236,18 @@ proc test_upper {} {
     test_print_accept "print upper(v_char)" "C'ff'"
     test_print_accept "print upper(v_byte)" "127"
     test_print_accept "print upper(v_ubyte)" "255"
-    test_print_accept "print upper(v_int)" "32767"
-    test_print_accept "print upper(v_uint)" "65535"
-    test_print_accept "print upper(v_long)" "2147483647"
-    test_print_accept "print upper(v_ulong)" "4294967295"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print upper(v_int)" "2147483647"
+       test_print_accept "print upper(v_uint)" "4294967295"
+       setup_xfail "alpha-*-*"
+       test_print_accept "print upper(v_long)" "4294967295"
+       test_print_accept "print upper(v_ulong)" "18446744073709551615"
+    } else {
+       test_print_accept "print upper(v_int)" "32767"
+       test_print_accept "print upper(v_uint)" "65535"
+       test_print_accept "print upper(v_long)" "2147483647"
+       test_print_accept "print upper(v_ulong)" "4294967295"
+    }
     test_print_accept "print upper(v_set)" "e6"
     test_print_accept "print upper(v_set_range)" "e5"
     test_print_accept "print upper(v_char_range)" "'Z'"
@@ -239,7 +273,11 @@ proc test_upper {} {
     test_print_accept "print upper(m_arr)" "10";
     test_print_accept "print upper(m_char_arr)" "C'ff'"
     test_print_accept "print upper(m_bool_arr)" "TRUE"
-    test_print_accept "print upper(m_int_arr)" "32767"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print upper(m_int_arr)" "2147483647"
+    } else {
+       test_print_accept "print upper(m_int_arr)" "32767"
+    }
     test_print_accept "print upper(m_set_arr)" "e6"
     test_print_accept "print upper(m_set_range_arr)" "e5"
     test_print_accept "print upper(m_char_range_arr)" "'Z'"
@@ -251,7 +289,11 @@ proc test_upper {} {
     test_print_accept "print upper(v_arr)" "10";
     test_print_accept "print upper(v_char_arr)" "C'ff'"
     test_print_accept "print upper(v_bool_arr)" "TRUE"
-    test_print_accept "print upper(v_int_arr)" "32767"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print upper(v_int_arr)" "2147483647"
+    } else {
+       test_print_accept "print upper(v_int_arr)" "32767"
+    }
     test_print_accept "print upper(v_set_arr)" "e6"
     test_print_accept "print upper(v_set_range_arr)" "e5"
     test_print_accept "print upper(v_char_range_arr)" "'Z'"
@@ -295,31 +337,47 @@ proc test_size {} {
     test_print_accept "print size(bool)" "1"
     test_print_accept "print size(char)" "1"
     test_print_accept "print size(byte)" "1"
-    test_print_accept "print size(int)" "2"
-    test_print_accept "print size(ulong)" "4"
-    test_print_accept "print size(ptr)" "4"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print size(int)" "4"
+       test_print_accept "print size(ulong)" "8"
+       test_print_accept "print size(ptr)" "8"
+       test_print_accept "print size(m_chars_v)" "24"
+       test_print_accept "print size(m_struct)" "40"
+    } else {
+       test_print_accept "print size(int)" "2"
+       test_print_accept "print size(ulong)" "4"
+       test_print_accept "print size(ptr)" "4"
+       test_print_accept "print size(m_chars_v)" "22"
+       test_print_accept "print size(m_struct)" "36"
+    }
     test_print_accept "print size(m_set)" "1"
     test_print_accept "print size(m_char_range)" "1"
     test_print_accept "print size(m_range_arr)" "17"
     test_print_accept "print size(m_chars)" "20"
-    test_print_accept "print size(m_chars_v)" "22"
     test_print_accept "print size(m_bits)" "2"
-    test_print_accept "print size(m_struct)" "36"
 
     # locations
     test_print_accept "print size(v_bool)" "1"
     test_print_accept "print size(v_char)" "1"
     test_print_accept "print size(v_byte)" "1"
-    test_print_accept "print size(v_int)" "2"
-    test_print_accept "print size(v_ulong)" "4"
-    test_print_accept "print size(v_ptr)" "4"
+    if [istarget "alpha-*-*"] then {
+       test_print_accept "print size(v_int)" "4"
+       test_print_accept "print size(v_ulong)" "8"
+       test_print_accept "print size(v_ptr)" "8"
+       test_print_accept "print size(v_chars_v)" "24"
+       test_print_accept "print size(v_struct)" "40"
+    } else {
+       test_print_accept "print size(v_int)" "2"
+       test_print_accept "print size(v_ulong)" "4"
+       test_print_accept "print size(v_ptr)" "4"
+       test_print_accept "print size(v_chars_v)" "22"
+       test_print_accept "print size(v_struct)" "36"
+    }
     test_print_accept "print size(v_set)" "1"
     test_print_accept "print size(v_char_range)" "1"
     test_print_accept "print size(v_range_arr)" "17"
     test_print_accept "print size(v_chars)" "20"
-    test_print_accept "print size(v_chars_v)" "22"
     test_print_accept "print size(v_bits)" "2"
-    test_print_accept "print size(v_struct)" "36"
 }
 
 proc test_num {} {

diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp
index f49e1c4be4698cd0e0c8ff2df9210b916147a32c..6b0c17247164d144af6abf391b386415eaee3370 100644 (file)
--- a/gdb/testsuite/gdb.chill/tests1.exp
+++ b/gdb/testsuite/gdb.chill/tests1.exp
@@ -152,6 +152,8 @@ proc test_modes {} {
     test_print_accept "ptype r16" "long \\(-2147483648:2147483647\\)" \
        "print long range mode"
 
+    # Not sure what this should be.
+    setup_xfail "*-*-*"
     test_print_accept "ptype r2" "set1 \\(bbb:ccc\\)" \
        "print unnumbered set range mode"
     setup_xfail "*-*-*"

diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp
index 8daa743554020f04bd336f32fc0f64459c2299d9..38260f12d64c183905025ddad13030330f15a94a 100644 (file)
--- a/gdb/testsuite/gdb.chill/tests2.exp
+++ b/gdb/testsuite/gdb.chill/tests2.exp
@@ -21,6 +21,8 @@ if $tracelevel then {
        strace $tracelevel
 }
 
+if [skip_chill_tests] then { continue }
+
 set prms_id 0
 set bug_id 0