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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [lib/] [scantree.exp] - Blame information for rev 306

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 306 jeremybenn
#   Copyright (C) 2000, 2002, 2003, 2005, 2006, 2007
2
#   Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with GCC; see the file COPYING3.  If not see
16
# .
17
 
18
# Various utilities for scanning tree dump output, used by gcc-dg.exp and
19
# g++-dg.exp.
20
 
21
load_lib scandump.exp
22
 
23
# Utility for scanning compiler result, invoked via dg-final.
24
# Call pass if pattern is present, otherwise fail.
25
#
26
# Argument 0 is the regexp to match
27
# Argument 1 is the name of the dumped tree pass
28
# Argument 2 handles expected failures and the like
29
proc scan-tree-dump { args } {
30
 
31
    if { [llength $args] < 2 } {
32
        error "scan-tree-dump: too few arguments"
33
        return
34
    }
35
    if { [llength $args] > 3 } {
36
        error "scan-tree-dump: too many arguments"
37
        return
38
    }
39
    if { [llength $args] >= 3 } {
40
        scan-dump "tree" [lindex $args 0] "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]" [lindex $args 2]
41
    } else {
42
        scan-dump "tree" [lindex $args 0] "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]"
43
    }
44
}
45
 
46
# Call pass if pattern is present given number of times, otherwise fail.
47
# Argument 0 is the regexp to match
48
# Argument 1 is number of times the regexp must be found
49
# Argument 2 is the name of the dumped tree pass
50
# Argument 3 handles expected failures and the like
51
proc scan-tree-dump-times { args } {
52
 
53
    if { [llength $args] < 3 } {
54
        error "scan-tree-dump: too few arguments"
55
        return
56
    }
57
    if { [llength $args] > 4 } {
58
        error "scan-tree-dump: too many arguments"
59
        return
60
    }
61
    if { [llength $args] >= 4 } {
62
        scan-dump-times "tree" [lindex $args 0] [lindex $args 1] \
63
                        "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 2]" [lindex $args 3]
64
    } else {
65
        scan-dump-times "tree" [lindex $args 0] [lindex $args 1] \
66
                        "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 2]"
67
    }
68
}
69
 
70
# Call pass if pattern is not present, otherwise fail.
71
#
72
# Argument 0 is the regexp to match
73
# Argument 1 is the name of the dumped tree pass
74
# Argument 2 handles expected failures and the like
75
proc scan-tree-dump-not { args } {
76
 
77
    if { [llength $args] < 2 } {
78
        error "scan-tree-dump-not: too few arguments"
79
        return
80
    }
81
    if { [llength $args] > 3 } {
82
        error "scan-tree-dump-not: too many arguments"
83
        return
84
    }
85
    if { [llength $args] >= 3 } {
86
        scan-dump-not "tree" [lindex $args 0] \
87
                      "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]" [lindex $args 2]
88
    } else {
89
        scan-dump-not "tree" [lindex $args 0] \
90
                      "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]"
91
    }
92
}
93
 
94
# Utility for scanning demangled compiler result, invoked via dg-final.
95
# Call pass if pattern is present, otherwise fail.
96
#
97
# Argument 0 is the regexp to match
98
# Argument 1 is the name of the dumped tree pass
99
# Argument 2 handles expected failures and the like
100
proc scan-tree-dump-dem { args } {
101
 
102
    if { [llength $args] < 2 } {
103
        error "scan-tree-dump-dem: too few arguments"
104
        return
105
    }
106
    if { [llength $args] > 3 } {
107
        error "scan-tree-dump-dem: too many arguments"
108
        return
109
    }
110
    if { [llength $args] >= 3 } {
111
        scan-dump-dem "tree" [lindex $args 0] \
112
                      "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]" [lindex $args 2]
113
    } else {
114
        scan-dump-dem "tree" [lindex $args 0] \
115
                      "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]"
116
    }
117
}
118
 
119
# Call pass if demangled pattern is not present, otherwise fail.
120
#
121
# Argument 0 is the regexp to match
122
# Argument 1 is the name of the dumped tree pass
123
# Argument 2 handles expected failures and the like
124
proc scan-tree-dump-dem-not { args } {
125
 
126
    if { [llength $args] < 2 } {
127
        error "scan-tree-dump-dem-not: too few arguments"
128
        return
129
    }
130
    if { [llength $args] > 3 } {
131
        error "scan-tree-dump-dem-not: too many arguments"
132
        return
133
    }
134
    if { [llength $args] >= 3 } {
135
        scan-dump-dem-not "tree" [lindex $args 0] \
136
                          "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]" \
137
                          [lindex $args 2]
138
    } else {
139
        scan-dump-dem-not "tree" [lindex $args 0] \
140
                          "\[0-9\]\[0-9\]\[0-9\]t.[lindex $args 1]"
141
    }
142
}

powered by: WebSVN 2.1.0

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