Make ctxobj.exp and print-file-var.exp work on all platforms.
authorJoel Brobecker <brobecker@gnat.com>
Tue, 5 Jun 2012 13:50:31 +0000 (13:50 +0000)
committerJoel Brobecker <brobecker@gnat.com>
Tue, 5 Jun 2012 13:50:31 +0000 (13:50 +0000)
This patch adjusts the testing strategy used in a couple of testcases
where we are trying to print the value of a global variable defined
at multiple locations.  The problem is that the actual value depends
on the platform.  So instead of hard-coding the expected value in
the testcase script, we use local variables (in the inferior) holding
the correct value, and we compare the global variable's value with
the local variable's value.

gdb/testsuite/ChangeLog:

        * gdb.base/ctxobj-f.c (GET_VERSION): Introduce local variable
        and add comment.
        * gdb.base/ctxobj-m.c (main): Rewrite, and add comment.
        * gdb.base/ctxobj.exp: Insert breakpoint in ctxobj-f.c using
        "STOP" marker.  Adjust testing strategy to make it work on
        all targets.

        * gdb.base/print-file-var-main.c (main): Rewrite using local
        variables and adjust get_version_2's return value check.
        Add small comment.
        * gdb.base/print-file-var.exp: Insert breakpoint using "STOP"
        marker.  Adjust testing strategy to make it work on all targets.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/ctxobj-f.c
gdb/testsuite/gdb.base/ctxobj-m.c
gdb/testsuite/gdb.base/ctxobj.exp
gdb/testsuite/gdb.base/print-file-var-main.c
gdb/testsuite/gdb.base/print-file-var.exp

index 0bab843f0ab0eba35a214c8861bb5498bf93964c..dd870e724611b84bc04843fe7622a45e56ca7136 100644 (file)
@@ -1,3 +1,18 @@
+2012-06-05  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.base/ctxobj-f.c (GET_VERSION): Introduce local variable
+       and add comment.
+       * gdb.base/ctxobj-m.c (main): Rewrite, and add comment.
+       * gdb.base/ctxobj.exp: Insert breakpoint in ctxobj-f.c using
+       "STOP" marker.  Adjust testing strategy to make it work on
+       all targets.
+
+       * gdb.base/print-file-var-main.c (main): Rewrite using local
+       variables and adjust get_version_2's return value check.
+       Add small comment.
+       * gdb.base/print-file-var.exp: Insert breakpoint using "STOP"
+       marker.  Adjust testing strategy to make it work on all targets.
+
 2012-06-05  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.ada/bad-task-bp-keyword: New testcase.
index 43cc3286154a0d28d55aafdf677bba7df95b52be..56d1aba3aa5cba9d2ac80ee9429445e0fff4895f 100644 (file)
@@ -23,5 +23,10 @@ extern int this_version_num;
 int
 GET_VERSION (void)
 {
-  return this_version_num;
+  int v = this_version_num;
+
+  if (v > 999)
+    v = 999;
+
+  return v;  /* STOP */
 }
index 203f83807346eaaf322ccd707b7cfc0afe92ec35..97710011ff31e2e257ab99061022acad3c4f49d0 100644 (file)
@@ -20,10 +20,16 @@ extern int get_version_2 (void);
 int
 main (void)
 {
-  if (get_version_1 () != 104)
+  int v1 = get_version_1 ();
+  int v2 = get_version_2 ();
+
+  if (v1 != 104)
     return 1;
 
-  if (get_version_2 () != 203)
+  /* The value returned by get_version_2 depends on the target.
+     On GNU/Linux, for instance, it should return 104.  But on
+     x86-windows, for instance, it will return 203.  */
+  if (v2 != 104 && v2 != 203)
     return 2;
 
   return 0;
index 57ed4c1ec51c1edbcbeaf6c344cb4205ba26dd84..391ac380fc296fd3b8b04c6d658681a27513fe74 100644 (file)
@@ -57,38 +57,53 @@ if ![runto_main] {
     return -1
 }
 
-gdb_breakpoint "get_version_1"
+set bp_location [gdb_get_line_number "STOP" "ctxobj-f.c"]
+gdb_test "break ctxobj-f.c:$bp_location" \
+         "Breakpoint \[0-9\]+ at 0x\[0-9a-fA-F\]+: .*" \
+         "break in get_version functions"
+
 gdb_test "continue" \
          "Breakpoint $decimal, get_version_1 \\(\\).*" \
          "continue to get_version_1"
 
 # Try printing "this_version_num".  There are two global variables
-# with that name, but we should pick the one in the shared library
-# we are currently debugging.  We will know we picked the correct one
-# if the value printed is 104.  The first print test verifies that
-# we're doing things right when the partial symtab hasn't been
-# expanded.  And the second print test will do the same, but after
-# the partial symtab has been expanded.
-
-gdb_test "print this_version_num" \
-         " = 104" \
+# with that name, and some systems such as GNU/Linux merge them
+# into one single entity, while some other systems such as Windows
+# keep them separate.  In the first situation, we have to verify
+# that GDB does not randomly select the wrong instance.  And in
+# the second case, we have to verify that GDB prints the value
+# of the instance from the current debugging context (the shared
+# library currently being debugged).
+#
+# We perform two tests: The first print test verifies that we are
+# doing things right when the partial symtab hasn't been expanded.
+# And the second print test will do the same, but after the partial
+# symtab has been expanded.
+#
+# To avoid adding target-specific code in this testcase, the program
+# sets a local variable named 'v' with the value of the global
+# variable 'this_version_number'.  This allows us to compare the value
+# that GDB thinks 'this_version_num' has, against the actual value
+# seen by the program itself.
+
+gdb_test "print this_version_num == v" \
+         " = 1" \
         "print libctxobj1's this_version_num from partial symtab"
 
-gdb_test "print this_version_num" \
-         " = 104" \
+gdb_test "print this_version_num == v" \
+         " = 1" \
         "print libctxobj1's this_version_num from symtab"
 
 # Do the same, but from get_version_2.
 
-gdb_breakpoint "get_version_2"
 gdb_test "continue" \
          "Breakpoint $decimal, get_version_2 \\(\\).*" \
          "continue to get_version_2"
 
-gdb_test "print this_version_num" \
-         " = 203" \
+gdb_test "print this_version_num == v" \
+         " = 1" \
         "print libctxobj2's this_version_num from partial symtab"
 
-gdb_test "print this_version_num" \
-         " = 203" \
+gdb_test "print this_version_num == v" \
+         " = 1" \
         "print libctxobj2's this_version_num from symtab"
index b8baf0f530ebaff65a0cb2176d6f9abfd7b1b60b..04e45e3fce8ab6ccef9ec8b77a22d8b7a1a3a7cc 100644 (file)
@@ -20,10 +20,15 @@ extern int get_version_2 (void);
 int
 main (void)
 {
-  if (get_version_1 () != 104)
+  int v1 = get_version_1 ();
+  int v2 = get_version_2 ();
+
+  if (v1 != 104)  /* STOP */
     return 1;
-  if (get_version_2 () != 104)
+  /* The value returned by get_version_2 depends on the target system.  */
+  if (v2 != 104 || v2 != 203)
     return 2;
+
   return 0;
 }
 
index 67c3ac481c38c71301b5070bc8d400c03588b717..d0ab575c6abce172b350c6a150543c6dc6e1089f 100644 (file)
@@ -48,8 +48,39 @@ if ![runto_main] {
     return -1
 }
 
-gdb_test "print 'print-file-var-lib1.c'::this_version_id" \
-         " = 104"
+# Try printing "this_version_num" qualified with the name of the file
+# where the variables are defined.  There are two global variables
+# with that name, and some systems such as GNU/Linux merge them
+# into one single entity, while some other systems such as Windows
+# keep them separate.  In the first situation, we have to verify
+# that GDB does not randomly select the wrong instance, even when
+# a specific filename is used to qualified the lookup.  And in the
+# second case, we have to verify that GDB does select the instance
+# defined in the given filename.
+#
+# To avoid adding target-specific code in this testcase, the program
+# sets two local variable named 'v1' and 'v2' with the value of
+# our global variables.  This allows us to compare the value that
+# GDB returns for each query against the actual value seen by
+# the program itself.
+
+# Get past the initialization of variables 'v1' and 'v2'.
+
+set bp_location \
+    [gdb_get_line_number "STOP" "${executable}.c"]
+gdb_test "break $executable.c:$bp_location" \
+         "Breakpoint \[0-9\]+ at 0x\[0-9a-fA-F\]+: .*" \
+         "breapoint past v1 & v2 initialization"
+
+gdb_test "continue" \
+         "Breakpoint \[0-9\]+, main \\(\\) at.*" \
+         "continue to STOP marker"
+
+# Now check the value of this_version_id in both print-file-var-lib1.c
+# and print-file-var-lib2.c.
+
+gdb_test "print 'print-file-var-lib1.c'::this_version_id == v1" \
+         " = 1"
 
-gdb_test "print 'print-file-var-lib2.c'::this_version_id" \
-         " = 203"
+gdb_test "print 'print-file-var-lib2.c'::this_version_id == v2" \
+         " = 1"