From d3dd37c60eeab0487a9d195b0c8b5f32c138e192 Mon Sep 17 00:00:00 2001 From: Nathan Braswell Date: Tue, 20 Apr 2021 01:49:39 -0400 Subject: [PATCH] Ooops, wasn't encoding numbers right at all, that's embarassing --- wasm.kp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wasm.kp b/wasm.kp index 5e1a4f2..cc3a43e 100644 --- a/wasm.kp +++ b/wasm.kp @@ -4,10 +4,10 @@ ; Bytes encode themselves encode_u_LEB128 (rec-lambda recurse (x) (cond (< x 0x80) [x] - true (cons (| (& x 0x7F) 0x1) (recurse (>> x 8)))) + true (cons (| (& x 0x7F) 0x80) (recurse (>> x 7)))) ) - encode_s8_LEB128 (lambda (x) (encode_u_LEB128 (& x 255))) - encode_s32_LEB128 (lambda (x) (encode_u_LEB128 (& x 255))) + encode_s8_LEB128 (lambda (x) (encode_u_LEB128 (& x 0xFF))) + encode_s32_LEB128 (lambda (x) (encode_u_LEB128 (& x 0xFFFFFFFF))) encode_vector (lambda (enc v) (concat (encode_u_LEB128 (len v)) (flat_map enc v) ) )