diff options
Diffstat (limited to 'apps')
| -rw-r--r-- | apps/mu.subx | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/apps/mu.subx b/apps/mu.subx index 2840b124..3ac723ce 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -6001,21 +6001,31 @@ $new-var-from-slice:end: 5d/pop-to-ebp c3/return -# TODO -new-block: # ad: (addr allocation-descriptor), data: (addr list stmt), out: (addr handle stmt) +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) # => eax + (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 |