send_user "Version [binutil_version $OBJDUMP]"
-###########################
-# Set up the test of dsp.s
-###########################
+# Helper functions
-if {![binutils_assemble $srcdir/$subdir/dsp.s tmpdir/dsp.o]} then {
- return
+# Create object file from the assembly source.
+proc do_objfile { srcfile } {
+ global srcdir
+ global subdir
+
+ set objfile [regsub -- "\.s$" $srcfile ".o"]
+
+ if {![binutils_assemble $srcdir/$subdir/$srcfile tmpdir/$objfile]} then {
+ return
+ }
+
+ if [is_remote host] {
+ set objfile [remote_download host tmpdir/$objfile]
+ } else {
+ set objfile tmpdir/$objfile
+ }
+
+ return $objfile
}
-if [is_remote host] {
- set objfile [remote_download host tmpdir/dsp.o]
-} else {
- set objfile tmpdir/dsp.o
+# Ensure that disassembler output includes EXPECTED lines.
+proc check_assembly { testname objfile expected { disas_flags "" } } {
+ global OBJDUMP
+ global OBJDUMPFLAGS
+
+ set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble $disas_flags \
+ $objfile"]
+
+ if [regexp $expected $got] then {
+ pass $testname
+ } else {
+ fail $testname
+ }
}
# Make sure that a warning message is generated (because the disassembly does
# not match the assembled instructions, which has happened because the user
# has not specified a -M option on the disassembler command line, and so the
# disassembler has had to guess as the instruction class in use).
-
-set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble $objfile"]
-
set want "Warning: disassembly.*vmac2hnfr\[ \t\]*r0,r2,r4.*dmulh12.f\[ \t\]*r0,r2,r4.*dmulh11.f"
+check_assembly "Warning test" [do_objfile dsp.s] $want
+
+set double_store_hs_expected {std\s*r0r1,\[r3\]}
+set objfile [do_objfile double_store.s]
+check_assembly "arc double_store default -M" $objfile \
+ $double_store_hs_expected
+check_assembly "arc double_store -Mcpu=hs" $objfile \
+ $double_store_hs_expected "-Mcpu=hs"
+check_assembly "arc double_store -Mcpu=hs38_linux" $objfile \
+ $double_store_hs_expected "-Mcpu=hs38_linux"
+set double_store_em_expected ".long 0x1b000006"
+check_assembly "arc double_store -Mcpu=em" $objfile \
+ $double_store_em_expected "-Mcpu=em"
+check_assembly "arc double_store -Mcpu=em4_dmips" $objfile \
+ $double_store_em_expected "-Mcpu=em4_dmips"
+# Test to ensure that only value up to the next `,' is checked. There used to
+# be a bug, where whole `em,fpus' was compared against known CPU values, and
+# that comparison would fail. When this bug is present, whole cpu= option will
+# be ignored and instruction will be disassembled as ARC HS.
+check_assembly "arc double_store -Mcpu=em,fpus" $objfile \
+ $double_store_em_expected "-Mcpu=em,fpus"
+# Make sure that the last cpu= value is used.
+check_assembly "arc double_store -Mcpu=hs,cpu=em" $objfile \
+ $double_store_em_expected "-Mcpu=hs,cpu=em"
-if [regexp $want $got] then {
- pass "Warning test"
-} else {
- fail "Warning test"
-}
static void
parse_option (const char *option)
{
- if (CONST_STRNEQ (option, "dsp"))
+ if (disassembler_options_cmp (option, "dsp") == 0)
add_to_decodelist (DSP, NONE);
- else if (CONST_STRNEQ (option, "spfp"))
+ else if (disassembler_options_cmp (option, "spfp") == 0)
add_to_decodelist (FLOAT, SPX);
- else if (CONST_STRNEQ (option, "dpfp"))
+ else if (disassembler_options_cmp (option, "dpfp") == 0)
add_to_decodelist (FLOAT, DPX);
- else if (CONST_STRNEQ (option, "quarkse_em"))
+ else if (disassembler_options_cmp (option, "quarkse_em") == 0)
{
add_to_decodelist (FLOAT, DPX);
add_to_decodelist (FLOAT, SPX);
add_to_decodelist (FLOAT, QUARKSE2);
}
- else if (CONST_STRNEQ (option, "fpuda"))
+ else if (disassembler_options_cmp (option, "fpuda") == 0)
add_to_decodelist (FLOAT, DPA);
- else if (CONST_STRNEQ (option, "fpus"))
+ else if (disassembler_options_cmp (option, "fpus") == 0)
{
add_to_decodelist (FLOAT, SP);
add_to_decodelist (FLOAT, CVT);
}
- else if (CONST_STRNEQ (option, "fpud"))
+ else if (disassembler_options_cmp (option, "fpud") == 0)
{
add_to_decodelist (FLOAT, DP);
add_to_decodelist (FLOAT, CVT);
for (i = 0; cpu_types[i].name; ++i)
{
- if (!strcasecmp (cpu_types[i].name, option))
+ if (!disassembler_options_cmp (cpu_types[i].name, option))
{
return cpu_types[i].flags;
}