1 # Copyright
1993, 1994, 1995, 1997, 1998 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 ![is_remote host
] {
24 if {[which $SIZE
] == 0} then {
25 perror
"$SIZE does not exist"
30 send_user
"Version [binutil_version $SIZE]"
33 if {![binutils_assemble $srcdir
/$subdir
/bintest.s tmpdir
/bintest.o
]} then {
38 set testfile
[remote_download host tmpdir
/bintest.o
]
40 set testfile tmpdir
/bintest.o
44 set hex
"\[0-9a-fA-F\]+"
46 # Test size with no arguments
48 set got
[binutils_run $SIZE
"$SIZEFLAGS $testfile"]
50 set want
"($dec)\[ \]+($dec)\[ \]+($dec)\[ \]+($dec)\[ \]+($hex)\[ \]+${testfile}"
52 if ![regexp $want $got all
text data bss dtot hextot
] then {
53 fail
"size (no arguments)"
55 if {$
text < 8 || $data
< 4} then {
56 fail
"size (no arguments)"
58 pass
"size (no arguments)"
64 set got
[binutils_run $SIZE
"$SIZEFLAGS -A ${testfile}"]
66 set want
"${testfile}.*(text|TEXT)\[^\n\r\]*\[ \]($dec)\[ \]+$dec.*(\\.data|DATA)\[^\n\r\]*\[ \]($dec)\[ \]+$dec"
68 if ![regexp $want $got all textname textsize dataname datasize
] then {
71 verbose
"text size: $textsize"
72 verbose
"data size: $datasize"
73 if {$textsize
< 8 || $datasize
< 4} then {