[llvm] r190186 - debuginfo-tests: Add support for an lldb wrapper script
Adrian Prantl
aprantl at apple.com
Fri Sep 6 11:12:01 PDT 2013
Author: adrian
Date: Fri Sep 6 13:12:01 2013
New Revision: 190186
URL: http://llvm.org/viewvc/llvm-project?rev=190186&view=rev
Log:
debuginfo-tests: Add support for an lldb wrapper script
to be used on darwin in lieu of gdb.
Modified:
llvm/trunk/utils/test_debuginfo.pl
Modified: llvm/trunk/utils/test_debuginfo.pl
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/utils/test_debuginfo.pl?rev=190186&r1=190185&r2=190186&view=diff
==============================================================================
--- llvm/trunk/utils/test_debuginfo.pl (original)
+++ llvm/trunk/utils/test_debuginfo.pl Fri Sep 6 13:12:01 2013
@@ -11,8 +11,13 @@
# and run the script generated from source program comments. Finally,
# the debugger output is checked, using FileCheck, to validate
# debugging information.
+#
+# On Darwin the default is to use the llgdb.py wrapper script which
+# translates gdb commands into their lldb equivalents.
use File::Basename;
+use Config;
+use Cwd;
my $testcase_file = $ARGV[0];
my $executable_file = $ARGV[1];
@@ -23,6 +28,11 @@ my $output_dir = dirname $executable_fil
my $debugger_script_file = "$output_dir/$input_filename.debugger.script";
my $output_file = "$output_dir/$input_filename.gdb.output";
+my %cmd_map = ();
+# Assume lldb to be the debugger on Darwin.
+my $use_lldb = 0;
+$use_lldb = 1 if ($Config{osname} eq "darwin");
+
# Extract debugger commands from testcase. They are marked with DEBUGGER:
# at the beginning of a comment line.
open(INPUT, $testcase_file);
@@ -44,8 +54,15 @@ close(OUTPUT);
# setup debugger and debugger options to run a script.
my $my_debugger = $ENV{'DEBUGGER'};
if (!$my_debugger) {
- $my_debugger = "gdb";
+ if ($use_lldb) {
+ my $path = dirname(Cwd::abs_path($0));
+ $my_debugger = "/usr/bin/env python $path/../tools/clang/test/debuginfo-tests/llgdb.py";
+ } else {
+ $my_debugger = "gdb";
+ }
}
+
+# quiet / exit after cmdline / no init file / execute script
my $debugger_options = "-q -batch -n -x";
# run debugger and capture output.
More information about the llvm-commits
mailing list