home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / gdb.t05 / expr.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  78.9 KB  |  2,159 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-gdb@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. if $tracelevel then {
  23.     strace $tracelevel
  24.     }
  25.  
  26. #
  27. # test running programs
  28. #
  29. set prms_id 0
  30. set bug_id 0
  31.  
  32. set binfile "gdbme"
  33.  
  34. if ![file exists $objdir/$subdir/$binfile] then {
  35.     error "$objdir/$subdir/$binfile does not exist."
  36.     alldone
  37. }
  38.  
  39. gdb_reinitialize_dir $srcdir/$subdir
  40. gdb_load $objdir/$subdir/$binfile
  41.  
  42. #
  43. # set it up at a breakpoint so we can play with the variable values
  44. #
  45.  
  46. if ![runto main] then {
  47.     error "couldn't run to breakpoint"
  48.     continue
  49. }
  50.  
  51. #
  52. # test expressions with "char" types
  53. #
  54. send "set variable v_char=127\n"
  55. expect {
  56.     -re "set.*$prompt $" {
  57.     send "print v_char == 0\n"
  58.     expect {
  59.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  60.         send "print v_char == 127\n"
  61.         expect {
  62.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print char ==" }
  63.             -re "$prompt $"                      { fail "print char ==" }
  64.             timeout                              { fail "(timeout) print char ==" }
  65.         }
  66.         }
  67.         -re "$prompt $"                      { fail "print char ==" }
  68.         timeout                              { fail "(timeout) print char ==" }
  69.     }
  70.     }
  71.     -re "$prompt $"                              { fail "print char ==" }
  72.     timeout                                      { fail "(timeout) print char ==" }
  73. }
  74.  
  75.  
  76. send "set variable v_char=127\n"
  77. expect {
  78.     -re "set.*$prompt $" {
  79.     send "print v_char != 0\n"
  80.     expect {
  81.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  82.         send "print v_char != 127\n"
  83.         expect {
  84.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char !=" }
  85.             -re "$prompt $"                      { fail "print char !=" }
  86.             timeout                              { fail "(timeout) print char !=" }
  87.         }
  88.         }
  89.         -re "$prompt $"                      { fail "print char !=" }
  90.         timeout                              { fail "(timeout) print char !=" }
  91.     }
  92.     }
  93.     -re "$prompt $"                              { fail "print char !=" }
  94.     timeout                                      { fail "(timeout) print char !=" }
  95. }
  96.  
  97.  
  98. send "set variable v_char=127\n"
  99. expect {
  100.     -re "set.*$prompt $" {
  101.     send "print v_char < 0\n"
  102.     expect {
  103.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  104.         send "print v_char < 127\n"
  105.         expect {
  106.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char <" }
  107.             -re "$prompt $"                      { fail "print char <" }
  108.             timeout                              { fail "(timeout) print char <" }
  109.         }
  110.         }
  111.         -re "$prompt $"                      { fail "print char <" }
  112.         timeout                              { fail "(timeout) print char <" }
  113.     }
  114.     }
  115.     -re "$prompt $"                              { fail "print char <" }
  116.     timeout                                      { fail "(timeout) print char <" }
  117. }
  118.  
  119.  
  120. send "set variable v_char=127\n"
  121. expect {
  122.     -re "set.*$prompt $" {
  123.     send "print v_char > 0\n"
  124.     expect {
  125.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  126.         send "print v_char > 127\n"
  127.         expect {
  128.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char >" }
  129.             -re "$prompt $"                      { fail "print char >" }
  130.             timeout                              { fail "(timeout) print char >" }
  131.         }
  132.         }
  133.         -re "$prompt $"                      { fail "print char >" }
  134.         timeout                              { fail "(timeout) print char >" }
  135.     }
  136.     }
  137.     -re "$prompt $"                              { fail "print char >" }
  138.     timeout                                      { fail "(timeout) print char >" }
  139. }
  140.  
  141.  
  142. #
  143. # test expressions with "signed char" types
  144. #
  145. send "set variable v_signed_char=127\n"
  146. expect {
  147.     -re "set.*$prompt $" {
  148.     send "print v_signed_char == 0\n"
  149.     expect {
  150.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  151.         send "print v_signed_char == 127\n"
  152.         expect {
  153.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char ==" }
  154.             -re "$prompt $"                      { fail "print signed char ==" }
  155.             timeout                              { fail "(timeout) print signed char ==" }
  156.         }
  157.         }
  158.         -re "$prompt $"                      { fail "print signed char ==" }
  159.         timeout                              { fail "(timeout) print signed char ==" }
  160.     }
  161.     }
  162.     -re "$prompt $"                              { fail "print signed char ==" }
  163.     timeout                                      { fail "(timeout) print signed char ==" }
  164. }
  165.  
  166.  
  167. send "set variable v_signed_char=127\n"
  168. expect {
  169.     -re "set.*$prompt $" {
  170.     send "print v_signed_char != 0\n"
  171.     expect {
  172.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  173.         send "print v_signed_char != 127\n"
  174.         expect {
  175.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char !=" }
  176.             -re "$prompt $"                      { fail "print signed char !=" }
  177.             timeout                              { fail "(timeout) print signed char !=" }
  178.         }
  179.         }
  180.         -re "$prompt $"                      { fail "print signed char !=" }
  181.         timeout                              { fail "(timeout) print signed char !=" }
  182.     }
  183.     }
  184.     -re "$prompt $"                              { fail "print signed char !=" }
  185.     timeout                                      { fail "(timeout) print signed char !=" }
  186. }
  187.  
  188.  
  189. send "set variable v_signed_char=127\n"
  190. expect {
  191.     -re "set.*$prompt $" {
  192.     send "print v_signed_char < 0\n"
  193.     expect {
  194.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  195.         send "print v_signed_char < 127\n"
  196.         expect {
  197.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char <" }
  198.             -re "$prompt $"                      { fail "print signed char <" }
  199.             timeout                              { fail "(timeout) print signed char <" }
  200.         }
  201.         }
  202.         -re "$prompt $"                      { fail "print signed char <" }
  203.         timeout                              { fail "(timeout) print signed char <" }
  204.     }
  205.     }
  206.     -re "$prompt $"                              { fail "print signed char <" }
  207.     timeout                                      { fail "(timeout) print signed char <" }
  208. }
  209.  
  210.  
  211. send "set variable v_signed_char=127\n"
  212. expect {
  213.     -re "set.*$prompt $" {
  214.     send "print v_signed_char > 0\n"
  215.     expect {
  216.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  217.         send "print v_signed_char > 127\n"
  218.         expect {
  219.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char >" }
  220.             -re "$prompt $"                      { fail "print signed char >" }
  221.             timeout                              { fail "(timeout) print signed char >" }
  222.         }
  223.         }
  224.         -re "$prompt $"                      { fail "print signed char >" }
  225.         timeout                              { fail "(timeout) print signed char >" }
  226.     }
  227.     }
  228.     -re "$prompt $"                              { fail "print signed char >" }
  229.     timeout                                      { fail "(timeout) print signed char >" }
  230. }
  231.  
  232.  
  233. # make char a minus
  234. send "set variable v_signed_char=-1\n"
  235. expect {
  236.     -re "set.*$prompt $" {
  237.     send "print v_signed_char == 0\n"
  238.     expect {
  239.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  240.         send "print v_signed_char == -1\n"
  241.         expect {
  242.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char == (minus)" }
  243.             -re "$prompt $"                      { fail "print signed char == (minus)" }
  244.             timeout                              { fail "(timeout) print signed char == (minus)" }
  245.         }
  246.         }
  247.         -re "$prompt $"                      { fail "print signed char == (minus)" }
  248.         timeout                              { fail "(timeout) print signed char == (minus)" }
  249.     }
  250.     }
  251.     -re "$prompt $"                              { fail "print signed char == (minus)" }
  252.     timeout                                      { fail "(timeout) print signed char == (minus)" }
  253. }
  254.  
  255.  
  256. send "set variable v_signed_char=-1\n"
  257. expect {
  258.     -re "set.*$prompt $" {
  259.     send "print v_signed_char != 0\n"
  260.     expect {
  261.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  262.         send "print v_signed_char != -1\n"
  263.         expect {
  264.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char != (minus)" }
  265.             -re "$prompt $"                      { fail "print signed char != (minus)" }
  266.             timeout                              { fail "(timeout) print signed char != (minus)" }
  267.         }
  268.         }
  269.         -re "$prompt $"                      { fail "print signed char != (minus)" }
  270.         timeout                              { fail "(timeout) print signed char != (minus)" }
  271.     }
  272.     }
  273.     -re "$prompt $"                              { fail "print signed char != (minus)" }
  274.     timeout                                      { fail "(timeout) print signed char != (minus)" }
  275. }
  276.  
  277.  
  278. send "set variable v_signed_char=-1\n"
  279. expect {
  280.     -re "set.*$prompt $" {
  281.     send "print v_signed_char < 0\n"
  282.     expect {
  283.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  284.         send "print v_signed_char < 127\n"
  285.         expect {
  286.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char < (minus)" }
  287.             -re "$prompt $"                      { fail "print signed char < (minus)" }
  288.             timeout                              { fail "(timeout) print signed char < (minus)" }
  289.         }
  290.         }
  291.         -re "$prompt $"                      { fail "print signed char < (minus)" }
  292.         timeout                              { fail "(timeout) print signed char < (minus)" }
  293.     }
  294.     }
  295.     -re "$prompt $"                              { fail "print signed char < (minus)" }
  296.     timeout                                      { fail "(timeout) print signed char < (minus)" }
  297. }
  298.  
  299.  
  300. send "set variable v_signed_char=-1\n"
  301. expect {
  302.     -re "set.*$prompt $" {
  303.     send "print v_signed_char > 0\n"
  304.     expect {
  305.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  306.         send "print v_signed_char > 127\n"
  307.         expect {
  308.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char > (minus)" }
  309.             -re "$prompt $"                      { fail "print signed char > (minus)" }
  310.             timeout                              { fail "(timeout) print signed char > (minus)" }
  311.         }
  312.         }
  313.         -re "$prompt $"                      { fail "print signed char > (minus)" }
  314.         timeout                              { fail "(timeout) print signed char > (minus)" }
  315.     }
  316.     }
  317.     -re "$prompt $"                              { fail "print signed char > (minus)" }
  318.     timeout                                      { fail "(timeout) print signed char > (minus)" }
  319. }
  320.  
  321.  
  322. #
  323. # test expressions with "unsigned char" types
  324. #
  325. send "set variable v_unsigned_char=127\n"
  326. expect {
  327.     -re "set.*$prompt $" {
  328.     send "print v_unsigned_char == 0\n"
  329.     expect {
  330.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  331.         send "print v_unsigned_char == 127\n"
  332.         expect {
  333.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char ==" }
  334.             -re "$prompt $"                      { fail "print unsigned char ==" }
  335.             timeout                              { fail "(timeout) print unsigned char ==" }
  336.         }
  337.         }
  338.         -re "$prompt $"                      { fail "print unsigned char ==" }
  339.         timeout                              { fail "(timeout) print unsigned char ==" }
  340.     }
  341.     }
  342.     -re "$prompt $"                              { fail "print unsigned char ==" }
  343.     timeout                                      { fail "(timeout) print unsigned char ==" }
  344. }
  345.  
  346.  
  347. send "set variable v_unsigned_char=127\n"
  348. expect {
  349.     -re "set.*$prompt $" {
  350.     send "print v_unsigned_char != 0\n"
  351.     expect {
  352.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  353.         send "print v_unsigned_char != 127\n"
  354.         expect {
  355.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char !=" }
  356.             -re "$prompt $"                      { fail "print unsigned char !=" }
  357.             timeout                              { fail "(timeout) print unsigned char !=" }
  358.         }
  359.         }
  360.         -re "$prompt $"                      { fail "print unsigned char !=" }
  361.         timeout                              { fail "(timeout) print unsigned char !=" }
  362.     }
  363.     }
  364.     -re "$prompt $"                              { fail "print unsigned char !=" }
  365.     timeout                                      { fail "(timeout) print unsigned char !=" }
  366. }
  367.  
  368.  
  369. send "set variable v_unsigned_char=127\n"
  370. expect {
  371.     -re "set.*$prompt $" {
  372.     send "print v_unsigned_char < 0\n"
  373.     expect {
  374.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  375.         send "print v_unsigned_char < 127\n"
  376.         expect {
  377.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char <" }
  378.             -re "$prompt $"                      { fail "print unsigned char <" }
  379.             timeout                              { fail "(timeout) print unsigned char <" }
  380.         }
  381.         }
  382.         -re "$prompt $"                      { fail "print unsigned char <" }
  383.         timeout                              { fail "(timeout) print unsigned char <" }
  384.     }
  385.     }
  386.     -re "$prompt $"                              { fail "print unsigned char <" }
  387.     timeout                                      { fail "(timeout) print unsigned char <" }
  388. }
  389.  
  390.  
  391. send "set variable v_unsigned_char=127\n"
  392. expect {
  393.     -re "set.*$prompt $" {
  394.     send "print v_unsigned_char > 0\n"
  395.     expect {
  396.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  397.         send "print v_unsigned_char > 127\n"
  398.         expect {
  399.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char >" }
  400.             -re "$prompt $"                      { fail "print unsigned char >" }
  401.             timeout                              { fail "(timeout) print unsigned char >" }
  402.         }
  403.         }
  404.         -re "$prompt $"                      { fail "print unsigned char >" }
  405.         timeout                              { fail "(timeout) print unsigned char >" }
  406.     }
  407.     }
  408.     -re "$prompt $"                              { fail "print unsigned char >" }
  409.     timeout                                      { fail "(timeout) print unsigned char >" }
  410. }
  411.  
  412.  
  413. # make char a minus
  414. # FIXME:  gdb mishandles the cast (unsigned char) on the i960, so I've
  415. # set up an expected failure for this case.
  416. send "set variable v_unsigned_char=~0\n"
  417. expect {
  418.     -re "set.*$prompt $" {
  419.     send "print v_unsigned_char == 0\n"
  420.     expect {
  421.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  422.         send "print v_unsigned_char == ~0\n"
  423.         expect {
  424.             -re "print.*.\[0-9\]* = 0.*$prompt $" {
  425.             setup_xfail "i960-*-*" 1821
  426.             send "print v_unsigned_char == (unsigned char)~0\n"
  427.             expect {
  428.                 -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char == (~0)" }
  429.                 -re "$prompt $"                      { fail "print unsigned char == (~0)" }
  430.                 timeout                              { fail "(timeout) print unsigned char == (~0)" }
  431.             }
  432.             }
  433.             -re "$prompt $"                      { fail "print unsigned char == (~0)" }
  434.             timeout                              { fail "(timeout) print unsigned char == (~0)" }
  435.         }
  436.         }
  437.         -re "$prompt $"                      { fail "print unsigned char == (~0)" }
  438.         timeout                              { fail "(timeout) print unsigned char == (~0)" }
  439.     }
  440.     }
  441.     -re "$prompt $"                              { fail "print unsigned char == (~0)" }
  442.     timeout                                      { fail "(timeout) print unsigned char == (~0)" }
  443. }
  444.  
  445.  
  446. # FIXME:  gdb mishandles the cast (unsigned char) on the i960, so I've
  447. # set up an expected failure for this case.
  448. send "set variable v_unsigned_char=~0\n"
  449. expect {
  450.     -re "set.*$prompt $" {
  451.     send "print v_unsigned_char != 0\n"
  452.     expect {
  453.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  454.         setup_xfail "i960-*-*" 1821
  455.         send "print v_unsigned_char != (unsigned char)~0\n"
  456.         expect {
  457.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char != (~0)" }
  458.             -re "$prompt $"                      { fail "print unsigned char != (~0)" }
  459.             timeout                              { fail "(timeout) print unsigned char != (~0)" }
  460.         }
  461.         }
  462.         -re "$prompt $"                      { fail "print unsigned char != (~0)" }
  463.         timeout                              { fail "(timeout) print unsigned char != (~0)" }
  464.     }
  465.     }
  466.     -re "$prompt $"                              { fail "print unsigned char != (~0)" }
  467.     timeout                                      { fail "(timeout) print unsigned char != (~0)" }
  468. }
  469.  
  470.  
  471. send "set variable v_unsigned_char=~0\n"
  472. expect {
  473.     -re "set.*$prompt $" {
  474.     send "print v_unsigned_char < 0\n"
  475.     expect {
  476.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  477.         send "print v_unsigned_char < 127\n"
  478.         expect {
  479.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char < (~0)" }
  480.             -re "$prompt $"                      { fail "print unsigned char < (~0)" }
  481.             timeout                              { fail "(timeout) print unsigned char < (~0)" }
  482.         }
  483.         }
  484.         -re "$prompt $"                      { fail "print unsigned char < (~0)" }
  485.         timeout                              { fail "(timeout) print unsigned char < (~0)" }
  486.     }
  487.     }
  488.     -re "$prompt $"                              { fail "print unsigned char < (~0)" }
  489.     timeout                                      { fail "(timeout) print unsigned char < (~0)" }
  490. }
  491.  
  492.  
  493. send "set variable v_unsigned_char=~0\n"
  494. expect {
  495.     -re "set.*$prompt $" {
  496.     send "print v_unsigned_char > 0\n"
  497.     expect {
  498.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  499.         send "print v_unsigned_char > 127\n"
  500.         expect {
  501.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char > (~0)" }
  502.             -re "$prompt $"                      { fail "print unsigned char > (~0)" }
  503.             timeout                              { fail "(timeout) print unsigned char > (~0)" }
  504.         }
  505.         }
  506.         -re "$prompt $"                      { fail "print unsigned char > (~0)" }
  507.         timeout                              { fail "(timeout) print unsigned char > (~0)" }
  508.     }
  509.     }
  510.     -re "$prompt $"                              { fail "print unsigned char > (~0)" }
  511.     timeout                                      { fail "(timeout) print unsigned char > (~0)" }
  512. }
  513.  
  514.  
  515. #
  516. # test expressions with "short" types
  517. #
  518. send "set variable v_short=0x7FFF\n"
  519. expect {
  520.     -re "set.*$prompt $" {
  521.     send "print v_short == 0\n"
  522.     expect {
  523.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  524.         send "print v_short == 0x7FFF\n"
  525.         expect {
  526.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short ==" }
  527.             -re "$prompt $"                      { fail "print signed short ==" }
  528.             timeout                              { fail "(timeout) print signed short ==" }
  529.         }
  530.         }
  531.         -re "$prompt $"                      { fail "print signed short ==" }
  532.         timeout                              { fail "(timeout) print signed short ==" }
  533.     }
  534.     }
  535.     -re "$prompt $"                              { fail "print signed short ==" }
  536.     timeout                                      { fail "(timeout) print signed short ==" }
  537. }
  538.  
  539.  
  540. send "set variable v_short=0x7FFF\n"
  541. expect {
  542.     -re "set.*$prompt $" {
  543.     send "print v_short != 0\n"
  544.     expect {
  545.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  546.         send "print v_short != 0x7FFF\n"
  547.         expect {
  548.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short !=" }
  549.             -re "$prompt $"                      { fail "print signed short !=" }
  550.             timeout                              { fail "(timeout) print signed short !=" }
  551.         }
  552.         }
  553.         -re "$prompt $"                      { fail "print signed short !=" }
  554.         timeout                              { fail "(timeout) print signed short !=" }
  555.     }
  556.     }
  557.     -re "$prompt $"                              { fail "print signed short !=" }
  558.     timeout                                      { fail "(timeout) print signed short !=" }
  559. }
  560.  
  561.  
  562. send "set variable v_short=0x7FFF\n"
  563. expect {
  564.     -re "set.*$prompt $" {
  565.     send "print v_short < 0\n"
  566.     expect {
  567.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  568.         send "print v_short < 0x7FFF\n"
  569.         expect {
  570.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short <" }
  571.             -re "$prompt $"                      { fail "print signed short <" }
  572.             timeout                              { fail "(timeout) print signed short <" }
  573.         }
  574.         }
  575.         -re "$prompt $"                      { fail "print signed short <" }
  576.         timeout                              { fail "(timeout) print signed short <" }
  577.     }
  578.     }
  579.     -re "$prompt $"                              { fail "print signed short <" }
  580.     timeout                                      { fail "(timeout) print signed short <" }
  581. }
  582.  
  583.  
  584. send "set variable v_short=0x7FFF\n"
  585. expect {
  586.     -re "set.*$prompt $" {
  587.     send "print v_short > 0\n"
  588.     expect {
  589.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  590.         send "print v_short > 0x7FFF\n"
  591.         expect {
  592.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short >" }
  593.             -re "$prompt $"                      { fail "print signed short >" }
  594.             timeout                              { fail "(timeout) print signed short >" }
  595.         }
  596.         }
  597.         -re "$prompt $"                      { fail "print signed short >" }
  598.         timeout                              { fail "(timeout) print signed short >" }
  599.     }
  600.     }
  601.     -re "$prompt $"                              { fail "print signed short >" }
  602.     timeout                                      { fail "(timeout) print signed short >" }
  603. }
  604.  
  605.  
  606. # make short a minus
  607. send "set variable v_short=-1\n"
  608. expect {
  609.     -re "set.*$prompt $" {
  610.     send "print v_short == 0\n"
  611.     expect {
  612.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  613.         send "print v_short == -1\n"
  614.         expect {
  615.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short == (minus)" }
  616.             -re "$prompt $"                      { fail "print signed short == (minus)" }
  617.             timeout                              { fail "(timeout) print signed short == (minus)" }
  618.         }
  619.         }
  620.         -re "$prompt $"                      { fail "print signed short == (minus)" }
  621.         timeout                              { fail "(timeout) print signed short == (minus)" }
  622.     }
  623.     }
  624.     -re "$prompt $"                              { fail "print signed short == (minus)" }
  625.     timeout                                      { fail "(timeout) print signed short == (minus)" }
  626. }
  627.  
  628.  
  629. send "set variable v_short=-1\n"
  630. expect {
  631.     -re "set.*$prompt $" {
  632.     send "print v_short != 0\n"
  633.     expect {
  634.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  635.         send "print v_short != -1\n"
  636.         expect {
  637.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short != (minus)" }
  638.             -re "$prompt $"                      { fail "print signed short != (minus)" }
  639.             timeout                              { fail "(timeout) print signed short != (minus)" }
  640.         }
  641.         }
  642.         -re "$prompt $"                      { fail "print signed short != (minus)" }
  643.         timeout                              { fail "(timeout) print signed short != (minus)" }
  644.     }
  645.     }
  646.     -re "$prompt $"                              { fail "print signed short != (minus)" }
  647.     timeout                                      { fail "(timeout) print signed short != (minus)" }
  648. }
  649.  
  650.  
  651. send "set variable v_short=-1\n"
  652. expect {
  653.     -re "set.*$prompt $" {
  654.     send "print v_short < 0\n"
  655.     expect {
  656.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  657.         send "print v_short < 0x7FFF\n"
  658.         expect {
  659.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short < (minus)" }
  660.             -re "$prompt $"                      { fail "print signed short < (minus)" }
  661.             timeout                              { fail "(timeout) print signed short < (minus)" }
  662.         }
  663.         }
  664.         -re "$prompt $"                      { fail "print signed short < (minus)" }
  665.         timeout                              { fail "(timeout) print signed short < (minus)" }
  666.     }
  667.     }
  668.     -re "$prompt $"                              { fail "print signed short < (minus)" }
  669.     timeout                                      { fail "(timeout) print signed short < (minus)" }
  670. }
  671.  
  672.  
  673. send "set variable v_short=-1\n"
  674. expect {
  675.     -re "set.*$prompt $" {
  676.     send "print v_short > 0\n"
  677.     expect {
  678.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  679.         send "print v_short > 0x7FFF\n"
  680.         expect {
  681.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short > (minus)" }
  682.             -re "$prompt $"                      { fail "print signed short > (minus)" }
  683.             timeout                              { fail "(timeout) print signed short > (minus)" }
  684.         }
  685.         }
  686.         -re "$prompt $"                      { fail "print signed short > (minus)" }
  687.         timeout                              { fail "(timeout) print signed short > (minus)" }
  688.     }
  689.     }
  690.     -re "$prompt $"                              { fail "print signed short > (minus)" }
  691.     timeout                                      { fail "(timeout) print signed short > (minus)" }
  692. }
  693.  
  694.  
  695. #
  696. # test expressions with "signed short" types
  697. #
  698. send "set variable v_signed_short=0x7FFF\n"
  699. expect {
  700.     -re "set.*$prompt $" {
  701.     send "print v_signed_short == 0\n"
  702.     expect {
  703.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  704.         send "print v_signed_short == 0x7FFF\n"
  705.         expect {
  706.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short ==" }
  707.             -re "$prompt $"                      { fail "print signed signed short ==" }
  708.             timeout                              { fail "(timeout) print signed signed short ==" }
  709.         }
  710.         }
  711.         -re "$prompt $"                      { fail "print signed signed short ==" }
  712.         timeout                              { fail "(timeout) print signed signed short ==" }
  713.     }
  714.     }
  715.     -re "$prompt $"                              { fail "print signed signed short ==" }
  716.     timeout                                      { fail "(timeout) print signed signed short ==" }
  717. }
  718.  
  719.  
  720. send "set variable v_signed_short=0x7FFF\n"
  721. expect {
  722.     -re "set.*$prompt $" {
  723.     send "print v_signed_short != 0\n"
  724.     expect {
  725.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  726.         send "print v_signed_short != 0x7FFF\n"
  727.         expect {
  728.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short !=" }
  729.             -re "$prompt $"                      { fail "print signed signed short !=" }
  730.             timeout                              { fail "(timeout) print signed signed short !=" }
  731.         }
  732.         }
  733.         -re "$prompt $"                      { fail "print signed signed short !=" }
  734.         timeout                              { fail "(timeout) print signed signed short !=" }
  735.     }
  736.     }
  737.     -re "$prompt $"                              { fail "print signed signed short !=" }
  738.     timeout                                      { fail "(timeout) print signed signed short !=" }
  739. }
  740.  
  741.  
  742. send "set variable v_signed_short=0x7FFF\n"
  743. expect {
  744.     -re "set.*$prompt $" {
  745.     send "print v_signed_short < 0\n"
  746.     expect {
  747.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  748.         send "print v_signed_short < 0x7FFF\n"
  749.         expect {
  750.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short <" }
  751.             -re "$prompt $"                      { fail "print signed signed short <" }
  752.             timeout                              { fail "(timeout) print signed signed short <" }
  753.         }
  754.         }
  755.         -re "$prompt $"                      { fail "print signed signed short <" }
  756.         timeout                              { fail "(timeout) print signed signed short <" }
  757.     }
  758.     }
  759.     -re "$prompt $"                              { fail "print signed signed short <" }
  760.     timeout                                      { fail "(timeout) print signed signed short <" }
  761. }
  762.  
  763.  
  764. send "set variable v_signed_short=0x7FFF\n"
  765. expect {
  766.     -re "set.*$prompt $" {
  767.     send "print v_signed_short > 0\n"
  768.     expect {
  769.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  770.         send "print v_signed_short > 0x7FFF\n"
  771.         expect {
  772.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short >" }
  773.             -re "$prompt $"                      { fail "print signed signed short >" }
  774.             timeout                              { fail "(timeout) print signed signed short >" }
  775.         }
  776.         }
  777.         -re "$prompt $"                      { fail "print signed signed short >" }
  778.         timeout                              { fail "(timeout) print signed signed short >" }
  779.     }
  780.     }
  781.     -re "$prompt $"                              { fail "print signed signed short >" }
  782.     timeout                                      { fail "(timeout) print signed signed short >" }
  783. }
  784.  
  785.  
  786. # make short a minus
  787. send "set variable v_signed_short=-1\n"
  788. expect {
  789.     -re "set.*$prompt $" {
  790.     send "print v_signed_short == 0\n"
  791.     expect {
  792.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  793.         send "print v_signed_short == -1\n"
  794.         expect {
  795.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short == (minus)" }
  796.             -re "$prompt $"                      { fail "print signed signed short == (minus)" }
  797.             timeout                              { fail "(timeout) print signed signed short == (minus)" }
  798.         }
  799.         }
  800.         -re "$prompt $"                      { fail "print signed signed short == (minus)" }
  801.         timeout                              { fail "(timeout) print signed signed short == (minus)" }
  802.     }
  803.     }
  804.     -re "$prompt $"                              { fail "print signed signed short == (minus)" }
  805.     timeout                                      { fail "(timeout) print signed signed short == (minus)" }
  806. }
  807.  
  808.  
  809. send "set variable v_signed_short=-1\n"
  810. expect {
  811.     -re "set.*$prompt $" {
  812.     send "print v_signed_short != 0\n"
  813.     expect {
  814.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  815.         send "print v_signed_short != -1\n"
  816.         expect {
  817.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short != (minus)" }
  818.             -re "$prompt $"                      { fail "print signed signed short != (minus)" }
  819.             timeout                              { fail "(timeout) print signed signed short != (minus)" }
  820.         }
  821.         }
  822.         -re "$prompt $"                      { fail "print signed signed short != (minus)" }
  823.         timeout                              { fail "(timeout) print signed signed short != (minus)" }
  824.     }
  825.     }
  826.     -re "$prompt $"                              { fail "print signed signed short != (minus)" }
  827.     timeout                                      { fail "(timeout) print signed signed short != (minus)" }
  828. }
  829.  
  830.  
  831. send "set variable v_signed_short=-1\n"
  832. expect {
  833.     -re "set.*$prompt $" {
  834.     send "print v_signed_short < 0\n"
  835.     expect {
  836.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  837.         send "print v_signed_short < 0x7FFF\n"
  838.         expect {
  839.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short < (minus)" }
  840.             -re "$prompt $"                      { fail "print signed signed short < (minus)" }
  841.             timeout                              { fail "(timeout) print signed signed short < (minus)" }
  842.         }
  843.         }
  844.         -re "$prompt $"                      { fail "print signed signed short < (minus)" }
  845.         timeout                              { fail "(timeout) print signed signed short < (minus)" }
  846.     }
  847.     }
  848.     -re "$prompt $"                              { fail "print signed signed short < (minus)" }
  849.     timeout                                      { fail "(timeout) print signed signed short < (minus)" }
  850. }
  851.  
  852.  
  853. send "set variable v_signed_short=-1\n"
  854. expect {
  855.     -re "set.*$prompt $" {
  856.     send "print v_signed_short > 0\n"
  857.     expect {
  858.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  859.         send "print v_signed_short > 0x7FFF\n"
  860.         expect {
  861.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short > (minus)" }
  862.             -re "$prompt $"                      { fail "print signed signed short > (minus)" }
  863.             timeout                              { fail "(timeout) print signed signed short > (minus)" }
  864.         }
  865.         }
  866.         -re "$prompt $"                      { fail "print signed signed short > (minus)" }
  867.         timeout                              { fail "(timeout) print signed signed short > (minus)" }
  868.     }
  869.     }
  870.     -re "$prompt $"                              { fail "print signed signed short > (minus)" }
  871.     timeout                                      { fail "(timeout) print signed signed short > (minus)" }
  872. }
  873.  
  874.  
  875. #
  876. # test expressions with "unsigned short" types
  877. #
  878. send "set variable v_unsigned_short=0x7FFF\n"
  879. expect {
  880.     -re "set.*$prompt $" {
  881.     send "print v_unsigned_short == 0\n"
  882.     expect {
  883.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  884.         send "print v_unsigned_short == 0x7FFF\n"
  885.         expect {
  886.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short ==" }
  887.             -re "$prompt $"                      { fail "print unsigned short ==" }
  888.             timeout                              { fail "(timeout) print unsigned short ==" }
  889.         }
  890.         }
  891.         -re "$prompt $"                      { fail "print unsigned short ==" }
  892.         timeout                              { fail "(timeout) print unsigned short ==" }
  893.     }
  894.     }
  895.     -re "$prompt $"                              { fail "print unsigned short ==" }
  896.     timeout                                      { fail "(timeout) print unsigned short ==" }
  897. }
  898.  
  899.  
  900. send "set variable v_unsigned_short=0x7FFF\n"
  901. expect {
  902.     -re "set.*$prompt $" {
  903.     send "print v_unsigned_short != 0\n"
  904.     expect {
  905.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  906.         send "print v_unsigned_short != 0x7FFF\n"
  907.         expect {
  908.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short !=" }
  909.             -re "$prompt $"                      { fail "print unsigned short !=" }
  910.             timeout                              { fail "(timeout) print unsigned short !=" }
  911.         }
  912.         }
  913.         -re "$prompt $"                      { fail "print unsigned short !=" }
  914.         timeout                              { fail "(timeout) print unsigned short !=" }
  915.     }
  916.     }
  917.     -re "$prompt $"                              { fail "print unsigned short !=" }
  918.     timeout                                      { fail "(timeout) print unsigned short !=" }
  919. }
  920.  
  921.  
  922. send "set variable v_unsigned_short=0x7FFF\n"
  923. expect {
  924.     -re "set.*$prompt $" {
  925.     send "print v_unsigned_short < 0\n"
  926.     expect {
  927.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  928.         send "print v_unsigned_short < 0x7FFF\n"
  929.         expect {
  930.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short <" }
  931.             -re "$prompt $"                      { fail "print unsigned short <" }
  932.             timeout                              { fail "(timeout) print unsigned short <" }
  933.         }
  934.         }
  935.         -re "$prompt $"                      { fail "print unsigned short <" }
  936.         timeout                              { fail "(timeout) print unsigned short <" }
  937.     }
  938.     }
  939.     -re "$prompt $"                              { fail "print unsigned short <" }
  940.     timeout                                      { fail "(timeout) print unsigned short <" }
  941. }
  942.  
  943.  
  944. send "set variable v_unsigned_short=0x7FFF\n"
  945. expect {
  946.     -re "set.*$prompt $" {
  947.     send "print v_unsigned_short > 0\n"
  948.     expect {
  949.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  950.         send "print v_unsigned_short > 0x7FFF\n"
  951.         expect {
  952.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short >" }
  953.             -re "$prompt $"                      { fail "print unsigned short >" }
  954.             timeout                              { fail "(timeout) print unsigned short >" }
  955.         }
  956.         }
  957.         -re "$prompt $"                      { fail "print unsigned short >" }
  958.         timeout                              { fail "(timeout) print unsigned short >" }
  959.     }
  960.     }
  961.     -re "$prompt $"                              { fail "print unsigned short >" }
  962.     timeout                                      { fail "(timeout) print unsigned short >" }
  963. }
  964.  
  965.  
  966. # make short a minus
  967. send "set variable v_unsigned_short=~0\n"
  968. expect {
  969.     -re "set.*$prompt $" {
  970.     send "print v_unsigned_short == 0\n"
  971.     expect {
  972.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  973.         send "print v_unsigned_short == ~0\n"
  974.         expect {
  975.             -re "print.*.\[0-9\]* = 0.*$prompt $" {
  976.             send "print v_unsigned_short == (unsigned short)~0\n"
  977.             expect {
  978.                 -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short == (~0)" }
  979.                 -re "$prompt $"                      { fail "print unsigned short == (~0)" }
  980.                 timeout                              { fail "(timeout) print unsigned short == (~0)" }
  981.             }
  982.             }
  983.             -re "$prompt $"                      { fail "print unsigned short == (~0)" }
  984.             timeout                              { fail "(timeout) print unsigned short == (~0)" }
  985.         }
  986.         }
  987.         -re "$prompt $"                      { fail "print unsigned short == (~0)" }
  988.         timeout                              { fail "(timeout) print unsigned short == (~0)" }
  989.     }
  990.     }
  991.     -re "$prompt $"                              { fail "print unsigned short == (~0)" }
  992.     timeout                                      { fail "(timeout) print unsigned short == (~0)" }
  993. }
  994.  
  995.  
  996. send "set variable v_unsigned_short=~0\n"
  997. expect {
  998.     -re "set.*$prompt $" {
  999.     send "print v_unsigned_short != 0\n"
  1000.     expect {
  1001.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1002.         send "print v_unsigned_short != (unsigned short)~0\n"
  1003.         expect {
  1004.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short != (~0)" }
  1005.             -re "$prompt $"                      { fail "print unsigned short != (~0)" }
  1006.             timeout                              { fail "(timeout) print unsigned short != (~0)" }
  1007.         }
  1008.         }
  1009.         -re "$prompt $"                      { fail "print unsigned short != (~0)" }
  1010.         timeout                              { fail "(timeout) print unsigned short != (~0)" }
  1011.     }
  1012.     }
  1013.     -re "$prompt $"                              { fail "print unsigned short != (~0)" }
  1014.     timeout                                      { fail "(timeout) print unsigned short != (~0)" }
  1015. }
  1016.  
  1017.  
  1018. send "set variable v_unsigned_short=~0\n"
  1019. expect {
  1020.     -re "set.*$prompt $" {
  1021.     send "print v_unsigned_short < 0\n"
  1022.     expect {
  1023.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1024.         send "print v_unsigned_short < 0x7FFF\n"
  1025.         expect {
  1026.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short < (~0)" }
  1027.             -re "$prompt $"                      { fail "print unsigned short < (~0)" }
  1028.             timeout                              { fail "(timeout) print unsigned short < (~0)" }
  1029.         }
  1030.         }
  1031.         -re "$prompt $"                      { fail "print unsigned short < (~0)" }
  1032.         timeout                              { fail "(timeout) print unsigned short < (~0)" }
  1033.     }
  1034.     }
  1035.     -re "$prompt $"                              { fail "print unsigned short < (~0)" }
  1036.     timeout                                      { fail "(timeout) print unsigned short < (~0)" }
  1037. }
  1038.  
  1039.  
  1040. send "set variable v_unsigned_short=~0\n"
  1041. expect {
  1042.     -re "set.*$prompt $" {
  1043.     send "print v_unsigned_short > 0\n"
  1044.     expect {
  1045.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1046.         send "print v_unsigned_short > 0x7FFF\n"
  1047.         expect {
  1048.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short > (~0)" }
  1049.             -re "$prompt $"                      { fail "print unsigned short > (~0)" }
  1050.             timeout                              { fail "(timeout) print unsigned short > (~0)" }
  1051.         }
  1052.         }
  1053.         -re "$prompt $"                      { fail "print unsigned short > (~0)" }
  1054.         timeout                              { fail "(timeout) print unsigned short > (~0)" }
  1055.     }
  1056.     }
  1057.     -re "$prompt $"                              { fail "print unsigned short > (~0)" }
  1058.     timeout                                      { fail "(timeout) print unsigned short > (~0)" }
  1059. }
  1060.  
  1061.  
  1062. #
  1063. # test expressions with "int" types
  1064. #
  1065. send "set variable v_int=0x7FFF\n"
  1066. expect {
  1067.     -re "set.*$prompt $" {
  1068.     send "print v_int == 0\n"
  1069.     expect {
  1070.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1071.         send "print v_int == 0x7FFF\n"
  1072.         expect {
  1073.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int ==" }
  1074.             -re "$prompt $"                      { fail "print signed int ==" }
  1075.             timeout                              { fail "(timeout) print signed int ==" }
  1076.         }
  1077.         }
  1078.         -re "$prompt $"                      { fail "print signed int ==" }
  1079.         timeout                              { fail "(timeout) print signed int ==" }
  1080.     }
  1081.     }
  1082.     -re "$prompt $"                              { fail "print signed int ==" }
  1083.     timeout                                      { fail "(timeout) print signed int ==" }
  1084. }
  1085.  
  1086.  
  1087. send "set variable v_int=0x7FFF\n"
  1088. expect {
  1089.     -re "set.*$prompt $" {
  1090.     send "print v_int != 0\n"
  1091.     expect {
  1092.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1093.         send "print v_int != 0x7FFF\n"
  1094.         expect {
  1095.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int !=" }
  1096.             -re "$prompt $"                      { fail "print signed int !=" }
  1097.             timeout                              { fail "(timeout) print signed int !=" }
  1098.         }
  1099.         }
  1100.         -re "$prompt $"                      { fail "print signed int !=" }
  1101.         timeout                              { fail "(timeout) print signed int !=" }
  1102.     }
  1103.     }
  1104.     -re "$prompt $"                              { fail "print signed int !=" }
  1105.     timeout                                      { fail "(timeout) print signed int !=" }
  1106. }
  1107.  
  1108.  
  1109. send "set variable v_int=0x7FFF\n"
  1110. expect {
  1111.     -re "set.*$prompt $" {
  1112.     send "print v_int < 0\n"
  1113.     expect {
  1114.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1115.         send "print v_int < 0x7FFF\n"
  1116.         expect {
  1117.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int <" }
  1118.             -re "$prompt $"                      { fail "print signed int <" }
  1119.             timeout                              { fail "(timeout) print signed int <" }
  1120.         }
  1121.         }
  1122.         -re "$prompt $"                      { fail "print signed int <" }
  1123.         timeout                              { fail "(timeout) print signed int <" }
  1124.     }
  1125.     }
  1126.     -re "$prompt $"                              { fail "print signed int <" }
  1127.     timeout                                      { fail "(timeout) print signed int <" }
  1128. }
  1129.  
  1130.  
  1131. send "set variable v_int=0x7FFF\n"
  1132. expect {
  1133.     -re "set.*$prompt $" {
  1134.     send "print v_int > 0\n"
  1135.     expect {
  1136.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1137.         send "print v_int > 0x7FFF\n"
  1138.         expect {
  1139.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int >" }
  1140.             -re "$prompt $"                      { fail "print signed int >" }
  1141.             timeout                              { fail "(timeout) print signed int >" }
  1142.         }
  1143.         }
  1144.         -re "$prompt $"                      { fail "print signed int >" }
  1145.         timeout                              { fail "(timeout) print signed int >" }
  1146.     }
  1147.     }
  1148.     -re "$prompt $"                              { fail "print signed int >" }
  1149.     timeout                                      { fail "(timeout) print signed int >" }
  1150. }
  1151.  
  1152.  
  1153. # make int a minus
  1154. send "set variable v_int=-1\n"
  1155. expect {
  1156.     -re "set.*$prompt $" {
  1157.     send "print v_int == 0\n"
  1158.     expect {
  1159.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1160.         send "print v_int == -1\n"
  1161.         expect {
  1162.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int == (minus)" }
  1163.             -re "$prompt $"                      { fail "print signed int == (minus)" }
  1164.             timeout                              { fail "(timeout) print signed int == (minus)" }
  1165.         }
  1166.         }
  1167.         -re "$prompt $"                      { fail "print signed int == (minus)" }
  1168.         timeout                              { fail "(timeout) print signed int == (minus)" }
  1169.     }
  1170.     }
  1171.     -re "$prompt $"                              { fail "print signed int == (minus)" }
  1172.     timeout                                      { fail "(timeout) print signed int == (minus)" }
  1173. }
  1174.  
  1175.  
  1176. send "set variable v_int=-1\n"
  1177. expect {
  1178.     -re "set.*$prompt $" {
  1179.     send "print v_int != 0\n"
  1180.     expect {
  1181.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1182.         send "print v_int != -1\n"
  1183.         expect {
  1184.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int != (minus)" }
  1185.             -re "$prompt $"                      { fail "print signed int != (minus)" }
  1186.             timeout                              { fail "(timeout) print signed int != (minus)" }
  1187.         }
  1188.         }
  1189.         -re "$prompt $"                      { fail "print signed int != (minus)" }
  1190.         timeout                              { fail "(timeout) print signed int != (minus)" }
  1191.     }
  1192.     }
  1193.     -re "$prompt $"                              { fail "print signed int != (minus)" }
  1194.     timeout                                      { fail "(timeout) print signed int != (minus)" }
  1195. }
  1196.  
  1197.  
  1198. send "set variable v_int=-1\n"
  1199. expect {
  1200.     -re "set.*$prompt $" {
  1201.     send "print v_int < 0\n"
  1202.     expect {
  1203.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1204.         send "print v_int < 0x7FFF\n"
  1205.         expect {
  1206.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int < (minus)" }
  1207.             -re "$prompt $"                      { fail "print signed int < (minus)" }
  1208.             timeout                              { fail "(timeout) print signed int < (minus)" }
  1209.         }
  1210.         }
  1211.         -re "$prompt $"                      { fail "print signed int < (minus)" }
  1212.         timeout                              { fail "(timeout) print signed int < (minus)" }
  1213.     }
  1214.     }
  1215.     -re "$prompt $"                              { fail "print signed int < (minus)" }
  1216.     timeout                                      { fail "(timeout) print signed int < (minus)" }
  1217. }
  1218.  
  1219.  
  1220. send "set variable v_int=-1\n"
  1221. expect {
  1222.     -re "set.*$prompt $" {
  1223.     send "print v_int > 0\n"
  1224.     expect {
  1225.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1226.         send "print v_int > 0x7FFF\n"
  1227.         expect {
  1228.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int > (minus)" }
  1229.             -re "$prompt $"                      { fail "print signed int > (minus)" }
  1230.             timeout                              { fail "(timeout) print signed int > (minus)" }
  1231.         }
  1232.         }
  1233.         -re "$prompt $"                      { fail "print signed int > (minus)" }
  1234.         timeout                              { fail "(timeout) print signed int > (minus)" }
  1235.     }
  1236.     }
  1237.     -re "$prompt $"                              { fail "print signed int > (minus)" }
  1238.     timeout                                      { fail "(timeout) print signed int > (minus)" }
  1239. }
  1240.  
  1241.  
  1242. #
  1243. # test expressions with "signed int" types
  1244. #
  1245. send "set variable v_signed_int=0x7FFF\n"
  1246. expect {
  1247.     -re "set.*$prompt $" {
  1248.     send "print v_signed_int == 0\n"
  1249.     expect {
  1250.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1251.         send "print v_signed_int == 0x7FFF\n"
  1252.         expect {
  1253.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int ==" }
  1254.             -re "$prompt $"                      { fail "print signed signed int ==" }
  1255.             timeout                              { fail "(timeout) print signed signed int ==" }
  1256.         }
  1257.         }
  1258.         -re "$prompt $"                      { fail "print signed signed int ==" }
  1259.         timeout                              { fail "(timeout) print signed signed int ==" }
  1260.     }
  1261.     }
  1262.     -re "$prompt $"                              { fail "print signed signed int ==" }
  1263.     timeout                                      { fail "(timeout) print signed signed int ==" }
  1264. }
  1265.  
  1266.  
  1267. send "set variable v_signed_int=0x7FFF\n"
  1268. expect {
  1269.     -re "set.*$prompt $" {
  1270.     send "print v_signed_int != 0\n"
  1271.     expect {
  1272.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1273.         send "print v_signed_int != 0x7FFF\n"
  1274.         expect {
  1275.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int !=" }
  1276.             -re "$prompt $"                      { fail "print signed signed int !=" }
  1277.             timeout                              { fail "(timeout) print signed signed int !=" }
  1278.         }
  1279.         }
  1280.         -re "$prompt $"                      { fail "print signed signed int !=" }
  1281.         timeout                              { fail "(timeout) print signed signed int !=" }
  1282.     }
  1283.     }
  1284.     -re "$prompt $"                              { fail "print signed signed int !=" }
  1285.     timeout                                      { fail "(timeout) print signed signed int !=" }
  1286. }
  1287.  
  1288.  
  1289. send "set variable v_signed_int=0x7FFF\n"
  1290. expect {
  1291.     -re "set.*$prompt $" {
  1292.     send "print v_signed_int < 0\n"
  1293.     expect {
  1294.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1295.         send "print v_signed_int < 0x7FFF\n"
  1296.         expect {
  1297.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int <" }
  1298.             -re "$prompt $"                      { fail "print signed signed int <" }
  1299.             timeout                              { fail "(timeout) print signed signed int <" }
  1300.         }
  1301.         }
  1302.         -re "$prompt $"                      { fail "print signed signed int <" }
  1303.         timeout                              { fail "(timeout) print signed signed int <" }
  1304.     }
  1305.     }
  1306.     -re "$prompt $"                              { fail "print signed signed int <" }
  1307.     timeout                                      { fail "(timeout) print signed signed int <" }
  1308. }
  1309.  
  1310.  
  1311. send "set variable v_signed_int=0x7FFF\n"
  1312. expect {
  1313.     -re "set.*$prompt $" {
  1314.     send "print v_signed_int > 0\n"
  1315.     expect {
  1316.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1317.         send "print v_signed_int > 0x7FFF\n"
  1318.         expect {
  1319.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int >" }
  1320.             -re "$prompt $"                      { fail "print signed signed int >" }
  1321.             timeout                              { fail "(timeout) print signed signed int >" }
  1322.         }
  1323.         }
  1324.         -re "$prompt $"                      { fail "print signed signed int >" }
  1325.         timeout                              { fail "(timeout) print signed signed int >" }
  1326.     }
  1327.     }
  1328.     -re "$prompt $"                              { fail "print signed signed int >" }
  1329.     timeout                                      { fail "(timeout) print signed signed int >" }
  1330. }
  1331.  
  1332.  
  1333. # make int a minus
  1334. send "set variable v_signed_int=-1\n"
  1335. expect {
  1336.     -re "set.*$prompt $" {
  1337.     send "print v_signed_int == 0\n"
  1338.     expect {
  1339.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1340.         send "print v_signed_int == -1\n"
  1341.         expect {
  1342.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int == (minus)" }
  1343.             -re "$prompt $"                      { fail "print signed signed int == (minus)" }
  1344.             timeout                              { fail "(timeout) print signed signed int == (minus)" }
  1345.         }
  1346.         }
  1347.         -re "$prompt $"                      { fail "print signed signed int == (minus)" }
  1348.         timeout                              { fail "(timeout) print signed signed int == (minus)" }
  1349.     }
  1350.     }
  1351.     -re "$prompt $"                              { fail "print signed signed int == (minus)" }
  1352.     timeout                                      { fail "(timeout) print signed signed int == (minus)" }
  1353. }
  1354.  
  1355.  
  1356. send "set variable v_signed_int=-1\n"
  1357. expect {
  1358.     -re "set.*$prompt $" {
  1359.     send "print v_signed_int != 0\n"
  1360.     expect {
  1361.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1362.         send "print v_signed_int != -1\n"
  1363.         expect {
  1364.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int != (minus)" }
  1365.             -re "$prompt $"                      { fail "print signed signed int != (minus)" }
  1366.             timeout                              { fail "(timeout) print signed signed int != (minus)" }
  1367.         }
  1368.         }
  1369.         -re "$prompt $"                      { fail "print signed signed int != (minus)" }
  1370.         timeout                              { fail "(timeout) print signed signed int != (minus)" }
  1371.     }
  1372.     }
  1373.     -re "$prompt $"                              { fail "print signed signed int != (minus)" }
  1374.     timeout                                      { fail "(timeout) print signed signed int != (minus)" }
  1375. }
  1376.  
  1377.  
  1378. send "set variable v_signed_int=-1\n"
  1379. expect {
  1380.     -re "set.*$prompt $" {
  1381.     send "print v_signed_int < 0\n"
  1382.     expect {
  1383.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1384.         send "print v_signed_int < 0x7FFF\n"
  1385.         expect {
  1386.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int < (minus)" }
  1387.             -re "$prompt $"                      { fail "print signed signed int < (minus)" }
  1388.             timeout                              { fail "(timeout) print signed signed int < (minus)" }
  1389.         }
  1390.         }
  1391.         -re "$prompt $"                      { fail "print signed signed int < (minus)" }
  1392.         timeout                              { fail "(timeout) print signed signed int < (minus)" }
  1393.     }
  1394.     }
  1395.     -re "$prompt $"                              { fail "print signed signed int < (minus)" }
  1396.     timeout                                      { fail "(timeout) print signed signed int < (minus)" }
  1397. }
  1398.  
  1399.  
  1400. send "set variable v_signed_int=-1\n"
  1401. expect {
  1402.     -re "set.*$prompt $" {
  1403.     send "print v_signed_int > 0\n"
  1404.     expect {
  1405.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1406.         send "print v_signed_int > 0x7FFF\n"
  1407.         expect {
  1408.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int > (minus)" }
  1409.             -re "$prompt $"                      { fail "print signed signed int > (minus)" }
  1410.             timeout                              { fail "(timeout) print signed signed int > (minus)" }
  1411.         }
  1412.         }
  1413.         -re "$prompt $"                      { fail "print signed signed int > (minus)" }
  1414.         timeout                              { fail "(timeout) print signed signed int > (minus)" }
  1415.     }
  1416.     }
  1417.     -re "$prompt $"                              { fail "print signed signed int > (minus)" }
  1418.     timeout                                      { fail "(timeout) print signed signed int > (minus)" }
  1419. }
  1420.  
  1421.  
  1422. #
  1423. # test expressions with "unsigned int" types
  1424. #
  1425. send "set variable v_unsigned_int=0x7FFF\n"
  1426. expect {
  1427.     -re "set.*$prompt $" {
  1428.     send "print v_unsigned_int == 0\n"
  1429.     expect {
  1430.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1431.         send "print v_unsigned_int == 0x7FFF\n"
  1432.         expect {
  1433.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int ==" }
  1434.             -re "$prompt $"                      { fail "print unsigned int ==" }
  1435.             timeout                              { fail "(timeout) print unsigned int ==" }
  1436.         }
  1437.         }
  1438.         -re "$prompt $"                      { fail "print unsigned int ==" }
  1439.         timeout                              { fail "(timeout) print unsigned int ==" }
  1440.     }
  1441.     }
  1442.     -re "$prompt $"                              { fail "print unsigned int ==" }
  1443.     timeout                                      { fail "(timeout) print unsigned int ==" }
  1444. }
  1445.  
  1446.  
  1447. send "set variable v_unsigned_int=0x7FFF\n"
  1448. expect {
  1449.     -re "set.*$prompt $" {
  1450.     send "print v_unsigned_int != 0\n"
  1451.     expect {
  1452.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1453.         send "print v_unsigned_int != 0x7FFF\n"
  1454.         expect {
  1455.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int !=" }
  1456.             -re "$prompt $"                      { fail "print unsigned int !=" }
  1457.             timeout                              { fail "(timeout) print unsigned int !=" }
  1458.         }
  1459.         }
  1460.         -re "$prompt $"                      { fail "print unsigned int !=" }
  1461.         timeout                              { fail "(timeout) print unsigned int !=" }
  1462.     }
  1463.     }
  1464.     -re "$prompt $"                              { fail "print unsigned int !=" }
  1465.     timeout                                      { fail "(timeout) print unsigned int !=" }
  1466. }
  1467.  
  1468.  
  1469. send "set variable v_unsigned_int=0x7FFF\n"
  1470. expect {
  1471.     -re "set.*$prompt $" {
  1472.     send "print v_unsigned_int < 0\n"
  1473.     expect {
  1474.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1475.         send "print v_unsigned_int < 0x7FFF\n"
  1476.         expect {
  1477.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int <" }
  1478.             -re "$prompt $"                      { fail "print unsigned int <" }
  1479.             timeout                              { fail "(timeout) print unsigned int <" }
  1480.         }
  1481.         }
  1482.         -re "$prompt $"                      { fail "print unsigned int <" }
  1483.         timeout                              { fail "(timeout) print unsigned int <" }
  1484.     }
  1485.     }
  1486.     -re "$prompt $"                              { fail "print unsigned int <" }
  1487.     timeout                                      { fail "(timeout) print unsigned int <" }
  1488. }
  1489.  
  1490.  
  1491. send "set variable v_unsigned_int=0x7FFF\n"
  1492. expect {
  1493.     -re "set.*$prompt $" {
  1494.     send "print v_unsigned_int > 0\n"
  1495.     expect {
  1496.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1497.         send "print v_unsigned_int > 0x7FFF\n"
  1498.         expect {
  1499.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int >" }
  1500.             -re "$prompt $"                      { fail "print unsigned int >" }
  1501.             timeout                              { fail "(timeout) print unsigned int >" }
  1502.         }
  1503.         }
  1504.         -re "$prompt $"                      { fail "print unsigned int >" }
  1505.         timeout                              { fail "(timeout) print unsigned int >" }
  1506.     }
  1507.     }
  1508.     -re "$prompt $"                              { fail "print unsigned int >" }
  1509.     timeout                                      { fail "(timeout) print unsigned int >" }
  1510. }
  1511.  
  1512.  
  1513. # make int a minus
  1514. send "set variable v_unsigned_int=~0\n"
  1515. expect {
  1516.     -re "set.*$prompt $" {
  1517.     send "print v_unsigned_int == 0\n"
  1518.     expect {
  1519.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1520.         send "print v_unsigned_int == ~0\n"
  1521.         expect {
  1522.             -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1523.             send "print v_unsigned_int == (unsigned int)~0\n"
  1524.             expect {
  1525.                 -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int == (~0)" }
  1526.                 -re "$prompt $"                      { fail "print unsigned int == (~0)" }
  1527.                 timeout                              { fail "(timeout) print unsigned int == (~0)" }
  1528.             }
  1529.             }
  1530.             -re "$prompt $"                      { fail "print unsigned int == (~0)" }
  1531.             timeout                              { fail "(timeout) print unsigned int == (~0)" }
  1532.         }
  1533.         }
  1534.         -re "$prompt $"                      { fail "print unsigned int == (~0)" }
  1535.         timeout                              { fail "(timeout) print unsigned int == (~0)" }
  1536.     }
  1537.     }
  1538.     -re "$prompt $"                              { fail "print unsigned int == (~0)" }
  1539.     timeout                                      { fail "(timeout) print unsigned int == (~0)" }
  1540. }
  1541.  
  1542.  
  1543. send "set variable v_unsigned_int=~0\n"
  1544. expect {
  1545.     -re "set.*$prompt $" {
  1546.     send "print v_unsigned_int != 0\n"
  1547.     expect {
  1548.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1549.         send "print v_unsigned_int != (unsigned int)~0\n"
  1550.         expect {
  1551.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int != (~0)" }
  1552.             -re "$prompt $"                      { fail "print unsigned int != (~0)" }
  1553.             timeout                              { fail "(timeout) print unsigned int != (~0)" }
  1554.         }
  1555.         }
  1556.         -re "$prompt $"                      { fail "print unsigned int != (~0)" }
  1557.         timeout                              { fail "(timeout) print unsigned int != (~0)" }
  1558.     }
  1559.     }
  1560.     -re "$prompt $"                              { fail "print unsigned int != (~0)" }
  1561.     timeout                                      { fail "(timeout) print unsigned int != (~0)" }
  1562. }
  1563.  
  1564.  
  1565. send "set variable v_unsigned_int=~0\n"
  1566. expect {
  1567.     -re "set.*$prompt $" {
  1568.     send "print v_unsigned_int < 0\n"
  1569.     expect {
  1570.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1571.         send "print v_unsigned_int < 0x7FFF\n"
  1572.         expect {
  1573.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int < (~0)" }
  1574.             -re "$prompt $"                      { fail "print unsigned int < (~0)" }
  1575.             timeout                              { fail "(timeout) print unsigned int < (~0)" }
  1576.         }
  1577.         }
  1578.         -re "$prompt $"                      { fail "print unsigned int < (~0)" }
  1579.         timeout                              { fail "(timeout) print unsigned int < (~0)" }
  1580.     }
  1581.     }
  1582.     -re "$prompt $"                              { fail "print unsigned int < (~0)" }
  1583.     timeout                                      { fail "(timeout) print unsigned int < (~0)" }
  1584. }
  1585.  
  1586.  
  1587. send "set variable v_unsigned_int=~0\n"
  1588. expect {
  1589.     -re "set.*$prompt $" {
  1590.     send "print v_unsigned_int > 0\n"
  1591.     expect {
  1592.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1593.         send "print v_unsigned_int > 0x7FFF\n"
  1594.         expect {
  1595.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int > (~0)" }
  1596.             -re "$prompt $"                      { fail "print unsigned int > (~0)" }
  1597.             timeout                              { fail "(timeout) print unsigned int > (~0)" }
  1598.         }
  1599.         }
  1600.         -re "$prompt $"                      { fail "print unsigned int > (~0)" }
  1601.         timeout                              { fail "(timeout) print unsigned int > (~0)" }
  1602.     }
  1603.     }
  1604.     -re "$prompt $"                              { fail "print unsigned int > (~0)" }
  1605.     timeout                                      { fail "(timeout) print unsigned int > (~0)" }
  1606. }
  1607.  
  1608.  
  1609. #
  1610. # test expressions with "long" types
  1611. #
  1612. send "set variable v_long=0x7FFF\n"
  1613. expect {
  1614.     -re "set.*$prompt $" {
  1615.     send "print v_long == 0\n"
  1616.     expect {
  1617.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1618.         send "print v_long == 0x7FFF\n"
  1619.         expect {
  1620.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long ==" }
  1621.             -re "$prompt $"                      { fail "print signed long ==" }
  1622.             timeout                              { fail "(timeout) print signed long ==" }
  1623.         }
  1624.         }
  1625.         -re "$prompt $"                      { fail "print signed long ==" }
  1626.         timeout                              { fail "(timeout) print signed long ==" }
  1627.     }
  1628.     }
  1629.     -re "$prompt $"                              { fail "print signed long ==" }
  1630.     timeout                                      { fail "(timeout) print signed long ==" }
  1631. }
  1632.  
  1633.  
  1634. send "set variable v_long=0x7FFF\n"
  1635. expect {
  1636.     -re "set.*$prompt $" {
  1637.     send "print v_long != 0\n"
  1638.     expect {
  1639.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1640.         send "print v_long != 0x7FFF\n"
  1641.         expect {
  1642.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long !=" }
  1643.             -re "$prompt $"                      { fail "print signed long !=" }
  1644.             timeout                              { fail "(timeout) print signed long !=" }
  1645.         }
  1646.         }
  1647.         -re "$prompt $"                      { fail "print signed long !=" }
  1648.         timeout                              { fail "(timeout) print signed long !=" }
  1649.     }
  1650.     }
  1651.     -re "$prompt $"                              { fail "print signed long !=" }
  1652.     timeout                                      { fail "(timeout) print signed long !=" }
  1653. }
  1654.  
  1655.  
  1656. send "set variable v_long=0x7FFF\n"
  1657. expect {
  1658.     -re "set.*$prompt $" {
  1659.     send "print v_long < 0\n"
  1660.     expect {
  1661.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1662.         send "print v_long < 0x7FFF\n"
  1663.         expect {
  1664.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long <" }
  1665.             -re "$prompt $"                      { fail "print signed long <" }
  1666.             timeout                              { fail "(timeout) print signed long <" }
  1667.         }
  1668.         }
  1669.         -re "$prompt $"                      { fail "print signed long <" }
  1670.         timeout                              { fail "(timeout) print signed long <" }
  1671.     }
  1672.     }
  1673.     -re "$prompt $"                              { fail "print signed long <" }
  1674.     timeout                                      { fail "(timeout) print signed long <" }
  1675. }
  1676.  
  1677.  
  1678. send "set variable v_long=0x7FFF\n"
  1679. expect {
  1680.     -re "set.*$prompt $" {
  1681.     send "print v_long > 0\n"
  1682.     expect {
  1683.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1684.         send "print v_long > 0x7FFF\n"
  1685.         expect {
  1686.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long >" }
  1687.             -re "$prompt $"                      { fail "print signed long >" }
  1688.             timeout                              { fail "(timeout) print signed long >" }
  1689.         }
  1690.         }
  1691.         -re "$prompt $"                      { fail "print signed long >" }
  1692.         timeout                              { fail "(timeout) print signed long >" }
  1693.     }
  1694.     }
  1695.     -re "$prompt $"                              { fail "print signed long >" }
  1696.     timeout                                      { fail "(timeout) print signed long >" }
  1697. }
  1698.  
  1699.  
  1700. # make long a minus
  1701. send "set variable v_long=-1\n"
  1702. expect {
  1703.     -re "set.*$prompt $" {
  1704.     send "print v_long == 0\n"
  1705.     expect {
  1706.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1707.         send "print v_long == -1\n"
  1708.         expect {
  1709.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long == (minus)" }
  1710.             -re "$prompt $"                      { fail "print signed long == (minus)" }
  1711.             timeout                              { fail "(timeout) print signed long == (minus)" }
  1712.         }
  1713.         }
  1714.         -re "$prompt $"                      { fail "print signed long == (minus)" }
  1715.         timeout                              { fail "(timeout) print signed long == (minus)" }
  1716.     }
  1717.     }
  1718.     -re "$prompt $"                              { fail "print signed long == (minus)" }
  1719.     timeout                                      { fail "(timeout) print signed long == (minus)" }
  1720. }
  1721.  
  1722.  
  1723. send "set variable v_long=-1\n"
  1724. expect {
  1725.     -re "set.*$prompt $" {
  1726.     send "print v_long != 0\n"
  1727.     expect {
  1728.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1729.         send "print v_long != -1\n"
  1730.         expect {
  1731.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long != (minus)" }
  1732.             -re "$prompt $"                      { fail "print signed long != (minus)" }
  1733.             timeout                              { fail "(timeout) print signed long != (minus)" }
  1734.         }
  1735.         }
  1736.         -re "$prompt $"                      { fail "print signed long != (minus)" }
  1737.         timeout                              { fail "(timeout) print signed long != (minus)" }
  1738.     }
  1739.     }
  1740.     -re "$prompt $"                              { fail "print signed long != (minus)" }
  1741.     timeout                                      { fail "(timeout) print signed long != (minus)" }
  1742. }
  1743.  
  1744.  
  1745. send "set variable v_long=-1\n"
  1746. expect {
  1747.     -re "set.*$prompt $" {
  1748.     send "print v_long < 0\n"
  1749.     expect {
  1750.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1751.         send "print v_long < 0x7FFF\n"
  1752.         expect {
  1753.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long < (minus)" }
  1754.             -re "$prompt $"                      { fail "print signed long < (minus)" }
  1755.             timeout                              { fail "(timeout) print signed long < (minus)" }
  1756.         }
  1757.         }
  1758.         -re "$prompt $"                      { fail "print signed long < (minus)" }
  1759.         timeout                              { fail "(timeout) print signed long < (minus)" }
  1760.     }
  1761.     }
  1762.     -re "$prompt $"                              { fail "print signed long < (minus)" }
  1763.     timeout                                      { fail "(timeout) print signed long < (minus)" }
  1764. }
  1765.  
  1766.  
  1767. send "set variable v_long=-1\n"
  1768. expect {
  1769.     -re "set.*$prompt $" {
  1770.     send "print v_long > 0\n"
  1771.     expect {
  1772.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1773.         send "print v_long > 0x7FFF\n"
  1774.         expect {
  1775.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long > (minus)" }
  1776.             -re "$prompt $"                      { fail "print signed long > (minus)" }
  1777.             timeout                              { fail "(timeout) print signed long > (minus)" }
  1778.         }
  1779.         }
  1780.         -re "$prompt $"                      { fail "print signed long > (minus)" }
  1781.         timeout                              { fail "(timeout) print signed long > (minus)" }
  1782.     }
  1783.     }
  1784.     -re "$prompt $"                              { fail "print signed long > (minus)" }
  1785.     timeout                                      { fail "(timeout) print signed long > (minus)" }
  1786. }
  1787.  
  1788.  
  1789. #
  1790. # test expressions with "signed long" types
  1791. #
  1792. send "set variable v_signed_long=0x7FFF\n"
  1793. expect {
  1794.     -re "set.*$prompt $" {
  1795.     send "print v_signed_long == 0\n"
  1796.     expect {
  1797.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1798.         send "print v_signed_long == 0x7FFF\n"
  1799.         expect {
  1800.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long ==" }
  1801.             -re "$prompt $"                      { fail "print signed signed long ==" }
  1802.             timeout                              { fail "(timeout) print signed signed long ==" }
  1803.         }
  1804.         }
  1805.         -re "$prompt $"                      { fail "print signed signed long ==" }
  1806.         timeout                              { fail "(timeout) print signed signed long ==" }
  1807.     }
  1808.     }
  1809.     -re "$prompt $"                              { fail "print signed signed long ==" }
  1810.     timeout                                      { fail "(timeout) print signed signed long ==" }
  1811. }
  1812.  
  1813.  
  1814. send "set variable v_signed_long=0x7FFF\n"
  1815. expect {
  1816.     -re "set.*$prompt $" {
  1817.     send "print v_signed_long != 0\n"
  1818.     expect {
  1819.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1820.         send "print v_signed_long != 0x7FFF\n"
  1821.         expect {
  1822.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long !=" }
  1823.             -re "$prompt $"                      { fail "print signed signed long !=" }
  1824.             timeout                              { fail "(timeout) print signed signed long !=" }
  1825.         }
  1826.         }
  1827.         -re "$prompt $"                      { fail "print signed signed long !=" }
  1828.         timeout                              { fail "(timeout) print signed signed long !=" }
  1829.     }
  1830.     }
  1831.     -re "$prompt $"                              { fail "print signed signed long !=" }
  1832.     timeout                                      { fail "(timeout) print signed signed long !=" }
  1833. }
  1834.  
  1835.  
  1836. send "set variable v_signed_long=0x7FFF\n"
  1837. expect {
  1838.     -re "set.*$prompt $" {
  1839.     send "print v_signed_long < 0\n"
  1840.     expect {
  1841.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1842.         send "print v_signed_long < 0x7FFF\n"
  1843.         expect {
  1844.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long <" }
  1845.             -re "$prompt $"                      { fail "print signed signed long <" }
  1846.             timeout                              { fail "(timeout) print signed signed long <" }
  1847.         }
  1848.         }
  1849.         -re "$prompt $"                      { fail "print signed signed long <" }
  1850.         timeout                              { fail "(timeout) print signed signed long <" }
  1851.     }
  1852.     }
  1853.     -re "$prompt $"                              { fail "print signed signed long <" }
  1854.     timeout                                      { fail "(timeout) print signed signed long <" }
  1855. }
  1856.  
  1857.  
  1858. send "set variable v_signed_long=0x7FFF\n"
  1859. expect {
  1860.     -re "set.*$prompt $" {
  1861.     send "print v_signed_long > 0\n"
  1862.     expect {
  1863.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1864.         send "print v_signed_long > 0x7FFF\n"
  1865.         expect {
  1866.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long >" }
  1867.             -re "$prompt $"                      { fail "print signed signed long >" }
  1868.             timeout                              { fail "(timeout) print signed signed long >" }
  1869.         }
  1870.         }
  1871.         -re "$prompt $"                      { fail "print signed signed long >" }
  1872.         timeout                              { fail "(timeout) print signed signed long >" }
  1873.     }
  1874.     }
  1875.     -re "$prompt $"                              { fail "print signed signed long >" }
  1876.     timeout                                      { fail "(timeout) print signed signed long >" }
  1877. }
  1878.  
  1879.  
  1880. # make long a minus
  1881. send "set variable v_signed_long=-1\n"
  1882. expect {
  1883.     -re "set.*$prompt $" {
  1884.     send "print v_signed_long == 0\n"
  1885.     expect {
  1886.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1887.         send "print v_signed_long == -1\n"
  1888.         expect {
  1889.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long == (minus)" }
  1890.             -re "$prompt $"                      { fail "print signed signed long == (minus)" }
  1891.             timeout                              { fail "(timeout) print signed signed long == (minus)" }
  1892.         }
  1893.         }
  1894.         -re "$prompt $"                      { fail "print signed signed long == (minus)" }
  1895.         timeout                              { fail "(timeout) print signed signed long == (minus)" }
  1896.     }
  1897.     }
  1898.     -re "$prompt $"                              { fail "print signed signed long == (minus)" }
  1899.     timeout                                      { fail "(timeout) print signed signed long == (minus)" }
  1900. }
  1901.  
  1902.  
  1903. send "set variable v_signed_long=-1\n"
  1904. expect {
  1905.     -re "set.*$prompt $" {
  1906.     send "print v_signed_long != 0\n"
  1907.     expect {
  1908.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1909.         send "print v_signed_long != -1\n"
  1910.         expect {
  1911.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long != (minus)" }
  1912.             -re "$prompt $"                      { fail "print signed signed long != (minus)" }
  1913.             timeout                              { fail "(timeout) print signed signed long != (minus)" }
  1914.         }
  1915.         }
  1916.         -re "$prompt $"                      { fail "print signed signed long != (minus)" }
  1917.         timeout                              { fail "(timeout) print signed signed long != (minus)" }
  1918.     }
  1919.     }
  1920.     -re "$prompt $"                              { fail "print signed signed long != (minus)" }
  1921.     timeout                                      { fail "(timeout) print signed signed long != (minus)" }
  1922. }
  1923.  
  1924.  
  1925. send "set variable v_signed_long=-1\n"
  1926. expect {
  1927.     -re "set.*$prompt $" {
  1928.     send "print v_signed_long < 0\n"
  1929.     expect {
  1930.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  1931.         send "print v_signed_long < 0x7FFF\n"
  1932.         expect {
  1933.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long < (minus)" }
  1934.             -re "$prompt $"                      { fail "print signed signed long < (minus)" }
  1935.             timeout                              { fail "(timeout) print signed signed long < (minus)" }
  1936.         }
  1937.         }
  1938.         -re "$prompt $"                      { fail "print signed signed long < (minus)" }
  1939.         timeout                              { fail "(timeout) print signed signed long < (minus)" }
  1940.     }
  1941.     }
  1942.     -re "$prompt $"                              { fail "print signed signed long < (minus)" }
  1943.     timeout                                      { fail "(timeout) print signed signed long < (minus)" }
  1944. }
  1945.  
  1946.  
  1947. send "set variable v_signed_long=-1\n"
  1948. expect {
  1949.     -re "set.*$prompt $" {
  1950.     send "print v_signed_long > 0\n"
  1951.     expect {
  1952.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1953.         send "print v_signed_long > 0x7FFF\n"
  1954.         expect {
  1955.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long > (minus)" }
  1956.             -re "$prompt $"                      { fail "print signed signed long > (minus)" }
  1957.             timeout                              { fail "(timeout) print signed signed long > (minus)" }
  1958.         }
  1959.         }
  1960.         -re "$prompt $"                      { fail "print signed signed long > (minus)" }
  1961.         timeout                              { fail "(timeout) print signed signed long > (minus)" }
  1962.     }
  1963.     }
  1964.     -re "$prompt $"                              { fail "print signed signed long > (minus)" }
  1965.     timeout                                      { fail "(timeout) print signed signed long > (minus)" }
  1966. }
  1967.  
  1968.  
  1969. #
  1970. # test expressions with "unsigned long" types
  1971. #
  1972. send "set variable v_unsigned_long=0x7FFF\n"
  1973. expect {
  1974.     -re "set.*$prompt $" {
  1975.     send "print v_unsigned_long == 0\n"
  1976.     expect {
  1977.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  1978.         send "print v_unsigned_long == 0x7FFF\n"
  1979.         expect {
  1980.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long ==" }
  1981.             -re "$prompt $"                      { fail "print unsigned long ==" }
  1982.             timeout                              { fail "(timeout) print unsigned long ==" }
  1983.         }
  1984.         }
  1985.         -re "$prompt $"                      { fail "print unsigned long ==" }
  1986.         timeout                              { fail "(timeout) print unsigned long ==" }
  1987.     }
  1988.     }
  1989.     -re "$prompt $"                              { fail "print unsigned long ==" }
  1990.     timeout                                      { fail "(timeout) print unsigned long ==" }
  1991. }
  1992.  
  1993.  
  1994. send "set variable v_unsigned_long=0x7FFF\n"
  1995. expect {
  1996.     -re "set.*$prompt $" {
  1997.     send "print v_unsigned_long != 0\n"
  1998.     expect {
  1999.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  2000.         send "print v_unsigned_long != 0x7FFF\n"
  2001.         expect {
  2002.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long !=" }
  2003.             -re "$prompt $"                      { fail "print unsigned long !=" }
  2004.             timeout                              { fail "(timeout) print unsigned long !=" }
  2005.         }
  2006.         }
  2007.         -re "$prompt $"                      { fail "print unsigned long !=" }
  2008.         timeout                              { fail "(timeout) print unsigned long !=" }
  2009.     }
  2010.     }
  2011.     -re "$prompt $"                              { fail "print unsigned long !=" }
  2012.     timeout                                      { fail "(timeout) print unsigned long !=" }
  2013. }
  2014.  
  2015.  
  2016. send "set variable v_unsigned_long=0x7FFF\n"
  2017. expect {
  2018.     -re "set.*$prompt $" {
  2019.     send "print v_unsigned_long < 0\n"
  2020.     expect {
  2021.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  2022.         send "print v_unsigned_long < 0x7FFF\n"
  2023.         expect {
  2024.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long <" }
  2025.             -re "$prompt $"                      { fail "print unsigned long <" }
  2026.             timeout                              { fail "(timeout) print unsigned long <" }
  2027.         }
  2028.         }
  2029.         -re "$prompt $"                      { fail "print unsigned long <" }
  2030.         timeout                              { fail "(timeout) print unsigned long <" }
  2031.     }
  2032.     }
  2033.     -re "$prompt $"                              { fail "print unsigned long <" }
  2034.     timeout                                      { fail "(timeout) print unsigned long <" }
  2035. }
  2036.  
  2037.  
  2038. send "set variable v_unsigned_long=0x7FFF\n"
  2039. expect {
  2040.     -re "set.*$prompt $" {
  2041.     send "print v_unsigned_long > 0\n"
  2042.     expect {
  2043.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  2044.         send "print v_unsigned_long > 0x7FFF\n"
  2045.         expect {
  2046.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long >" }
  2047.             -re "$prompt $"                      { fail "print unsigned long >" }
  2048.             timeout                              { fail "(timeout) print unsigned long >" }
  2049.         }
  2050.         }
  2051.         -re "$prompt $"                      { fail "print unsigned long >" }
  2052.         timeout                              { fail "(timeout) print unsigned long >" }
  2053.     }
  2054.     }
  2055.     -re "$prompt $"                              { fail "print unsigned long >" }
  2056.     timeout                                      { fail "(timeout) print unsigned long >" }
  2057. }
  2058.  
  2059.  
  2060. # make long a minus
  2061. send "set variable v_unsigned_long=~0\n"
  2062. expect {
  2063.     -re "set.*$prompt $" {
  2064.     send "print v_unsigned_long == 0\n"
  2065.     expect {
  2066.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  2067.         send "print v_unsigned_long == ~0\n"
  2068.         expect {
  2069.             -re "print.*.\[0-9\]* = 1.*$prompt $" {
  2070.             send "print v_unsigned_long == (unsigned long)~0\n"
  2071.             expect {
  2072.                 -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long == (~0)" }
  2073.                 -re "$prompt $"                      { fail "print unsigned long == (~0)" }
  2074.                 timeout                              { fail "(timeout) print unsigned long == (~0)" }
  2075.             }
  2076.             }
  2077.             -re "$prompt $"                      { fail "print unsigned long == (~0)" }
  2078.             timeout                              { fail "(timeout) print unsigned long == (~0)" }
  2079.         }
  2080.         }
  2081.         -re "$prompt $"                      { fail "print unsigned long == (~0)" }
  2082.         timeout                              { fail "(timeout) print unsigned long == (~0)" }
  2083.     }
  2084.     }
  2085.     -re "$prompt $"                              { fail "print unsigned long == (~0)" }
  2086.     timeout                                      { fail "(timeout) print unsigned long == (~0)" }
  2087. }
  2088.  
  2089.  
  2090. send "set variable v_unsigned_long=~0\n"
  2091. expect {
  2092.     -re "set.*$prompt $" {
  2093.     send "print v_unsigned_long != 0\n"
  2094.     expect {
  2095.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  2096.         send "print v_unsigned_long != (unsigned long)~0\n"
  2097.         expect {
  2098.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long != (~0)" }
  2099.             -re "$prompt $"                      { fail "print unsigned long != (~0)" }
  2100.             timeout                              { fail "(timeout) print unsigned long != (~0)" }
  2101.         }
  2102.         }
  2103.         -re "$prompt $"                      { fail "print unsigned long != (~0)" }
  2104.         timeout                              { fail "(timeout) print unsigned long != (~0)" }
  2105.     }
  2106.     }
  2107.     -re "$prompt $"                              { fail "print unsigned long != (~0)" }
  2108.     timeout                                      { fail "(timeout) print unsigned long != (~0)" }
  2109. }
  2110.  
  2111.  
  2112. send "set variable v_unsigned_long=~0\n"
  2113. expect {
  2114.     -re "set.*$prompt $" {
  2115.     send "print v_unsigned_long < 0\n"
  2116.     expect {
  2117.         -re "print.*.\[0-9\]* = 0.*$prompt $" {
  2118.         send "print v_unsigned_long < 0x7FFF\n"
  2119.         expect {
  2120.             -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long < (~0)" }
  2121.             -re "$prompt $"                      { fail "print unsigned long < (~0)" }
  2122.             timeout                              { fail "(timeout) print unsigned long < (~0)" }
  2123.         }
  2124.         }
  2125.         -re "$prompt $"                      { fail "print unsigned long < (~0)" }
  2126.         timeout                              { fail "(timeout) print unsigned long < (~0)" }
  2127.     }
  2128.     }
  2129.     -re "$prompt $"                              { fail "print unsigned long < (~0)" }
  2130.     timeout                                      { fail "(timeout) print unsigned long < (~0)" }
  2131. }
  2132.  
  2133.  
  2134. send "set variable v_unsigned_long=~0\n"
  2135. expect {
  2136.     -re "set.*$prompt $" {
  2137.     send "print v_unsigned_long > 0\n"
  2138.     expect {
  2139.         -re "print.*.\[0-9\]* = 1.*$prompt $" {
  2140.         send "print v_unsigned_long > 0x7FFF\n"
  2141.         expect {
  2142.             -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long > (~0)" }
  2143.             -re "$prompt $"                      { fail "print unsigned long > (~0)" }
  2144.             timeout                              { fail "(timeout) print unsigned long > (~0)" }
  2145.         }
  2146.         }
  2147.         -re "$prompt $"                      { fail "print unsigned long > (~0)" }
  2148.         timeout                              { fail "(timeout) print unsigned long > (~0)" }
  2149.     }
  2150.     }
  2151.     -re "$prompt $"                              { fail "print unsigned long > (~0)" }
  2152.     timeout                                      { fail "(timeout) print unsigned long > (~0)" }
  2153. }
  2154.  
  2155. if [istarget "a29k-*-udi"] then {
  2156.     # FIXME: If PR 2415 is fixed, this is not needed.
  2157.     gdb_target_udi
  2158. }
  2159.