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
171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225