[llvm-commits] [llvm] r113779 - /llvm/trunk/utils/test_debuginfo.pl

[Tobias Grosser]

On 09/13/2010 10:42 PM, Devang Patel wrote:
> Author: dpatel
> Date: Mon Sep 13 15:42:15 2010
> New Revision: 113779
>
> URL: http://llvm.org/viewvc/llvm-project?rev=113779&view=rev
> Log:
> Add little test script to check debug info.
>
> Added:
>      llvm/trunk/utils/test_debuginfo.pl   (with props)
>
> Added: llvm/trunk/utils/test_debuginfo.pl
> URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/utils/test_debuginfo.pl?rev=113779&view=auto
> ==============================================================================
> --- llvm/trunk/utils/test_debuginfo.pl (added)
> +++ llvm/trunk/utils/test_debuginfo.pl Mon Sep 13 15:42:15 2010
> @@ -0,0 +1,61 @@
> +#!/usr/bin/perl
> +#
> +# This script tests debugging information generated by a compiler.
> +# Input arguments
> +#   - Input source program. Usually this source file is decorated using
> +#     special comments to communicate debugger commands.
> +#   - Executable file. This file is generated by the compiler.
> +#
> +# This perl script extracts debugger commands from input source program
> +# comments in a script. A debugger is used to load the executable file
> +# and run the script generated from source program comments. Finally,
> +# the debugger output is checked, using FileCheck, to validate
> +# debugging information.
> +
> +use File::Basename;
> +
> +my $testcase_file = $ARGV[0];
> +my $executable_file = $ARGV[1];
> +
> +my $input_filename = basename $testcase_file;
> +my $output_dir = dirname $executable_file;
> +
> +my $debugger_script_file = "$output_dir/$input_filename.gdb.scirpt";
                                                                ^^^^^^
You ment "script"?

Tobi