[gcommon decomp] compiler and decompiler fixes (#239)

* wip

* decompile file-io

* a

* fix
This commit is contained in:
water111
2021-02-07 18:21:00 -05:00
committed by GitHub
parent f8b63a3f92
commit e01e065170
31 changed files with 925 additions and 164 deletions
@@ -2002,8 +2002,8 @@ TEST_F(FormRegressionTest, ExprValid) {
" (if s4-0 (set! v1-24 (format s5-0 L318 gp-0 s4-0 s3-0)))\n"
" (quote #f)\n"
" )\n"
" ((and (= s3-0 type) (!= (type-of gp-0) type))\n"
" (if s4-0 (set! v1-31 (format s5-0 L317 gp-0 s4-0 s3-0 (type-of gp-0))))\n"
" ((and (= s3-0 type) (!= (rtype-of gp-0) type))\n"
" (if s4-0 (set! v1-31 (format s5-0 L317 gp-0 s4-0 s3-0 (rtype-of gp-0))))\n"
" (quote #f)\n"
" )\n"
" (else\n"
@@ -2011,16 +2011,16 @@ TEST_F(FormRegressionTest, ExprValid) {
" v1-33\n"
" (and\n"
" (!= s3-0 type)\n"
" (not (valid? (type-of gp-0) type (quote #f) (quote #t) 0))\n"
" (not (valid? (rtype-of gp-0) type (quote #f) (quote #t) 0))\n"
" )\n"
" )\n"
" (cond\n"
" (v1-33\n"
" (if s4-0 (set! v1-37 (format s5-0 L317 gp-0 s4-0 s3-0 (type-of gp-0))))\n"
" (if s4-0 (set! v1-37 (format s5-0 L317 gp-0 s4-0 s3-0 (rtype-of gp-0))))\n"
" (quote #f)\n"
" )\n"
" ((not (type-type? (type-of gp-0) s3-0))\n"
" (if s4-0 (set! v1-41 (format s5-0 L316 gp-0 s4-0 s3-0 (type-of gp-0))))\n"
" ((not (type-type? (rtype-of gp-0) s3-0))\n"
" (if s4-0 (set! v1-41 (format s5-0 L316 gp-0 s4-0 s3-0 (rtype-of gp-0))))\n"
" (quote #f)\n"
" )\n"
" ((= s3-0 symbol)\n"