mirror of
https://github.com/cc65/cc65.git
synced 2024-07-05 21:29:03 +00:00
40 lines
714 B
ArmAsm
40 lines
714 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 2004-07-17
|
||
|
|
;
|
||
|
|
; size_t __fastcall__ _heapblocksize (const void* ptr);
|
||
|
|
;
|
||
|
|
; Return the size of an allocated block.
|
||
|
|
;
|
||
|
|
|
||
|
|
.importzp ptr1
|
||
|
|
.export __heapblocksize
|
||
|
|
|
||
|
|
.include "_heap.inc"
|
||
|
|
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
; Code
|
||
|
|
|
||
|
|
__heapblocksize:
|
||
|
|
|
||
|
|
; Decrement the block pointer so it points to the admin data
|
||
|
|
|
||
|
|
sec
|
||
|
|
sbc #HEAP_ADMIN_SPACE ; Assume it's less than 256
|
||
|
|
bcs L1
|
||
|
|
dex
|
||
|
|
L1: sta ptr1
|
||
|
|
stx ptr1+1
|
||
|
|
|
||
|
|
; Load the size from the given block
|
||
|
|
|
||
|
|
ldy #1
|
||
|
|
lda (ptr1),y
|
||
|
|
tax
|
||
|
|
dey
|
||
|
|
lda (ptr1),y
|
||
|
|
|
||
|
|
; Done
|
||
|
|
|
||
|
|
rts
|
||
|
|
|