always set vu function length to 0

goal_src/jak1/engine/dma/dma-buffer.gc

@@ -161,7 +161,8 @@
    but creates a reference to the existing VU function."
   ;; The first 4 bytes of a vu-function object's data are discarded because they aren't aligned.
   (let ((func-ptr (the-as pointer (&-> vu-func data 4)))
-        (qlen (-> vu-func qlength)) ;; number of quadwords
+        ;; og:preserve-this we rely on the vu functions being empty on pc
+        (qlen (#if PC_PORT 0 (-> vu-func qlength))) ;; number of quadwords
         (origin (-> vu-func origin)) ;; destination address in VU instruction memory.
         )
     ;; loop until whole program is transferred.

goal_src/jak2/engine/dma/dma-buffer.gc

@@ -233,7 +233,8 @@ note that the second vifcode can also hold other stuff depending on the mode.
 
   ;; The first 4 bytes of a vu-function object's data are discarded because they aren't aligned.
   (let ((func-ptr (the-as pointer (&-> vu-func data 4)))
-        (qlen (-> vu-func qlength)) ;; number of quadwords
+        ;; og:preserve-this we rely on the vu functions being empty on pc
+        (qlen (#if PC_PORT 0 (-> vu-func qlength))) ;; number of quadwords
         (origin (-> vu-func origin)) ;; destination address in VU instruction memory.
         )
     ;; loop until whole program is transferred.

goal_src/jak3/engine/dma/dma-buffer.gc

@@ -431,7 +431,8 @@
 
   ;; The first 4 bytes of a vu-function object's data are discarded because they aren't aligned.
   (let ((func-ptr (the-as pointer (&-> vu-func data 4)))
-        (qlen (-> vu-func qlength)) ;; number of quadwords
+        ;; og:preserve-this we rely on the vu functions being empty on pc
+        (qlen (#if PC_PORT 0 (-> vu-func qlength))) ;; number of quadwords
         (origin (-> vu-func origin)) ;; destination address in VU instruction memory.
         )
     ;; loop until whole program is transferred.

goal_src/jak3/engine/math/math.gc

@@ -10,6 +10,9 @@
   `(.lvf vf0 (new 'static 'vector :x 0.0 :y 0.0 :z 0.0 :w 1.0))
   )
 
+(defmacro square (x)
+  `(* ,x ,x))
+
 ;; DECOMP BEGINS
 
 (defun truncate ((arg0 float))

test/decompiler/reference/jak3/decompiler-macros.gc

@@ -1758,5 +1758,9 @@
     )
   )
 
+(defmacro square (x)
+  `(* ,x ,x)
+  )
+
 (import "goal_src/jak3/engine/data/tpages.gc")
 (import "goal_src/jak3/engine/data/textures.gc")