1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00

Replace strdup by an assembler implementation

git-svn-id: svn://svn.cc65.org/cc65/trunk@186 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2000-07-22 11:10:34 +00:00
parent 13ff8554a1
commit 1627af5de8
4 changed files with 82 additions and 27 deletions

View File

@ -1,7 +1,6 @@
fclose.s
fgets.s
fprintf.s
strdup.s
calloc.s
_fopen.s
fputs.s

View File

@ -13,7 +13,7 @@
@echo $<
@$(AS) -g -o $@ $(AFLAGS) $<
C_OBJS = fclose.o fgets.o fprintf.o strdup.o calloc.o _fopen.o\
C_OBJS = fclose.o fgets.o fprintf.o calloc.o _fopen.o\
fputs.o fread.o fwrite.o gets.o realloc.o bsearch.o strxfrm.o\
printf.o _hextab.o vfprintf.o fdopen.o strtok.o\
_afailed.o fopen.o fgetc.o fputc.o puts.o gets.o perror.o getchar.o\
@ -68,6 +68,7 @@ S_OBJS = _fdesc.o \
strcoll.o \
strcpy.o \
strcspn.o \
strdup.o \
strerror.o \
stricmp.o \
strlen.o \

View File

@ -1,25 +0,0 @@
/*
* strdup.c
*
* Ullrich von Bassewitz, 11.08.1998
*/
#include <string.h>
#include <stdlib.h>
char* strdup (char* s)
{
char* p;
p = malloc (strlen (s) + 1);
if (p) {
strcpy (p, s);
}
return p;
}

80
libsrc/common/strdup.s Normal file
View File

@ -0,0 +1,80 @@
;
; Ullrich von Bassewitz, 18.07.2000
;
; char* __fastcall__ strdup (const char* S);
;
; Note: The code knowns which zero page locations are used by malloc.
;
.importzp sp, tmp1, ptr4
.import pushax, decsp4, incsp4
.import _strlen, _malloc, _memcpy
.export _strdup
.macpack generic
_strdup:
; Since we need some place to store the intermediate results, allocate a
; stack frame. To make this somewhat more efficient, create the stackframe
; as needed for the final call to the memcpy function.
jsr decsp4 ; Target/source
; Store the pointer into the source slot
ldy #0
sta (sp),y
iny
pha
txa
sta (sp),y
pla
; Get length of S (which is still in a/x)
jsr _strlen
; Calculate strlen(S)+1 (the space needed)
add #1
bcc @L1
inx
; Save the space we're about to allocate in ptr4
@L1: sta ptr4
stx ptr4+1
; Allocate memory. _malloc will not use ptr4
jsr _malloc
; Store the result into the target stack slot
ldy #2
sta (sp),y ; Store low byte
sta tmp1
txa ; Get high byte
iny
sta (sp),y ; Store high byte
; Check for a NULL pointer
ora tmp1
beq OutOfMemory
; Copy the string. memcpy will return the target string which is exactly
; what we need here. It will also drop the allocated stack frame.
lda ptr4
ldx ptr4+1 ; Load size
jmp _memcpy ; Copy string, drop stackframe
; Out of memory, return NULL (A = 0)
OutOfMemory:
tax
jmp incsp4 ; Drop stack frame