1: #! /usr/bin/perl
2: #
3: # ----------------------------------------------------------------------
4: # T-Kernel 2.0 Software Package
5: #
6: # Copyright 2011 by Ken Sakamura.
7: # This software is distributed under the latest version of T-License 2.x.
8: # ----------------------------------------------------------------------
9: #
10: # Released by T-Engine Forum(http://www.t-engine.org/) at 2011/05/17.
11: # Modified by T-Engine Forum at 2014/07/14.
12: # Modified by TRON Forum(http://www.tron.org/) at 2015/06/01.
13: #
14: # ----------------------------------------------------------------------
15: #
16:
17: #
18: # makeiftd.pl
19: #
20: # generate interface library for EM1-D512
21: #
22:
23: sub makelib
24: {
25: print LIB <<EndOfIfLibBody;
26: #include <machine.h>
27: #include <tk/sysdef.h>
28: #include <sys/svc/$fn_h>
29:
30: .text
31: .balign 4
32: .globl Csym(${func})
33: .type Csym(${func}), %function
34: Csym(${func}):
35: stmfd sp!, {lr}
36: ldr ip, =TDFN_${Func}
37: swi SWI_DEBUG
38: ldmfd sp!, {lr}
39: bx lr
40:
41: EndOfIfLibBody
42: }
43:
44: 1;