ARM: Fix byte-mem-add.

* lib/arm-mes/arm.M1: Add macro "ldrb___%r0,(%r1)".
* module/mescc/armv4/as.scm (armv4:r-byte-mem-add): Use it.
This commit is contained in:
Danny Milosavljevic 2019-02-26 17:08:28 +01:00 committed by Jan Nieuwenhuizen
parent eebcb57b36
commit badae1c4c4
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 3 additions and 2 deletions

View File

@ -179,6 +179,7 @@ DEFINE ldrsb__%r2,(%r2) d020d2e1 # ldrsb r2, [r2]
DEFINE ldrsb__%r3,(%r3) d030d3e1 # ldrsb r3, [r3]
DEFINE ldrsb__%r4,(%r4) d040d4e1 # ldrsb r4, [r4]
DEFINE ldrsb__%r5,(%r5) d050d5e1 # ldrsb r5, [r5]
DEFINE ldrb___%r0,(%r1) 0000d1e5 # ldrb r0, [r1]
DEFINE ldrh___%r0,(%r0) b000d0e1 # ldrh r0, [r0]
DEFINE ldrh___%r1,(%r1) b010d1e1 # ldrh r1, [r1]
DEFINE ldrh___%r2,(%r2) b020d2e1 # ldrh r2, [r2]

View File

@ -126,8 +126,8 @@
(define (armv4:r-byte-mem-add info v)
(let ((r (get-r info)))
`((,(string-append "push___%r0"))
(,(string-append "ldbrs__%r0,(%" r ")"))
((#:immediate1 ,v) ,(string-append "addb___$i8,%r0"))
(,(string-append "ldrb___%r0,(%" r ")"))
((#:immediate1 ,v) ,(string-append "add____$i8,%r0"))
(,(string-append "strb___%r0,(%" r ")"))
(,(string-append "pop____%r0")))))