[decompiler] fix missing casts issue (#573)

* fix casts issue

* fix bug

* one last small fix

test/decompiler/reference/engine/engine/connect_REF.gc

@@ -164,10 +164,16 @@
   ((allocation symbol) (type-to-make type) (name basic) (length int))
   (let
    ((obj
-     (object-new
-      allocation
-      type-to-make
-      (the-as int (+ (-> type-to-make size) (the-as uint (* (+ length -1) 32))))
+     (the-as
+      object
+      (object-new
+       allocation
+       type-to-make
+       (the-as
+        int
+        (+ (-> type-to-make size) (the-as uint (* (+ length -1) 32)))
+        )
+       )
       )
      )
     )