We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e2ad80c commit 48235c0Copy full SHA for 48235c0
plugins/arm/semantics/thumb.lisp
@@ -12,10 +12,10 @@
12
(in-package thumb)
13
14
(defun tCMPhir (rn rm cnd _)
15
- "cmp rn, rn"
+ "cmp rn, rm"
16
(when (condition-holds cnd)
17
(let ((r (- rn rm)))
18
- (set-nzcv-from-registers r rn rm))))
+ (set-nzcv-from-registers r rn (- rm)))))
19
20
(defun tADR (rd lbl cnd _)
21
"adr rd, lbl"
@@ -98,7 +98,7 @@
98
(defun t2ADDrs (rd rn rm simm cnd _ _)
99
"add.w rd, rn, rm, simm"
100
101
- (set$ rd (+ rn (i-shift rn simm)))))
+ (set$ rd (+ rn (i-shift rm simm)))))
102
103
(defun tSBC (rd _ rn rm cnd _)
104
(add-with-carry/it-block rd rn (lnot rm) CF cnd))
0 commit comments