makeifex.pl

uT Kernel os source code for AT91

#! /usr/local/bin/perl
#
# ----------------------------------------------------------------------
#     micro T-Kernel
#
#     Copyright (C) 2006-2007 by Ken Sakamura. All rights reserved.
#     micro T-Kernel is distributed under the micro T-License.
# ----------------------------------------------------------------------
#
#     Version:   1.00.00
#     Released by T-Engine Forum(http://www.t-engine.org) at 2007/03/26.
#
# ----------------------------------------------------------------------
#

#
#	makeifex.pl
#
#	generate extended SVC interface library for H8S
#

sub makelibex
{
	print LIB <<EndOfExtIfLibBody;
#include <machine.h>
#include <tk/sysdef.h>
#include <sys/svc/$fn_h>
#include "utk_config.h"

	.h8300

	.text
	.balign	2
	.globl	Csym(${func})
	.type	Csym(${func}), \@function
Csym(${func}):
	mov.l	er1, \@-er7
	mov.l	er0, \@-er7
	mov.l	er7, er1
	mov.l	er2, \@-er7
	mov.w	\@fno, r0
	trapa	#TRAP_SVC
	add.l	#3*4, er7
	rts

	.balign	2
fno:	.int	${prefix}_${Func}_FN

EndOfExtIfLibBody
}

1;