1 # 2-arg version of allocate-array.
 2 
 3 allocate-array2:  # ad: (addr allocation-descriptor), array-len: int, elem-size: int, out: (addr handle array _)
 4     # . prologue
 5     55/push-ebp
 6     89/<- %ebp 4/r32/esp
 7     # . save registers
 8     50/push-eax
 9     #
10     8b/-> *(ebp+0xc) 0/r32/eax
11     f7 4/subop/multiply-into 0/r32/eax *(ebp+0x10)
12     (allocate-array *(ebp+8) %eax *(ebp+0x14))
13 $allocate-array2:end:
14     # . restore registers
15     58/pop-to-eax
16     # . epilogue
17     89/<- %esp 5/r32/ebp
18     5d/pop-to-ebp
19     c3/return