home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / gnu / src / amiga / binutils-2.5.2-src.lha / binutils-2.5.2 / ld / testsuite / ld-scripts / script.exp < prev    next >
Encoding:
Text File  |  1994-09-29  |  1.1 KB  |  32 lines
  1. # Test basic linker script functionality
  2. # By Ian Lance Taylor, Cygnus Support
  3.  
  4. if ![ld_assemble $as $srcdir$subdir/script.s tmpdir/script.o] { return }
  5.  
  6. if ![ld_simple_link $ld tmpdir/script "-T $srcdir$subdir/script.t tmpdir/script.o"] {
  7.     fail script
  8. } else {
  9.     if [ld_nm $nm tmpdir/script] {
  10.     if {![info exists nm_output(text_start)] \
  11.          || ![info exists nm_output(text_end)] \
  12.          || ![info exists nm_output(data_start)] \
  13.          || ![info exists nm_output(data_end)]} {
  14.         fail "script (bad output from $nm)"
  15.     } else {
  16.         if {$nm_output(text_start) != 0x100} {
  17.         fail "script (text_start == $nm_output(text_start))"
  18.         } else { if {$nm_output(text_end) < 0x104 \
  19.               || $nm_output(text_end) > 0x110} {
  20.         fail "script (text_end == $nm_output(text_end))"
  21.         } else { if {$nm_output(data_start) != 0x1000} {
  22.         fail "script (data_start == $nm_output(data_start))"
  23.         } else { if {$nm_output(data_end) < 0x1004 \
  24.              || $nm_output(data_end) > 0x1010} {
  25.         fail "script (data_end == $nm_output(data_end))"
  26.         } else {
  27.         pass script
  28.         } } } }
  29.     }
  30.     }
  31. }
  32.