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: #
19: # makeifdrv.pl
20: #
21: # generate driver interface library for EM1-D512
22: #
23:
24: sub makelibdrv
25: {
26: print LIB <<EndOfExtIfLibBody;
27: #include <machine.h>
28: #include <tk/sysdef.h>
29: #include "$fn_h"
30:
31: .text
32: .balign 4
33: .globl Csym(${func})
34: .type Csym(${func}), %function
35: Csym(${func}):
36: stmfd sp!, {r0-r3}
37: mov r0, sp
38: stmfd sp!, {lr}
39: ldr ip, =${prefix}_${Func}_FN
40: swi SWI_SVC
41: ldmfd sp!, {lr}
42: add sp, sp, #4*4
43: bx lr
44:
45: EndOfExtIfLibBody
46: }
47:
48: 1;