1 # Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
17 # Please email any bugs, comments, and/or additions to this file to:
18 # bug-dejagnu@prep.ai.mit.edu
20 # This file was written by Rob Savoye. (rob@cygnus.com)
22 load_lib util-defs.exp
25 if ![info exists NM] then {
26 set NM [findfile $base_dir/../nm]
29 if ![info exists NMFLAGS] then {
33 if ![info exists SIZE] then {
34 set SIZE [findfile $base_dir/../size]
37 if ![info exists SIZEFLAGS] then {
41 if ![info exists OBJDUMP] then {
42 set OBJDUMP [findfile $base_dir/../objdump]
45 if ![info exists OBJDUMPFLAGS] then {
50 # add some basic error trapping. These mostly catch programming error's
51 # within the tests themselves
54 buffer_full { perror "internal buffer is full." }
55 "can't open '*'" { perror "Can't open test file." }