gdb-rhel5-gcc44.patch

   1 Some functionality is available on RHEL-5.4+ only with gcc44 and gfortran44 as
   2 the default gcc and gfortran binaries are from gcc-4.1.
   3
   4 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.base/vla.exp
   5 ===================================================================
   6 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.base/vla.exp     2012-07-03 17:30:07.000000000 +0200
   7 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.base/vla.exp  2012-07-03 17:50:57.999207540 +0200
   8 @@ -16,7 +16,25 @@
   9  set testfile vla
  10  set srcfile ${testfile}.c
  11  set binfile ${objdir}/${subdir}/${testfile}
  12 -if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  13 +# Temporarily provide compiler=gcc44 saving the original value around.
  14 +
  15 +set board [target_info name]
  16 +if [board_info $board exists compiler] {
  17 +    set old_compiler [board_info $board compiler]
  18 +    unset_board_info compiler
  19 +} elseif [info exists old_compiler] {
  20 +    unset old_compiler
  21 +}
  22 +set_board_info compiler gcc44
  23 +
  24 +set err [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug quiet}]
  25 +
  26 +unset_board_info compiler
  27 +if [info exists old_compiler] {
  28 +    set_board_info compiler $old_compiler
  29 +}
  30 +
  31 +if  { $err != "" } {
  32      untested "Couldn't compile test program"
  33      return -1
  34  }
  35 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.base/break-interp.exp
  36 ===================================================================
  37 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.base/break-interp.exp    2012-07-03 17:44:45.000000000 +0200
  38 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.base/break-interp.exp 2012-07-03 17:50:58.000207539 +0200
  39 @@ -34,9 +34,29 @@ if [get_compiler_info] {
  40      return -1
  41  }
  42
  43 +# Temporarily provide compiler=gcc44 saving the original value around.
  44 +# RHEL-5 workaround of its:
  45 +#   gcc: -soname: linker input file unused because linking not done
  46 +
  47 +set board [target_info name]
  48 +if [board_info $board exists compiler] {
  49 +    set old_compiler [board_info $board compiler]
  50 +    unset_board_info compiler
  51 +} elseif [info exists old_compiler] {
  52 +    unset old_compiler
  53 +}
  54 +set_board_info compiler gcc44
  55 +
  56  # Use -soname so that the new library gets copied by build_executable_own_libs.
  57
  58 -if {[gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} [list debug ldflags=-Wl,-soname,${test}.so]] != ""} {
  59 +set err [gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} [list debug ldflags=-Wl,-soname,${test}.so]]
  60 +
  61 +unset_board_info compiler
  62 +if [info exists old_compiler] {
  63 +    set_board_info compiler $old_compiler
  64 +}
  65 +
  66 +if { $err != "" } {
  67      return -1
  68  }
  69
  70 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/common-block.exp
  71 ===================================================================
  72 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/common-block.exp 2012-07-03 17:36:21.000000000 +0200
  73 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/common-block.exp      2012-07-03 17:50:58.001207537 +0200
  74 @@ -20,7 +20,25 @@ set testfile "common-block"
  75  set srcfile ${testfile}.f90
  76  set binfile ${objdir}/${subdir}/${testfile}
  77
  78 -if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}] != "" } {
  79 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
  80 +
  81 +set board [target_info name]
  82 +if [board_info $board exists f90compiler] {
  83 +    set old_f90compiler [board_info $board f90compiler]
  84 +    unset_board_info f90compiler
  85 +} elseif [info exists old_f90compiler] {
  86 +    unset old_f90compiler
  87 +}
  88 +set_board_info f90compiler gfortran44
  89 +
  90 +set err [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}]
  91 +
  92 +unset_board_info f90compiler
  93 +if [info exists old_f90compiler] {
  94 +    set_board_info f90compiler $old_f90compiler
  95 +}
  96 +
  97 +if  { $err != "" } {
  98      untested "Couldn't compile ${srcfile}"
  99      return -1
 100  }
 101 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/dwarf-stride.exp
 102 ===================================================================
 103 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/dwarf-stride.exp 2012-07-03 17:30:07.000000000 +0200
 104 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/dwarf-stride.exp      2012-07-03 17:50:58.002207535 +0200
 105 @@ -27,7 +27,25 @@
 106  set testfile dwarf-stride
 107  set srcfile ${testfile}.f90
 108
 109 -if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}] } {
 110 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 111 +
 112 +set board [target_info name]
 113 +if [board_info $board exists f90compiler] {
 114 +    set old_f90compiler [board_info $board f90compiler]
 115 +    unset_board_info f90compiler
 116 +} elseif [info exists old_f90compiler] {
 117 +    unset old_f90compiler
 118 +}
 119 +set_board_info f90compiler gfortran44
 120 +
 121 +set err [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}]
 122 +
 123 +unset_board_info f90compiler
 124 +if [info exists old_f90compiler] {
 125 +    set_board_info f90compiler $old_f90compiler
 126 +}
 127 +
 128 +if $err {
 129      return -1
 130  }
 131
 132 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/dynamic.exp
 133 ===================================================================
 134 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/dynamic.exp      2012-07-03 17:30:07.000000000 +0200
 135 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/dynamic.exp   2012-07-03 17:50:58.002207535 +0200
 136 @@ -25,7 +25,25 @@ set testfile "dynamic"
 137  set srcfile ${testfile}.f90
 138  set binfile ${objdir}/${subdir}/${testfile}
 139
 140 -if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}] != "" } {
 141 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 142 +
 143 +set board [target_info name]
 144 +if [board_info $board exists f90compiler] {
 145 +    set old_f90compiler [board_info $board f90compiler]
 146 +    unset_board_info f90compiler
 147 +} elseif [info exists old_f90compiler] {
 148 +    unset old_f90compiler
 149 +}
 150 +set_board_info f90compiler gfortran44
 151 +
 152 +set err [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}]
 153 +
 154 +unset_board_info f90compiler
 155 +if [info exists old_f90compiler] {
 156 +    set_board_info f90compiler $old_f90compiler
 157 +}
 158 +
 159 +if  { $err != "" } {
 160      untested "Couldn't compile ${srcfile}"
 161      return -1
 162  }
 163 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/library-module.exp
 164 ===================================================================
 165 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/library-module.exp       2012-06-25 22:51:35.000000000 +0200
 166 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/library-module.exp    2012-07-03 17:52:57.666062981 +0200
 167 @@ -23,16 +23,34 @@ if [get_compiler_info] {
 168     return -1
 169  }
 170
 171 -if  { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $libfile {debug f90}] != "" } {
 172 -    untested "Couldn't compile ${srclibfile}"
 173 -    return -1
 174 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 175 +
 176 +set board [target_info name]
 177 +if [board_info $board exists f90compiler] {
 178 +    set old_f90compiler [board_info $board f90compiler]
 179 +    unset_board_info f90compiler
 180 +} elseif [info exists old_f90compiler] {
 181 +    unset old_f90compiler
 182  }
 183 +set_board_info f90compiler gfortran44
 184
 185  # prepare_for_testing cannot be used as linking with $libfile cannot be passed
 186  # just for the linking phase (and not the source compilation phase).  And any
 187  # warnings on ignored $libfile abort the process.
 188
 189 -if  { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable [list debug f90 shlib=$libfile]] != "" } {
 190 +set err1 [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $libfile {debug f90}]
 191 +set err2 [gdb_compile $srcdir/$subdir/$srcfile $binfile executable [list debug f90 shlib=$libfile]]
 192 +
 193 +unset_board_info f90compiler
 194 +if [info exists old_f90compiler] {
 195 +    set_board_info f90compiler $old_f90compiler
 196 +}
 197 +
 198 +if  { $err1 != "" } {
 199 +    untested "Couldn't compile ${srclibfile}"
 200 +    return -1
 201 +}
 202 +if  { $err2 != "" } {
 203      untested "Couldn't compile ${srcfile}"
 204      return -1
 205  }
 206 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/module.exp
 207 ===================================================================
 208 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/module.exp       2012-06-25 22:51:35.000000000 +0200
 209 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/module.exp    2012-07-03 17:53:56.464992086 +0200
 210 @@ -15,7 +15,25 @@
 211
 212  standard_testfile .f90
 213
 214 -if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}] } {
 215 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 216 +
 217 +set board [target_info name]
 218 +if [board_info $board exists f90compiler] {
 219 +    set old_f90compiler [board_info $board f90compiler]
 220 +    unset_board_info f90compiler
 221 +} elseif [info exists old_f90compiler] {
 222 +    unset old_f90compiler
 223 +}
 224 +set_board_info f90compiler gfortran44
 225 +
 226 +set err [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]
 227 +
 228 +unset_board_info f90compiler
 229 +if [info exists old_f90compiler] {
 230 +    set_board_info f90compiler $old_f90compiler
 231 +}
 232 +
 233 +if $err {
 234      return -1
 235  }
 236
 237 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/string.exp
 238 ===================================================================
 239 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/string.exp       2012-07-03 17:30:07.000000000 +0200
 240 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/string.exp    2012-07-03 17:50:58.005207532 +0200
 241 @@ -23,7 +23,25 @@ set testfile "string"
 242  set srcfile ${testfile}.f90
 243  set binfile ${objdir}/${subdir}/${testfile}
 244
 245 -if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}] != "" } {
 246 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 247 +
 248 +set board [target_info name]
 249 +if [board_info $board exists f90compiler] {
 250 +    set old_f90compiler [board_info $board f90compiler]
 251 +    unset_board_info f90compiler
 252 +} elseif [info exists old_f90compiler] {
 253 +    unset old_f90compiler
 254 +}
 255 +set_board_info f90compiler gfortran44
 256 +
 257 +set err [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}]
 258 +
 259 +unset_board_info f90compiler
 260 +if [info exists old_f90compiler] {
 261 +    set_board_info f90compiler $old_f90compiler
 262 +}
 263 +
 264 +if { $err != "" } {
 265      untested "Couldn't compile ${srcfile}"
 266      return -1
 267  }
 268 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/omp-step.exp
 269 ===================================================================
 270 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/omp-step.exp     2012-07-03 17:36:21.000000000 +0200
 271 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/omp-step.exp  2012-07-03 17:50:58.006207531 +0200
 272 @@ -15,7 +15,26 @@
 273
 274  set testfile "omp-step"
 275  set srcfile ${testfile}.f90
 276 -if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90 additional_flags=-fopenmp}] } {
 277 +
 278 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 279 +
 280 +set board [target_info name]
 281 +if [board_info $board exists f90compiler] {
 282 +    set old_f90compiler [board_info $board f90compiler]
 283 +    unset_board_info f90compiler
 284 +} elseif [info exists old_f90compiler] {
 285 +    unset old_f90compiler
 286 +}
 287 +set_board_info f90compiler gfortran44
 288 +
 289 +set err [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90 additional_flags=-fopenmp}]
 290 +
 291 +unset_board_info f90compiler
 292 +if [info exists old_f90compiler] {
 293 +    set_board_info f90compiler $old_f90compiler
 294 +}
 295 +
 296 +if $err {
 297      return -1
 298  }
 299
 300 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/derived-type.exp
 301 ===================================================================
 302 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/derived-type.exp 2012-06-25 22:51:35.000000000 +0200
 303 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/derived-type.exp      2012-07-03 17:55:46.583858849 +0200
 304 @@ -22,7 +22,25 @@ if { [skip_fortran_tests] } { return -1
 305
 306  standard_testfile .f90
 307
 308 -if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]} {
 309 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 310 +
 311 +set board [target_info name]
 312 +if [board_info $board exists f90compiler] {
 313 +    set old_f90compiler [board_info $board f90compiler]
 314 +    unset_board_info f90compiler
 315 +} elseif [info exists old_f90compiler] {
 316 +    unset old_f90compiler
 317 +}
 318 +set_board_info f90compiler gfortran44
 319 +
 320 +set err [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]
 321 +
 322 +unset_board_info f90compiler
 323 +if [info exists old_f90compiler] {
 324 +    set_board_info f90compiler $old_f90compiler
 325 +}
 326 +
 327 +if $err {
 328      return -1
 329  }
 330
 331 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/subarray.exp
 332 ===================================================================
 333 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.fortran/subarray.exp     2012-06-25 22:51:35.000000000 +0200
 334 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.fortran/subarray.exp  2012-07-03 17:56:20.454818198 +0200
 335 @@ -22,7 +22,25 @@ if { [skip_fortran_tests] } { return -1
 336
 337  standard_testfile .f
 338
 339 -if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]} {
 340 +# Temporarily provide f90compiler=gfortran44 saving the original value around.
 341 +
 342 +set board [target_info name]
 343 +if [board_info $board exists f90compiler] {
 344 +    set old_f90compiler [board_info $board f90compiler]
 345 +    unset_board_info f90compiler
 346 +} elseif [info exists old_f90compiler] {
 347 +    unset old_f90compiler
 348 +}
 349 +set_board_info f90compiler gfortran44
 350 +
 351 +set err [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]
 352 +
 353 +unset_board_info f90compiler
 354 +if [info exists old_f90compiler] {
 355 +    set_board_info f90compiler $old_f90compiler
 356 +}
 357 +
 358 +if $err {
 359      return -1
 360  }
 361
 362 Index: gdb-7.4.50.20120703/gdb/testsuite/gdb.threads/tls-sepdebug.exp
 363 ===================================================================
 364 --- gdb-7.4.50.20120703.orig/gdb/testsuite/gdb.threads/tls-sepdebug.exp 2012-07-03 17:32:05.000000000 +0200
 365 +++ gdb-7.4.50.20120703/gdb/testsuite/gdb.threads/tls-sepdebug.exp      2012-07-03 17:50:58.007207530 +0200
 366 @@ -32,7 +32,25 @@ set binshareddebugfile ${objdir}/${subdi
 367
 368  # FIXME: gcc dependency (-Wl,-soname).
 369
 370 -if  { [gdb_compile_shlib "${srcdir}/${subdir}/${srcsharedfile}" "${binsharedfile}" [list debug additional_flags=-Wl,-soname=${binsharedbase}]] != "" } {
 371 +# Temporarily provide compiler=gcc44 saving the original value around.
 372 +
 373 +set board [target_info name]
 374 +if [board_info $board exists compiler] {
 375 +    set old_compiler [board_info $board compiler]
 376 +    unset_board_info compiler
 377 +} elseif [info exists old_compiler] {
 378 +    unset old_compiler
 379 +}
 380 +set_board_info compiler gcc44
 381 +
 382 +set err [gdb_compile_shlib "${srcdir}/${subdir}/${srcsharedfile}" "${binsharedfile}" [list debug additional_flags=-Wl,-soname=${binsharedbase}]]
 383 +
 384 +unset_board_info compiler
 385 +if [info exists old_compiler] {
 386 +    set_board_info compiler $old_compiler
 387 +}
 388 +
 389 +if { $err != "" } {
 390      untested "Couldn't compile test library"
 391      return -1
 392  }
 393 Index: gdb-7.4.50.20120703/gdb/testsuite/lib/prelink-support.exp
 394 ===================================================================
 395 --- gdb-7.4.50.20120703.orig/gdb/testsuite/lib/prelink-support.exp      2012-07-03 17:44:45.000000000 +0200
 396 +++ gdb-7.4.50.20120703/gdb/testsuite/lib/prelink-support.exp   2012-07-03 17:50:58.008207529 +0200
 397 @@ -119,9 +119,31 @@ proc file_copy {src dest} {
 398  proc build_executable_own_libs {testname executable sources options {interp ""} {dir ""}} {
 399      global objdir subdir
 400
 401 -    if {[build_executable $testname $executable $sources $options] == -1} {
 402 -       return ""
 403 +    # Temporarily provide compiler=gcc44 saving the original value around.
 404 +    # RHEL-5 workaround of its:
 405 +    #   gcc: -rpath: linker input file unused because linking not done
 406 +    #   gcc: --dynamic-linker: linker input file unused because linking not done
 407 +
 408 +    set board [target_info name]
 409 +    if [board_info $board exists compiler] {
 410 +       set old_compiler [board_info $board compiler]
 411 +       unset_board_info compiler
 412 +    } elseif [info exists old_compiler] {
 413 +       unset old_compiler
 414 +    }
 415 +    set_board_info compiler gcc44
 416 +
 417 +    set err [build_executable $testname $executable $sources $options]
 418 +
 419 +    unset_board_info compiler
 420 +    if [info exists old_compiler] {
 421 +       set_board_info compiler $old_compiler
 422      }
 423 +
 424 +    if { $err == -1 } {
 425 +       return ""
 426 +    }
 427 +
 428      set binfile ${objdir}/${subdir}/${executable}
 429
 430      set command "ldd $binfile"