X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=ld%2Ftestsuite%2Fld-arm%2Fcortex-a8-fix-bl.s;fp=ld%2Ftestsuite%2Fld-arm%2Fcortex-a8-fix-bl.s;h=6e40fb88115cffeb7bd825133b3e632a61f8336c;hb=88750007d7869f178f0ba528f41efd3b74c424cf;hp=0000000000000000000000000000000000000000;hpb=6df9443a374e2b81278c61b8afc0a1eef7db280b;p=msp430-binutils.git

diff --git a/ld/testsuite/ld-arm/cortex-a8-fix-bl.s b/ld/testsuite/ld-arm/cortex-a8-fix-bl.s
new file mode 100644
index 0000000..6e40fb8
--- /dev/null
+++ b/ld/testsuite/ld-arm/cortex-a8-fix-bl.s
@@ -0,0 +1,39 @@
+	.syntax unified
+	.cpu cortex-a8
+	.thumb
+	.text
+
+	@ expansion 32 bytes
+        .macro bw1
+1:
+        add.w r0, r1, r2
+        bl.w 1b
+        add.w r0, r1, r2
+        bl.w 1b
+        add.w r0, r1, r2
+        bl.w 1b
+        add.w r0, r1, r2
+        bl.w 1b
+        .endm
+
+        @ expansion 128 bytes
+        .macro bw2
+        bw1
+        bw1
+        bw1
+        bw1
+        .endm
+
+        .align  3
+        .global _start
+        .thumb
+        .thumb_func
+        .type   _start, %function
+_start:
+        nop
+
+	@ Trigger Cortex-A8 erratum workaround with bl instructions.
+        bw2
+        bw2
+
+        bx      lr