utils/test_debuginfo.pl

   1 #!/usr/bin/perl
   2 #
   3 # This script tests debugging information generated by a compiler.
   4 # Input arguments
   5 #   - Input source program. Usually this source file is decorated using
   6 #     special comments to communicate debugger commands.
   7 #   - Executable file. This file is generated by the compiler.
   8 #
   9 # This perl script extracts debugger commands from input source program
  10 # comments in a script. A debugger is used to load the executable file
  11 # and run the script generated from source program comments. Finally,
  12 # the debugger output is checked, using FileCheck, to validate
  13 # debugging information.
  14 #
  15 # On Darwin the default is to use the llgdb.py wrapper script which
  16 # translates gdb commands into their lldb equivalents.
  17
  18 use File::Basename;
  19 use Config;
  20 use Cwd;
  21
  22 my $testcase_file = $ARGV[0];
  23 my $executable_file = $ARGV[1];
  24
  25 my $input_filename = basename $testcase_file;
  26 my $output_dir = dirname $executable_file;
  27
  28 my $debugger_script_file = "$output_dir/$input_filename.debugger.script";
  29 my $output_file = "$output_dir/$input_filename.gdb.output";
  30
  31 my %cmd_map = ();
  32 # Assume lldb to be the debugger on Darwin.
  33 my $use_lldb = 0;
  34 $use_lldb = 1 if ($Config{osname} eq "darwin");
  35
  36 # Extract debugger commands from testcase. They are marked with DEBUGGER:
  37 # at the beginning of a comment line.
  38 open(INPUT, $testcase_file);
  39 open(OUTPUT, ">$debugger_script_file");
  40 while(<INPUT>) {
  41     my($line) = $_;
  42     $i = index($line, "DEBUGGER:");
  43     if ( $i >= 0) {
  44         $l = length("DEBUGGER:");
  45         $s = substr($line, $i + $l);
  46         print OUTPUT  "$s";
  47     }
  48 }
  49 print OUTPUT "\n";
  50 print OUTPUT "quit\n";
  51 close(INPUT);
  52 close(OUTPUT);
  53
  54 # setup debugger and debugger options to run a script.
  55 my $my_debugger = $ENV{'DEBUGGER'};
  56 if (!$my_debugger) {
  57     if ($use_lldb) {
  58         my $path = dirname(Cwd::abs_path($0));
  59         $my_debugger = "/usr/bin/env python $path/../tools/clang/test/debuginfo-tests/llgdb.py";
  60     } else {
  61         $my_debugger = "gdb";
  62     }
  63 }
  64
  65 # quiet / exit after cmdline / no init file / execute script
  66 my $debugger_options = "-q -batch -n -x";
  67
  68 # run debugger and capture output.
  69 system("$my_debugger $debugger_options $debugger_script_file $executable_file > $output_file 2>&1");
  70
  71 # validate output.
  72 system("FileCheck", "-input-file", "$output_file", "$testcase_file");
  73 if ($?>>8 == 1) {
  74     print "Debugger output was:\n";
  75     system("cat", "$output_file");
  76     exit 1;
  77 }
  78 else {
  79     exit 0;
  80 }