aboutsummaryrefslogtreecommitdiff
path: root/binutils/testsuite
diff options
context:
space:
mode:
authorKai Tietz <kai.tietz@onevision.com>2009-10-28 17:21:06 +0000
committerKai Tietz <kai.tietz@onevision.com>2009-10-28 17:21:06 +0000
commit0bd7136a923213847d3c3c0b0836c685d3783276 (patch)
treeec1ce62c73771c1c3fc297ef177cd0cfdcc287db /binutils/testsuite
parent5f7d1694fc979b6091e367b9441330ffd0f6b0c5 (diff)
downloadgdb-0bd7136a923213847d3c3c0b0836c685d3783276.zip
gdb-0bd7136a923213847d3c3c0b0836c685d3783276.tar.gz
gdb-0bd7136a923213847d3c3c0b0836c685d3783276.tar.bz2
2009-10-28 Kai Tietz <kai.tietz@onevision.com>
* binutils-all/dlltool.exp: Add tests for --no-leading-underscore and --leading-underscore option for dlltool.
Diffstat (limited to 'binutils/testsuite')
-rw-r--r--binutils/testsuite/ChangeLog5
-rw-r--r--binutils/testsuite/binutils-all/dlltool.exp153
2 files changed, 158 insertions, 0 deletions
diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index 4c5f2b7..3001daf 100644
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-28 Kai Tietz <kai.tietz@onevision.com>
+
+ * binutils-all/dlltool.exp: Add tests for --no-leading-underscore
+ and --leading-underscore option for dlltool.
+
2009-10-23 Kai Tietz <kai.tietz@onevision.com>
* binutils-all/dlltool.exp: Add new test.
diff --git a/binutils/testsuite/binutils-all/dlltool.exp b/binutils/testsuite/binutils-all/dlltool.exp
index e9654ab..046fc18 100644
--- a/binutils/testsuite/binutils-all/dlltool.exp
+++ b/binutils/testsuite/binutils-all/dlltool.exp
@@ -109,3 +109,156 @@ if [regexp $want $got] then {
} else {
fail "dlltool -p (import name) alias-2.def"
}
+
+# Here we test explicit without leading underscore
+
+verbose "$DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" 1
+catch "exec $DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool (fastcall export no leading underscore)"
+} else {
+ pass "dlltool (fastcall export no leading underscore)"
+}
+
+if { "$target_xfail" == "yes" } {
+ setup_xfail *-*
+}
+
+verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
+catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool -p (execution no leading underscore)"
+ continue
+}
+
+pass "dlltool -p (execution no leading underscore)"
+
+set got [binutils_run $NM "tmpdir/libalias_nu.a"]
+set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (symbol names no leading underscore)"
+} else {
+ fail "dlltool -p (symbol names no leading underscore)"
+}
+
+set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu.a"]
+set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (import name no leading underscore)"
+} else {
+ fail "dlltool -p (import name no leading underscore)"
+}
+
+verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
+catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool -p (execution no leading underscore) alias-2.def"
+ continue
+}
+
+pass "dlltool -p (execution no leading underscore) alias-2.def"
+
+set got [binutils_run $NM "tmpdir/libalias_nu2.a"]
+set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (symbol names no leading underscore) alias-2.def"
+} else {
+ fail "dlltool -p (symbol names no leading underscore) alias-2.def"
+}
+
+set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu2.a"]
+set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (import name no leading underscore) alias-2.def"
+} else {
+ fail "dlltool -p (import name no leading underscore) alias-2.def"
+}
+
+# Now we test with leading underscore
+verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
+catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool (fastcall export leading underscore)"
+} else {
+ pass "dlltool (fastcall export leading underscore)"
+}
+
+if { "$target_xfail" == "yes" } {
+ setup_xfail *-*
+}
+
+verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
+catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool -p (execution leading underscore)"
+ continue
+}
+
+pass "dlltool -p (execution leading-underscore)"
+
+set got [binutils_run $NM "tmpdir/libalias_u.a"]
+set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (symbol names leading underscore)"
+} else {
+ fail "dlltool -p (symbol names leading underscore)"
+}
+
+set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u.a"]
+set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\..*){2,2}"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (import name leading underscore)"
+} else {
+ fail "dlltool -p (import name leading underscore)"
+}
+
+verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
+catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
+
+if ![string match "" $err] then {
+ send_log "$err\n"
+ verbose "$err" 1
+ fail "dlltool -p (execution) alias-2.def"
+ continue
+}
+
+pass "dlltool -p (execution leading underscore) alias-2.def"
+
+set got [binutils_run $NM "tmpdir/libalias_u2.a"]
+set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (symbol names leading underscore) alias-2.def"
+} else {
+ fail "dlltool -p (symbol names leading underscore) alias-2.def"
+}
+
+set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u2.a"]
+set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
+
+if [regexp $want $got] then {
+ pass "dlltool -p (import name leading underscore) alias-2.def"
+} else {
+ fail "dlltool -p (import name leading underscore) alias-2.def"
+}