6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Replaced calloc by an assembler version

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1119 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2001-11-15 21:53:00 +00:00
parent c053b91f7a
commit 38f716079a
4 changed files with 65 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/common/.cvsignore
View File

@ -5,7 +5,6 @@ _hextab.s
_scanf.s
abort.s
bsearch.s
calloc.s
errormsg.s
fclose.s
fdopen.s

2
libsrc/common/Makefile
View File

@ -17,7 +17,6 @@ C_OBJS = _afailed.o \
_scanf.o \
abort.o \
bsearch.o \
calloc.o \
errormsg.o \
fclose.o \
fdopen.o \
@ -59,6 +58,7 @@ S_OBJS = _fdesc.o \
abs.o \
atexit.o \
atoi.o \
calloc.o \
copydata.o \
cprintf.o \
errno.o \

25
libsrc/common/calloc.c
View File

@ -1,25 +0,0 @@
/*
* calloc.c
*
* Ullrich von Bassewitz, 06.06.1998
*/
#include <stdlib.h>
#include <string.h>
void* calloc (size_t count, size_t size)
{
void* mem;
size *= count;
if (mem = malloc (size)) {
memset (mem, 0, size);
}
return mem;
}

64
libsrc/common/calloc.s Normal file
View File

@ -0,0 +1,64 @@
;
; Ullrich von Bassewitz, 15.11.2001
;
; Allocate a block and zero it.
;
; void* __fastcall__ calloc (size_t count, size_t size);
;
.export _calloc
.import _malloc, _memset
.import tosumulax, pushax, push0
; -------------------------------------------------------------------------
.proc _calloc
; We have the first argument in a/x and the second on the stack. Calling
; tosumulax will give the product of both in a/x.
jsr tosumulax
; Save size for later
sta Size
stx Size+1
; malloc() is a fastcall function, so we do already have the argument in
; the right place
jsr _malloc
; Check for a NULL pointer
cpx #0
bne ClearBlock
cmp #0
beq ClearBlock
; We have a NULL pointer, bail out
rts
; No NULL pointer, clear the block. memset will return a pointer to the
; block which is exactly what we want.
ClearBlock:
jsr pushax ; ptr
jsr push0 ; #0
lda Size
ldx Size+1 ; Size
jmp _memset
.endproc
; -------------------------------------------------------------------------
; Data
.bss
Size: .res 2