miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix array inequality case

Browse Source
This commit is contained in:
Nathan Braswell
2022-05-03 22:49:50 -04:00
parent 2a6ee6d8e4
commit 172512f447
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
partial_eval.scm
View File

@@ -2704,6 +2704,7 @@
(_if '$b_array
(i64.eq (i64.const #b101) (i64.and (i64.const #b111) (local.get '$b)))
(then
(local.set '$result (local.get '$eq_val))
(local.set '$a_tmp (i32.wrap_i64 (i64.shr_u (local.get '$a) (i64.const 32))))
(local.set '$b_tmp (i32.wrap_i64 (i64.shr_u (local.get '$b) (i64.const 32))))
@@ -2739,8 +2740,7 @@
(local.set '$a_ptr (i32.add (local.get '$a_ptr) (i32.const 8)))
(local.set '$b_ptr (i32.add (local.get '$b_ptr) (i32.const 8)))
(br '$l)
)
(br '$b))
))
)
; else b is not an int or string or symbol or array, so bigger
(local.set '$result (local.get '$lt_val))