ARM: Fix testing for zero.

* module/mescc/armv4/as.scm (armv4:r-zero?): Modify.
(armv4:xor-zf): Modify.
This commit is contained in:
Danny Milosavljevic 2019-02-22 17:22:29 +01:00 committed by Jan Nieuwenhuizen
parent c4c94d68fe
commit c72d349f53
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 2 deletions

View File

@ -65,7 +65,7 @@
(define (armv4:r-zero? info)
(let ((r (get-r info)))
`((,(string-append "test___%" r "," "%" r)))))
`(((#:immediate1 #x00) ,(string-append "cmp____$i8,%" r)))))
(define (armv4:local->r info n)
(let ((r (get-r info))
@ -109,7 +109,7 @@
(define (armv4:xor-zf info)
'(((#:immediate1 #x00) "mov____$i8,%r0")
((#:immediate1 #x01) "moveq__%r0,$i8")
("test__%r0,%r0")))
((#:immediate1 #x00) "cmp____$i8,%r0")))
(define (armv4:r->local+n info id n)
(let ((n (+ (- 0 (* 4 id)) n))