/* stdarg.c
 *
 *	(C) Copyright Dec 20 1998, Edmond J. Breen.
 *		   ALL RIGHTS RESERVED.
 * This code may be copied for personal, non-profit use only.
 *
 */


#ifndef NO_STDARG

#include <stdlib.h>
#include "eic.h"
#include "stdliblocal.h"


/*  STDARG.H STUFF */

val_t _StArT_Va(void)
{
    val_t v;
    getptrarg(0,v.p);
    v.p.ep = v.p.p;
    v.p.sp = (char*)v.p.p - 256 * sizeof(val_t);
    return v;
}

val_t _get_AR_t_size(void)
{
    val_t v;
    v.ival = sizeof(AR_t);
    return v;
}

#endif


/************************************************/

void module_stdarg()
{
#ifndef NO_STDARG

    /* STDARG.H STUFF */
    EiC_add_builtinfunc("_get_AR_t_size",_get_AR_t_size);
    EiC_add_builtinfunc("_StArT_Va",_StArT_Va);

#endif
}