+2010-07-06  Maciej W. Rozycki  <macro@codesourcery.com>
+
+       * gas/mips/elf-rel27.d: New test for HI16/LO16 relocation
+       pairing.
+       * gas/mips/elf-rel27.s: Source for the new test.
+       * gas/mips/mips.exp: Create "mips16" architecture.  Adjust
+       conditions involving negated properties throughout to require
+       "mips1" as appropriate.  Run the new test.
+       (mips_arch_destroy): New procedure.
+
 2010-07-05  Maciej W. Rozycki  <macro@codesourcery.com>
 
        * gas/mips/mips.exp (run_dump_test_arch): Check for the presence
 
     }
 }
 
+# mips_arch_destroy ARCH
+#
+# The opposite of the above.  This function removes an entry from
+# the architecture data array, for the architecture or CPU named ARCH.
+
+proc mips_arch_destroy {arch} {
+    global mips_arches
+
+    if { [info exists mips_arches($arch)] } {
+       unset mips_arches($arch)
+    }
+}
+
 # mips_arch_list_all
 #
 # This function returns the list of all names of entries in the
                        { -march=mips64r2 -mtune=mips64r2 } \
                        { -mmips:isa64r2 } \
                        { mipsisa64r2-*-* mipsisa64r2el-*-* }
+mips_arch_create mips16        32      {}      {} \
+                       { -march=mips1 -mips16 } { -mmips:16 }
 mips_arch_create r3000         32      mips1   {} \
                        { -march=r3000 -mtune=r3000 } { -mmips:3000 }
 mips_arch_create r3900         32      mips1   { gpr_ilocks } \
     if { $ecoff } {
        set no_mips16 1
     }
+    if { $no_mips16 } {
+       mips_arch_destroy mips16
+    }
     
     run_dump_test_arches "abs"         [mips_arch_list_matching mips1]
     run_dump_test_arches "add"         [mips_arch_list_matching mips1]
     if !$aout {
        # XXX FIXME: Has mips2 and later insns with mips1 disassemblies.
        # (Should split and then use appropriate arch lists.)
-       run_dump_test_arches "lb"       [mips_arch_list_matching !mips2]
+       run_dump_test_arches "lb"       [mips_arch_list_matching mips1 !mips2]
     }
     if $elf {
-       run_dump_test_arches "lb-svr4pic" [mips_arch_list_matching !gpr_ilocks]
+       run_dump_test_arches "lb-svr4pic" \
+                               [mips_arch_list_matching mips1 !gpr_ilocks]
        run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks]
     }
     if $elf {
     run_dump_test_arches "mips5"       [mips_arch_list_matching mips5]
     run_dump_test "mul"
 
-    run_dump_test_arches "rol"         [mips_arch_list_matching !ror]
+    run_dump_test_arches "rol"         [mips_arch_list_matching mips1 !ror]
     run_dump_test_arches "rol-hw"      [mips_arch_list_matching ror]
 
     run_dump_test_arches "rol64"       [mips_arch_list_matching gpr64 !ror]
        run_dump_test "usw"
        run_dump_test "usd"
     }
-    run_dump_test_arches "ulw2-eb"     [mips_arch_list_matching !gpr_ilocks]
+    run_dump_test_arches "ulw2-eb" \
+                               [mips_arch_list_matching mips1 !gpr_ilocks]
     run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks]
-    run_dump_test_arches "ulw2-el"     [mips_arch_list_matching !gpr_ilocks]
+    run_dump_test_arches "ulw2-el" \
+                               [mips_arch_list_matching mips1 !gpr_ilocks]
     run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks]
 
     run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3]
        run_dump_test "elf-rel25a"
        run_dump_test "elf-rel26"
 
+       run_dump_test_arches "elf-rel27" [mips_arch_list_all]
+
        if { !$no_mips16 } {
            run_dump_test "${tmips}mips${el}16-e"
            run_dump_test "${tmips}mips${el}16-f"