GDB 7.6.50

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

-# Copyright 2007-2012 Free Software Foundation, Inc.
+# Copyright 2007-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 42 matching lines @@
 mi_gdb_load ${binfile}
 
 # Desc:  Create global variable.
 mi_create_varobj global_simple global_simple "create global variable"
 
 mi_runto do_locals_tests
 
 # Desc: create local variables
 mi_create_varobj linteger linteger "create local variable linteger"
 
+# Desc: create floating variable
+mi_create_floating_varobj float_simple array "create floating variable"
+
 #
 # Reload the same binary.
 # Global variable should remain, local should be invalidated.
 #
 mi_delete_breakpoints
 mi_gdb_load ${binfile_bis}
 mi_runto main
 
+# Change format of floating variable immediately after reload reveals a
+# bug where gdb still uses a free'd pointer.
+mi_gdb_test "-var-set-format float_simple hexadecimal" \
+        "\\^done,format=\"hexadecimal\",value=\"\\\[-1\\\]\"" \
+       "set format variable float_simple"
+
 # Check local variable is "invalid".
 mi_gdb_test "-var-update linteger" \
         "\\^done,changelist=\\\[\{name=\"linteger\",in_scope=\"invalid\",has_more=\"0\"\}\\\]" \
         "linteger not anymore in scope due to binary changes"
 
 mi_gdb_test "-var-info-type linteger" \
         "\\^done,type=\"\"" \
         "no type for invalid variable linteger (1)"
 
 # Check global variable is still correct.
@@ skipping 25 matching lines @@
 mi_gdb_test "-var-update global_simple" \
         "\\^done,changelist=\\\[\{name=\"global_simple\",in_scope=\"invalid\",has_more=\"0\"\}\\\]" \
         "global_simple not anymore in scope due to binary changes"
 
 mi_gdb_test "-var-info-type global_simple" \
         "\\^done,type=\"\"" \
         "no type for invalid variable global_simple"
 
 mi_gdb_exit
 return 0