testsuite/gdb.mi/mi-var-display.exp

221 # Desc: create variable weird and children
222 mi_create_varobj weird weird "create local variable weird"
224 mi_list_varobj_children weird {
225         {weird.integer integer 0 int}
226         {weird.character character 0 char}
227         {weird.char_ptr char_ptr 1 "char \\*"}
228         {weird.long_int long_int 0 "long"}
229         {weird.int_ptr_ptr int_ptr_ptr 1 "int \\*\\*"}
230         {weird.long_array long_array 10 "long \\[10\\]"}
231         {weird.func_ptr func_ptr 0 "void \\(\\*\\)\\((void)?\\)"}
232         {weird.func_ptr_struct func_ptr_struct 0 \
234         {weird.func_ptr_ptr func_ptr_ptr 0 \
236         {weird.u1 u1 4 "union \\{\\.\\.\\.\\}"}
237         {weird.s2 s2 4 "struct \\{\\.\\.\\.\\}"}
238 } "get children local variable weird"
242 # Desc: change format of weird.func_ptr and weird.func_ptr_ptr
243 mi_gdb_test "-var-set-format weird.func_ptr hexadecimal" \
245 	"set format variable weird.func_ptr in hex (1)"
247 mi_gdb_test "-var-show-format weird.func_ptr" \
249 	"show format variable weird.func_ptr (hex)"
251 mi_gdb_test "-var-set-format weird.func_ptr_ptr hexadecimal" \
253 	"set format variable weird.func_ptr_ptr in hex"
255 mi_gdb_test "-var-show-format weird.func_ptr_ptr" \
257 	"show format variable weird.func_ptr_ptr (hex)"
259 mi_gdb_test "-var-set-format weird.func_ptr zero-hexadecimal" \
261 	"set format variable weird.func_ptr in zero-padded hex"
263 mi_gdb_test "-var-show-format weird.func_ptr" \
265 	"show format variable weird.func_ptr (zhex)"
267 mi_gdb_test "-var-set-format weird.func_ptr_ptr zero-hexadecimal" \
269 	"set format variable weird.func_ptr_ptr in zero-padded hex"
271 mi_gdb_test "-var-show-format weird.func_ptr_ptr" \
273 	"show format variable weird.func_ptr_ptr (zhex)"
276 # Desc: format of weird and children
277 mi_gdb_test "-var-set-format weird natural" \
279 	"set format variable weird"
281 mi_gdb_test "-var-set-format weird.integer natural" \
283 	"set format variable weird.integer"
285 mi_gdb_test "-var-set-format weird.character natural" \
287 	"set format variable weird.character"
289 mi_gdb_test "-var-set-format weird.char_ptr natural" \
291 	"set format variable weird.char_ptr"
293 mi_gdb_test "-var-set-format weird.long_int natural" \
295 	"set format variable weird.long_int"
297 mi_gdb_test "-var-set-format weird.int_ptr_ptr natural" \
299 	"set format variable weird.int_ptr_ptr"
301 mi_gdb_test "-var-set-format weird.long_array natural" \
303 	"set format variable weird.long_array"
305 mi_gdb_test "-var-set-format weird.func_ptr hexadecimal" \
307 	"set format variable weird.func_ptr in hex (2)"
309 mi_gdb_test "-var-set-format weird.func_ptr_struct hexadecimal" \
311 	"set format variable weird.func_ptr_struct"
313 mi_gdb_test "-var-set-format weird.func_ptr_ptr natural" \
315 	"set format variable weird.func_ptr_ptr in natural"
317 mi_gdb_test "-var-set-format weird.u1 natural" \
319 	"set format variable weird.u1"
321 mi_gdb_test "-var-set-format weird.s2 natural" \
323 	"set format variable weird.s2"
326 # Desc: value of weird and children
327 #gdbtk_test c_variable-6.25 {value of weird and children} {
334 #} {ok ok ok ok ok ok ok ok weird.long_array ok weird.s2 weird.u1}
337 # Desc: change format of weird and children to octal
338 #gdbtk_test c_variable-6.26 {change format of weird and children to octal} {
349 # Desc: value of weird and children with new format
357 #} {ok ok ok ok ok ok ok ok weird.long_array ok weird.s2 weird.u1}
360 # Desc: create more children of weird
361 #gdbtk_test c_variable-6.30 {create more children of weird} {
372 #} {weird weird.char_ptr weird.character weird.func_ptr weird.func_ptr_ptr weird.func_ptr_struct weird.int_ptr_ptr weird.int_ptr_ptr.*int_ptr_ptr weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr weird.integer weird.long_array weird.long_array.0 weird.long_array.1 weird.long_array.2 weird.long_array.3 weird.long_array.4 weird.long_array.5 weird.long_array.6 weird.long_array.7 weird.long_array.8 weird.long_array.9 weird.long_int weird.s2 weird.s2.g weird.s2.h weird.s2.i weird.s2.i.0 weird.s2.i.1 weird.s2.i.2 weird.s2.i.3 weird.s2.i.4 weird.s2.i.5 weird.s2.i.6 weird.s2.i.7 weird.s2.i.8 weird.s2.i.9 weird.s2.u2 weird.s2.u2.f weird.s2.u2.u1s1 weird.s2.u2.u1s2 weird.u1 weird.u1.a weird.u1.b weird.u1.c weird.u1.d}
375 # Desc: check that all children of weird change
376 #       Ok, obviously things like weird.s2 and weird.u1 will not change!
377 #gdbtk_test *c_variable-6.31 {check that all children of weird change (ops, we are now reporting array names as changed in this case - seems harmless though)} {
378 #  $var(weird) value 0x2121
380 #} {{weird.integer weird.character weird.char_ptr weird.long_int weird.int_ptr_ptr weird.int_ptr_ptr.*int_ptr_ptr weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr weird.long_array.0 weird.long_array.1 weird.long_array.2 weird.long_array.3 weird.long_array.4 weird.long_array.5 weird.long_array.6 weird.long_array.7 weird.long_array.8 weird.long_array.9 weird.func_ptr weird.func_ptr_struct weird.func_ptr_ptr weird.u1.a weird.u1.b weird.u1.c weird.u1.d weird.s2.u2.f weird.s2.g weird.s2.h weird.s2.i.0 weird.s2.i.1 weird.s2.i.2 weird.s2.i.3 weird.s2.i.4 weird.s2.i.5 weird.s2.i.6 weird.s2.i.7 weird.s2.i.8 weird.s2.i.9} {weird.s2.i weird.s2.u2 weird weird.s2.u2.u1s1 weird.s2.u2.u1s2 weird.s2 weird.long_array weird.u1} {}}
382 mi_gdb_test "-var-delete weird" \
384 	"delete var weird"