ARM: Simplify source formatting.
authorDanny Milosavljevic <dannym@scratchpost.org>
Wed, 20 Feb 2019 00:45:45 +0000 (01:45 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 9 Sep 2019 16:33:54 +0000 (18:33 +0200)
* module/mescc/armv4/as.scm (armv4:local->r): Simplify.
(armv4:local-ptr->r): Indent.
(armv4:r+value): Simplify.
(armv4:r-cmp-value): Simplify.
(armv4:r0+value): Simplify.

module/mescc/armv4/as.scm

index 45b09eb7d806c67c7793be8a5e05be9f1cdb4786..8a6038fa1279b03f2f888fc8dc5b7b116156767e 100644 (file)
@@ -65,9 +65,9 @@
 (define (armv4:local->r info n)
   (let ((r (get-r info))
         (n (- 0 (* 4 n))))
-    `(,(if (< (abs n) #x80)
-           `((#:immediate1 ,n) ,(string-append "mov____0x8(%ebp),%" r))
-           `(,(string-append "mov____0x32(%ebp),%" r) (#:immediate ,n))))))
+    (if (< (abs n) #x80)
+        `(((#:immediate1 ,n) ,(string-append "mov____0x8(%ebp),%" r)))
+        `((,(string-append "mov____0x32(%ebp),%" r) (#:immediate ,n))))))
 
 (define (armv4:r0+r1 info)
   (let ((r0 (get-r0 info))
   (let ((r (get-r info)))
     (let ((n (- 0 (* 4 n))))
       `((,(string-append "mov____%ebp,%" r))
-        ,(if (< (abs n) #x80) `((#:immediate1 ,n) ,(string-append "add____$i8,%" r))
-             `(,(string-append "add____$i32,%" r)  (#:immediate ,n)))))))
+        ,(if (< (abs n) #x80)
+            `((#:immediate1 ,n) ,(string-append "add____$i8,%" r))
+            `(,(string-append "add____$i32,%" r) (#:immediate ,n)))))))
 
 (define (armv4:label->r info label)
   (let ((r (get-r info)))
 
 (define (armv4:r+value info v)
   (let ((r (get-r info)))
-    `(,(if (< (abs v) #x80) `((#:immediate1 ,v) ,(string-append "add____$i8,%" r))
-           `(,(string-append "add____$i32,%" r) (#:immediate ,v))))))
+    (if (< (abs v) #x80)
+       `(((#:immediate1 ,v) ,(string-append "add____$i8,%" r)))
+       `((,(string-append "add____$i32,%" r) (#:immediate ,v))))))
 
 (define (armv4:r0->r1-mem info)
   (let ((r0 (get-r0 info))
 
 (define (armv4:r-cmp-value info v)
   (let ((r (get-r info)))
-    `(,(if (< (abs v) #x80) `((#:immediate1 ,v) ,(string-append "cmp____$i8,%" r))
-           `(,(string-append "cmp____$i32,%" r) (#:immediate ,v))))))
+    (if (< (abs v) #x80)
+       `(((#:immediate1 ,v) ,(string-append "cmp____$i8,%" r)))
+       `((,(string-append "cmp____$i32,%" r) (#:immediate ,v))))))
 
 (define (armv4:push-register info r)
   `((,(string-append "push___%" r))))
 
 (define (armv4:r0+value info v)
   (let ((r0 (get-r0 info)))
-    `(,(if (< (abs v) #x80) `((#:immediate1 ,v) ,(string-append "add____$i8,%" r0))
-           `(,(string-append "add____$i32,%" r0) (#:immediate ,v))))))
+    (if (< (abs v) #x80)
+       `(((#:immediate1 ,v) ,(string-append "add____$i8,%" r0)))
+       `((,(string-append "add____$i32,%" r0) (#:immediate ,v))))))
 
 (define (armv4:value->r0 info v)
   (let ((r0 (get-r0 info)))