aboutsummaryrefslogtreecommitdiff
path: root/ld/testsuite/ld-z80
diff options
context:
space:
mode:
authorSergey Belyashov <sergey.belyashov@gmail.com>2020-01-02 14:10:40 +0000
committerNick Clifton <nickc@redhat.com>2020-01-02 14:14:59 +0000
commit6655dba246bd164d953fe220a0e3d4eed85bb268 (patch)
tree423258b5dadb447dc649e71c6ce48aaeed8ba385 /ld/testsuite/ld-z80
parent0db131fb835e4c4f6a024e86743467e7e01c965e (diff)
downloadgdb-6655dba246bd164d953fe220a0e3d4eed85bb268.zip
gdb-6655dba246bd164d953fe220a0e3d4eed85bb268.tar.gz
gdb-6655dba246bd164d953fe220a0e3d4eed85bb268.tar.bz2
Add support for the GBZ80, Z180, and eZ80 variants of the Z80 architecure. Add an ELF based target for these as well.
PR 25224 bfd * Makefile.am: Add z80-elf target support. * configure.ac: Likewise. * targets.c: Likewise. * config.bfd: Add z80-elf target support and new arches: ez80 and z180. * elf32-z80.c: New file. * archures.c: Add new z80 architectures: eZ80 and Z180. * coffcode.h: Likewise. * cpu-z80.c: Likewise. * bfd-in2.h: Likewise plus additional Z80 relocations. * coff-z80.c: Add new relocations for Z80 target and local label check. gas * config/tc-z80.c: Add new architectures: Z180 and eZ80. Add support for assembler code generated by SDCC. Add new relocation types. Add z80-elf target support. * config/tc-z80.h: Add z80-elf target support. Enable dollar local labels. Local labels starts from ".L". * testsuite/gas/all/fwdexp.d: Fix failure due to symbol conflict. * testsuite/gas/all/fwdexp.s: Likewise. * testsuite/gas/z80/suffix.d: Fix failure on ELF target. * testsuite/gas/z80/z80.exp: Add new tests * testsuite/gas/z80/dollar.d: New file. * testsuite/gas/z80/dollar.s: New file. * testsuite/gas/z80/ez80_adl_all.d: New file. * testsuite/gas/z80/ez80_adl_all.s: New file. * testsuite/gas/z80/ez80_adl_suf.d: New file. * testsuite/gas/z80/ez80_isuf.s: New file. * testsuite/gas/z80/ez80_z80_all.d: New file. * testsuite/gas/z80/ez80_z80_all.s: New file. * testsuite/gas/z80/ez80_z80_suf.d: New file. * testsuite/gas/z80/r800_extra.d: New file. * testsuite/gas/z80/r800_extra.s: New file. * testsuite/gas/z80/r800_ii8.d: New file. * testsuite/gas/z80/r800_z80_doc.d: New file. * testsuite/gas/z80/z180.d: New file. * testsuite/gas/z80/z180.s: New file. * testsuite/gas/z80/z180_z80_doc.d: New file. * testsuite/gas/z80/z80_doc.d: New file. * testsuite/gas/z80/z80_doc.s: New file. * testsuite/gas/z80/z80_ii8.d: New file. * testsuite/gas/z80/z80_ii8.s: New file. * testsuite/gas/z80/z80_in_f_c.d: New file. * testsuite/gas/z80/z80_in_f_c.s: New file. * testsuite/gas/z80/z80_op_ii_ld.d: New file. * testsuite/gas/z80/z80_op_ii_ld.s: New file. * testsuite/gas/z80/z80_out_c_0.d: New file. * testsuite/gas/z80/z80_out_c_0.s: New file. * testsuite/gas/z80/z80_reloc.d: New file. * testsuite/gas/z80/z80_reloc.s: New file. * testsuite/gas/z80/z80_sli.d: New file. * testsuite/gas/z80/z80_sli.s: New file. ld * Makefile.am: Add new target z80-elf * configure.tgt: Likewise. * emultempl/z80.em: Add support for eZ80 and Z180 architectures. * emulparams/elf32z80.sh: New file. * emultempl/z80elf.em: Likewise. * testsuite/ld-z80/arch_ez80_adl.d: Likewise. * testsuite/ld-z80/arch_ez80_z80.d: Likewise. * testsuite/ld-z80/arch_r800.d: Likewise. * testsuite/ld-z80/arch_z180.d: Likewise. * testsuite/ld-z80/arch_z80.d: Likewise. * testsuite/ld-z80/comb_arch_ez80_z80.d: Likewise. * testsuite/ld-z80/comb_arch_z180.d: Likewise. * testsuite/ld-z80/labels.s: Likewise. * testsuite/ld-z80/relocs.s: Likewise. * testsuite/ld-z80/relocs_b_ez80.d: Likewise. * testsuite/ld-z80/relocs_b_z80.d: Likewise. * testsuite/ld-z80/relocs_f_z80.d: Likewise. * testsuite/ld-z80/z80.exp: Likewise. opcodes * z80-dis.c: Add support for eZ80 and Z80 instructions.
Diffstat (limited to 'ld/testsuite/ld-z80')
-rw-r--r--ld/testsuite/ld-z80/arch_default.d11
-rw-r--r--ld/testsuite/ld-z80/arch_ez80_adl.d11
-rw-r--r--ld/testsuite/ld-z80/arch_ez80_z80.d11
-rw-r--r--ld/testsuite/ld-z80/arch_r800.d11
-rw-r--r--ld/testsuite/ld-z80/arch_z180.d11
-rw-r--r--ld/testsuite/ld-z80/arch_z80.d11
-rw-r--r--ld/testsuite/ld-z80/comb_arch_ez80_z80.d11
-rw-r--r--ld/testsuite/ld-z80/comb_arch_z180_z80.d11
-rw-r--r--ld/testsuite/ld-z80/comb_arch_z80_ez80.d11
-rw-r--r--ld/testsuite/ld-z80/comb_arch_z80_z180.d11
-rw-r--r--ld/testsuite/ld-z80/dummy1.s6
-rw-r--r--ld/testsuite/ld-z80/dummy2.s5
-rw-r--r--ld/testsuite/ld-z80/jr.s58
-rw-r--r--ld/testsuite/ld-z80/jr_b.d51
-rw-r--r--ld/testsuite/ld-z80/jr_f.d70
-rw-r--r--ld/testsuite/ld-z80/labels.s43
-rw-r--r--ld/testsuite/ld-z80/relocs.s81
-rw-r--r--ld/testsuite/ld-z80/relocs_b_ez80.d60
-rw-r--r--ld/testsuite/ld-z80/relocs_b_z80.d60
-rw-r--r--ld/testsuite/ld-z80/relocs_f_ez80.d78
-rw-r--r--ld/testsuite/ld-z80/relocs_f_z80.d79
-rw-r--r--ld/testsuite/ld-z80/z80.exp33
22 files changed, 734 insertions, 0 deletions
diff --git a/ld/testsuite/ld-z80/arch_default.d b/ld/testsuite/ld-z80/arch_default.d
new file mode 100644
index 0000000..8c8527b
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_default.d
@@ -0,0 +1,11 @@
+#name: default arch test
+#source: dummy1.s
+#source: dummy2.s
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: z80, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/arch_ez80_adl.d b/ld/testsuite/ld-z80/arch_ez80_adl.d
new file mode 100644
index 0000000..aa9bd443
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_ez80_adl.d
@@ -0,0 +1,11 @@
+#name: eZ80 ADL mode arch test
+#source: dummy1.s -ez80-adl
+#source: dummy2.s -ez80-adl
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: ez80-adl, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/arch_ez80_z80.d b/ld/testsuite/ld-z80/arch_ez80_z80.d
new file mode 100644
index 0000000..72c03e8
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_ez80_z80.d
@@ -0,0 +1,11 @@
+#name: eZ80 Z80 mode arch test
+#source: dummy1.s -ez80
+#source: dummy2.s -ez80
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: ez80-z80, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/arch_r800.d b/ld/testsuite/ld-z80/arch_r800.d
new file mode 100644
index 0000000..c079be1
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_r800.d
@@ -0,0 +1,11 @@
+#name: R800 arch test
+#source: dummy1.s -r800
+#source: dummy2.s -r800
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: r800, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/arch_z180.d b/ld/testsuite/ld-z80/arch_z180.d
new file mode 100644
index 0000000..d63ce23
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_z180.d
@@ -0,0 +1,11 @@
+#name: Z180 arch test
+#source: dummy1.s -z180
+#source: dummy2.s -z180
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: z180, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/arch_z80.d b/ld/testsuite/ld-z80/arch_z80.d
new file mode 100644
index 0000000..a92b13b
--- /dev/null
+++ b/ld/testsuite/ld-z80/arch_z80.d
@@ -0,0 +1,11 @@
+#name: Z80 arch test
+#source: dummy1.s -z80
+#source: dummy2.s -z80
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: z80, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/comb_arch_ez80_z80.d b/ld/testsuite/ld-z80/comb_arch_ez80_z80.d
new file mode 100644
index 0000000..318a055
--- /dev/null
+++ b/ld/testsuite/ld-z80/comb_arch_ez80_z80.d
@@ -0,0 +1,11 @@
+#name: eZ80/Z80 arch combination test
+#source: dummy1.s -ez80
+#source: dummy2.s -z80
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: ez80-z80, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/comb_arch_z180_z80.d b/ld/testsuite/ld-z80/comb_arch_z180_z80.d
new file mode 100644
index 0000000..f7a420c
--- /dev/null
+++ b/ld/testsuite/ld-z80/comb_arch_z180_z80.d
@@ -0,0 +1,11 @@
+#name: Z180/Z80 arch combination test
+#source: dummy1.s -z180
+#source: dummy2.s -z80
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: z180, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/comb_arch_z80_ez80.d b/ld/testsuite/ld-z80/comb_arch_z80_ez80.d
new file mode 100644
index 0000000..18f9f0b
--- /dev/null
+++ b/ld/testsuite/ld-z80/comb_arch_z80_ez80.d
@@ -0,0 +1,11 @@
+#name: Z80/eZ80 arch combination test
+#source: dummy1.s -z80
+#source: dummy2.s -ez80
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: ez80-z80, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/comb_arch_z80_z180.d b/ld/testsuite/ld-z80/comb_arch_z80_z180.d
new file mode 100644
index 0000000..1f3e092
--- /dev/null
+++ b/ld/testsuite/ld-z80/comb_arch_z80_z180.d
@@ -0,0 +1,11 @@
+#name: Z80/Z180 arch combination test
+#source: dummy1.s -z80
+#source: dummy2.s -z180
+#ld: -e 0
+#objdump: -f
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+architecture: z180, flags 0x[0-9a-fA-F]+:
+.*
+.*
+
diff --git a/ld/testsuite/ld-z80/dummy1.s b/ld/testsuite/ld-z80/dummy1.s
new file mode 100644
index 0000000..5e27477
--- /dev/null
+++ b/ld/testsuite/ld-z80/dummy1.s
@@ -0,0 +1,6 @@
+ .text
+_start:
+ ld a,a
+ .data
+ .db 0
+ .end
diff --git a/ld/testsuite/ld-z80/dummy2.s b/ld/testsuite/ld-z80/dummy2.s
new file mode 100644
index 0000000..43ca80c
--- /dev/null
+++ b/ld/testsuite/ld-z80/dummy2.s
@@ -0,0 +1,5 @@
+ .text
+ ld a,a
+ .data
+ .db 0
+ .end
diff --git a/ld/testsuite/ld-z80/jr.s b/ld/testsuite/ld-z80/jr.s
new file mode 100644
index 0000000..aaf978a
--- /dev/null
+++ b/ld/testsuite/ld-z80/jr.s
@@ -0,0 +1,58 @@
+ .text
+; .org 0
+
+ .globl label1
+ .globl label2
+ .globl label3
+ .globl label4
+ .globl label5
+ .globl label6
+
+ djnz label1
+
+ jr label2
+ jr nz,label3
+ jr z,label4
+ jr nc,label5
+ jr c,label6
+
+ djnz .
+ jr .
+ jr nz,.
+ jr z,.
+ jr nc,.
+ jr c,.
+
+.Ll1:
+ djnz .Ll1
+.Ll2:
+ jr .Ll2
+.Ll3:
+ jr nz,.Ll3
+.Ll4:
+ jr z,.Ll4
+.Ll5:
+ jr nc,.Ll5
+.Ll6:
+ jr c,.Ll6
+
+ djnz .Lf1
+ jr .Lf2
+ jr nz,.Lf3
+ jr z,.Lf4
+ jr nc,.Lf5
+ jr c,.Lf6
+
+.Lf1:
+ ret
+.Lf2:
+ ret
+.Lf3:
+ ret
+.Lf4:
+ ret
+.Lf5:
+ ret
+.Lf6:
+ ret
+ .end
diff --git a/ld/testsuite/ld-z80/jr_b.d b/ld/testsuite/ld-z80/jr_b.d
new file mode 100644
index 0000000..9349d4f
--- /dev/null
+++ b/ld/testsuite/ld-z80/jr_b.d
@@ -0,0 +1,51 @@
+#name: Z80 backward PC relative relocations
+#source: labels.s -z80
+#source: jr.s -z80
+#ld: -e 0 -Ttext 0 -Tdata 0x100 -s
+#objdump: -d
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000000 <.*>:
+[ ]+0:[ ]+78[ ]+ld a,b
+[ ]+1:[ ]+79[ ]+ld a,c
+[ ]+2:[ ]+7a[ ]+ld a,d
+[ ]+3:[ ]+7b[ ]+ld a,e
+[ ]+4:[ ]+7c[ ]+ld a,h
+[ ]+5:[ ]+7d[ ]+ld a,l
+[ ]+6:[ ]+7e[ ]+ld a,\(hl\)
+[ ]+7:[ ]+7f[ ]+ld a,a
+[ ]+8:[ ]+2f[ ]+cpl
+[ ]+9:[ ]+10 f5[ ]+djnz 0x0000
+[ ]+b:[ ]+18 f4[ ]+jr 0x0001
+[ ]+d:[ ]+20 f3[ ]+jr nz,0x0002
+[ ]+f:[ ]+28 f2[ ]+jr z,0x0003
+[ ]+11:[ ]+30 f1[ ]+jr nc,0x0004
+[ ]+13:[ ]+38 f0[ ]+jr c,0x0005
+[ ]+15:[ ]+10 fe[ ]+djnz 0x0015
+[ ]+17:[ ]+18 fe[ ]+jr 0x0017
+[ ]+19:[ ]+20 fe[ ]+jr nz,0x0019
+[ ]+1b:[ ]+28 fe[ ]+jr z,0x001b
+[ ]+1d:[ ]+30 fe[ ]+jr nc,0x001d
+[ ]+1f:[ ]+38 fe[ ]+jr c,0x001f
+[ ]+21:[ ]+10 fe[ ]+djnz 0x0021
+[ ]+23:[ ]+18 fe[ ]+jr 0x0023
+[ ]+25:[ ]+20 fe[ ]+jr nz,0x0025
+[ ]+27:[ ]+28 fe[ ]+jr z,0x0027
+[ ]+29:[ ]+30 fe[ ]+jr nc,0x0029
+[ ]+2b:[ ]+38 fe[ ]+jr c,0x002b
+[ ]+2d:[ ]+10 0a[ ]+djnz 0x0039
+[ ]+2f:[ ]+18 09[ ]+jr 0x003a
+[ ]+31:[ ]+20 08[ ]+jr nz,0x003b
+[ ]+33:[ ]+28 07[ ]+jr z,0x003c
+[ ]+35:[ ]+30 06[ ]+jr nc,0x003d
+[ ]+37:[ ]+38 05[ ]+jr c,0x003e
+[ ]+39:[ ]+c9[ ]+ret
+[ ]+3a:[ ]+c9[ ]+ret
+[ ]+3b:[ ]+c9[ ]+ret
+[ ]+3c:[ ]+c9[ ]+ret
+[ ]+3d:[ ]+c9[ ]+ret
+[ ]+3e:[ ]+c9[ ]+ret
diff --git a/ld/testsuite/ld-z80/jr_f.d b/ld/testsuite/ld-z80/jr_f.d
new file mode 100644
index 0000000..5a107c3
--- /dev/null
+++ b/ld/testsuite/ld-z80/jr_f.d
@@ -0,0 +1,70 @@
+#name: Z80 forward PC relative relocations
+#source: jr.s -z80
+#source: labels.s -z80
+#ld: -e 0 -Ttext 0 -Tdata 0x100
+#objdump: -d
+
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000000 <.*>:
+[ ]+0:[ ]+10 34[ ]+djnz 0x0036
+[ ]+2:[ ]+18 33[ ]+jr 0x0037
+[ ]+4:[ ]+20 32[ ]+jr nz,0x0038
+[ ]+6:[ ]+28 31[ ]+jr z,0x0039
+[ ]+8:[ ]+30 30[ ]+jr nc,0x003a
+[ ]+a:[ ]+38 2f[ ]+jr c,0x003b
+[ ]+c:[ ]+10 fe[ ]+djnz 0x000c
+[ ]+e:[ ]+18 fe[ ]+jr 0x000e
+[ ]+10:[ ]+20 fe[ ]+jr nz,0x0010
+[ ]+12:[ ]+28 fe[ ]+jr z,0x0012
+[ ]+14:[ ]+30 fe[ ]+jr nc,0x0014
+[ ]+16:[ ]+38 fe[ ]+jr c,0x0016
+[ ]+18:[ ]+10 fe[ ]+djnz 0x0018
+[ ]+1a:[ ]+18 fe[ ]+jr 0x001a
+[ ]+1c:[ ]+20 fe[ ]+jr nz,0x001c
+[ ]+1e:[ ]+28 fe[ ]+jr z,0x001e
+[ ]+20:[ ]+30 fe[ ]+jr nc,0x0020
+[ ]+22:[ ]+38 fe[ ]+jr c,0x0022
+[ ]+24:[ ]+10 0a[ ]+djnz 0x0030
+[ ]+26:[ ]+18 09[ ]+jr 0x0031
+[ ]+28:[ ]+20 08[ ]+jr nz,0x0032
+[ ]+2a:[ ]+28 07[ ]+jr z,0x0033
+[ ]+2c:[ ]+30 06[ ]+jr nc,0x0034
+[ ]+2e:[ ]+38 05[ ]+jr c,0x0035
+[ ]+30:[ ]+c9[ ]+ret
+[ ]+31:[ ]+c9[ ]+ret
+[ ]+32:[ ]+c9[ ]+ret
+[ ]+33:[ ]+c9[ ]+ret
+[ ]+34:[ ]+c9[ ]+ret
+[ ]+35:[ ]+c9[ ]+ret
+
+00000036 <label1>:
+[ ]+36:[ ]+78[ ]+ld a,b
+
+00000037 <label2>:
+[ ]+37:[ ]+79[ ]+ld a,c
+
+00000038 <label3>:
+[ ]+38:[ ]+7a[ ]+ld a,d
+
+00000039 <label4>:
+[ ]+39:[ ]+7b[ ]+ld a,e
+
+0000003a <label5>:
+[ ]+3a:[ ]+7c[ ]+ld a,h
+
+0000003b <label6>:
+[ ]+3b:[ ]+7d[ ]+ld a,l
+
+0000003c <label7>:
+[ ]+3c:[ ]+7e[ ]+ld a,\(hl\)
+
+0000003d <label8>:
+[ ]+3d:[ ]+7f[ ]+ld a,a
+
+0000003e <label9>:
+[ ]+3e:[ ]+2f[ ]+cpl
diff --git a/ld/testsuite/ld-z80/labels.s b/ld/testsuite/ld-z80/labels.s
new file mode 100644
index 0000000..a957fef
--- /dev/null
+++ b/ld/testsuite/ld-z80/labels.s
@@ -0,0 +1,43 @@
+ .text
+ .globl label1
+ .globl label2
+ .globl label3
+ .globl label4
+ .globl label5
+ .globl label6
+ .globl label7
+ .globl label8
+ .globl label9
+ .globl value8
+ .globl value16
+ .globl value24
+ .globl value32
+ .globl field_0
+ .globl field_1
+_start:
+label1:
+ ld a,b
+label2:
+ ld a,c
+label3:
+ ld a,d
+label4:
+ ld a,e
+label5:
+ ld a,h
+label6:
+ ld a,l
+label7:
+ ld a,(hl)
+label8:
+ ld a,a
+label9:
+ cpl
+
+value8 .equ 0x12
+value16 .equ 0x1234
+value24 .equ 0x123456
+value32 .equ 0x12345678
+
+field_0 .equ 3
+field_1 .equ field_0 + 1
diff --git a/ld/testsuite/ld-z80/relocs.s b/ld/testsuite/ld-z80/relocs.s
new file mode 100644
index 0000000..131a702
--- /dev/null
+++ b/ld/testsuite/ld-z80/relocs.s
@@ -0,0 +1,81 @@
+ .text
+; .org 0
+
+ .globl label1
+ .globl label2
+ .globl label3
+ .globl label4
+ .globl label5
+ .globl label6
+ .globl label7
+ .globl label8
+ .globl label9
+
+ .globl value8
+ .globl value16
+ .globl value24
+ .globl value32
+
+ .globl field_0
+ .globl field_1
+
+ call label1
+ call nz,label2
+ call z,label3
+ call nc,label4
+ call c,label5
+ call po,label6
+ call pe,label7
+ call p,label8
+ call m,label9
+
+ jp label1
+ jp nz,label2
+ jp z,label3
+ jp nc,label4
+ jp c,label5
+ jp po,label6
+ jp pe,label7
+ jp p,label8
+ jp m,label9
+
+ ld l,(ix+5)
+ ld a,(ix+field_0)
+ ld c,(ix+field_1-10)
+ ld b,(ix+field_1-11)
+
+field_0_1 .equ field_0+90
+
+ ld (iy-5),l
+ ld (iy+field_0),a
+ ld (iy+field_1+10),c
+ ld (iy+field_1+11),b
+ ld h,(iy+field_0_1)
+
+ .ifdef ADLMODE
+ ld.is de,value32 >> 16
+ ld.is hl,value32 & 0xffff
+ ld.is de,(value32 + 0x12345678) >> 16
+ ld.is hl,(value32 + 0x12345678) & 0xffff
+ .else
+ ld de,value32 >> 16
+ ld hl,value32 & 0xffff
+ ld de,(value32 + 0x12345678) >> 16
+ ld hl,(value32 + 0x12345678) & 0xffff
+ .endif
+
+ ld d,value32 >> 24
+ ld e,value32 >> 16
+ ld h,value32 >> 8
+ ld l,value32 >> 0
+
+ ld d,(value32 + 0x12345678) >> 24
+ ld e,(value32 + 0x12345678) >> 16
+ ld h,(value32 + 0x12345678) >> 8
+ ld l,(value32 + 0x12345678) >> 0
+
+ .data
+ .db value8
+ .dw value16
+ .d24 value24
+ .d32 value32
diff --git a/ld/testsuite/ld-z80/relocs_b_ez80.d b/ld/testsuite/ld-z80/relocs_b_ez80.d
new file mode 100644
index 0000000..a421ce8
--- /dev/null
+++ b/ld/testsuite/ld-z80/relocs_b_ez80.d
@@ -0,0 +1,60 @@
+#name: eZ80 backward relocation in ADL mode
+#source: labels.s -ez80-adl
+#source: relocs.s -ez80-adl --defsym ADLMODE=1
+#ld: -e 0 -Ttext 0x100 -Tdata 0x200 -s
+#objdump: -d
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000100 <.*>:
+ 100:[ ]+78[ ]+ld a,b
+ 101:[ ]+79[ ]+ld a,c
+ 102:[ ]+7a[ ]+ld a,d
+ 103:[ ]+7b[ ]+ld a,e
+ 104:[ ]+7c[ ]+ld a,h
+ 105:[ ]+7d[ ]+ld a,l
+ 106:[ ]+7e[ ]+ld a,\(hl\)
+ 107:[ ]+7f[ ]+ld a,a
+ 108:[ ]+2f[ ]+cpl
+ 109:[ ]+cd 00 01 00[ ]+call 0x0100
+ 10d:[ ]+c4 01 01 00[ ]+call nz,0x0101
+ 111:[ ]+cc 02 01 00[ ]+call z,0x0102
+ 115:[ ]+d4 03 01 00[ ]+call nc,0x0103
+ 119:[ ]+dc 04 01 00[ ]+call c,0x0104
+ 11d:[ ]+e4 05 01 00[ ]+call po,0x0105
+ 121:[ ]+ec 06 01 00[ ]+call pe,0x0106
+ 125:[ ]+f4 07 01 00[ ]+call p,0x0107
+ 129:[ ]+fc 08 01 00[ ]+call m,0x0108
+ 12d:[ ]+c3 00 01 00[ ]+jp 0x0100
+ 131:[ ]+c2 01 01 00[ ]+jp nz,0x0101
+ 135:[ ]+ca 02 01 00[ ]+jp z,0x0102
+ 139:[ ]+d2 03 01 00[ ]+jp nc,0x0103
+ 13d:[ ]+da 04 01 00[ ]+jp c,0x0104
+ 141:[ ]+e2 05 01 00[ ]+jp po,0x0105
+ 145:[ ]+ea 06 01 00[ ]+jp pe,0x0106
+ 149:[ ]+f2 07 01 00[ ]+jp p,0x0107
+ 14d:[ ]+fa 08 01 00[ ]+jp m,0x0108
+ 151:[ ]+dd 6e 05[ ]+ld l,\(ix\+5\)
+ 154:[ ]+dd 7e 03[ ]+ld a,\(ix\+3\)
+ 157:[ ]+dd 4e fa[ ]+ld c,\(ix\-6\)
+ 15a:[ ]+dd 46 f9[ ]+ld b,\(ix\-7\)
+ 15d:[ ]+fd 75 fb[ ]+ld \(iy\-5\),l
+ 160:[ ]+fd 77 03[ ]+ld \(iy\+3\),a
+ 163:[ ]+fd 71 0e[ ]+ld \(iy\+14\),c
+ 166:[ ]+fd 70 0f[ ]+ld \(iy\+15\),b
+ 169:[ ]+fd 66 5d[ ]+ld h,\(iy\+93\)
+ 16c:[ ]+49 11 34 12[ ]+ld\.lis de,0x1234
+ 170:[ ]+49 21 78 56[ ]+ld\.lis hl,0x5678
+ 174:[ ]+49 11 68 24[ ]+ld\.lis de,0x2468
+ 178:[ ]+49 21 f0 ac[ ]+ld\.lis hl,0xacf0
+ 17c:[ ]+16 12[ ]+ld d,0x12
+ 17e:[ ]+1e 34[ ]+ld e,0x34
+ 180:[ ]+26 56[ ]+ld h,0x56
+ 182:[ ]+2e 78[ ]+ld l,0x78
+ 184:[ ]+16 24[ ]+ld d,0x24
+ 186:[ ]+1e 68[ ]+ld e,0x68
+ 188:[ ]+26 ac[ ]+ld h,0xac
+ 18a:[ ]+2e f0[ ]+ld l,0xf0
diff --git a/ld/testsuite/ld-z80/relocs_b_z80.d b/ld/testsuite/ld-z80/relocs_b_z80.d
new file mode 100644
index 0000000..1417650
--- /dev/null
+++ b/ld/testsuite/ld-z80/relocs_b_z80.d
@@ -0,0 +1,60 @@
+#name: Z80 backward relocation
+#source: labels.s -z80
+#source: relocs.s -z80
+#ld: -e 0 -Ttext 0x100 -Tdata 0x200 -s
+#objdump: -d
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000100 <.*>:
+ 100:[ ]+78[ ]+ld a,b
+ 101:[ ]+79[ ]+ld a,c
+ 102:[ ]+7a[ ]+ld a,d
+ 103:[ ]+7b[ ]+ld a,e
+ 104:[ ]+7c[ ]+ld a,h
+ 105:[ ]+7d[ ]+ld a,l
+ 106:[ ]+7e[ ]+ld a,\(hl\)
+ 107:[ ]+7f[ ]+ld a,a
+ 108:[ ]+2f[ ]+cpl
+ 109:[ ]+cd 00 01[ ]+call 0x0100
+ 10c:[ ]+c4 01 01[ ]+call nz,0x0101
+ 10f:[ ]+cc 02 01[ ]+call z,0x0102
+ 112:[ ]+d4 03 01[ ]+call nc,0x0103
+ 115:[ ]+dc 04 01[ ]+call c,0x0104
+ 118:[ ]+e4 05 01[ ]+call po,0x0105
+ 11b:[ ]+ec 06 01[ ]+call pe,0x0106
+ 11e:[ ]+f4 07 01[ ]+call p,0x0107
+ 121:[ ]+fc 08 01[ ]+call m,0x0108
+ 124:[ ]+c3 00 01[ ]+jp 0x0100
+ 127:[ ]+c2 01 01[ ]+jp nz,0x0101
+ 12a:[ ]+ca 02 01[ ]+jp z,0x0102
+ 12d:[ ]+d2 03 01[ ]+jp nc,0x0103
+ 130:[ ]+da 04 01[ ]+jp c,0x0104
+ 133:[ ]+e2 05 01[ ]+jp po,0x0105
+ 136:[ ]+ea 06 01[ ]+jp pe,0x0106
+ 139:[ ]+f2 07 01[ ]+jp p,0x0107
+ 13c:[ ]+fa 08 01[ ]+jp m,0x0108
+ 13f:[ ]+dd 6e 05[ ]+ld l,\(ix\+5\)
+ 142:[ ]+dd 7e 03[ ]+ld a,\(ix\+3\)
+ 145:[ ]+dd 4e fa[ ]+ld c,\(ix\-6\)
+ 148:[ ]+dd 46 f9[ ]+ld b,\(ix\-7\)
+ 14b:[ ]+fd 75 fb[ ]+ld \(iy\-5\),l
+ 14e:[ ]+fd 77 03[ ]+ld \(iy\+3\),a
+ 151:[ ]+fd 71 0e[ ]+ld \(iy\+14\),c
+ 154:[ ]+fd 70 0f[ ]+ld \(iy\+15\),b
+ 157:[ ]+fd 66 5d[ ]+ld h,\(iy\+93\)
+ 15a:[ ]+11 34 12[ ]+ld de,0x1234
+ 15d:[ ]+21 78 56[ ]+ld hl,0x5678
+ 160:[ ]+11 68 24[ ]+ld de,0x2468
+ 163:[ ]+21 f0 ac[ ]+ld hl,0xacf0
+ 166:[ ]+16 12[ ]+ld d,0x12
+ 168:[ ]+1e 34[ ]+ld e,0x34
+ 16a:[ ]+26 56[ ]+ld h,0x56
+ 16c:[ ]+2e 78[ ]+ld l,0x78
+ 16e:[ ]+16 24[ ]+ld d,0x24
+ 170:[ ]+1e 68[ ]+ld e,0x68
+ 172:[ ]+26 ac[ ]+ld h,0xac
+ 174:[ ]+2e f0[ ]+ld l,0xf0
diff --git a/ld/testsuite/ld-z80/relocs_f_ez80.d b/ld/testsuite/ld-z80/relocs_f_ez80.d
new file mode 100644
index 0000000..323156b
--- /dev/null
+++ b/ld/testsuite/ld-z80/relocs_f_ez80.d
@@ -0,0 +1,78 @@
+#name: eZ80 forward relocation in ADL mode
+#source: relocs.s -ez80-adl --defsym ADLMODE=1
+#source: labels.s -ez80-adl
+#ld: -e 0 -Ttext 0x100 -Tdata 0x200
+#objdump: -d
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000100 <.*>:
+ 100:[ ]+cd 83 01 00[ ]+call 0x0183
+ 104:[ ]+c4 84 01 00[ ]+call nz,0x0184
+ 108:[ ]+cc 85 01 00[ ]+call z,0x0185
+ 10c:[ ]+d4 86 01 00[ ]+call nc,0x0186
+ 110:[ ]+dc 87 01 00[ ]+call c,0x0187
+ 114:[ ]+e4 88 01 00[ ]+call po,0x0188
+ 118:[ ]+ec 89 01 00[ ]+call pe,0x0189
+ 11c:[ ]+f4 8a 01 00[ ]+call p,0x018a
+ 120:[ ]+fc 8b 01 00[ ]+call m,0x018b
+ 124:[ ]+c3 83 01 00[ ]+jp 0x0183
+ 128:[ ]+c2 84 01 00[ ]+jp nz,0x0184
+ 12c:[ ]+ca 85 01 00[ ]+jp z,0x0185
+ 130:[ ]+d2 86 01 00[ ]+jp nc,0x0186
+ 134:[ ]+da 87 01 00[ ]+jp c,0x0187
+ 138:[ ]+e2 88 01 00[ ]+jp po,0x0188
+ 13c:[ ]+ea 89 01 00[ ]+jp pe,0x0189
+ 140:[ ]+f2 8a 01 00[ ]+jp p,0x018a
+ 144:[ ]+fa 8b 01 00[ ]+jp m,0x018b
+ 148:[ ]+dd 6e 05[ ]+ld l,\(ix\+5\)
+ 14b:[ ]+dd 7e 03[ ]+ld a,\(ix\+3\)
+ 14e:[ ]+dd 4e fa[ ]+ld c,\(ix\-6\)
+ 151:[ ]+dd 46 f9[ ]+ld b,\(ix\-7\)
+ 154:[ ]+fd 75 fb[ ]+ld \(iy\-5\),l
+ 157:[ ]+fd 77 03[ ]+ld \(iy\+3\),a
+ 15a:[ ]+fd 71 0e[ ]+ld \(iy\+14\),c
+ 15d:[ ]+fd 70 0f[ ]+ld \(iy\+15\),b
+ 160:[ ]+fd 66 5d[ ]+ld h,\(iy\+93\)
+ 163:[ ]+49 11 34 12[ ]+ld\.lis de,0x1234
+ 167:[ ]+49 21 78 56[ ]+ld\.lis hl,0x5678
+ 16b:[ ]+49 11 68 24[ ]+ld\.lis de,0x2468
+ 16f:[ ]+49 21 f0 ac[ ]+ld\.lis hl,0xacf0
+ 173:[ ]+16 12[ ]+ld d,0x12
+ 175:[ ]+1e 34[ ]+ld e,0x34
+ 177:[ ]+26 56[ ]+ld h,0x56
+ 179:[ ]+2e 78[ ]+ld l,0x78
+ 17b:[ ]+16 24[ ]+ld d,0x24
+ 17d:[ ]+1e 68[ ]+ld e,0x68
+ 17f:[ ]+26 ac[ ]+ld h,0xac
+ 181:[ ]+2e f0[ ]+ld l,0xf0
+
+00000183 <label1>:
+ 183:[ ]+78[ ]+ld a,b
+
+00000184 <label2>:
+ 184:[ ]+79[ ]+ld a,c
+
+00000185 <label3>:
+ 185:[ ]+7a[ ]+ld a,d
+
+00000186 <label4>:
+ 186:[ ]+7b[ ]+ld a,e
+
+00000187 <label5>:
+ 187:[ ]+7c[ ]+ld a,h
+
+00000188 <label6>:
+ 188:[ ]+7d[ ]+ld a,l
+
+00000189 <label7>:
+ 189:[ ]+7e[ ]+ld a,\(hl\)
+
+0000018a <label8>:
+ 18a:[ ]+7f[ ]+ld a,a
+
+0000018b <label9>:
+ 18b:[ ]+2f[ ]+cpl
diff --git a/ld/testsuite/ld-z80/relocs_f_z80.d b/ld/testsuite/ld-z80/relocs_f_z80.d
new file mode 100644
index 0000000..462da8a
--- /dev/null
+++ b/ld/testsuite/ld-z80/relocs_f_z80.d
@@ -0,0 +1,79 @@
+#name: Z80 forward relocation
+#source: relocs.s -z80
+#source: labels.s -z80
+#ld: -e 0 -Ttext 0x100 -Tdata 0x200
+#objdump: -d
+
+
+.*:[ ]+file format (coff)|(elf32)\-z80
+
+
+.* \.text:
+
+00000100 <.*>:
+ 100:[ ]+cd 6d 01[ ]+call 0x016d
+ 103:[ ]+c4 6e 01[ ]+call nz,0x016e
+ 106:[ ]+cc 6f 01[ ]+call z,0x016f
+ 109:[ ]+d4 70 01[ ]+call nc,0x0170
+ 10c:[ ]+dc 71 01[ ]+call c,0x0171
+ 10f:[ ]+e4 72 01[ ]+call po,0x0172
+ 112:[ ]+ec 73 01[ ]+call pe,0x0173
+ 115:[ ]+f4 74 01[ ]+call p,0x0174
+ 118:[ ]+fc 75 01[ ]+call m,0x0175
+ 11b:[ ]+c3 6d 01[ ]+jp 0x016d
+ 11e:[ ]+c2 6e 01[ ]+jp nz,0x016e
+ 121:[ ]+ca 6f 01[ ]+jp z,0x016f
+ 124:[ ]+d2 70 01[ ]+jp nc,0x0170
+ 127:[ ]+da 71 01[ ]+jp c,0x0171
+ 12a:[ ]+e2 72 01[ ]+jp po,0x0172
+ 12d:[ ]+ea 73 01[ ]+jp pe,0x0173
+ 130:[ ]+f2 74 01[ ]+jp p,0x0174
+ 133:[ ]+fa 75 01[ ]+jp m,0x0175
+ 136:[ ]+dd 6e 05[ ]+ld l,\(ix\+5\)
+ 139:[ ]+dd 7e 03[ ]+ld a,\(ix\+3\)
+ 13c:[ ]+dd 4e fa[ ]+ld c,\(ix\-6\)
+ 13f:[ ]+dd 46 f9[ ]+ld b,\(ix\-7\)
+ 142:[ ]+fd 75 fb[ ]+ld \(iy\-5\),l
+ 145:[ ]+fd 77 03[ ]+ld \(iy\+3\),a
+ 148:[ ]+fd 71 0e[ ]+ld \(iy\+14\),c
+ 14b:[ ]+fd 70 0f[ ]+ld \(iy\+15\),b
+ 14e:[ ]+fd 66 5d[ ]+ld h,\(iy\+93\)
+ 151:[ ]+11 34 12[ ]+ld de,0x1234
+ 154:[ ]+21 78 56[ ]+ld hl,0x5678
+ 157:[ ]+11 68 24[ ]+ld de,0x2468
+ 15a:[ ]+21 f0 ac[ ]+ld hl,0xacf0
+ 15d:[ ]+16 12[ ]+ld d,0x12
+ 15f:[ ]+1e 34[ ]+ld e,0x34
+ 161:[ ]+26 56[ ]+ld h,0x56
+ 163:[ ]+2e 78[ ]+ld l,0x78
+ 165:[ ]+16 24[ ]+ld d,0x24
+ 167:[ ]+1e 68[ ]+ld e,0x68
+ 169:[ ]+26 ac[ ]+ld h,0xac
+ 16b:[ ]+2e f0[ ]+ld l,0xf0
+
+0000016d <label1>:
+ 16d:[ ]+78[ ]+ld a,b
+
+0000016e <label2>:
+ 16e:[ ]+79[ ]+ld a,c
+
+0000016f <label3>:
+ 16f:[ ]+7a[ ]+ld a,d
+
+00000170 <label4>:
+ 170:[ ]+7b[ ]+ld a,e
+
+00000171 <label5>:
+ 171:[ ]+7c[ ]+ld a,h
+
+00000172 <label6>:
+ 172:[ ]+7d[ ]+ld a,l
+
+00000173 <label7>:
+ 173:[ ]+7e[ ]+ld a,\(hl\)
+
+00000174 <label8>:
+ 174:[ ]+7f[ ]+ld a,a
+
+00000175 <label9>:
+ 175:[ ]+2f[ ]+cpl
diff --git a/ld/testsuite/ld-z80/z80.exp b/ld/testsuite/ld-z80/z80.exp
new file mode 100644
index 0000000..d141ab8
--- /dev/null
+++ b/ld/testsuite/ld-z80/z80.exp
@@ -0,0 +1,33 @@
+# Expect script for ld-z80 tests
+# Copyright (C) 2016-2019 Free Software Foundation, Inc.
+#
+# This file is part of the GNU Binutils.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
+# MA 02110-1301, USA.
+#
+
+# Test z80 linking; all types of relocs. This tests the assembler
+# and tools like objdump as well as the main target, the linker.
+
+if ![istarget "z80-*-*"] then {
+ return
+}
+
+set z80_test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
+foreach z80_test $z80_test_list {
+ verbose [file rootname $z80_test]
+ run_dump_test [file rootname $z80_test]
+}