recognize +! and set-vector (#706)

"

test/decompiler/reference/engine/debug/debug-sphere_REF.gc

@@ -26,12 +26,7 @@
         (f30-0 1.0)
         (s4-0 0)
         )
-   (let ((v1-0 s5-0))
-    (set! (-> v1-0 x) 0.0)
-    (set! (-> v1-0 y) 0.0)
-    (set! (-> v1-0 z) 0.0)
-    (set! (-> v1-0 w) 1.0)
-    )
+   (set-vector! s5-0 0.0 0.0 0.0 1.0)
    (dotimes (s3-0 10)
     (let ((f28-0 (* f30-0 (sin (* 3276.8 (the float s3-0)))))
           (f26-0 (* f30-0 (sin (* 3276.8 (the float (+ s3-0 1))))))

test/decompiler/reference/engine/debug/menu_REF.gc

@@ -1090,17 +1090,11 @@
     )
    (set! (-> v1-2 color) (cond
                           ((> (-> arg0 hilite-timer) 0)
-                           (set!
-                            (-> arg0 hilite-timer)
-                            (+ (-> arg0 hilite-timer) -1)
-                            )
+                           (+! (-> arg0 hilite-timer) -1)
                            10
                            )
                           ((< (-> arg0 hilite-timer) 0)
-                           (set!
-                            (-> arg0 hilite-timer)
-                            (+ (-> arg0 hilite-timer) 1)
-                            )
+                           (+! (-> arg0 hilite-timer) 1)
                            14
                            )
                           ((nonzero? arg3)
@@ -1200,7 +1194,7 @@
   debug-menu-item-render
   ((arg0 debug-menu-item) (arg1 int) (arg2 int) (arg3 int) (arg4 symbol))
   (when (> (-> arg0 refresh-delay) 0)
-   (set! (-> arg0 refresh-ctr) (+ (-> arg0 refresh-ctr) -1))
+   (+! (-> arg0 refresh-ctr) -1)
    (when (<= (-> arg0 refresh-ctr) 0)
     (set! (-> arg0 refresh-ctr) (-> arg0 refresh-delay))
     (debug-menu-item-send-msg arg0 3)
@@ -1506,7 +1500,7 @@
 (defun debug-menu-context-close-submenu ((arg0 debug-menu-context))
   (debug-menu-context-send-msg arg0 2 3)
   (if (< 1 (-> arg0 sel-length))
-   (set! (-> arg0 sel-length) (+ (-> arg0 sel-length) -1))
+   (+! (-> arg0 sel-length) -1)
    )
   arg0
   )
@@ -1672,7 +1666,7 @@
     (cond
      ((<= (-> arg0 inc-delay-ctr) 0)
       (if (> (-> arg0 inc-delay) 0)
-       (set! (-> arg0 inc-delay) (+ (-> arg0 inc-delay) -1))
+       (+! (-> arg0 inc-delay) -1)
        )
       (when (zero? (-> arg0 inc-delay))
        (cond
@@ -1695,7 +1689,7 @@
           )
          )
         (else
-         (set! (-> arg0 step-delay-ctr) (+ (-> arg0 step-delay-ctr) -1))
+         (+! (-> arg0 step-delay-ctr) -1)
          )
         )
        )
@@ -1770,7 +1764,7 @@
        )
       )
      (else
-      (set! (-> arg0 inc-delay-ctr) (+ (-> arg0 inc-delay-ctr) -1))
+      (+! (-> arg0 inc-delay-ctr) -1)
       )
      )
     )

test/decompiler/reference/engine/debug/stats-h_REF.gc

@@ -126,9 +126,9 @@
   perf-stat
   ((obj perf-stat) (arg0 uint) (arg1 uint) (arg2 uint))
   (when (nonzero? (-> obj ctrl))
-   (set! (-> obj to-vu0-waits) (+ (-> obj to-vu0-waits) arg0))
-   (set! (-> obj to-spr-waits) (+ (-> obj to-spr-waits) arg1))
-   (set! (-> obj from-spr-waits) (+ (-> obj from-spr-waits) arg2))
+   (+! (-> obj to-vu0-waits) arg0)
+   (+! (-> obj to-spr-waits) arg1)
+   (+! (-> obj from-spr-waits) arg2)
    )
   0
   (none)