obstack_1grow_fast_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/alloc/obstack/c/sccz80/obstack_1grow_fast_callee.asm

; ===============================================================
; Dec 2013
; ===============================================================
; 
; void *obstack_1grow_fast(struct obstack *ob, char c)
;
; Append char c to the growing object, no bounds check made.
;
; ===============================================================

SECTION code_clib
SECTION code_alloc_obstack

PUBLIC obstack_1grow_fast_callee, l0_obstack_1grow_fast_callee

EXTERN asm_obstack_1grow_fast

obstack_1grow_fast_callee:

   pop hl
   pop de
   ex (sp),hl
   
l0_obstack_1grow_fast_callee:

   ld a,e
   
   jp asm_obstack_1grow_fast
