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.t17 / callfuncs.exp next >
Encoding:
Text File  |  1993-05-12  |  5.8 KB  |  173 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. # The a29k can't call functions, so don't even bother with this test.
  38. if [istarget "a29k-*-udi"] then {
  39.     setup_xfail "a29k-*-udi" 2416
  40.     fail "a29k-*-udi can not call functions"
  41.     continue
  42. }
  43.  
  44. # Set the current language to C.  This counts as a test.  If it
  45. # fails, then we skip the other tests.
  46.  
  47. proc set_lang_c {} {
  48.     global prompt
  49.  
  50.     send "set language c\n"
  51.     expect {
  52.     -re ".*$prompt $" {}
  53.     timeout { fail "set language c (timeout)" ; return 0 }
  54.     }
  55.  
  56.     send "show language\n"
  57.     expect {
  58.     -re ".* source language is \"c\".*$prompt $" {
  59.         pass "set language to \"c\""
  60.         return 1
  61.     }
  62.     -re ".*$prompt $" {
  63.         fail "setting language to \"c\""
  64.         return 0
  65.     }
  66.     timeout {
  67.         fail "can't show language (timeout)"
  68.         return 0
  69.     }
  70.     }
  71. }
  72.  
  73. # FIXME:  Before calling this proc, we should probably verify that
  74. # we can call inferior functions and get a valid integral value
  75. # returned.
  76. # Note that it is OK to check for 0 or 1 as the returned values, because C
  77. # specifies that the numeric value of a relational or logical expression
  78. # (computed in the inferior) is 1 for true and 0 for false.
  79.  
  80. proc do_function_calls {} {
  81.  
  82.     gdb_test "p t_char_values(0,0)" " = 0"
  83.     gdb_test "p t_char_values('a','b')" " = 1"
  84.     gdb_test "p t_char_values(char_val1,char_val2)" " = 1"
  85.     gdb_test "p t_char_values('a',char_val2)" " = 1"
  86.     gdb_test "p t_char_values(char_val1,'b')" " = 1"
  87.  
  88.     gdb_test "p t_short_values(0,0)" " = 0"
  89.     gdb_test "p t_short_values(10,-23)" " = 1"
  90.     gdb_test "p t_short_values(short_val1,short_val2)" " = 1"
  91.     gdb_test "p t_short_values(10,short_val2)" " = 1"
  92.     gdb_test "p t_short_values(short_val1,-23)" " = 1"
  93.  
  94.     gdb_test "p t_int_values(0,0)" " = 0"
  95.     gdb_test "p t_int_values(87,-26)" " = 1"
  96.     gdb_test "p t_int_values(int_val1,int_val2)" " = 1"
  97.     gdb_test "p t_int_values(87,int_val2)" " = 1"
  98.     gdb_test "p t_int_values(int_val1,-26)" " = 1"
  99.  
  100.     gdb_test "p t_long_values(0,0)" " = 0"
  101.     gdb_test "p t_long_values(789,-321)" " = 1"
  102.     gdb_test "p t_long_values(long_val1,long_val2)" " = 1"
  103.     gdb_test "p t_long_values(789,long_val2)" " = 1"
  104.     gdb_test "p t_long_values(long_val1,-321)" " = 1"
  105.  
  106.     gdb_test "p t_float_values(0.0,0.0)" " = 0"
  107.     gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
  108.     gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
  109.     gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
  110.     gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
  111.  
  112.     gdb_test "p t_double_values(0.0,0.0)" " = 0"
  113.     gdb_test "p t_double_values(45.654,-67.66)" " = 1"
  114.     gdb_test "p t_double_values(double_val1,double_val2)" " = 1"
  115.     gdb_test "p t_double_values(45.654,double_val2)" " = 1"
  116.     gdb_test "p t_double_values(double_val1,-67.66)" " = 1"
  117.  
  118.     gdb_test "p t_string_values(string_val2,string_val1)" " = 0"
  119.     gdb_test "p t_string_values(string_val1,string_val2)" " = 1"
  120.     gdb_test "p t_string_values(\\\"string 1\\\",\\\"string 2\\\")" " = 1"
  121.     gdb_test "p t_string_values(\\\"string 1\\\",string_val2)" " = 1"
  122.     gdb_test "p t_string_values(string_val1,\\\"string 2\\\")" " = 1"
  123.  
  124.     gdb_test "p t_char_array_values(char_array_val2,char_array_val1)" " = 0"
  125.     gdb_test "p t_char_array_values(char_array_val1,char_array_val2)" " = 1"
  126.     gdb_test "p t_char_array_values(\\\"carray 1\\\",\\\"carray 2\\\")" " = 1"
  127.     gdb_test "p t_char_array_values(\\\"carray 1\\\",char_array_val2)" " = 1"
  128.     gdb_test "p t_char_array_values(char_array_val1,\\\"carray 2\\\")" " = 1"
  129.  
  130.     gdb_test "p doubleit(4)" " = 8"
  131.     gdb_test "p add(4,5)" " = 9"
  132.     gdb_test "p t_func_values(func_val2,func_val1)" " = 0"
  133.     gdb_test "p t_func_values(func_val1,func_val2)" " = 1"
  134.     gdb_test "p t_func_values(add,func_val2)" " = 1"
  135.     gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
  136.     gdb_test "p t_call_add(func_val1,3,4)" " = 7"
  137.     gdb_test "p t_call_add(add,3,4)" " = 7"
  138.  
  139.     gdb_test "p t_enum_value1(enumval1)" " = 1"
  140.     gdb_test "p t_enum_value1(enum_val1)" " = 1"
  141.     gdb_test "p t_enum_value1(enum_val2)" " = 0"
  142.  
  143.     gdb_test "p t_enum_value2(enumval2)" " = 1"
  144.     gdb_test "p t_enum_value2(enum_val2)" " = 1"
  145.     gdb_test "p t_enum_value2(enum_val1)" " = 0"
  146.  
  147.     gdb_test "p sum_args(1,{2})" " = 2"
  148.     gdb_test "p sum_args(2,{2,3})" " = 5"
  149.     gdb_test "p sum_args(3,{2,3,4})" " = 9"
  150.     gdb_test "p sum_args(4,{2,3,4,5})" " = 14"
  151. }
  152.  
  153. # Start with a fresh gdb.
  154.  
  155. gdb_exit
  156. gdb_start
  157. gdb_reinitialize_dir $srcdir/$subdir
  158. gdb_load $objdir/$subdir/$binfile
  159.  
  160. send "set print sevenbit-strings\n" ; expect -re "$prompt $"
  161. send "set print address off\n" ; expect -re "$prompt $"
  162. send "set width 0\n" ; expect -re "$prompt $"
  163.  
  164. if [set_lang_c] then {
  165.     if [runto main] then {
  166.     do_function_calls
  167.     } else {
  168.     fail "C function calling tests suppressed"
  169.     }
  170. } else {
  171.     fail "C function calling tests suppressed"
  172. }
  173.