From 0bb4424f0ade57b5a55a00d12da8dd448e61bee7 Mon Sep 17 00:00:00 2001
From: Brendan Hansen <brendan.f.hansen@gmail.com>
Date: Tue, 22 Dec 2020 11:41:50 -0600
Subject: [PATCH] small upgrades

---
 src/ui/components.lua | 10 ++++++++++
 src/wasm/parse.lua    | 14 ++++++++++++++
 src/wasm/text.lua     |  2 +-
 3 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/src/ui/components.lua b/src/ui/components.lua
index 7215ef3..4c48187 100644
--- a/src/ui/components.lua
+++ b/src/ui/components.lua
@@ -208,6 +208,16 @@ function function_block:update(dt)
 		if self.scroll < 0 then self.scroll = 0 end
 		self.redraw = true
 	end
+
+	if love.keyboard.isDown "pagedown" then
+		self.scroll = self.scroll + self.rect.h * dt
+		self.redraw = true
+	end
+	if love.keyboard.isDown "pageup" then
+		self.scroll = self.scroll - self.rect.h * dt
+		if self.scroll < 0 then self.scroll = 0 end
+		self.redraw = true
+	end
 end
 
 function function_block:predraw()
diff --git a/src/wasm/parse.lua b/src/wasm/parse.lua
index 7322973..18fb021 100644
--- a/src/wasm/parse.lua
+++ b/src/wasm/parse.lua
@@ -381,6 +381,12 @@ function parse_instr(r)
 		[0xBD] = function() return { "i64.reinterpret_f64" } end;
 		[0xBE] = function() return { "f32.reinterpret_i32" } end;
 		[0xBF] = function() return { "f64.reinterpret_i64" } end;
+
+        [0xC0] = function() return { "i32.extend8_s" } end;
+        [0xC1] = function() return { "i32.extend16_s" } end;
+        [0xC2] = function() return { "i64.extend8_s" } end;
+        [0xC3] = function() return { "i64.extend16_s" } end;
+        [0xC4] = function() return { "i64.extend32_s" } end;
 	}
 end
 
@@ -684,6 +690,14 @@ function parse_module(r)
 		end
 	end
 
+    if exports then
+		for k, v in ipairs(exports.contents) do
+			if v.desc[1] == "func" then
+				funcs[v.desc.x].name = build_str(v.name)
+            end
+        end
+    end
+
 	return {
 		"module";
 		types = functypes;
diff --git a/src/wasm/text.lua b/src/wasm/text.lua
index 9b89faa..44ce679 100644
--- a/src/wasm/text.lua
+++ b/src/wasm/text.lua
@@ -84,7 +84,7 @@ function instr_to_text(ctx, instr)
 		if #instr.else_instrs > 0 then
 			tb:text("else ", ctx.colors.jumppoint)
 			tb:newline(1)
-			for i, ins in ipairs(instr.instrs) do
+			for i, ins in ipairs(instr.else_instrs) do
 				local otb = instr_to_text(ctx, ins)
 				tb:append(otb)
 			end
-- 
2.25.1