gdb/testsuite/gdb.chill/builtins.exp

   1 # OBSOLETE # Copyright 1995, 1996, 1997 Free Software Foundation, Inc.
   2 # OBSOLETE
   3 # OBSOLETE # This program is free software; you can redistribute it and/or modify
   4 # OBSOLETE # it under the terms of the GNU General Public License as published by
   5 # OBSOLETE # the Free Software Foundation; either version 2 of the License, or
   6 # OBSOLETE # (at your option) any later version.
   7 # OBSOLETE #
   8 # OBSOLETE # This program is distributed in the hope that it will be useful,
   9 # OBSOLETE # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # OBSOLETE # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # OBSOLETE # GNU General Public License for more details.
  12 # OBSOLETE #
  13 # OBSOLETE # You should have received a copy of the GNU General Public License
  14 # OBSOLETE # along with this program; if not, write to the Free Software
  15 # OBSOLETE # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  16 # OBSOLETE
  17 # OBSOLETE # Please email any bugs, comments, and/or additions to this file to:
  18 # OBSOLETE # bug-gdb@prep.ai.mit.edu
  19 # OBSOLETE
  20 # OBSOLETE # This file tests various Chill values, expressions, and types.
  21 # OBSOLETE
  22 # OBSOLETE if $tracelevel then {
  23 # OBSOLETE      strace $tracelevel
  24 # OBSOLETE }
  25 # OBSOLETE
  26 # OBSOLETE if [skip_chill_tests] then { continue }
  27 # OBSOLETE
  28 # OBSOLETE set testfile "builtins"
  29 # OBSOLETE set srcfile ${srcdir}/$subdir/${testfile}.ch
  30 # OBSOLETE set binfile ${objdir}/${subdir}/${testfile}.exe
  31 # OBSOLETE if  { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
  32 # OBSOLETE     perror "Couldn't compile ${srcfile}"
  33 # OBSOLETE     return -1
  34 # OBSOLETE }
  35 # OBSOLETE
  36 # OBSOLETE # Set the current language to chill.  This counts as a test.  If it
  37 # OBSOLETE # fails, then we skip the other tests.
  38 # OBSOLETE
  39 # OBSOLETE proc set_lang_chill {} {
  40 # OBSOLETE     global gdb_prompt
  41 # OBSOLETE     global binfile objdir subdir
  42 # OBSOLETE
  43 # OBSOLETE     verbose "loading file '$binfile'"
  44 # OBSOLETE     gdb_load $binfile
  45 # OBSOLETE     send_gdb "set language chill\n"
  46 # OBSOLETE     gdb_expect {
  47 # OBSOLETE      -re ".*$gdb_prompt $" {}
  48 # OBSOLETE      timeout { fail "set language chill (timeout)" ; return 0 }
  49 # OBSOLETE     }
  50 # OBSOLETE
  51 # OBSOLETE     send_gdb "show language\n"
  52 # OBSOLETE     gdb_expect {
  53 # OBSOLETE      -re ".* source language is \"chill\".*$gdb_prompt $" {
  54 # OBSOLETE          pass "set language to \"chill\""
  55 # OBSOLETE          send_gdb "break xx_\n"
  56 # OBSOLETE          gdb_expect {
  57 # OBSOLETE              -re ".*$gdb_prompt $" {
  58 # OBSOLETE                  send_gdb "run\n"
  59 # OBSOLETE                  gdb_expect -re ".*$gdb_prompt $" {}
  60 # OBSOLETE                  return 1
  61 # OBSOLETE              }
  62 # OBSOLETE              timeout {
  63 # OBSOLETE                  fail "can't set breakpoint (timeout)"
  64 # OBSOLETE                  return 0
  65 # OBSOLETE              }
  66 # OBSOLETE          }
  67 # OBSOLETE      }
  68 # OBSOLETE      -re ".*$gdb_prompt $" {
  69 # OBSOLETE          fail "setting language to \"chill\""
  70 # OBSOLETE          return 0
  71 # OBSOLETE      }
  72 # OBSOLETE      timeout {
  73 # OBSOLETE          fail "can't show language (timeout)"
  74 # OBSOLETE          return 0
  75 # OBSOLETE      }
  76 # OBSOLETE     }
  77 # OBSOLETE }
  78 # OBSOLETE
  79 # OBSOLETE # Testing printing of a specific value.  Increment passcount for
  80 # OBSOLETE # success or issue fail message for failure.  In both cases, return
  81 # OBSOLETE # a 1 to indicate that more tests can proceed.  However a timeout
  82 # OBSOLETE # is a serious error, generates a special fail message, and causes
  83 # OBSOLETE # a 0 to be returned to indicate that more tests are likely to fail
  84 # OBSOLETE # as well.
  85 # OBSOLETE #
  86 # OBSOLETE # Args are:
  87 # OBSOLETE #
  88 # OBSOLETE #    First one is string to send_gdb to gdb
  89 # OBSOLETE #    Second one is string to match gdb result to
  90 # OBSOLETE #    Third one is an optional message to be printed
  91 # OBSOLETE
  92 # OBSOLETE proc test_print_accept { args } {
  93 # OBSOLETE     global gdb_prompt
  94 # OBSOLETE     global passcount
  95 # OBSOLETE     global verbose
  96 # OBSOLETE
  97 # OBSOLETE     if [llength $args]==3 then {
  98 # OBSOLETE      set message [lindex $args 2]
  99 # OBSOLETE     } else {
 100 # OBSOLETE      set message [lindex $args 0]
 101 # OBSOLETE     }
 102 # OBSOLETE     set sendthis [lindex $args 0]
 103 # OBSOLETE     set expectthis [lindex $args 1]
 104 # OBSOLETE     set result [gdb_test $sendthis ".* = ${expectthis}" $message]
 105 # OBSOLETE     if $result==0 {incr passcount}
 106 # OBSOLETE     return $result
 107 # OBSOLETE }
 108 # OBSOLETE
 109 # OBSOLETE proc test_lower {} {
 110 # OBSOLETE     global passcount
 111 # OBSOLETE
 112 # OBSOLETE     verbose "testing builtin LOWER"
 113 # OBSOLETE     set passcount 0
 114 # OBSOLETE
 115 # OBSOLETE     # discrete mode names
 116 # OBSOLETE     test_print_accept "print lower(bool)" "FALSE"
 117 # OBSOLETE     test_print_accept "print lower(char)" {'\^[(]0[)]'}
 118 # OBSOLETE     test_print_accept "print lower(byte)" "-128"
 119 # OBSOLETE     test_print_accept "print lower(ubyte)" "0"
 120 # OBSOLETE     if [istarget "alpha-*-*"] then {
 121 # OBSOLETE      test_print_accept "print lower(int)" "-2147483648"
 122 # OBSOLETE     } else {
 123 # OBSOLETE      test_print_accept "print lower(int)" "-32768"
 124 # OBSOLETE     }
 125 # OBSOLETE     test_print_accept "print lower(uint)" "0"
 126 # OBSOLETE     setup_xfail "alpha-*-*"
 127 # OBSOLETE     test_print_accept "print lower(long)" "-2147483648"
 128 # OBSOLETE     test_print_accept "print lower(ulong)" "0"
 129 # OBSOLETE     test_print_accept "print lower(m_set)" "e1"
 130 # OBSOLETE     test_print_accept "print lower(m_set_range)" "e2"
 131 # OBSOLETE     test_print_accept "print lower(m_numbered_set)" "n2"
 132 # OBSOLETE     test_print_accept "print lower(m_char_range)" "'A'"
 133 # OBSOLETE     test_print_accept "print lower(m_bool_range)" "FALSE"
 134 # OBSOLETE     test_print_accept "print lower(m_long_range)" "255"
 135 # OBSOLETE     test_print_accept "print lower(m_range)" "12"
 136 # OBSOLETE
 137 # OBSOLETE     # discrete locations
 138 # OBSOLETE     test_print_accept "print lower(v_bool)" "FALSE"
 139 # OBSOLETE     test_print_accept "print lower(v_char)" {'\^[(]0[)]'}
 140 # OBSOLETE     test_print_accept "print lower(v_byte)" "-128"
 141 # OBSOLETE     test_print_accept "print lower(v_ubyte)" "0"
 142 # OBSOLETE     if [istarget "alpha-*-*"] then {
 143 # OBSOLETE      test_print_accept "print lower(v_int)" "-2147483648"
 144 # OBSOLETE     } else {
 145 # OBSOLETE      test_print_accept "print lower(v_int)" "-32768"
 146 # OBSOLETE     }
 147 # OBSOLETE     test_print_accept "print lower(v_uint)" "0"
 148 # OBSOLETE     setup_xfail "alpha-*-*"
 149 # OBSOLETE     test_print_accept "print lower(v_long)" "-2147483648"
 150 # OBSOLETE     test_print_accept "print lower(v_ulong)" "0"
 151 # OBSOLETE     test_print_accept "print lower(v_set)" "e1"
 152 # OBSOLETE     test_print_accept "print lower(v_set_range)" "e2"
 153 # OBSOLETE     test_print_accept "print lower(v_numbered_set)" "n2"
 154 # OBSOLETE     test_print_accept "print lower(v_char_range)" "'A'"
 155 # OBSOLETE     test_print_accept "print lower(v_bool_range)" "FALSE"
 156 # OBSOLETE     test_print_accept "print lower(v_long_range)" "255"
 157 # OBSOLETE     test_print_accept "print lower(v_range)" "12"
 158 # OBSOLETE
 159 # OBSOLETE     # string mode names
 160 # OBSOLETE     test_print_accept "print lower(m_chars)" "0"
 161 # OBSOLETE     test_print_accept "print lower(m_chars_v)" "0"
 162 # OBSOLETE     test_print_accept "print lower(m_bits)" "0"
 163 # OBSOLETE
 164 # OBSOLETE     # string locations
 165 # OBSOLETE     test_print_accept "print lower(v_chars)" "0"
 166 # OBSOLETE     test_print_accept "print lower(v_chars_v)" "0"
 167 # OBSOLETE     test_print_accept "print lower(v_bits)" "0"
 168 # OBSOLETE
 169 # OBSOLETE     # string expressions
 170 # OBSOLETE     test_print_accept "print lower(\"abcd\")" "0"
 171 # OBSOLETE     test_print_accept "print lower(B'010101')" "0"
 172 # OBSOLETE
 173 # OBSOLETE     # array mode name
 174 # OBSOLETE     test_print_accept "print lower(m_arr)" "1";
 175 # OBSOLETE     test_print_accept "print lower(m_char_arr)" {'\^[(]0[)]'}
 176 # OBSOLETE     test_print_accept "print lower(m_bool_arr)" "FALSE"
 177 # OBSOLETE     if [istarget "alpha-*-*"] then {
 178 # OBSOLETE      test_print_accept "print lower(m_int_arr)" "-2147483648"
 179 # OBSOLETE     } else {
 180 # OBSOLETE      test_print_accept "print lower(m_int_arr)" "-32768"
 181 # OBSOLETE     }
 182 # OBSOLETE     test_print_accept "print lower(m_set_arr)" "e1"
 183 # OBSOLETE     test_print_accept "print lower(m_set_range_arr)" "e2"
 184 # OBSOLETE     test_print_accept "print lower(m_numbered_set_arr)" "n2"
 185 # OBSOLETE     test_print_accept "print lower(m_char_range_arr)" "'A'"
 186 # OBSOLETE     test_print_accept "print lower(m_bool_range_arr)" "FALSE"
 187 # OBSOLETE     test_print_accept "print lower(m_long_range_arr)" "255"
 188 # OBSOLETE     test_print_accept "print lower(m_range_arr)" "12"
 189 # OBSOLETE
 190 # OBSOLETE     # array locations
 191 # OBSOLETE     test_print_accept "print lower(v_arr)" "1";
 192 # OBSOLETE     test_print_accept "print lower(v_char_arr)" {'\^[(]0[)]'}
 193 # OBSOLETE     test_print_accept "print lower(v_bool_arr)" "FALSE"
 194 # OBSOLETE     if [istarget "alpha-*-*"] then {
 195 # OBSOLETE      test_print_accept "print lower(v_int_arr)" "-2147483648"
 196 # OBSOLETE     } else {
 197 # OBSOLETE      test_print_accept "print lower(v_int_arr)" "-32768"
 198 # OBSOLETE     }
 199 # OBSOLETE     test_print_accept "print lower(v_set_arr)" "e1"
 200 # OBSOLETE     test_print_accept "print lower(v_set_range_arr)" "e2"
 201 # OBSOLETE     test_print_accept "print lower(v_numbered_set_arr)" "n2"
 202 # OBSOLETE     test_print_accept "print lower(v_char_range_arr)" "'A'"
 203 # OBSOLETE     test_print_accept "print lower(v_bool_range_arr)" "FALSE"
 204 # OBSOLETE     test_print_accept "print lower(v_long_range_arr)" "255"
 205 # OBSOLETE     test_print_accept "print lower(v_range_arr)" "12"
 206 # OBSOLETE }
 207 # OBSOLETE
 208 # OBSOLETE proc test_upper {} {
 209 # OBSOLETE     global passcount
 210 # OBSOLETE
 211 # OBSOLETE     verbose "testing builtin UPPER"
 212 # OBSOLETE     set passcount 0
 213 # OBSOLETE
 214 # OBSOLETE     # discrete mode names
 215 # OBSOLETE     test_print_accept "print upper(bool)" "TRUE"
 216 # OBSOLETE     test_print_accept "print upper(char)" {'\^[(]255[)]'}
 217 # OBSOLETE     test_print_accept "print upper(byte)" "127"
 218 # OBSOLETE     test_print_accept "print upper(ubyte)" "255"
 219 # OBSOLETE     if [istarget "alpha-*-*"] then {
 220 # OBSOLETE      test_print_accept "print upper(int)" "2147483647"
 221 # OBSOLETE      test_print_accept "print upper(uint)" "4294967295"
 222 # OBSOLETE      setup_xfail "alpha-*-*"
 223 # OBSOLETE      test_print_accept "print upper(long)" "4294967295"
 224 # OBSOLETE      test_print_accept "print upper(ulong)" "18446744073709551615"
 225 # OBSOLETE     } else {
 226 # OBSOLETE      test_print_accept "print upper(int)" "32767"
 227 # OBSOLETE      test_print_accept "print upper(uint)" "65535"
 228 # OBSOLETE      test_print_accept "print upper(long)" "2147483647"
 229 # OBSOLETE      test_print_accept "print upper(ulong)" "4294967295"
 230 # OBSOLETE     }
 231 # OBSOLETE     test_print_accept "print upper(m_set)" "e6"
 232 # OBSOLETE     test_print_accept "print upper(m_set_range)" "e5"
 233 # OBSOLETE     test_print_accept "print upper(m_numbered_set)" "n5"
 234 # OBSOLETE     test_print_accept "print upper(m_char_range)" "'Z'"
 235 # OBSOLETE     test_print_accept "print upper(m_bool_range)" "FALSE"
 236 # OBSOLETE     test_print_accept "print upper(m_long_range)" "3211"
 237 # OBSOLETE     test_print_accept "print upper(m_range)" "28"
 238 # OBSOLETE
 239 # OBSOLETE     # discrete locations
 240 # OBSOLETE     test_print_accept "print upper(v_bool)" "TRUE"
 241 # OBSOLETE     test_print_accept "print upper(v_char)" {'\^[(]255[)]'}
 242 # OBSOLETE     test_print_accept "print upper(v_byte)" "127"
 243 # OBSOLETE     test_print_accept "print upper(v_ubyte)" "255"
 244 # OBSOLETE     if [istarget "alpha-*-*"] then {
 245 # OBSOLETE      test_print_accept "print upper(v_int)" "2147483647"
 246 # OBSOLETE      test_print_accept "print upper(v_uint)" "4294967295"
 247 # OBSOLETE      setup_xfail "alpha-*-*"
 248 # OBSOLETE      test_print_accept "print upper(v_long)" "4294967295"
 249 # OBSOLETE      test_print_accept "print upper(v_ulong)" "18446744073709551615"
 250 # OBSOLETE     } else {
 251 # OBSOLETE      test_print_accept "print upper(v_int)" "32767"
 252 # OBSOLETE      test_print_accept "print upper(v_uint)" "65535"
 253 # OBSOLETE      test_print_accept "print upper(v_long)" "2147483647"
 254 # OBSOLETE      test_print_accept "print upper(v_ulong)" "4294967295"
 255 # OBSOLETE     }
 256 # OBSOLETE     test_print_accept "print upper(v_set)" "e6"
 257 # OBSOLETE     test_print_accept "print upper(v_set_range)" "e5"
 258 # OBSOLETE     test_print_accept "print upper(v_numbered_set)" "n5"
 259 # OBSOLETE     test_print_accept "print upper(v_char_range)" "'Z'"
 260 # OBSOLETE     test_print_accept "print upper(v_bool_range)" "FALSE"
 261 # OBSOLETE     test_print_accept "print upper(v_long_range)" "3211"
 262 # OBSOLETE     test_print_accept "print upper(v_range)" "28"
 263 # OBSOLETE
 264 # OBSOLETE     # string mode names
 265 # OBSOLETE     test_print_accept "print upper(m_chars)" "19"
 266 # OBSOLETE     test_print_accept "print upper(m_chars_v)" "19"
 267 # OBSOLETE     test_print_accept "print upper(m_bits)" "9"
 268 # OBSOLETE
 269 # OBSOLETE     # string locations
 270 # OBSOLETE     test_print_accept "print upper(v_chars)" "19"
 271 # OBSOLETE     test_print_accept "print upper(v_chars_v)" "19"
 272 # OBSOLETE     test_print_accept "print upper(v_bits)" "9"
 273 # OBSOLETE
 274 # OBSOLETE     # string expressions
 275 # OBSOLETE     test_print_accept "print upper(\"abcd\")" "3"
 276 # OBSOLETE     test_print_accept "print upper(B'010101')" "5"
 277 # OBSOLETE
 278 # OBSOLETE     # array mode name
 279 # OBSOLETE     test_print_accept "print upper(m_arr)" "10";
 280 # OBSOLETE     test_print_accept "print upper(m_char_arr)" {'\^[(]255[)]'}
 281 # OBSOLETE     test_print_accept "print upper(m_bool_arr)" "TRUE"
 282 # OBSOLETE     if [istarget "alpha-*-*"] then {
 283 # OBSOLETE      test_print_accept "print upper(m_int_arr)" "2147483647"
 284 # OBSOLETE     } else {
 285 # OBSOLETE      test_print_accept "print upper(m_int_arr)" "32767"
 286 # OBSOLETE     }
 287 # OBSOLETE     test_print_accept "print upper(m_set_arr)" "e6"
 288 # OBSOLETE     test_print_accept "print upper(m_set_range_arr)" "e5"
 289 # OBSOLETE     test_print_accept "print upper(m_numbered_set_arr)" "n5"
 290 # OBSOLETE     test_print_accept "print upper(m_char_range_arr)" "'Z'"
 291 # OBSOLETE     test_print_accept "print upper(m_bool_range_arr)" "FALSE"
 292 # OBSOLETE     test_print_accept "print upper(m_long_range_arr)" "3211"
 293 # OBSOLETE     test_print_accept "print upper(m_range_arr)" "28"
 294 # OBSOLETE
 295 # OBSOLETE     # array locations
 296 # OBSOLETE     test_print_accept "print upper(v_arr)" "10";
 297 # OBSOLETE     test_print_accept "print upper(v_char_arr)" {'\^[(]255[)]'}
 298 # OBSOLETE     test_print_accept "print upper(v_bool_arr)" "TRUE"
 299 # OBSOLETE     if [istarget "alpha-*-*"] then {
 300 # OBSOLETE      test_print_accept "print upper(v_int_arr)" "2147483647"
 301 # OBSOLETE     } else {
 302 # OBSOLETE      test_print_accept "print upper(v_int_arr)" "32767"
 303 # OBSOLETE     }
 304 # OBSOLETE     test_print_accept "print upper(v_set_arr)" "e6"
 305 # OBSOLETE     test_print_accept "print upper(v_set_range_arr)" "e5"
 306 # OBSOLETE     test_print_accept "print upper(v_numbered_set_arr)" "n5"
 307 # OBSOLETE     test_print_accept "print upper(v_char_range_arr)" "'Z'"
 308 # OBSOLETE     test_print_accept "print upper(v_bool_range_arr)" "FALSE"
 309 # OBSOLETE     test_print_accept "print upper(v_long_range_arr)" "3211"
 310 # OBSOLETE     test_print_accept "print upper(v_range_arr)" "28"
 311 # OBSOLETE }
 312 # OBSOLETE
 313 # OBSOLETE proc test_length {} {
 314 # OBSOLETE     global passcount
 315 # OBSOLETE
 316 # OBSOLETE     verbose "testing builtin LENGTH"
 317 # OBSOLETE     set passcount 0
 318 # OBSOLETE
 319 # OBSOLETE     # string locations
 320 # OBSOLETE     test_print_accept "print length(v_chars)" "20"
 321 # OBSOLETE     test_print_accept "print length(v_chars_v)" "7";
 322 # OBSOLETE     test_print_accept "print length(v_bits)" "10";
 323 # OBSOLETE
 324 # OBSOLETE     # string expressions
 325 # OBSOLETE     test_print_accept "print length(\"the quick brown fox ...\")" "23"
 326 # OBSOLETE     test_print_accept "print length(B'010101010101')" "12"
 327 # OBSOLETE     test_print_accept "print length(\"foo \" // \"bar\")" "7"
 328 # OBSOLETE
 329 # OBSOLETE     # check some failures
 330 # OBSOLETE     setup_xfail "*-*-*"
 331 # OBSOLETE     test_print_accept "print length(m_chars)" "typename in invalid context"
 332 # OBSOLETE     setup_xfail "*-*-*"
 333 # OBSOLETE     test_print_accept "print length(v_byte)" "bad argument to LENGTH builtin"
 334 # OBSOLETE     setup_xfail "*-*-*"
 335 # OBSOLETE     test_print_accept "print length(b'000000' // b'111111')" "12"
 336 # OBSOLETE }
 337 # OBSOLETE
 338 # OBSOLETE proc test_size {} {
 339 # OBSOLETE     global passcount
 340 # OBSOLETE
 341 # OBSOLETE     verbose "testing builtin SIZE"
 342 # OBSOLETE     set passcount 0
 343 # OBSOLETE
 344 # OBSOLETE     # modes
 345 # OBSOLETE     test_print_accept "print size(bool)" "1"
 346 # OBSOLETE     test_print_accept "print size(char)" "1"
 347 # OBSOLETE     test_print_accept "print size(byte)" "1"
 348 # OBSOLETE     if [istarget "alpha-*-*"] then {
 349 # OBSOLETE      test_print_accept "print size(int)" "4"
 350 # OBSOLETE      test_print_accept "print size(ulong)" "8"
 351 # OBSOLETE      test_print_accept "print size(ptr)" "8"
 352 # OBSOLETE      test_print_accept "print size(m_chars_v)" "24"
 353 # OBSOLETE      test_print_accept "print size(m_struct)" "40"
 354 # OBSOLETE     } else {
 355 # OBSOLETE      test_print_accept "print size(int)" "2"
 356 # OBSOLETE      test_print_accept "print size(ulong)" "4"
 357 # OBSOLETE      test_print_accept "print size(ptr)" "4"
 358 # OBSOLETE      test_print_accept "print size(m_chars_v)" "22"
 359 # OBSOLETE      test_print_accept "print size(m_struct)" "36"
 360 # OBSOLETE     }
 361 # OBSOLETE     test_print_accept "print size(m_set)" "1"
 362 # OBSOLETE     test_print_accept "print size(m_numbered_set)" "1"
 363 # OBSOLETE     test_print_accept "print size(m_char_range)" "1"
 364 # OBSOLETE     test_print_accept "print size(m_range_arr)" "17"
 365 # OBSOLETE     test_print_accept "print size(m_chars)" "20"
 366 # OBSOLETE     test_print_accept "print size(m_bits)" "2"
 367 # OBSOLETE
 368 # OBSOLETE     # locations
 369 # OBSOLETE     test_print_accept "print size(v_bool)" "1"
 370 # OBSOLETE     test_print_accept "print size(v_char)" "1"
 371 # OBSOLETE     test_print_accept "print size(v_byte)" "1"
 372 # OBSOLETE     if [istarget "alpha-*-*"] then {
 373 # OBSOLETE      test_print_accept "print size(v_int)" "4"
 374 # OBSOLETE      test_print_accept "print size(v_ulong)" "8"
 375 # OBSOLETE      test_print_accept "print size(v_ptr)" "8"
 376 # OBSOLETE      test_print_accept "print size(v_chars_v)" "24"
 377 # OBSOLETE      test_print_accept "print size(v_struct)" "40"
 378 # OBSOLETE     } else {
 379 # OBSOLETE      test_print_accept "print size(v_int)" "2"
 380 # OBSOLETE      test_print_accept "print size(v_ulong)" "4"
 381 # OBSOLETE      test_print_accept "print size(v_ptr)" "4"
 382 # OBSOLETE      test_print_accept "print size(v_chars_v)" "22"
 383 # OBSOLETE      test_print_accept "print size(v_struct)" "36"
 384 # OBSOLETE     }
 385 # OBSOLETE     test_print_accept "print size(v_set)" "1"
 386 # OBSOLETE     test_print_accept "print size(v_numbered_set)" "1"
 387 # OBSOLETE     test_print_accept "print size(v_char_range)" "1"
 388 # OBSOLETE     test_print_accept "print size(v_range_arr)" "17"
 389 # OBSOLETE     test_print_accept "print size(v_chars)" "20"
 390 # OBSOLETE     test_print_accept "print size(v_bits)" "2"
 391 # OBSOLETE }
 392 # OBSOLETE
 393 # OBSOLETE proc test_num {} {
 394 # OBSOLETE     global passcount
 395 # OBSOLETE
 396 # OBSOLETE     verbose "testing builtin NUM"
 397 # OBSOLETE     set passcount 0
 398 # OBSOLETE
 399 # OBSOLETE     # constants
 400 # OBSOLETE     test_print_accept "print num(false)" "0"
 401 # OBSOLETE     test_print_accept "print num(true)" "1"
 402 # OBSOLETE     test_print_accept "print num(10)" "10"
 403 # OBSOLETE     test_print_accept "print num(33-34)" "-1"
 404 # OBSOLETE     test_print_accept "print num('X')" "88"
 405 # OBSOLETE     test_print_accept "print num(e5)" "4"
 406 # OBSOLETE
 407 # OBSOLETE     # locations
 408 # OBSOLETE     test_print_accept "print num(v_bool)" "0"
 409 # OBSOLETE     test_print_accept "print num(v_char)" "88"
 410 # OBSOLETE     test_print_accept "print num(v_byte)" "-30"
 411 # OBSOLETE     test_print_accept "print num(v_ubyte)" "30"
 412 # OBSOLETE     test_print_accept "print num(v_int)" "-333"
 413 # OBSOLETE     test_print_accept "print num(v_uint)" "333"
 414 # OBSOLETE     test_print_accept "print num(v_long)" "-4444"
 415 # OBSOLETE     test_print_accept "print num(v_ulong)" "4444"
 416 # OBSOLETE     test_print_accept "print num(v_set)" "2"
 417 # OBSOLETE     test_print_accept "print num(v_set_range)" "2"
 418 # OBSOLETE     test_print_accept "print num(v_numbered_set)" "35"
 419 # OBSOLETE     test_print_accept "print num(v_char_range)" "71"
 420 # OBSOLETE     test_print_accept "print num(v_long_range)" "1000"
 421 # OBSOLETE     test_print_accept "print num(v_range)" "23"
 422 # OBSOLETE }
 423 # OBSOLETE
 424 # OBSOLETE # Start with a fresh gdb.
 425 # OBSOLETE
 426 # OBSOLETE gdb_exit
 427 # OBSOLETE gdb_start
 428 # OBSOLETE gdb_reinitialize_dir $srcdir/$subdir
 429 # OBSOLETE
 430 # OBSOLETE gdb_test "set print sevenbit-strings" ".*"
 431 # OBSOLETE
 432 # OBSOLETE if [set_lang_chill] then {
 433 # OBSOLETE     # test builtins as described in chapter 6.20.3 Z.200
 434 # OBSOLETE     test_num
 435 # OBSOLETE     test_size
 436 # OBSOLETE     test_lower
 437 # OBSOLETE     test_upper
 438 # OBSOLETE     test_length
 439 # OBSOLETE } else {
 440 # OBSOLETE     warning "$test_name tests suppressed."
 441 # OBSOLETE }