about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-05-06 15:05:36 -0700
committerKartik Agaram <vc@akkartik.com>2020-05-18 00:44:48 -0700
commit95b8edf3983a079007a18a8768eb8966cabe8c5c (patch)
tree94d9b4effff53dd73fa5b5156690fb2f03ba5845
parent1e85e8b26e9ce98b6f0144a7f8844e569f385c65 (diff)
downloadmu-95b8edf3983a079007a18a8768eb8966cabe8c5c.tar.gz
-
-rw-r--r--apps/mu.subx30
1 files changed, 0 insertions, 30 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index fdf94ed1..9d822113 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -6001,36 +6001,6 @@ $new-var-from-slice:end:
     5d/pop-to-ebp
     c3/return
 
-new-block:  # ad: (addr allocation-descriptor), data: (handle list stmt), out: (addr handle stmt)
-    # . prologue
-    55/push-ebp
-    89/<- %ebp 4/r32/esp
-    # . save registers
-    50/push-eax
-    51/push-ecx
-    #
-    (allocate *(ebp+8) *Stmt-size *(ebp+0x10))
-    # var out-addr/eax: (addr stmt) = lookup(out)
-    8b/-> *(ebp+0x10) 0/r32/eax
-    (lookup *eax *(eax+4))  # => eax
-    # out-addr->tag = block
-    c7 0/subop/copy *eax 0/imm32/tag/block  # Stmt-tag
-    # out-addr->stmts = data
-    8b/-> *(ebp+0xc) 1/r32/ecx
-    8b/-> *ecx 1/r32/ecx
-    89/<- *(eax+4) 1/r32/ecx  # Block-stmts
-    8b/-> *(ebp+0xc) 1/r32/ecx
-    8b/-> *(ecx+4) 1/r32/ecx
-    89/<- *(eax+8) 1/r32/ecx  # Block-stmts
-$new-block:end:
-    # . restore registers
-    59/pop-to-ecx
-    58/pop-to-eax
-    # . epilogue
-    89/<- %esp 5/r32/ebp
-    5d/pop-to-ebp
-    c3/return
-
 new-var-def:  # ad: (addr allocation-descriptor), var: (handle var), out: (addr handle stmt)
     # . prologue
     55/push-ebp