libinit.c

T-kernel 的extension源代码

/*
 *----------------------------------------------------------------------
 *    T-Kernel / Standard Extension
 *
 *    Copyright (C) 2006 by Ken Sakamura. All rights reserved.
 *    T-Kernel / Standard Extension is distributed 
 *      under the T-License for T-Kernel / Standard Extension.
 *----------------------------------------------------------------------
 *
 *    Version:   1.00.00
 *    Released by T-Engine Forum(http://www.t-engine.org) at 2006/8/11.
 *
 *----------------------------------------------------------------------
 */

/*
 *	libinit.c (libtkse)
 *
 *	Initialization of library
 */

#include "libtkse.h"

/* Use weak attribute to prevent unnecessary libraries from being linked.
 * However, this is unique to gcc and cannot be used otherwise.
 * In other words, such libraries are always linked except for the case of gcc.
 */
#ifdef __GNUC__
#define	WEAK	__attribute__ ((weak))
#else
#define	WEAK
#endif

IMPORT	void	__init_stdio( void ) WEAK;	/* Initialize stdio */
EXPORT	MACB	_Lmacb;				/* malloc management information */

IMPORT ER _StartupError WEAK;

/*
 * Initialization of library
 */
EXPORT void _init_library( void )
{
	ER	err;

	/* Generate exclusive control lock shared in libraries */
	err = _init_liblock();
	if ( err < E_OK ) {
		_StartupError = err;
	}

	/* Initialize malloc  */
	err = _mem_init(TA_DELEXIT, &_Lmacb);
	if ( err < E_OK ) {
		_StartupError = err;
	}

	/* Initialize stdio */
	if ( &__init_stdio != NULL ) {
		__init_stdio();
	}
}