gprofng/testsuite/gprofng.display/display.exp

   1 # Copyright (C) 2021-2024 Free Software Foundation, Inc.
   2 #
   3 # This file is part of the GNU Binutils.
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  18 # MA 02110-1301, USA.
  19 #
  20
  21 if {[info exists env(LC_ALL)]} {
  22     set old_lc_all $env(LC_ALL)
  23 }
  24 set env(LC_ALL) "C"
  25
  26 set pltf [exec uname -i]
  27 if { "$pltf" == "aarch64" } {
  28 # Use a filter for not leaf functions due to the unwind problem in libgp-collector.so
  29     set ::env(ACCT_FILTER) [join { "|egrep -vw 'gpf|tailcallopt|"
  30       "cache_trash|calladd|computeF|cond_global|cond_timeout_global|"
  31       "lock_global|lock_local|lock_none|nothreads|sema_global|trylock_global'"
  32       } "" ]
  33 }
  34 if { "$CHECK_TARGET" == "check-extra" || "$CHECK_TARGET" == "check-install" } {
  35 #         dir       cflags       gprofflags     tflags
  36     set table {
  37       {"mttest"   "-g -O0"      "-p on"}
  38       {"mttest"   "-g -O0"      "-p on -h on"}
  39       {"mttest"   "-g -O"       "-p on -a on"}
  40       {"mttest"   "-g -O"       "-p on -a off"}
  41       {"mttest"   "-g -O"       "-p on -h on"}
  42       {"jsynprog" "-g -Wall"    "-p on -a on"}
  43       {"jsynprog" "-g -Wall"    "-p on -a off"}
  44       {"jsynprog" "-g -Wall"    "-p on -j on"}
  45       {"synprog"  "-g -O0"      "-p on"}
  46       {"synprog"  "-g -O0"      "-p on -h on"}
  47       {"synprog"  "-g -O"       "-p on -a on"}
  48       {"synprog"  "-g -O"       "-p on -a off"}
  49       {"synprog"  "-g -O"       "-p on -h on"}
  50     }
  51 } else {  # "$CHECK_TARGET" is "check" or "check-DEJAGNU"
  52 #         dir       cflags     gprofflags     tflags
  53     set table {
  54       {"jsynprog" "-g -Wall" "-p on -j on"  "-j add_int"}
  55       {"mttest"   "-g -O0"   "-p on"        "-j calladd"}
  56       {"synprog"  "-g -O0"   "-p on"        "cpu"}
  57     }
  58 }
  59
  60 global JDK_INC
  61 global GPROFNG_BROKEN_JAVAC
  62
  63 foreach line $table {
  64   set dir [lindex $line 0]
  65   set cflags [lindex $line 1]
  66   set gprofflags [lindex $line 2]
  67   if { [llength $line] > 3 } {
  68     set tflags [lindex $line 3]
  69   } else {
  70     set tflags " "
  71   }
  72
  73   verbose [file rootname $line]
  74   verbose running display test $line
  75   if { $dir == "jsynprog"
  76        && ($JDK_INC == "" || $GPROFNG_BROKEN_JAVAC == "yes") } {
  77     unsupported $dir
  78   } else {
  79     run_display_test $dir $cflags $gprofflags $tflags
  80   }
  81 }
  82
  83
  84 if {[info exists old_lc_all]} {
  85     set env(LC_ALL) $old_lc_all
  86 } else {
  87     unset env(LC_ALL)
  88 }