1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00

New function heapblocksize()

git-svn-id: svn://svn.cc65.org/cc65/trunk@3157 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2004-07-17 12:05:36 +00:00
parent 764955a915
commit 16f2918902
3 changed files with 44 additions and 0 deletions

View File

@ -65,12 +65,16 @@ void __fastcall__ free (void* block);
void __fastcall__ _heapadd (void* mem, size_t size);
/* Add a block to the heap */
size_t __fastcall__ _heapblocksize (const void* block);
/* Return the size of an allocated block */
size_t __fastcall__ _heapmemavail (void);
/* Return the total free heap space */
size_t __fastcall__ _heapmaxavail (void);
/* Return the size of the largest free block on the heap */
/* Random numbers */
#define RAND_MAX 0x7FFF
int rand (void);

View File

@ -63,6 +63,7 @@ S_OBJS = _cwd.o \
_fopen.o \
_heap.o \
_heapadd.o \
_heapblocksize.o\
_heapmaxavail.o \
_heapmemavail.o \
_oserror.o \

View File

@ -0,0 +1,39 @@
;
; 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