makeiftkse.pl

T-kernel 的extension源代码

#! /usr/local/bin/perl
#
# ----------------------------------------------------------------------
#     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.
#
# ----------------------------------------------------------------------
#

#
#	makeiftkse.pl
#
#	generate extended SVC interface library for SH7727
#

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

	.text
	.balign	2
	.globl	Csym(${func})
	.type	Csym(${func}), \@function
Csym(${func}):
	mov.l	r7, \@-r15
	mov.l	r6, \@-r15
	mov.l	r5, \@-r15
	mov.l	r4, \@-r15
	mov.l	fno, r0
	mov	r15, r4
	trapa	#TRAP_SVC
	rts
	add	#4*4, r15

	.balign	4
fno:	.long	${prefix}_${Func}_FN

EndOfExtIfLibBody
}

1;