makeiftk.pl

tkernel操作系统的源代码,是一位日本教授领导开发的,占有很大市场

#! /usr/local/bin/perl
#
# ----------------------------------------------------------------------
#     T-Kernel
#
#     Copyright (C) 2004 by Ken Sakamura. All rights reserved.
#     T-Kernel is distributed under the T-License.
# ----------------------------------------------------------------------
#
#     Version:   1.01.00
#     Released by T-Engine Forum(http://www.t-engine.org) at 2004/6/28.
#
# ----------------------------------------------------------------------
#

#
#	makeiftk.pl
#
#	generate interface library for MC9328
#

sub makelib
{
	print LIB <<EndOfIfLibBody;
#include <machine.h>
#include <tk/sysdef.h>
#include <sys/svc/$fn_h>

	.text
	.balign	4
	.globl	Csym(${func})
	.type	Csym(${func}), %function
Csym(${func}):
	stmfd	sp!, {r4}
	add	r4, sp, #4
	stmfd	sp!, {lr}
	ldr	ip, =TFN_${Func}
	swi	SWI_SVC
	ldmfd	sp!, {lr}
	ldmfd	sp!, {r4}
	bx	lr

EndOfIfLibBody
}

1;