You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
665 B
25 lines
665 B
# 2-arg version of allocate-array. |
|
# Really only intended to be called from code generated by mu.subx. |
|
|
|
== 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-edx-eax *(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
|
|
|