OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [contrib/] [repro_fail] - Blame information for rev 728

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 723 jeremybenn
#!/bin/bash -eu
2
#
3
# Script to reproduce a test failure from a dejagnu .log file.
4
#
5
# Contributed by Diego Novillo 
6
#
7
# Copyright (C) 2011 Free Software Foundation, Inc.
8
#
9
# This file is part of GCC.
10
#
11
# GCC is free software; you can redistribute it and/or modify
12
# it under the terms of the GNU General Public License as published by
13
# the Free Software Foundation; either version 3, or (at your option)
14
# any later version.
15
#
16
# GCC is distributed in the hope that it will be useful,
17
# but WITHOUT ANY WARRANTY; without even the implied warranty of
18
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19
# GNU General Public License for more details.
20
#
21
# You should have received a copy of the GNU General Public License
22
# along with GCC; see the file COPYING.  If not, write to
23
# the Free Software Foundation, 51 Franklin Street, Fifth Floor,
24
# Boston, MA 02110-1301, USA.
25
 
26
# This script will search a line starting with 'spawn' that includes the
27
# pattern you are looking for (typically a source file name).
28
#
29
# Once it finds that pattern, it re-executes the whole command
30
# in the spawn line.  If the pattern matches more than one spawn
31
# command, it asks which one you want.
32
 
33
if [ $# -lt 2 ] ; then
34
    echo "usage: $0 [--debug|--debug-tui] pattern file.log [additional-args]"
35
    echo
36
    echo "Finds the 'spawn' line matching PATTERN in FILE.LOG and executes"
37
    echo "the command with any arguments in ADDITIONAL-ARGS."
38
    echo
39
    echo "If --debug is used, the compiler is invoked with -wrapper gdb,--args"
40
    echo "If --debug-tui is used, the compiler is invoked with -wrapper "\
41
         "gdb,--tui,--args"
42
    exit 1
43
fi
44
 
45
if [ "$1" == "--debug" ] ; then
46
    debug_args="-wrapper gdb,--args"
47
    shift
48
elif [ "$1" == "--debug-tui" ] ; then
49
    debug_args="-wrapper gdb,--tui,--args"
50
    shift
51
else
52
    debug_args=""
53
fi
54
pattern="$1"
55
logf="$2"
56
shift 2
57
 
58
# Find the commands in LOGF that reference PATTERN.
59
lines=$(grep -E "^spawn .*$pattern" $logf | sed -e 's/^spawn //')
60
if [ -z "$lines" ] ; then
61
    echo "Could not find a spawn command for pattern $pattern"
62
    exit 1
63
fi
64
 
65
# Collect all the command lines into the COMMANDS array.
66
old_IFS="$IFS"
67
IFS="
"
68
num_lines=0
69
for line in $lines ; do
70
    num_lines=$[$num_lines + 1]
71
    echo "[$num_lines] $line"
72
    commands[$num_lines]=$line
73
done
74
75
 
76
cmds_to_run='0'
77
if [ $num_lines -gt 1 ] ; then
78
    echo
79
    echo
80
    echo -n "Enter the list of commands to run or '0' to run them all: "
81
    read cmds_to_run
82
fi
83
if [ "$cmds_to_run" = "0" ] ; then
84
    cmds_to_run=$(seq 1 $num_lines)
85
fi
86
IFS="$old_IFS"
87
88
 
89
for cmd_num in $cmds_to_run ; do
90
    cmd=${commands[$cmd_num]}
91
    set -x +e
92
    $cmd $debug_args "$@"
93
    set +x -e
94
done
95

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.