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.t16 / printcmds.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  56.7 KB  |  1,439 lines
  1. # Copyright (C) 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 Fred Fish. (fnf@cygnus.com)
  21.  
  22. if $tracelevel then {
  23.     strace $tracelevel
  24. }
  25.  
  26. set prms_id 0
  27. set bug_id 0
  28.  
  29. set binfile "gdbme"
  30. set srcfile $binfile.c
  31.  
  32. if ![file exists $objdir/$subdir/$binfile] then {
  33.     error "$objdir/$subdir/$binfile does not exist"
  34.     continue
  35. }
  36.  
  37. # Set the current language to C.  This counts as a test.  If it
  38. # fails, then we skip the other tests.
  39.  
  40. proc set_lang_c {} {
  41.     global prompt
  42.  
  43.     send "set language c\n"
  44.     expect {
  45.     -re ".*$prompt $" {}
  46.     timeout { fail "set language c (timeout)" ; return 0 }
  47.     }
  48.  
  49.     send "show language\n"
  50.     expect {
  51.     -re ".* source language is \"c\".*$prompt $" {
  52.         pass "set language to \"c\""
  53.         return 1
  54.     }
  55.     -re ".*$prompt $" {
  56.         fail "setting language to \"c\""
  57.         return 0
  58.     }
  59.     timeout {
  60.         fail "can't show language (timeout)"
  61.         return 0
  62.     }
  63.     }
  64. }
  65.  
  66. # Testing printing of a specific value.  Increment passcount for
  67. # success or issue fail message for failure.  In both cases, return
  68. # a 1 to indicate that more tests can proceed.  However a timeout
  69. # is a serious error, generates a special fail message, and causes
  70. # a 0 to be returned to indicate that more tests are likely to fail
  71. # as well.
  72.  
  73. proc prt_accept { sendthis expectthis } {
  74.     global prompt
  75.     global passcount
  76.     global xfail_flag
  77.  
  78.     send "$sendthis\n"
  79.     expect {
  80.     -re ".* = $expectthis\r\n$prompt $" {
  81.         if $xfail_flag then { pass "$sendthis" }
  82.         incr passcount
  83.         return 1
  84.     }
  85.     -re ".*$prompt $" {
  86.         fail "$sendthis"
  87.         return 1
  88.     }
  89.     timeout {
  90.         fail "$sendthis (timeout)"
  91.         return 0
  92.     }
  93.     }
  94. }
  95.  
  96. proc test_integer_literals_accepted {} {
  97.     global prompt
  98.     global passcount
  99.  
  100.     set passcount 0
  101.  
  102.     # Test various decimal values.
  103.  
  104.     prt_accept "p 123" "123"
  105.     prt_accept "p -123" "-123"
  106.     prt_accept "p/d 123" "123"
  107.  
  108.     # Test various octal values.
  109.  
  110.     prt_accept "p 0123" "83"
  111.     prt_accept "p 00123" "83"
  112.     prt_accept "p -0123" "-83"
  113.     prt_accept "p/o 0123" "0123"
  114.  
  115.     # Test various hexadecimal values.
  116.  
  117.     prt_accept "p 0x123" "291"
  118.     prt_accept "p -0x123" "-291"
  119.     prt_accept "p 0x0123" "291"
  120.     prt_accept "p -0x0123" "-291"
  121.     prt_accept "p 0xABCDEF" "11259375"
  122.     prt_accept "p 0xabcdef" "11259375"
  123.     prt_accept "p 0xAbCdEf" "11259375"
  124.     prt_accept "p/x 0x123" "0x123"
  125.  
  126.     if $passcount then {
  127.     pass "$passcount correct integer literals printed"
  128.     }
  129. }
  130.  
  131. proc test_character_literals_accepted {} {
  132.     global prompt
  133.     global passcount
  134.  
  135.     set passcount 0
  136.  
  137.     prt_accept "p 'a'" "97 'a'"
  138.     prt_accept "p/c 'a'" "97 'a'"
  139.     prt_accept "p/x 'a'" "0x61"
  140.     prt_accept "p/d 'a'" "97"
  141.     prt_accept "p/t 'a'" "1100001"
  142.     prt_accept "p '\\141'" "97 'a'"
  143.     prt_accept "p/x '\\377'" "0xff"
  144.     # Note "p '\''" => "= 39 '\''"
  145.     prt_accept "p '\''" "39 '\\\''"
  146.     # Note "p '\\'" => "= 92 '\\'"
  147.     prt_accept "p '\\\\'" "92 '\\\\\\\\'"
  148.  
  149.     if $passcount then {
  150.     pass "$passcount correct character literals printed"
  151.     }
  152. }
  153.  
  154. # Testing printing of a specific value.  Increment passcount for
  155. # success or issue fail message for failure.  In both cases, return
  156. # a 1 to indicate that more tests can proceed.  However a timeout
  157. # is a serious error, generates a special fail message, and causes
  158. # a 0 to be returned to indicate that more tests are likely to fail
  159. # as well.
  160. #
  161. # Note we aren't too selective about what sort of error is printed,
  162. # just that *some* error is printed.
  163.  
  164. proc prt_reject { sendthis } {
  165.     global prompt
  166.     global passcount
  167.  
  168.     send "$sendthis\n"
  169.     expect {
  170.     -re ".*Invalid syntax in expression.*$prompt $" {
  171.         incr passcount
  172.         return 1
  173.     }
  174.     -re ".*Junk after end of expression.*$prompt $" {
  175.         incr passcount
  176.         return 1
  177.     }
  178.     -re ".*Invalid number.*$prompt $" {
  179.         incr passcount
  180.         return 1
  181.     }
  182.     -re ".*Invalid character constant.*$prompt $" {
  183.         incr passcount
  184.         return 1
  185.     }
  186.     -re ".*No symbol table is loaded.*$prompt $" {
  187.         incr passcount
  188.         return 1
  189.     }
  190.     -re ".*No symbol .* in current context.*$prompt $" {
  191.         incr passcount
  192.         return 1
  193.     }
  194.     -re ".*$prompt $" {
  195.         fail "$sendthis not properly rejected"
  196.         return 1
  197.     }
  198.     timeout {
  199.         fail "$sendthis (timeout)"
  200.         return 0
  201.     }
  202.     }
  203. }
  204.  
  205. proc test_integer_literals_rejected {} {
  206.     global prompt
  207.     global passcount
  208.  
  209.     set passcount 0
  210.  
  211.     prt_reject "p 0x" 
  212.     prt_reject "p ''" 
  213.     prt_reject "p '\'"
  214.  
  215.     # Note that this turns into "p '\\\'" at gdb's input.
  216.     prt_reject "p '\\\\\\'"
  217.  
  218.     # Test various decimal values.
  219.  
  220.     prt_reject "p DEADBEEF"
  221.  
  222.     # Gdb currently fails this test for all configurations.  The C
  223.     # lexer thinks that 123DEADBEEF is a floating point number, but
  224.     # then fails to notice that atof() only eats the 123 part.
  225.     # FIXME:  This should be put into PRMS.
  226.  
  227.     setup_xfail "*-*-*"
  228.     prt_reject "p 123DEADBEEF"
  229.  
  230.     # Test various octal values.
  231.  
  232.     prt_reject "p 09" 
  233.     prt_reject "p 079" 
  234.  
  235.     # Test various hexadecimal values.
  236.  
  237.     prt_reject "p 0xG" 
  238.     prt_reject "p 0xAG" 
  239.  
  240.     if $passcount then {
  241.     pass "$passcount incorrect integer literals rejected"
  242.     }
  243. }
  244.  
  245. proc test_print_all_chars {} {
  246.     global prompt
  247.     global passcount
  248.  
  249.     set passcount 0
  250.  
  251.     prt_accept "p ctable1\[0\]"   "0 '\\\\000'"
  252.     prt_accept "p ctable1\[1\]"   "1 '\\\\001'"
  253.     prt_accept "p ctable1\[2\]"   "2 '\\\\002'"
  254.     prt_accept "p ctable1\[3\]"   "3 '\\\\003'"
  255.     prt_accept "p ctable1\[4\]"   "4 '\\\\004'"
  256.     prt_accept "p ctable1\[5\]"   "5 '\\\\005'"
  257.     prt_accept "p ctable1\[6\]"   "6 '\\\\006'"
  258.     prt_accept "p ctable1\[7\]"   "7 '\\\\a'"
  259.     prt_accept "p ctable1\[8\]"   "8 '\\\\b'"
  260.     prt_accept "p ctable1\[9\]"   "9 '\\\\t'"
  261.     prt_accept "p ctable1\[10\]"  "10 '\\\\n'"
  262.     prt_accept "p ctable1\[11\]"  "11 '\\\\013'"
  263.     prt_accept "p ctable1\[12\]"  "12 '\\\\f'"
  264.     prt_accept "p ctable1\[13\]"  "13 '\\\\r'"
  265.     prt_accept "p ctable1\[14\]"  "14 '\\\\016'"
  266.     prt_accept "p ctable1\[15\]"  "15 '\\\\017'"
  267.     prt_accept "p ctable1\[16\]"  "16 '\\\\020'"
  268.     prt_accept "p ctable1\[17\]"  "17 '\\\\021'"
  269.     prt_accept "p ctable1\[18\]"  "18 '\\\\022'"
  270.     prt_accept "p ctable1\[19\]"  "19 '\\\\023'"
  271.     prt_accept "p ctable1\[20\]"  "20 '\\\\024'"
  272.     prt_accept "p ctable1\[21\]"  "21 '\\\\025'"
  273.     prt_accept "p ctable1\[22\]"  "22 '\\\\026'"
  274.     prt_accept "p ctable1\[23\]"  "23 '\\\\027'"
  275.     prt_accept "p ctable1\[24\]"  "24 '\\\\030'"
  276.     prt_accept "p ctable1\[25\]"  "25 '\\\\031'"
  277.     prt_accept "p ctable1\[26\]"  "26 '\\\\032'"
  278.     prt_accept "p ctable1\[27\]"  "27 '\\\\e'"
  279.     prt_accept "p ctable1\[28\]"  "28 '\\\\034'"
  280.     prt_accept "p ctable1\[29\]"  "29 '\\\\035'"
  281.     prt_accept "p ctable1\[30\]"  "30 '\\\\036'"
  282.     prt_accept "p ctable1\[31\]"  "31 '\\\\037'"
  283.     prt_accept "p ctable1\[32\]"  "32 ' '"
  284.     prt_accept "p ctable1\[33\]"  "33 '!'"
  285.     prt_accept "p ctable1\[34\]"  "34 '\"'"
  286.     prt_accept "p ctable1\[35\]"  "35 '#'"
  287.     prt_accept "p ctable1\[36\]"  "36 '\\\$'"
  288.     prt_accept "p ctable1\[37\]"  "37 '%'"
  289.     prt_accept "p ctable1\[38\]"  "38 '&'"
  290.     prt_accept "p ctable1\[39\]"  "39 '\\\\''"
  291.     prt_accept "p ctable1\[40\]"  "40 '\('"
  292.     prt_accept "p ctable1\[41\]"  "41 '\)'"
  293.     prt_accept "p ctable1\[42\]"  "42 '\\*'"
  294.     prt_accept "p ctable1\[43\]"  "43 '\\+'"
  295.     prt_accept "p ctable1\[44\]"  "44 ','"
  296.     prt_accept "p ctable1\[45\]"  "45 '-'"
  297.     prt_accept "p ctable1\[46\]"  "46 '.'"
  298.     prt_accept "p ctable1\[47\]"  "47 '/'"
  299.     prt_accept "p ctable1\[48\]"  "48 '0'"
  300.     prt_accept "p ctable1\[49\]"  "49 '1'"
  301.     prt_accept "p ctable1\[50\]"  "50 '2'"
  302.     prt_accept "p ctable1\[51\]"  "51 '3'"
  303.     prt_accept "p ctable1\[52\]"  "52 '4'"
  304.     prt_accept "p ctable1\[53\]"  "53 '5'"
  305.     prt_accept "p ctable1\[54\]"  "54 '6'"
  306.     prt_accept "p ctable1\[55\]"  "55 '7'"
  307.     prt_accept "p ctable1\[56\]"  "56 '8'"
  308.     prt_accept "p ctable1\[57\]"  "57 '9'"
  309.     prt_accept "p ctable1\[58\]"  "58 ':'"
  310.     prt_accept "p ctable1\[59\]"  "59 ';'"
  311.     prt_accept "p ctable1\[60\]"  "60 '<'"
  312.     prt_accept "p ctable1\[61\]"  "61 '='"
  313.     prt_accept "p ctable1\[62\]"  "62 '>'"
  314.     prt_accept "p ctable1\[63\]"  "63 '\\?'"
  315.     prt_accept "p ctable1\[64\]"  "64 '@'"
  316.     prt_accept "p ctable1\[65\]"  "65 'A'"
  317.     prt_accept "p ctable1\[66\]"  "66 'B'"
  318.     prt_accept "p ctable1\[67\]"  "67 'C'"
  319.     prt_accept "p ctable1\[68\]"  "68 'D'"
  320.     prt_accept "p ctable1\[69\]"  "69 'E'"
  321.     prt_accept "p ctable1\[70\]"  "70 'F'"
  322.     prt_accept "p ctable1\[71\]"  "71 'G'"
  323.     prt_accept "p ctable1\[72\]"  "72 'H'"
  324.     prt_accept "p ctable1\[73\]"  "73 'I'"
  325.     prt_accept "p ctable1\[74\]"  "74 'J'"
  326.     prt_accept "p ctable1\[75\]"  "75 'K'"
  327.     prt_accept "p ctable1\[76\]"  "76 'L'"
  328.     prt_accept "p ctable1\[77\]"  "77 'M'"
  329.     prt_accept "p ctable1\[78\]"  "78 'N'"
  330.     prt_accept "p ctable1\[79\]"  "79 'O'"
  331.     prt_accept "p ctable1\[80\]"  "80 'P'"
  332.     prt_accept "p ctable1\[81\]"  "81 'Q'"
  333.     prt_accept "p ctable1\[82\]"  "82 'R'"
  334.     prt_accept "p ctable1\[83\]"  "83 'S'"
  335.     prt_accept "p ctable1\[84\]"  "84 'T'"
  336.     prt_accept "p ctable1\[85\]"  "85 'U'"
  337.     prt_accept "p ctable1\[86\]"  "86 'V'"
  338.     prt_accept "p ctable1\[87\]"  "87 'W'"
  339.     prt_accept "p ctable1\[88\]"  "88 'X'"
  340.     prt_accept "p ctable1\[89\]"  "89 'Y'"
  341.     prt_accept "p ctable1\[90\]"  "90 'Z'"
  342.     prt_accept "p ctable1\[91\]"  "91 '\\\['"
  343.     prt_accept "p ctable1\[92\]"  "92 '\\\\\\\\'"
  344.     prt_accept "p ctable1\[93\]"  "93 '\\\]'"
  345.     prt_accept "p ctable1\[94\]"  "94 '\\^'"
  346.     prt_accept "p ctable1\[95\]"  "95 '_'"
  347.     prt_accept "p ctable1\[96\]"  "96 '`'"
  348.     prt_accept "p ctable1\[97\]"  "97 'a'"
  349.     prt_accept "p ctable1\[98\]"  "98 'b'"
  350.     prt_accept "p ctable1\[99\]"  "99 'c'"
  351.     prt_accept "p ctable1\[100\]" "100 'd'"
  352.     prt_accept "p ctable1\[101\]" "101 'e'"
  353.     prt_accept "p ctable1\[102\]" "102 'f'"
  354.     prt_accept "p ctable1\[103\]" "103 'g'"
  355.     prt_accept "p ctable1\[104\]" "104 'h'"
  356.     prt_accept "p ctable1\[105\]" "105 'i'"
  357.     prt_accept "p ctable1\[106\]" "106 'j'"
  358.     prt_accept "p ctable1\[107\]" "107 'k'"
  359.     prt_accept "p ctable1\[108\]" "108 'l'"
  360.     prt_accept "p ctable1\[109\]" "109 'm'"
  361.     prt_accept "p ctable1\[110\]" "110 'n'"
  362.     prt_accept "p ctable1\[111\]" "111 'o'"
  363.     prt_accept "p ctable1\[112\]" "112 'p'"
  364.     prt_accept "p ctable1\[113\]" "113 'q'"
  365.     prt_accept "p ctable1\[114\]" "114 'r'"
  366.     prt_accept "p ctable1\[115\]" "115 's'"
  367.     prt_accept "p ctable1\[116\]" "116 't'"
  368.     prt_accept "p ctable1\[117\]" "117 'u'"
  369.     prt_accept "p ctable1\[118\]" "118 'v'"
  370.     prt_accept "p ctable1\[119\]" "119 'w'"
  371.     prt_accept "p ctable1\[120\]" "120 'x'"
  372.     prt_accept "p ctable1\[121\]" "121 'y'"
  373.     prt_accept "p ctable1\[122\]" "122 'z'"
  374.     prt_accept "p ctable1\[123\]" "123 '\{'"
  375.     prt_accept "p ctable1\[124\]" "124 '\|'"
  376.     prt_accept "p ctable1\[125\]" "125 '\}'"
  377.     prt_accept "p ctable1\[126\]" "126 '\\~'"
  378.     prt_accept "p ctable1\[127\]" "127 '\\\\177'"
  379.     prt_accept "p ctable1\[128\]" "128 '\\\\200'"
  380.     prt_accept "p ctable1\[129\]" "129 '\\\\201'"
  381.     prt_accept "p ctable1\[130\]" "130 '\\\\202'"
  382.     prt_accept "p ctable1\[131\]" "131 '\\\\203'"
  383.     prt_accept "p ctable1\[132\]" "132 '\\\\204'"
  384.     prt_accept "p ctable1\[133\]" "133 '\\\\205'"
  385.     prt_accept "p ctable1\[134\]" "134 '\\\\206'"
  386.     prt_accept "p ctable1\[135\]" "135 '\\\\207'"
  387.     prt_accept "p ctable1\[136\]" "136 '\\\\210'"
  388.     prt_accept "p ctable1\[137\]" "137 '\\\\211'"
  389.     prt_accept "p ctable1\[138\]" "138 '\\\\212'"
  390.     prt_accept "p ctable1\[139\]" "139 '\\\\213'"
  391.     prt_accept "p ctable1\[140\]" "140 '\\\\214'"
  392.     prt_accept "p ctable1\[141\]" "141 '\\\\215'"
  393.     prt_accept "p ctable1\[142\]" "142 '\\\\216'"
  394.     prt_accept "p ctable1\[143\]" "143 '\\\\217'"
  395.     prt_accept "p ctable1\[144\]" "144 '\\\\220'"
  396.     prt_accept "p ctable1\[145\]" "145 '\\\\221'"
  397.     prt_accept "p ctable1\[146\]" "146 '\\\\222'"
  398.     prt_accept "p ctable1\[147\]" "147 '\\\\223'"
  399.     prt_accept "p ctable1\[148\]" "148 '\\\\224'"
  400.     prt_accept "p ctable1\[149\]" "149 '\\\\225'"
  401.     prt_accept "p ctable1\[150\]" "150 '\\\\226'"
  402.     prt_accept "p ctable1\[151\]" "151 '\\\\227'"
  403.     prt_accept "p ctable1\[152\]" "152 '\\\\230'"
  404.     prt_accept "p ctable1\[153\]" "153 '\\\\231'"
  405.     prt_accept "p ctable1\[154\]" "154 '\\\\232'"
  406.     prt_accept "p ctable1\[155\]" "155 '\\\\233'"
  407.     prt_accept "p ctable1\[156\]" "156 '\\\\234'"
  408.     prt_accept "p ctable1\[157\]" "157 '\\\\235'"
  409.     prt_accept "p ctable1\[158\]" "158 '\\\\236'"
  410.     prt_accept "p ctable1\[159\]" "159 '\\\\237'"
  411.     prt_accept "p ctable1\[160\]" "160 '\\\\240'"
  412.     prt_accept "p ctable1\[161\]" "161 '\\\\241'"
  413.     prt_accept "p ctable1\[162\]" "162 '\\\\242'"
  414.     prt_accept "p ctable1\[163\]" "163 '\\\\243'"
  415.     prt_accept "p ctable1\[164\]" "164 '\\\\244'"
  416.     prt_accept "p ctable1\[165\]" "165 '\\\\245'"
  417.     prt_accept "p ctable1\[166\]" "166 '\\\\246'"
  418.     prt_accept "p ctable1\[167\]" "167 '\\\\247'"
  419.     prt_accept "p ctable1\[168\]" "168 '\\\\250'"
  420.     prt_accept "p ctable1\[169\]" "169 '\\\\251'"
  421.     prt_accept "p ctable1\[170\]" "170 '\\\\252'"
  422.     prt_accept "p ctable1\[171\]" "171 '\\\\253'"
  423.     prt_accept "p ctable1\[172\]" "172 '\\\\254'"
  424.     prt_accept "p ctable1\[173\]" "173 '\\\\255'"
  425.     prt_accept "p ctable1\[174\]" "174 '\\\\256'"
  426.     prt_accept "p ctable1\[175\]" "175 '\\\\257'"
  427.     prt_accept "p ctable1\[176\]" "176 '\\\\260'"
  428.     prt_accept "p ctable1\[177\]" "177 '\\\\261'"
  429.     prt_accept "p ctable1\[178\]" "178 '\\\\262'"
  430.     prt_accept "p ctable1\[179\]" "179 '\\\\263'"
  431.     prt_accept "p ctable1\[180\]" "180 '\\\\264'"
  432.     prt_accept "p ctable1\[181\]" "181 '\\\\265'"
  433.     prt_accept "p ctable1\[182\]" "182 '\\\\266'"
  434.     prt_accept "p ctable1\[183\]" "183 '\\\\267'"
  435.     prt_accept "p ctable1\[184\]" "184 '\\\\270'"
  436.     prt_accept "p ctable1\[185\]" "185 '\\\\271'"
  437.     prt_accept "p ctable1\[186\]" "186 '\\\\272'"
  438.     prt_accept "p ctable1\[187\]" "187 '\\\\273'"
  439.     prt_accept "p ctable1\[188\]" "188 '\\\\274'"
  440.     prt_accept "p ctable1\[189\]" "189 '\\\\275'"
  441.     prt_accept "p ctable1\[190\]" "190 '\\\\276'"
  442.     prt_accept "p ctable1\[191\]" "191 '\\\\277'"
  443.     prt_accept "p ctable1\[192\]" "192 '\\\\300'"
  444.     prt_accept "p ctable1\[193\]" "193 '\\\\301'"
  445.     prt_accept "p ctable1\[194\]" "194 '\\\\302'"
  446.     prt_accept "p ctable1\[195\]" "195 '\\\\303'"
  447.     prt_accept "p ctable1\[196\]" "196 '\\\\304'"
  448.     prt_accept "p ctable1\[197\]" "197 '\\\\305'"
  449.     prt_accept "p ctable1\[198\]" "198 '\\\\306'"
  450.     prt_accept "p ctable1\[199\]" "199 '\\\\307'"
  451.     prt_accept "p ctable1\[200\]" "200 '\\\\310'"
  452.     prt_accept "p ctable1\[201\]" "201 '\\\\311'"
  453.     prt_accept "p ctable1\[202\]" "202 '\\\\312'"
  454.     prt_accept "p ctable1\[203\]" "203 '\\\\313'"
  455.     prt_accept "p ctable1\[204\]" "204 '\\\\314'"
  456.     prt_accept "p ctable1\[205\]" "205 '\\\\315'"
  457.     prt_accept "p ctable1\[206\]" "206 '\\\\316'"
  458.     prt_accept "p ctable1\[207\]" "207 '\\\\317'"
  459.     prt_accept "p ctable1\[208\]" "208 '\\\\320'"
  460.     prt_accept "p ctable1\[209\]" "209 '\\\\321'"
  461.     prt_accept "p ctable1\[210\]" "210 '\\\\322'"
  462.     prt_accept "p ctable1\[211\]" "211 '\\\\323'"
  463.     prt_accept "p ctable1\[212\]" "212 '\\\\324'"
  464.     prt_accept "p ctable1\[213\]" "213 '\\\\325'"
  465.     prt_accept "p ctable1\[214\]" "214 '\\\\326'"
  466.     prt_accept "p ctable1\[215\]" "215 '\\\\327'"
  467.     prt_accept "p ctable1\[216\]" "216 '\\\\330'"
  468.     prt_accept "p ctable1\[217\]" "217 '\\\\331'"
  469.     prt_accept "p ctable1\[218\]" "218 '\\\\332'"
  470.     prt_accept "p ctable1\[219\]" "219 '\\\\333'"
  471.     prt_accept "p ctable1\[220\]" "220 '\\\\334'"
  472.     prt_accept "p ctable1\[221\]" "221 '\\\\335'"
  473.     prt_accept "p ctable1\[222\]" "222 '\\\\336'"
  474.     prt_accept "p ctable1\[223\]" "223 '\\\\337'"
  475.     prt_accept "p ctable1\[224\]" "224 '\\\\340'"
  476.     prt_accept "p ctable1\[225\]" "225 '\\\\341'"
  477.     prt_accept "p ctable1\[226\]" "226 '\\\\342'"
  478.     prt_accept "p ctable1\[227\]" "227 '\\\\343'"
  479.     prt_accept "p ctable1\[228\]" "228 '\\\\344'"
  480.     prt_accept "p ctable1\[229\]" "229 '\\\\345'"
  481.     prt_accept "p ctable1\[230\]" "230 '\\\\346'"
  482.     prt_accept "p ctable1\[231\]" "231 '\\\\347'"
  483.     prt_accept "p ctable1\[232\]" "232 '\\\\350'"
  484.     prt_accept "p ctable1\[233\]" "233 '\\\\351'"
  485.     prt_accept "p ctable1\[234\]" "234 '\\\\352'"
  486.     prt_accept "p ctable1\[235\]" "235 '\\\\353'"
  487.     prt_accept "p ctable1\[236\]" "236 '\\\\354'"
  488.     prt_accept "p ctable1\[237\]" "237 '\\\\355'"
  489.     prt_accept "p ctable1\[238\]" "238 '\\\\356'"
  490.     prt_accept "p ctable1\[239\]" "239 '\\\\357'"
  491.     prt_accept "p ctable1\[240\]" "240 '\\\\360'"
  492.     prt_accept "p ctable1\[241\]" "241 '\\\\361'"
  493.     prt_accept "p ctable1\[242\]" "242 '\\\\362'"
  494.     prt_accept "p ctable1\[243\]" "243 '\\\\363'"
  495.     prt_accept "p ctable1\[244\]" "244 '\\\\364'"
  496.     prt_accept "p ctable1\[245\]" "245 '\\\\365'"
  497.     prt_accept "p ctable1\[246\]" "246 '\\\\366'"
  498.     prt_accept "p ctable1\[247\]" "247 '\\\\367'"
  499.     prt_accept "p ctable1\[248\]" "248 '\\\\370'"
  500.     prt_accept "p ctable1\[249\]" "249 '\\\\371'"
  501.     prt_accept "p ctable1\[250\]" "250 '\\\\372'"
  502.     prt_accept "p ctable1\[251\]" "251 '\\\\373'"
  503.     prt_accept "p ctable1\[252\]" "252 '\\\\374'"
  504.     prt_accept "p ctable1\[253\]" "253 '\\\\375'"
  505.     prt_accept "p ctable1\[254\]" "254 '\\\\376'"
  506.     prt_accept "p ctable1\[255\]" "255 '\\\\377'"
  507.  
  508.     if $passcount then {
  509.     pass "$passcount of 256 characters printed from ASCII table"
  510.     }
  511. }
  512.  
  513. # Test interaction of the number of print elements to print and the
  514. # repeat count, set to the default of 10.
  515.  
  516. proc test_print_repeats_10 {} {
  517.     global prompt
  518.     global passcount
  519.  
  520.     set passcount 0
  521.     send "set print elements 1\n" ; expect -re "$prompt $"
  522.     setup_xfail "a29k-*-udi" 2417
  523.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"a\"..."
  524.     setup_xfail "a29k-*-udi" 2417
  525.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"a\"..."
  526.     setup_xfail "a29k-*-udi" 2417
  527.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"a\"..."
  528.     setup_xfail "a29k-*-udi" 2417
  529.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"a\"..."
  530.     setup_xfail "a29k-*-udi" 2417
  531.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"a\"..."
  532.     setup_xfail "a29k-*-udi" 2417
  533.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"a\"..."
  534.     setup_xfail "a29k-*-udi" 2417
  535.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"a\"..."
  536.     setup_xfail "a29k-*-udi" 2417
  537.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"a\"..."
  538.     setup_xfail "a29k-*-udi" 2417
  539.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"a\"..."
  540.     setup_xfail "a29k-*-udi" 2417
  541.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"a\"..."
  542.     setup_xfail "a29k-*-udi" 2417
  543.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"a\"..."
  544.     setup_xfail "a29k-*-udi" 2417
  545.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"a\"..."
  546.     setup_xfail "a29k-*-udi" 2417
  547.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"a\"..."
  548.     setup_xfail "a29k-*-udi" 2417
  549.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"a\"..."
  550.     setup_xfail "a29k-*-udi" 2417
  551.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"a\"..."
  552.     setup_xfail "a29k-*-udi" 2417
  553.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"a\"..."
  554.     if $passcount then {
  555.     pass "$passcount tests with elements = 1 and repeat count = 10"
  556.     }
  557.  
  558.     set passcount 0
  559.     send "set print elements 2\n" ; expect -re "$prompt $"
  560.     setup_xfail "a29k-*-udi" 2417
  561.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aX\"..."
  562.     setup_xfail "a29k-*-udi" 2417
  563.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aa\"..."
  564.     setup_xfail "a29k-*-udi" 2417
  565.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aa\"..."
  566.     setup_xfail "a29k-*-udi" 2417
  567.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aa\"..."
  568.     setup_xfail "a29k-*-udi" 2417
  569.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aa\"..."
  570.     setup_xfail "a29k-*-udi" 2417
  571.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aa\"..."
  572.     setup_xfail "a29k-*-udi" 2417
  573.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aa\"..."
  574.     setup_xfail "a29k-*-udi" 2417
  575.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aa\"..."
  576.     setup_xfail "a29k-*-udi" 2417
  577.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aa\"..."
  578.     setup_xfail "a29k-*-udi" 2417
  579.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aa\"..."
  580.     setup_xfail "a29k-*-udi" 2417
  581.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aa\"..."
  582.     setup_xfail "a29k-*-udi" 2417
  583.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aa\"..."
  584.     setup_xfail "a29k-*-udi" 2417
  585.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aa\"..."
  586.     setup_xfail "a29k-*-udi" 2417
  587.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aa\"..."
  588.     setup_xfail "a29k-*-udi" 2417
  589.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aa\"..."
  590.     setup_xfail "a29k-*-udi" 2417
  591.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aa\"..."
  592.     if $passcount then {
  593.     pass "$passcount tests with elements = 2 and repeat count = 10"
  594.     }
  595.  
  596.     set passcount 0
  597.     send "set print elements 3\n" ; expect -re "$prompt $"
  598.     setup_xfail "a29k-*-udi" 2417
  599.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXX\"..."
  600.     setup_xfail "a29k-*-udi" 2417
  601.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaX\"..."
  602.     setup_xfail "a29k-*-udi" 2417
  603.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaa\"..."
  604.     setup_xfail "a29k-*-udi" 2417
  605.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaa\"..."
  606.     setup_xfail "a29k-*-udi" 2417
  607.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaa\"..."
  608.     setup_xfail "a29k-*-udi" 2417
  609.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaa\"..."
  610.     setup_xfail "a29k-*-udi" 2417
  611.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaa\"..."
  612.     setup_xfail "a29k-*-udi" 2417
  613.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaa\"..."
  614.     setup_xfail "a29k-*-udi" 2417
  615.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaa\"..."
  616.     setup_xfail "a29k-*-udi" 2417
  617.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaa\"..."
  618.     setup_xfail "a29k-*-udi" 2417
  619.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaa\"..."
  620.     setup_xfail "a29k-*-udi" 2417
  621.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaa\"..."
  622.     setup_xfail "a29k-*-udi" 2417
  623.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaa\"..."
  624.     setup_xfail "a29k-*-udi" 2417
  625.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaa\"..."
  626.     setup_xfail "a29k-*-udi" 2417
  627.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaa\"..."
  628.     setup_xfail "a29k-*-udi" 2417
  629.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaa\"..."
  630.     if $passcount then {
  631.     pass "$passcount tests with elements = 3 and repeat count = 10"
  632.     }
  633.  
  634.     set passcount 0
  635.     send "set print elements 4\n" ; expect -re "$prompt $"
  636.     setup_xfail "a29k-*-udi" 2417
  637.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXX\"..."
  638.     setup_xfail "a29k-*-udi" 2417
  639.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXX\"..."
  640.     setup_xfail "a29k-*-udi" 2417
  641.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaX\"..."
  642.     setup_xfail "a29k-*-udi" 2417
  643.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  644.     setup_xfail "a29k-*-udi" 2417
  645.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  646.     setup_xfail "a29k-*-udi" 2417
  647.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  648.     setup_xfail "a29k-*-udi" 2417
  649.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  650.     setup_xfail "a29k-*-udi" 2417
  651.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  652.     setup_xfail "a29k-*-udi" 2417
  653.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  654.     setup_xfail "a29k-*-udi" 2417
  655.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaa\"..."
  656.     setup_xfail "a29k-*-udi" 2417
  657.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaa\"..."
  658.     setup_xfail "a29k-*-udi" 2417
  659.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaa\"..."
  660.     setup_xfail "a29k-*-udi" 2417
  661.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaa\"..."
  662.     setup_xfail "a29k-*-udi" 2417
  663.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaa\"..."
  664.     setup_xfail "a29k-*-udi" 2417
  665.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaa\"..."
  666.     setup_xfail "a29k-*-udi" 2417
  667.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaa\"..."
  668.     if $passcount then {
  669.     pass "$passcount tests with elements = 4 and repeat count = 10"
  670.     }
  671.  
  672.     set passcount 0
  673.     send "set print elements 5\n" ; expect -re "$prompt $"
  674.     setup_xfail "a29k-*-udi" 2417
  675.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXX\"..."
  676.     setup_xfail "a29k-*-udi" 2417
  677.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXX\"..."
  678.     setup_xfail "a29k-*-udi" 2417
  679.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXX\"..."
  680.     setup_xfail "a29k-*-udi" 2417
  681.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaX\"..."
  682.     setup_xfail "a29k-*-udi" 2417
  683.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  684.     setup_xfail "a29k-*-udi" 2417
  685.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  686.     setup_xfail "a29k-*-udi" 2417
  687.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  688.     setup_xfail "a29k-*-udi" 2417
  689.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  690.     setup_xfail "a29k-*-udi" 2417
  691.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  692.     setup_xfail "a29k-*-udi" 2417
  693.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaa\"..."
  694.     setup_xfail "a29k-*-udi" 2417
  695.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  696.     setup_xfail "a29k-*-udi" 2417
  697.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  698.     setup_xfail "a29k-*-udi" 2417
  699.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  700.     setup_xfail "a29k-*-udi" 2417
  701.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  702.     setup_xfail "a29k-*-udi" 2417
  703.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  704.     setup_xfail "a29k-*-udi" 2417
  705.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaa\"..."
  706.     if $passcount then {
  707.     pass "$passcount tests with elements = 5 and repeat count = 10"
  708.     }
  709.  
  710.     set passcount 0
  711.     send "set print elements 6\n" ; expect -re "$prompt $"
  712.     setup_xfail "a29k-*-udi" 2417
  713.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXXX\"..."
  714.     setup_xfail "a29k-*-udi" 2417
  715.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXXX\"..."
  716.     setup_xfail "a29k-*-udi" 2417
  717.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXXX\"..."
  718.     setup_xfail "a29k-*-udi" 2417
  719.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaXX\"..."
  720.     setup_xfail "a29k-*-udi" 2417
  721.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaaX\"..."
  722.     setup_xfail "a29k-*-udi" 2417
  723.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaaa\"..."
  724.     setup_xfail "a29k-*-udi" 2417
  725.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaaa\"..."
  726.     setup_xfail "a29k-*-udi" 2417
  727.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaaa\"..."
  728.     setup_xfail "a29k-*-udi" 2417
  729.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaaa\"..."
  730.     setup_xfail "a29k-*-udi" 2417
  731.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaaa\"..."
  732.     setup_xfail "a29k-*-udi" 2417
  733.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  734.     setup_xfail "a29k-*-udi" 2417
  735.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  736.     setup_xfail "a29k-*-udi" 2417
  737.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  738.     setup_xfail "a29k-*-udi" 2417
  739.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  740.     setup_xfail "a29k-*-udi" 2417
  741.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  742.     setup_xfail "a29k-*-udi" 2417
  743.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaaa\"..."
  744.     if $passcount then {
  745.     pass "$passcount tests with elements = 6 and repeat count = 10"
  746.     }
  747.  
  748.     set passcount 0
  749.     send "set print elements 7\n" ; expect -re "$prompt $"
  750.     setup_xfail "a29k-*-udi" 2417
  751.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXXXX\"..."
  752.     setup_xfail "a29k-*-udi" 2417
  753.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXXXX\"..."
  754.     setup_xfail "a29k-*-udi" 2417
  755.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXXXX\"..."
  756.     setup_xfail "a29k-*-udi" 2417
  757.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaXXX\"..."
  758.     setup_xfail "a29k-*-udi" 2417
  759.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaaXX\"..."
  760.     setup_xfail "a29k-*-udi" 2417
  761.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaaaX\"..."
  762.     setup_xfail "a29k-*-udi" 2417
  763.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaaaa\"..."
  764.     setup_xfail "a29k-*-udi" 2417
  765.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaaaa\"..."
  766.     setup_xfail "a29k-*-udi" 2417
  767.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaaaa\"..."
  768.     setup_xfail "a29k-*-udi" 2417
  769.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaaaa\"..."
  770.     setup_xfail "a29k-*-udi" 2417
  771.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  772.     setup_xfail "a29k-*-udi" 2417
  773.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  774.     setup_xfail "a29k-*-udi" 2417
  775.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  776.     setup_xfail "a29k-*-udi" 2417
  777.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  778.     setup_xfail "a29k-*-udi" 2417
  779.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  780.     setup_xfail "a29k-*-udi" 2417
  781.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaaaa\"..."
  782.     if $passcount then {
  783.     pass "$passcount tests with elements = 7 and repeat count = 10"
  784.     }
  785.  
  786.     set passcount 0
  787.     send "set print elements 8\n" ; expect -re "$prompt $"
  788.     setup_xfail "a29k-*-udi" 2417
  789.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXXXXX\"..."
  790.     setup_xfail "a29k-*-udi" 2417
  791.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXXXXX\"..."
  792.     setup_xfail "a29k-*-udi" 2417
  793.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXXXXX\"..."
  794.     setup_xfail "a29k-*-udi" 2417
  795.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaXXXX\"..."
  796.     setup_xfail "a29k-*-udi" 2417
  797.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaaXXX\"..."
  798.     setup_xfail "a29k-*-udi" 2417
  799.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaaaXX\"..."
  800.     setup_xfail "a29k-*-udi" 2417
  801.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaaaaX\"..."
  802.     setup_xfail "a29k-*-udi" 2417
  803.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaaaaa\"..."
  804.     setup_xfail "a29k-*-udi" 2417
  805.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaaaaa\"..."
  806.     setup_xfail "a29k-*-udi" 2417
  807.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaaaaa\"..."
  808.     setup_xfail "a29k-*-udi" 2417
  809.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  810.     setup_xfail "a29k-*-udi" 2417
  811.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  812.     setup_xfail "a29k-*-udi" 2417
  813.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  814.     setup_xfail "a29k-*-udi" 2417
  815.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  816.     setup_xfail "a29k-*-udi" 2417
  817.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  818.     setup_xfail "a29k-*-udi" 2417
  819.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaaaaa\"..."
  820.     if $passcount then {
  821.     pass "$passcount tests with elements = 8 and repeat count = 10"
  822.     }
  823.  
  824.     set passcount 0
  825.     send "set print elements 9\n" ; expect -re "$prompt $"
  826.     setup_xfail "a29k-*-udi" 2417
  827.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXXXXXX\"..."
  828.     setup_xfail "a29k-*-udi" 2417
  829.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXXXXXX\"..."
  830.     setup_xfail "a29k-*-udi" 2417
  831.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXXXXXX\"..."
  832.     setup_xfail "a29k-*-udi" 2417
  833.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaXXXXX\"..."
  834.     setup_xfail "a29k-*-udi" 2417
  835.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaaXXXX\"..."
  836.     setup_xfail "a29k-*-udi" 2417
  837.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaaaXXX\"..."
  838.     setup_xfail "a29k-*-udi" 2417
  839.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaaaaXX\"..."
  840.     setup_xfail "a29k-*-udi" 2417
  841.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaaaaaX\"..."
  842.     setup_xfail "a29k-*-udi" 2417
  843.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaaaaaa\"..."
  844.     setup_xfail "a29k-*-udi" 2417
  845.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaaaaaa\"..."
  846.     setup_xfail "a29k-*-udi" 2417
  847.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  848.     setup_xfail "a29k-*-udi" 2417
  849.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  850.     setup_xfail "a29k-*-udi" 2417
  851.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  852.     setup_xfail "a29k-*-udi" 2417
  853.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  854.     setup_xfail "a29k-*-udi" 2417
  855.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  856.     setup_xfail "a29k-*-udi" 2417
  857.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaaaaaa\"..."
  858.     if $passcount then {
  859.     pass "$passcount tests with elements = 9 and repeat count = 10"
  860.     }
  861.  
  862.     set passcount 0
  863.     send "set print elements 10\n" ; expect -re "$prompt $"
  864.     setup_xfail "a29k-*-udi" 2417
  865.     prt_accept "p &ctable2\[0*16\]"  "\(unsigned char \*\) \"aXXXXXXXXX\"..."
  866.     setup_xfail "a29k-*-udi" 2417
  867.     prt_accept "p &ctable2\[1*16\]"  "\(unsigned char \*\) \"aaXXXXXXXX\"..."
  868.     setup_xfail "a29k-*-udi" 2417
  869.     prt_accept "p &ctable2\[2*16\]"  "\(unsigned char \*\) \"aaaXXXXXXX\"..."
  870.     setup_xfail "a29k-*-udi" 2417
  871.     prt_accept "p &ctable2\[3*16\]"  "\(unsigned char \*\) \"aaaaXXXXXX\"..."
  872.     setup_xfail "a29k-*-udi" 2417
  873.     prt_accept "p &ctable2\[4*16\]"  "\(unsigned char \*\) \"aaaaaXXXXX\"..."
  874.     setup_xfail "a29k-*-udi" 2417
  875.     prt_accept "p &ctable2\[5*16\]"  "\(unsigned char \*\) \"aaaaaaXXXX\"..."
  876.     setup_xfail "a29k-*-udi" 2417
  877.     prt_accept "p &ctable2\[6*16\]"  "\(unsigned char \*\) \"aaaaaaaXXX\"..."
  878.     setup_xfail "a29k-*-udi" 2417
  879.     prt_accept "p &ctable2\[7*16\]"  "\(unsigned char \*\) \"aaaaaaaaXX\"..."
  880.     setup_xfail "a29k-*-udi" 2417
  881.     prt_accept "p &ctable2\[8*16\]"  "\(unsigned char \*\) \"aaaaaaaaaX\"..."
  882.     setup_xfail "a29k-*-udi" 2417
  883.     prt_accept "p &ctable2\[9*16\]"  "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  884.     setup_xfail "a29k-*-udi" 2417
  885.     prt_accept "p &ctable2\[10*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  886.     setup_xfail "a29k-*-udi" 2417
  887.     prt_accept "p &ctable2\[11*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  888.     setup_xfail "a29k-*-udi" 2417
  889.     prt_accept "p &ctable2\[12*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  890.     setup_xfail "a29k-*-udi" 2417
  891.     prt_accept "p &ctable2\[13*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  892.     setup_xfail "a29k-*-udi" 2417
  893.     prt_accept "p &ctable2\[14*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  894.     setup_xfail "a29k-*-udi" 2417
  895.     prt_accept "p &ctable2\[15*16\]" "\(unsigned char \*\) \"aaaaaaaaaa\"..."
  896.     if $passcount then {
  897.     pass "$passcount tests with elements = 10 and repeat count = 10"
  898.     }
  899.  
  900.     set passcount 0
  901.     send "set print elements 11\n" ; expect -re "$prompt $"
  902.     setup_xfail "a29k-*-udi" 2417
  903.     prt_accept "p &ctable2\[0*16\]" \
  904.     "\(unsigned char \*\) \"aXXXXXXXXXX\"..."
  905.     setup_xfail "a29k-*-udi" 2417
  906.     prt_accept "p &ctable2\[1*16\]" \
  907.     "\(unsigned char \*\) \"aaXXXXXXXXX\"..."
  908.     setup_xfail "a29k-*-udi" 2417
  909.     prt_accept "p &ctable2\[2*16\]" \
  910.     "\(unsigned char \*\) \"aaaXXXXXXXX\"..."
  911.     setup_xfail "a29k-*-udi" 2417
  912.     prt_accept "p &ctable2\[3*16\]" \
  913.     "\(unsigned char \*\) \"aaaaXXXXXXX\"..."
  914.     setup_xfail "a29k-*-udi" 2417
  915.     prt_accept "p &ctable2\[4*16\]" \
  916.     "\(unsigned char \*\) \"aaaaaXXXXXX\"..."
  917.     setup_xfail "a29k-*-udi" 2417
  918.     prt_accept "p &ctable2\[5*16\]" \
  919.     "\(unsigned char \*\) \"aaaaaaXXXXX\"..."
  920.     setup_xfail "a29k-*-udi" 2417
  921.     prt_accept "p &ctable2\[6*16\]" \
  922.     "\(unsigned char \*\) \"aaaaaaaXXXX\"..."
  923.     setup_xfail "a29k-*-udi" 2417
  924.     prt_accept "p &ctable2\[7*16\]" \
  925.     "\(unsigned char \*\) \"aaaaaaaaXXX\"..."
  926.     setup_xfail "a29k-*-udi" 2417
  927.     prt_accept "p &ctable2\[8*16\]" \
  928.     "\(unsigned char \*\) \"aaaaaaaaaXX\"..."
  929.     setup_xfail "a29k-*-udi" 2417
  930.     prt_accept "p &ctable2\[9*16\]" \
  931.     "\(unsigned char \*\) \"aaaaaaaaaaX\"..."
  932.     setup_xfail "a29k-*-udi" 2417
  933.     prt_accept "p &ctable2\[10*16\]" \
  934.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  935.     setup_xfail "a29k-*-udi" 2417
  936.     prt_accept "p &ctable2\[11*16\]" \
  937.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  938.     setup_xfail "a29k-*-udi" 2417
  939.     prt_accept "p &ctable2\[12*16\]" \
  940.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  941.     setup_xfail "a29k-*-udi" 2417
  942.     prt_accept "p &ctable2\[13*16\]" \
  943.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  944.     setup_xfail "a29k-*-udi" 2417
  945.     prt_accept "p &ctable2\[14*16\]" \
  946.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  947.     setup_xfail "a29k-*-udi" 2417
  948.     prt_accept "p &ctable2\[15*16\]" \
  949.     "\(unsigned char \*\) 'a' <repeats 11 times>..."
  950.     if $passcount then {
  951.     pass "$passcount tests with elements = 11 and repeat count = 10"
  952.     }
  953.  
  954.     set passcount 0
  955.     send "set print elements 12\n" ; expect -re "$prompt $"
  956.     setup_xfail "a29k-*-udi" 2417
  957.     prt_accept "p &ctable2\[0*16\]" \
  958.     "\(unsigned char \*\) \"a\", 'X' <repeats 11 times>..."
  959.     setup_xfail "a29k-*-udi" 2417
  960.     prt_accept "p &ctable2\[1*16\]" \
  961.     "\(unsigned char \*\) \"aaXXXXXXXXXX\"..."
  962.     setup_xfail "a29k-*-udi" 2417
  963.     prt_accept "p &ctable2\[2*16\]" \
  964.     "\(unsigned char \*\) \"aaaXXXXXXXXX\"..."
  965.     setup_xfail "a29k-*-udi" 2417
  966.     prt_accept "p &ctable2\[3*16\]" \
  967.     "\(unsigned char \*\) \"aaaaXXXXXXXX\"..."
  968.     setup_xfail "a29k-*-udi" 2417
  969.     prt_accept "p &ctable2\[4*16\]" \
  970.     "\(unsigned char \*\) \"aaaaaXXXXXXX\"..."
  971.     setup_xfail "a29k-*-udi" 2417
  972.     prt_accept "p &ctable2\[5*16\]" \
  973.     "\(unsigned char \*\) \"aaaaaaXXXXXX\"..."
  974.     setup_xfail "a29k-*-udi" 2417
  975.     prt_accept "p &ctable2\[6*16\]" \
  976.     "\(unsigned char \*\) \"aaaaaaaXXXXX\"..."
  977.     setup_xfail "a29k-*-udi" 2417
  978.     prt_accept "p &ctable2\[7*16\]" \
  979.     "\(unsigned char \*\) \"aaaaaaaaXXXX\"..."
  980.     setup_xfail "a29k-*-udi" 2417
  981.     prt_accept "p &ctable2\[8*16\]" \
  982.     "\(unsigned char \*\) \"aaaaaaaaaXXX\"..."
  983.     setup_xfail "a29k-*-udi" 2417
  984.     prt_accept "p &ctable2\[9*16\]" \
  985.     "\(unsigned char \*\) \"aaaaaaaaaaXX\"..."
  986.     setup_xfail "a29k-*-udi" 2417
  987.     prt_accept "p &ctable2\[10*16\]" \
  988.     "\(unsigned char \*\) 'a' <repeats 11 times>, \"X\"..."
  989.     setup_xfail "a29k-*-udi" 2417
  990.     prt_accept "p &ctable2\[11*16\]" \
  991.     "\(unsigned char \*\) 'a' <repeats 12 times>..."
  992.     setup_xfail "a29k-*-udi" 2417
  993.     prt_accept "p &ctable2\[12*16\]" \
  994.     "\(unsigned char \*\) 'a' <repeats 12 times>..."
  995.     setup_xfail "a29k-*-udi" 2417
  996.     prt_accept "p &ctable2\[13*16\]" \
  997.     "\(unsigned char \*\) 'a' <repeats 12 times>..."
  998.     setup_xfail "a29k-*-udi" 2417
  999.     prt_accept "p &ctable2\[14*16\]" \
  1000.     "\(unsigned char \*\) 'a' <repeats 12 times>..."
  1001.     setup_xfail "a29k-*-udi" 2417
  1002.     prt_accept "p &ctable2\[15*16\]" \
  1003.     "\(unsigned char \*\) 'a' <repeats 12 times>..."
  1004.     if $passcount then {
  1005.     pass "$passcount tests with elements = 12 and repeat count = 10"
  1006.     }
  1007.  
  1008.     set passcount 0
  1009.     send "set print elements 13\n" ; expect -re "$prompt $"
  1010.     setup_xfail "a29k-*-udi" 2417
  1011.     prt_accept "p &ctable2\[0*16\]" \
  1012.     "\(unsigned char \*\) \"a\", 'X' <repeats 12 times>..."
  1013.     setup_xfail "a29k-*-udi" 2417
  1014.     prt_accept "p &ctable2\[1*16\]" \
  1015.     "\(unsigned char \*\) \"aa\", 'X' <repeats 11 times>..."
  1016.     setup_xfail "a29k-*-udi" 2417
  1017.     prt_accept "p &ctable2\[2*16\]" \
  1018.     "\(unsigned char \*\) \"aaaXXXXXXXXXX\"..."
  1019.     setup_xfail "a29k-*-udi" 2417
  1020.     prt_accept "p &ctable2\[3*16\]" \
  1021.     "\(unsigned char \*\) \"aaaaXXXXXXXXX\"..."
  1022.     setup_xfail "a29k-*-udi" 2417
  1023.     prt_accept "p &ctable2\[4*16\]" \
  1024.     "\(unsigned char \*\) \"aaaaaXXXXXXXX\"..."
  1025.     setup_xfail "a29k-*-udi" 2417
  1026.     prt_accept "p &ctable2\[5*16\]" \
  1027.     "\(unsigned char \*\) \"aaaaaaXXXXXXX\"..."
  1028.     setup_xfail "a29k-*-udi" 2417
  1029.     prt_accept "p &ctable2\[6*16\]" \
  1030.     "\(unsigned char \*\) \"aaaaaaaXXXXXX\"..."
  1031.     setup_xfail "a29k-*-udi" 2417
  1032.     prt_accept "p &ctable2\[7*16\]" \
  1033.     "\(unsigned char \*\) \"aaaaaaaaXXXXX\"..."
  1034.     setup_xfail "a29k-*-udi" 2417
  1035.     prt_accept "p &ctable2\[8*16\]" \
  1036.     "\(unsigned char \*\) \"aaaaaaaaaXXXX\"..."
  1037.     setup_xfail "a29k-*-udi" 2417
  1038.     prt_accept "p &ctable2\[9*16\]" \
  1039.     "\(unsigned char \*\) \"aaaaaaaaaaXXX\"..."
  1040.     setup_xfail "a29k-*-udi" 2417
  1041.     prt_accept "p &ctable2\[10*16\]" \
  1042.     "\(unsigned char \*\) 'a' <repeats 11 times>, \"XX\"..."
  1043.     setup_xfail "a29k-*-udi" 2417
  1044.     prt_accept "p &ctable2\[11*16\]" \
  1045.     "\(unsigned char \*\) 'a' <repeats 12 times>, \"X\"..."
  1046.     setup_xfail "a29k-*-udi" 2417
  1047.     prt_accept "p &ctable2\[12*16\]" \
  1048.     "\(unsigned char \*\) 'a' <repeats 13 times>..."
  1049.     setup_xfail "a29k-*-udi" 2417
  1050.     prt_accept "p &ctable2\[13*16\]" \
  1051.     "\(unsigned char \*\) 'a' <repeats 13 times>..."
  1052.     setup_xfail "a29k-*-udi" 2417
  1053.     prt_accept "p &ctable2\[14*16\]" \
  1054.     "\(unsigned char \*\) 'a' <repeats 13 times>..."
  1055.     setup_xfail "a29k-*-udi" 2417
  1056.     prt_accept "p &ctable2\[15*16\]" \
  1057.     "\(unsigned char \*\) 'a' <repeats 13 times>..."
  1058.     if $passcount then {
  1059.     pass "$passcount tests with elements = 13 and repeat count = 10"
  1060.     }
  1061.  
  1062.     set passcount 0
  1063.     send "set print elements 14\n" ; expect -re "$prompt $"
  1064.     setup_xfail "a29k-*-udi" 2417
  1065.     prt_accept "p &ctable2\[0*16\]" \
  1066.     "\(unsigned char \*\) \"a\", 'X' <repeats 13 times>..."
  1067.     setup_xfail "a29k-*-udi" 2417
  1068.     prt_accept "p &ctable2\[1*16\]" \
  1069.     "\(unsigned char \*\) \"aa\", 'X' <repeats 12 times>..."
  1070.     setup_xfail "a29k-*-udi" 2417
  1071.     prt_accept "p &ctable2\[2*16\]" \
  1072.     "\(unsigned char \*\) \"aaa\", 'X' <repeats 11 times>..."
  1073.     setup_xfail "a29k-*-udi" 2417
  1074.     prt_accept "p &ctable2\[3*16\]" \
  1075.     "\(unsigned char \*\) \"aaaaXXXXXXXXXX\"..."
  1076.     setup_xfail "a29k-*-udi" 2417
  1077.     prt_accept "p &ctable2\[4*16\]" \
  1078.     "\(unsigned char \*\) \"aaaaaXXXXXXXXX\"..."
  1079.     setup_xfail "a29k-*-udi" 2417
  1080.     prt_accept "p &ctable2\[5*16\]" \
  1081.     "\(unsigned char \*\) \"aaaaaaXXXXXXXX\"..."
  1082.     setup_xfail "a29k-*-udi" 2417
  1083.     prt_accept "p &ctable2\[6*16\]" \
  1084.     "\(unsigned char \*\) \"aaaaaaaXXXXXXX\"..."
  1085.     setup_xfail "a29k-*-udi" 2417
  1086.     prt_accept "p &ctable2\[7*16\]" \
  1087.     "\(unsigned char \*\) \"aaaaaaaaXXXXXX\"..."
  1088.     setup_xfail "a29k-*-udi" 2417
  1089.     prt_accept "p &ctable2\[8*16\]" \
  1090.     "\(unsigned char \*\) \"aaaaaaaaaXXXXX\"..."
  1091.     setup_xfail "a29k-*-udi" 2417
  1092.     prt_accept "p &ctable2\[9*16\]" \
  1093.     "\(unsigned char \*\) \"aaaaaaaaaaXXXX\"..."
  1094.     setup_xfail "a29k-*-udi" 2417
  1095.     prt_accept "p &ctable2\[10*16\]" \
  1096.     "\(unsigned char \*\) 'a' <repeats 11 times>, \"XXX\"..."
  1097.     setup_xfail "a29k-*-udi" 2417
  1098.     prt_accept "p &ctable2\[11*16\]" \
  1099.     "\(unsigned char \*\) 'a' <repeats 12 times>, \"XX\"..."
  1100.     setup_xfail "a29k-*-udi" 2417
  1101.     prt_accept "p &ctable2\[12*16\]" \
  1102.     "\(unsigned char \*\) 'a' <repeats 13 times>, \"X\"..."
  1103.     setup_xfail "a29k-*-udi" 2417
  1104.     prt_accept "p &ctable2\[13*16\]" \
  1105.     "\(unsigned char \*\) 'a' <repeats 14 times>..."
  1106.     setup_xfail "a29k-*-udi" 2417
  1107.     prt_accept "p &ctable2\[14*16\]" \
  1108.     "\(unsigned char \*\) 'a' <repeats 14 times>..."
  1109.     setup_xfail "a29k-*-udi" 2417
  1110.     prt_accept "p &ctable2\[15*16\]" \
  1111.     "\(unsigned char \*\) 'a' <repeats 14 times>..."
  1112.     if $passcount then {
  1113.     pass "$passcount tests with elements = 14 and repeat count = 10"
  1114.     }
  1115.  
  1116.     set passcount 0
  1117.     send "set print elements 15\n" ; expect -re "$prompt $"
  1118.     setup_xfail "a29k-*-udi" 2417
  1119.     prt_accept "p &ctable2\[0*16\]" \
  1120.     "\(unsigned char \*\) \"a\", 'X' <repeats 14 times>..."
  1121.     setup_xfail "a29k-*-udi" 2417
  1122.     prt_accept "p &ctable2\[1*16\]" \
  1123.     "\(unsigned char \*\) \"aa\", 'X' <repeats 13 times>..."
  1124.     setup_xfail "a29k-*-udi" 2417
  1125.     prt_accept "p &ctable2\[2*16\]" \
  1126.     "\(unsigned char \*\) \"aaa\", 'X' <repeats 12 times>..."
  1127.     setup_xfail "a29k-*-udi" 2417
  1128.     prt_accept "p &ctable2\[3*16\]" \
  1129.     "\(unsigned char \*\) \"aaaa\", 'X' <repeats 11 times>..."
  1130.     setup_xfail "a29k-*-udi" 2417
  1131.     prt_accept "p &ctable2\[4*16\]" \
  1132.     "\(unsigned char \*\) \"aaaaaXXXXXXXXXX\"..."
  1133.     setup_xfail "a29k-*-udi" 2417
  1134.     prt_accept "p &ctable2\[5*16\]" \
  1135.     "\(unsigned char \*\) \"aaaaaaXXXXXXXXX\"..."
  1136.     setup_xfail "a29k-*-udi" 2417
  1137.     prt_accept "p &ctable2\[6*16\]" \
  1138.     "\(unsigned char \*\) \"aaaaaaaXXXXXXXX\"..."
  1139.     setup_xfail "a29k-*-udi" 2417
  1140.     prt_accept "p &ctable2\[7*16\]" \
  1141.     "\(unsigned char \*\) \"aaaaaaaaXXXXXXX\"..."
  1142.     setup_xfail "a29k-*-udi" 2417
  1143.     prt_accept "p &ctable2\[8*16\]" \
  1144.     "\(unsigned char \*\) \"aaaaaaaaaXXXXXX\"..."
  1145.     setup_xfail "a29k-*-udi" 2417
  1146.     prt_accept "p &ctable2\[9*16\]" \
  1147.     "\(unsigned char \*\) \"aaaaaaaaaaXXXXX\"..."
  1148.     setup_xfail "a29k-*-udi" 2417
  1149.     prt_accept "p &ctable2\[10*16\]" \
  1150.     "\(unsigned char \*\) 'a' <repeats 11 times>, \"XXXX\"..."
  1151.     setup_xfail "a29k-*-udi" 2417
  1152.     prt_accept "p &ctable2\[11*16\]" \
  1153.     "\(unsigned char \*\) 'a' <repeats 12 times>, \"XXX\"..."
  1154.     setup_xfail "a29k-*-udi" 2417
  1155.     prt_accept "p &ctable2\[12*16\]" \
  1156.     "\(unsigned char \*\) 'a' <repeats 13 times>, \"XX\"..."
  1157.     setup_xfail "a29k-*-udi" 2417
  1158.     prt_accept "p &ctable2\[13*16\]" \
  1159.     "\(unsigned char \*\) 'a' <repeats 14 times>, \"X\"..."
  1160.     setup_xfail "a29k-*-udi" 2417
  1161.     prt_accept "p &ctable2\[14*16\]" \
  1162.     "\(unsigned char \*\) 'a' <repeats 15 times>..."
  1163.     setup_xfail "a29k-*-udi" 2417
  1164.     prt_accept "p &ctable2\[15*16\]" \
  1165.     "\(unsigned char \*\) 'a' <repeats 15 times>..."
  1166.     if $passcount then {
  1167.     pass "$passcount tests with elements = 15 and repeat count = 10"
  1168.     }
  1169.  
  1170.     set passcount 0
  1171.     send "set print elements 16\n" ; expect -re "$prompt $"
  1172.     setup_xfail "a29k-*-udi" 2417
  1173.     prt_accept "p &ctable2\[0*16\]" \
  1174.     "\(unsigned char \*\) \"a\", 'X' <repeats 15 times>..."
  1175.     setup_xfail "a29k-*-udi" 2417
  1176.     prt_accept "p &ctable2\[1*16\]" \
  1177.     "\(unsigned char \*\) \"aa\", 'X' <repeats 14 times>..."
  1178.     setup_xfail "a29k-*-udi" 2417
  1179.     prt_accept "p &ctable2\[2*16\]" \
  1180.     "\(unsigned char \*\) \"aaa\", 'X' <repeats 13 times>..."
  1181.     setup_xfail "a29k-*-udi" 2417
  1182.     prt_accept "p &ctable2\[3*16\]" \
  1183.     "\(unsigned char \*\) \"aaaa\", 'X' <repeats 12 times>..."
  1184.     setup_xfail "a29k-*-udi" 2417
  1185.     prt_accept "p &ctable2\[4*16\]" \
  1186.     "\(unsigned char \*\) \"aaaaa\", 'X' <repeats 11 times>..."
  1187.     setup_xfail "a29k-*-udi" 2417
  1188.     prt_accept "p &ctable2\[5*16\]" \
  1189.     "\(unsigned char \*\) \"aaaaaaXXXXXXXXXX\"..."
  1190.     setup_xfail "a29k-*-udi" 2417
  1191.     prt_accept "p &ctable2\[6*16\]" \
  1192.     "\(unsigned char \*\) \"aaaaaaaXXXXXXXXX\"..."
  1193.     setup_xfail "a29k-*-udi" 2417
  1194.     prt_accept "p &ctable2\[7*16\]" \
  1195.     "\(unsigned char \*\) \"aaaaaaaaXXXXXXXX\"..."
  1196.     setup_xfail "a29k-*-udi" 2417
  1197.     prt_accept "p &ctable2\[8*16\]" \
  1198.     "\(unsigned char \*\) \"aaaaaaaaaXXXXXXX\"..."
  1199.     setup_xfail "a29k-*-udi" 2417
  1200.     prt_accept "p &ctable2\[9*16\]" \
  1201.     "\(unsigned char \*\) \"aaaaaaaaaaXXXXXX\"..."
  1202.     setup_xfail "a29k-*-udi" 2417
  1203.     prt_accept "p &ctable2\[10*16\]" \
  1204.     "\(unsigned char \*\) 'a' <repeats 11 times>, \"XXXXX\"..."
  1205.     setup_xfail "a29k-*-udi" 2417
  1206.     prt_accept "p &ctable2\[11*16\]" \
  1207.     "\(unsigned char \*\) 'a' <repeats 12 times>, \"XXXX\"..."
  1208.     setup_xfail "a29k-*-udi" 2417
  1209.     prt_accept "p &ctable2\[12*16\]" \
  1210.     "\(unsigned char \*\) 'a' <repeats 13 times>, \"XXX\"..."
  1211.     setup_xfail "a29k-*-udi" 2417
  1212.     prt_accept "p &ctable2\[13*16\]" \
  1213.     "\(unsigned char \*\) 'a' <repeats 14 times>, \"XX\"..."
  1214.     setup_xfail "a29k-*-udi" 2417
  1215.     prt_accept "p &ctable2\[14*16\]" \
  1216.     "\(unsigned char \*\) 'a' <repeats 15 times>, \"X\"..."
  1217.     setup_xfail "a29k-*-udi" 2417
  1218.     prt_accept "p &ctable2\[15*16\]" \
  1219.     "\(unsigned char \*\) 'a' <repeats 16 times>"
  1220.     if $passcount then {
  1221.     pass "$passcount tests with elements = 16 and repeat count = 10"
  1222.     }
  1223. }
  1224.  
  1225. proc test_print_strings {} {
  1226.     global prompt
  1227.     global passcount
  1228.  
  1229.     set passcount 0
  1230.     send "set print elements 8\n" ; expect -re "$prompt $"
  1231.  
  1232.     setup_xfail "a29k-*-udi" 2417
  1233.     prt_accept "p &ctable1\[0\]" \
  1234.     "\(unsigned char \*\) \"\""
  1235.     setup_xfail "a29k-*-udi" 2417
  1236.     prt_accept "p &ctable1\[1\]" \
  1237.     "\(unsigned char \*\) \"\\\\001\\\\002\\\\003\\\\004\\\\005\\\\006\\\\a\\\\b\"..."
  1238.     setup_xfail "a29k-*-udi" 2417
  1239.     prt_accept "p &ctable1\[1*8\]" \
  1240.     "\(unsigned char \*\) \"\\\\b\\\\t\\\\n\\\\013\\\\f\\\\r\\\\016\\\\017\"..."
  1241.     setup_xfail "a29k-*-udi" 2417
  1242.     prt_accept "p &ctable1\[2*8\]" \
  1243.     "\(unsigned char \*\) \"\\\\020\\\\021\\\\022\\\\023\\\\024\\\\025\\\\026\\\\027\"..."
  1244.     setup_xfail "a29k-*-udi" 2417
  1245.     prt_accept "p &ctable1\[3*8\]" \
  1246.     "\(unsigned char \*\) \"\\\\030\\\\031\\\\032\\\\e\\\\034\\\\035\\\\036\\\\037\"..."
  1247.     setup_xfail "a29k-*-udi" 2417
  1248.     prt_accept "p &ctable1\[4*8\]" \
  1249.     "\(unsigned char \*\) \" !\\\\\"#\\\$%&'\"..."
  1250.     setup_xfail "a29k-*-udi" 2417
  1251.     prt_accept "p &ctable1\[5*8\]" \
  1252.     "\(unsigned char \*\) \"\(\)\\*\\+,-./\"..."
  1253.     setup_xfail "a29k-*-udi" 2417
  1254.     prt_accept "p &ctable1\[6*8\]" \
  1255.     "\(unsigned char \*\) \"01234567\"..."
  1256.     setup_xfail "a29k-*-udi" 2417
  1257.     prt_accept "p &ctable1\[7*8\]" \
  1258.     "\(unsigned char \*\) \"89:;<=>\\?\"..."
  1259.     setup_xfail "a29k-*-udi" 2417
  1260.     prt_accept "p &ctable1\[8*8\]" \
  1261.     "\(unsigned char \*\) \"@ABCDEFG\"..."
  1262.     setup_xfail "a29k-*-udi" 2417
  1263.     prt_accept "p &ctable1\[9*8\]" \
  1264.     "\(unsigned char \*\) \"HIJKLMNO\"..."
  1265.     setup_xfail "a29k-*-udi" 2417
  1266.     prt_accept "p &ctable1\[10*8\]" \
  1267.     "\(unsigned char \*\) \"PQRSTUVW\"..."
  1268.     setup_xfail "a29k-*-udi" 2417
  1269.     prt_accept "p &ctable1\[11*8\]" \
  1270.     "\(unsigned char \*\) \"XYZ\\\[\\\\\\\\\\\]\\^_\"..."
  1271.     setup_xfail "a29k-*-udi" 2417
  1272.     prt_accept "p &ctable1\[12*8\]" \
  1273.     "\(unsigned char \*\) \"`abcdefg\"..."
  1274.     setup_xfail "a29k-*-udi" 2417
  1275.     prt_accept "p &ctable1\[13*8\]" \
  1276.     "\(unsigned char \*\) \"hijklmno\"..."
  1277.     setup_xfail "a29k-*-udi" 2417
  1278.     prt_accept "p &ctable1\[14*8\]" \
  1279.     "\(unsigned char \*\) \"pqrstuvw\"..."
  1280.     setup_xfail "a29k-*-udi" 2417
  1281.     prt_accept "p &ctable1\[15*8\]" \
  1282.     "\(unsigned char \*\) \"xyz\{\|\}\\~\\\\177\"..."
  1283.     setup_xfail "a29k-*-udi" 2417
  1284.     prt_accept "p &ctable1\[16*8\]" \
  1285.     "\(unsigned char \*\) \"\\\\200\\\\201\\\\202\\\\203\\\\204\\\\205\\\\206\\\\207\"..."
  1286.     setup_xfail "a29k-*-udi" 2417
  1287.     prt_accept "p &ctable1\[17*8\]" \
  1288.     "\(unsigned char \*\) \"\\\\210\\\\211\\\\212\\\\213\\\\214\\\\215\\\\216\\\\217\"..."
  1289.     setup_xfail "a29k-*-udi" 2417
  1290.     prt_accept "p &ctable1\[18*8\]" \
  1291.     "\(unsigned char \*\) \"\\\\220\\\\221\\\\222\\\\223\\\\224\\\\225\\\\226\\\\227\"..."
  1292.     setup_xfail "a29k-*-udi" 2417
  1293.     prt_accept "p &ctable1\[19*8\]" \
  1294.     "\(unsigned char \*\) \"\\\\230\\\\231\\\\232\\\\233\\\\234\\\\235\\\\236\\\\237\"..."
  1295.     setup_xfail "a29k-*-udi" 2417
  1296.     prt_accept "p &ctable1\[20*8\]" \
  1297.     "\(unsigned char \*\) \"\\\\240\\\\241\\\\242\\\\243\\\\244\\\\245\\\\246\\\\247\"..."
  1298.     setup_xfail "a29k-*-udi" 2417
  1299.     prt_accept "p &ctable1\[21*8\]" \
  1300.     "\(unsigned char \*\) \"\\\\250\\\\251\\\\252\\\\253\\\\254\\\\255\\\\256\\\\257\"..."
  1301.     setup_xfail "a29k-*-udi" 2417
  1302.     prt_accept "p &ctable1\[22*8\]" \
  1303.     "\(unsigned char \*\) \"\\\\260\\\\261\\\\262\\\\263\\\\264\\\\265\\\\266\\\\267\"..."
  1304.     setup_xfail "a29k-*-udi" 2417
  1305.     prt_accept "p &ctable1\[23*8\]" \
  1306.     "\(unsigned char \*\) \"\\\\270\\\\271\\\\272\\\\273\\\\274\\\\275\\\\276\\\\277\"..."
  1307.     setup_xfail "a29k-*-udi" 2417
  1308.     prt_accept "p &ctable1\[24*8\]" \
  1309.     "\(unsigned char \*\) \"\\\\300\\\\301\\\\302\\\\303\\\\304\\\\305\\\\306\\\\307\"..."
  1310.     setup_xfail "a29k-*-udi" 2417
  1311.     prt_accept "p &ctable1\[25*8\]" \
  1312.     "\(unsigned char \*\) \"\\\\310\\\\311\\\\312\\\\313\\\\314\\\\315\\\\316\\\\317\"..."
  1313.     setup_xfail "a29k-*-udi" 2417
  1314.     prt_accept "p &ctable1\[26*8\]" \
  1315.     "\(unsigned char \*\) \"\\\\320\\\\321\\\\322\\\\323\\\\324\\\\325\\\\326\\\\327\"..."
  1316.     setup_xfail "a29k-*-udi" 2417
  1317.     prt_accept "p &ctable1\[27*8\]" \
  1318.     "\(unsigned char \*\) \"\\\\330\\\\331\\\\332\\\\333\\\\334\\\\335\\\\336\\\\337\"..."
  1319.     setup_xfail "a29k-*-udi" 2417
  1320.     prt_accept "p &ctable1\[28*8\]" \
  1321.     "\(unsigned char \*\) \"\\\\340\\\\341\\\\342\\\\343\\\\344\\\\345\\\\346\\\\347\"..."
  1322.     setup_xfail "a29k-*-udi" 2417
  1323.     prt_accept "p &ctable1\[29*8\]" \
  1324.     "\(unsigned char \*\) \"\\\\350\\\\351\\\\352\\\\353\\\\354\\\\355\\\\356\\\\357\"..."
  1325.     setup_xfail "a29k-*-udi" 2417
  1326.     prt_accept "p &ctable1\[30*8\]" \
  1327.     "\(unsigned char \*\) \"\\\\360\\\\361\\\\362\\\\363\\\\364\\\\365\\\\366\\\\367\"..."
  1328.     setup_xfail "a29k-*-udi" 2417
  1329.     prt_accept "p &ctable1\[31*8\]" \
  1330.     "\(unsigned char \*\) \"\\\\370\\\\371\\\\372\\\\373\\\\374\\\\375\\\\376\\\\377\"..."
  1331.  
  1332.     if $passcount then {
  1333.     pass "$passcount tests printing substrings from ASCII table"
  1334.     }
  1335. }
  1336.  
  1337. proc test_print_int_arrays {} {
  1338.     global prompt
  1339.     global passcount
  1340.  
  1341.     set passcount 0
  1342.     send "set print elements 24\n" ; expect -re "$prompt $"
  1343.  
  1344.     prt_accept "p int1dim" \
  1345.     "{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}"
  1346.     prt_accept "p int2dim" \
  1347.     "{{0, 1, 2, 3}, {4, 5, 6, 7}, {8, 9, 10, 11}}"
  1348.     prt_accept "p int3dim" \
  1349.     "{{{0, 1}, {2, 3}, {4, 5}}, {{6, 7}, {8, 9}, {10, 11}}}"
  1350.     prt_accept "p int4dim" \
  1351.     "{{{{0, 1}, {2, 3}, {4, 5}}, {{6, 7}, {8, 9}, {10, 11}}}}"
  1352.  
  1353.     if $passcount then {
  1354.     pass "$passcount tests printing multidimensional arrays"
  1355.     }
  1356. }
  1357.  
  1358. proc test_print_string_constants {} {
  1359.     global prompt
  1360.     global passcount
  1361.  
  1362.     set passcount 0
  1363.  
  1364.     send "set print elements 50\n" ; expect -re "$prompt $"
  1365.  
  1366.     setup_xfail "a29k-*-udi" 2416
  1367.     prt_accept "p \"a string\""        "\"a string\""
  1368.     setup_xfail "a29k-*-udi" 2416
  1369.     prt_accept "p \"embedded \\000 null\"" "\"embedded \\\\000 null\""
  1370.     setup_xfail "a29k-*-udi" 2416
  1371.     prt_accept "p \"abcd\"\[2\]"    "99 'c'"
  1372.     setup_xfail "a29k-*-udi" 2416
  1373.     prt_accept "p sizeof (\"abcdef\")"    "7"
  1374.     setup_xfail "a29k-*-udi" 2416
  1375.     prt_accept "ptype \"foo\""        "char \\\[4\\\]"
  1376.     setup_xfail "a29k-*-udi" 2416
  1377.     prt_accept "p *\"foo\""        "102 'f'"
  1378.     setup_xfail "a29k-*-udi" 2416
  1379.     prt_accept "ptype *\"foo\""        "char"
  1380.     setup_xfail "a29k-*-udi" 2416
  1381.     prt_accept "p &*\"foo\""        "\"foo\""
  1382.     setup_xfail "*-*-*"
  1383.     prt_accept "ptype &*\"foo\""    "char \\*"
  1384.     setup_xfail "a29k-*-udi" 2416
  1385.     prt_accept "p (char *)\"foo\""    "\"foo\""
  1386.  
  1387.     if $passcount then {
  1388.     pass "$passcount tests printing string constants"
  1389.     }
  1390. }
  1391.  
  1392. proc test_print_array_constants {} {
  1393.  
  1394.     setup_xfail "a29k-*-udi" 2416
  1395.     gdb_test "print {'a','b','c'}"    " = \"abc\""
  1396.     setup_xfail "a29k-*-udi" 2416
  1397.     gdb_test "print {0,1,2}"        " = {0, 1, 2}"
  1398.     setup_xfail "a29k-*-udi" 2416
  1399.     gdb_test "print {(long)0,1,2}"    " = {0, 1, 2}"
  1400.     setup_xfail "a29k-*-udi" 2416
  1401.     gdb_test "print {{0,1,2},{3,4,5}}"  " = {{0, 1, 2}, {3, 4, 5}}"
  1402.     setup_xfail "a29k-*-udi" 2416
  1403.     gdb_test "print {4,5,6}\\\[2\\\]"    " = 6"
  1404.     setup_xfail "a29k-*-udi" 2416
  1405.     gdb_test "print *&{4,5,6}\\\[1\\\]"    " = 5"
  1406.  
  1407. }
  1408.  
  1409. # Start with a fresh gdb.
  1410.  
  1411. gdb_exit
  1412. gdb_start
  1413. gdb_reinitialize_dir $srcdir/$subdir
  1414. gdb_load $objdir/$subdir/$binfile
  1415.  
  1416. send "set print sevenbit-strings\n" ; expect -re "$prompt $"
  1417. send "set print address off\n" ; expect -re "$prompt $"
  1418. send "set width 0\n" ; expect -re "$prompt $"
  1419.  
  1420. if [set_lang_c] then {
  1421.     test_integer_literals_accepted
  1422.     test_integer_literals_rejected
  1423.     test_character_literals_accepted
  1424.     test_print_all_chars
  1425.     test_print_repeats_10
  1426.     test_print_strings
  1427.     test_print_int_arrays
  1428.     if [runto main] then {
  1429.     test_print_string_constants
  1430.     test_print_array_constants
  1431.     if [istarget "a29k-*-udi"] then {
  1432.         # FIXME: If PR 2415 is fixed, this is not needed.
  1433.         gdb_target_udi
  1434.     }
  1435.     }
  1436. } else {
  1437.     fail "C print command tests suppressed"
  1438. }
  1439.