1 # Copyright (C) 1993, 1994 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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>
21 # and rewritten by Ian Lance Taylor <ian@cygnus.com>
23 if {[which $SIZE] == 0} then {
24 perror "$SIZE does not exist"
28 send_user "Version [binutil_version $SIZE]"
31 if {![binutils_assemble $AS $srcdir$subdir/bintest.s tmpdir/bintest.o]} then {
36 set hex "\[0-9a-fA-F\]+"
38 # Test size with no arguments
40 set got [binutils_run $SIZE "$SIZEFLAGS tmpdir/bintest.o"]
42 set want "($dec)\[ \]+($dec)\[ \]+($dec)\[ \]+($dec)\[ \]+($hex)\[ \]+tmpdir/bintest.o"
44 if ![regexp $want $got all text data bss dtot hextot] then {
45 fail "size (no arguments)"
47 if {$text < 8 || $data < 4} then {
48 fail "size (no arguments)"
50 pass "size (no arguments)"
56 set got [binutils_run $SIZE "$SIZEFLAGS -A tmpdir/bintest.o"]
58 set want "tmpdir/bintest.o.*(text|TEXT)\[^\n\r\]*\[ \]($dec)\[ \]+$dec.*(data|DATA)\[^\n\r\]*\[ \]($dec)\[ \]+$dec"
60 if ![regexp $want $got all textname textsize dataname datasize] then {
63 verbose "text size: $textsize"
64 verbose "data size: $datasize"
65 if {$textsize < 8 || $datasize < 4} then {