blob: 760b8090cc5330e83ca27fa4a2627a251009f37c (
plain) (
tree)
|
|
# 2-arg version of allocate-array.
== code
allocate-array2: # ad: (addr allocation-descriptor), array-len: int, elem-size: int, out: (addr handle array _)
# . prologue
55/push-ebp
89/<- %ebp 4/r32/esp
# . save registers
50/push-eax
52/push-edx
#
8b/-> *(ebp+0xc) 0/r32/eax
f7 4/subop/multiply-into-eax-edx *(ebp+0x10)
# TODO: check edx for overflow
(allocate-array *(ebp+8) %eax *(ebp+0x14))
$allocate-array2:end:
# . restore registers
5a/pop-to-edx
58/pop-to-eax
# . epilogue
89/<- %esp 5/r32/ebp
5d/pop-to-ebp
c3/return
|