[decompiler] Working toward bsp (#717)

* clean up

* before int to float stuff

* before trying to eliminate the separate read and write maps

* partial fix for register issues

* add missing include
This commit is contained in:
water111
2021-07-25 15:30:37 -04:00
committed by GitHub
parent 38c97481e7
commit 2b6684aa5c
76 changed files with 5695 additions and 514 deletions
@@ -635,7 +635,7 @@
(set! (-> tag-addr 0) tag)
)
(cond
((type-type? tag-type uinteger)
((type-type? (the-as type tag-type) uinteger)
(case (-> tag elt-type size)
((1)
(set! default (the-as uint128 (-> (the-as (pointer uint8) data))))
@@ -654,7 +654,7 @@
)
)
)
((type-type? tag-type integer)
((type-type? (the-as type tag-type) integer)
(case (-> tag elt-type size)
((1)
(set! default (the-as uint128 (-> (the-as (pointer int8) data))))
@@ -673,7 +673,7 @@
)
)
)
((type-type? tag-type float)
((type-type? (the-as type tag-type) float)
(set!
default
(the-as uint128 (the int (-> (the-as (pointer float) data))))
@@ -719,10 +719,10 @@
(set! (-> tag-addr 0) tag)
)
(cond
((type-type? tag-type float)
((type-type? (the-as type tag-type) float)
(set! default (-> (the-as (pointer float) data)))
)
((type-type? tag-type uinteger)
((type-type? (the-as type tag-type) uinteger)
(case (-> tag elt-type size)
((1)
(set! v1-8 (-> (the-as (pointer uint8) data)))
@@ -742,7 +742,7 @@
)
(set! default (the float v1-8))
)
((type-type? tag-type integer)
((type-type? (the-as type tag-type) integer)
(case (-> tag elt-type size)
((1)
(set! v1-11 (-> (the-as (pointer int8) data)))