From 9a4631af7767dbeac3d3ed8cce0c423486467576 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sun, 26 Jan 2020 15:07:55 -0800
Subject: 5919

---
 apps/mu      | Bin 81143 -> 81046 bytes
 apps/mu.subx |  24 ------------------------
 2 files changed, 24 deletions(-)

diff --git a/apps/mu b/apps/mu
index 9b44b1a3..0b479ea9 100755
Binary files a/apps/mu and b/apps/mu differ
diff --git a/apps/mu.subx b/apps/mu.subx
index efc71006..da45b638 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -3336,30 +3336,6 @@ $new-block:end:
     5d/pop-to-ebp
     c3/return
 
-new-stmt:  # ad: (addr allocation-descriptor), operation: (addr array byte), inouts: (handle list var), outputs: (handle list var) -> result/eax: (handle statement)
-    # . prologue
-    55/push-ebp
-    89/<- %ebp 4/r32/esp
-    # . save registers
-    51/push-ecx
-    #
-    (allocate *(ebp+8) *Stmt-size)  # => eax
-    (zero-out %eax *Stmt-size)
-    c7 0/subop/copy *eax 1/imm32/tag/regular-stmt  # Stmt-tag
-    8b/-> *(ebp+0xc) 1/r32/ecx
-    89/<- *(eax+4) 1/r32/ecx  # Stmt1-operation
-    8b/-> *(ebp+0x10) 1/r32/ecx
-    89/<- *(eax+8) 1/r32/ecx  # Stmt1-inouts
-    8b/-> *(ebp+0x14) 1/r32/ecx
-    89/<- *(eax+0xc) 1/r32/ecx  # Stmt1-outputs
-$new-stmt:end:
-    # . restore registers
-    59/pop-to-ecx
-    # . epilogue
-    89/<- %esp 5/r32/ebp
-    5d/pop-to-ebp
-    c3/return
-
 new-vardef:  # ad: (addr allocation-descriptor), var: (handle var) -> result/eax: (handle statement)
     # . prologue
     55/push-ebp
-- 
cgit 1.4.1-2-gfad0