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: # makeiftk.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!, {r4}
36: add r4, sp, #4
37: stmfd sp!, {lr}
38: ldr ip, =TFN_${Func}
39: swi SWI_SVC
40: ldmfd sp!, {lr}
41: ldmfd sp!, {r4}
42: bx lr
43:
44: EndOfIfLibBody
45: }
46:
47: 1;