makeifex.pl

日本著名的的嵌入式实时操作系统T-Kernel的源码及用户手册。

#! /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.
#
# ----------------------------------------------------------------------
#

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

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

	.text
	.balign	4
	.globl	Csym(${func})
	.type	Csym(${func}), \@function
Csym(${func}):
	st	r3, \@-sp
	st	r2, \@-sp
	st	r1, \@-sp
	st	r0, \@-sp
	seth	r4, #high(${prefix}_${Func}_FN)
	or3	r4, r4, #low(${prefix}_${Func}_FN)
	mv	r0, sp
	trap	#TRAP_SVC
	addi	sp, #4*4
	jmp	r14

EndOfExtIfLibBody
}

1;