From 172512f447cf2fb7020b13664b1adcb00ce39911 Mon Sep 17 00:00:00 2001 From: Nathan Braswell Date: Tue, 3 May 2022 22:49:50 -0400 Subject: [PATCH] Fix array inequality case --- partial_eval.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/partial_eval.scm b/partial_eval.scm index a69eb27..7a7cb15 100644 --- a/partial_eval.scm +++ b/partial_eval.scm @@ -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))