makeifex.pl

来自「使用广泛的日本著名的开源嵌入式实时操作系统T-Kernel的源码」· PL 代码 · 共 47 行

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

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

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

	.text
	.balign	4
	.globl	Csym(${func})
	.type	Csym(${func}), \@function
Csym(${func}):
	sd	\$a0, 0*8(\$sp)
	sd	\$a1, 1*8(\$sp)
	sd	\$a2, 2*8(\$sp)
	sd	\$a3, 3*8(\$sp)
	move	\$a0, \$sp
	li	\$v0, ${prefix}_${Func}_FN
	syscall	CALL_SVC
	jr	\$ra

EndOfExtIfLibBody
}

1;