* lib/target-supports.exp (force_conventional_output_for): New
procedure.
* lib/scanasm.exp (scan-assembler_required_options)
(scan-assembler-not_required_options)
(scan-assembler-times_required_options): Replace with
force_conventional_output_fors.
* lib/scanrtl.exp: Force conventional output for all rtl dump scans.
* gcc.target/mips/octeon-pipe-1.c: Remove -ffat-lto-objects.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206860
138bc75d-0d04-0410-961f-
82ee72b054a4
+2014-01-20 Richard Sandiford <rdsandiford@googlemail.com>
+
+ * lib/target-supports.exp (force_conventional_output_for): New
+ procedure.
+ * lib/scanasm.exp (scan-assembler_required_options)
+ (scan-assembler-not_required_options)
+ (scan-assembler-times_required_options): Replace with
+ force_conventional_output_fors.
+ * lib/scanrtl.exp: Force conventional output for all rtl dump scans.
+ * gcc.target/mips/octeon-pipe-1.c: Remove -ffat-lto-objects.
+
2014-01-20 H.J. Lu <hongjiu.lu@intel.com>
PR middle-end/59789
/* Check that we use the octeon pipeline description. */
/* { dg-do compile } */
-/* { dg-options "-march=octeon -fschedule-insns2 -fdump-rtl-sched2 -ffat-lto-objects" } */
+/* { dg-options "-march=octeon -fschedule-insns2 -fdump-rtl-sched2" } */
/* { dg-skip-if "code quality test" { *-*-* } { "-O0" } { "" } } */
NOMIPS16 int f (int a, int b)
dg-scan "scan-assembler" 1 $testcase $output_file $args
}
-proc scan-assembler_required_options { args } {
- global gcc_force_conventional_output
- return $gcc_force_conventional_output
-}
+force_conventional_output_for scan-assembler
# Check that a pattern is not present in the .s file produced by the
# compiler. See dg-scan for details.
dg-scan "scan-assembler-not" 0 $testcase $output_file $args
}
-proc scan-assembler-not_required_options { args } {
- global gcc_force_conventional_output
- return $gcc_force_conventional_output
-}
+force_conventional_output_for scan-assembler-not
# Return the scan for the assembly for hidden visibility.
}
}
-proc scan-assembler-times_required_options { args } {
- global gcc_force_conventional_output
- return $gcc_force_conventional_output
-}
+force_conventional_output_for scan-assembler-times
# Utility for scanning demangled compiler result, invoked via dg-final.
# Call pass if pattern is present, otherwise fail.
}
}
+force_conventional_output_for scan-rtl-dump
+
# Call pass if pattern is present given number of times, otherwise fail.
# Argument 0 is the regexp to match
# Argument 1 is number of times the regexp must be found
}
}
+force_conventional_output_for scan-rtl-dump-times
+
# Call pass if pattern is not present, otherwise fail.
#
# Argument 0 is the regexp to match
}
}
+force_conventional_output_for scan-rtl-dump-not
+
# Utility for scanning demangled compiler result, invoked via dg-final.
# Call pass if pattern is present, otherwise fail.
#
}
}
+force_conventional_output_for scan-rtl-dump-dem
+
# Call pass if demangled pattern is not present, otherwise fail.
#
# Argument 0 is the regexp to match
"\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]"
}
}
+
+force_conventional_output_for scan-rtl-dump-dem-not
}
} "-std=gnu99"]
}
+
+# Record that dg-final test TEST requires convential compilation.
+
+proc force_conventional_output_for { test } {
+ if { [info proc $test] == "" } {
+ perror "$test does not exist"
+ exit 1
+ }
+ proc ${test}_required_options {} {
+ global gcc_force_conventional_output
+ return $gcc_force_conventional_output
+ }
+}
+