1: #! /usr/bin/perl
2: #
3: # ----------------------------------------------------------------------
4: # T2EX Software Package
5: #
6: # Copyright 2012 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 2012/12/12.
11: # Modified by T-Engine Forum at 2013/02/20.
12: # Modified by TRON Forum(http://www.tron.org/) at 2015/06/04.
13: #
14: # ----------------------------------------------------------------------
15: #
16:
17: #
18: # This software package is available for use, modification,
19: # and redistribution in accordance with the terms of the attached
20: # T-License 2.x.
21: # If you want to redistribute the source code, you need to attach
22: # the T-License 2.x document.
23: # There's no obligation to publish the content, and no obligation
24: # to disclose it to the TRON Forum if you have modified the
25: # software package.
26: # You can also distribute the modified source code. In this case,
27: # please register the modification to T-Kernel traceability service.
28: # People can know the history of modifications by the service,
29: # and can be sure that the version you have inherited some
30: # modification of a particular version or not.
31: #
32: # http://trace.tron.org/tk/?lang=en
33: # http://trace.tron.org/tk/?lang=ja
34: #
35: # As per the provisions of the T-License 2.x, TRON Forum ensures that
36: # the portion of the software that is copyrighted by Ken Sakamura or
37: # the TRON Forum does not infringe the copyrights of a third party.
38: # However, it does not make any warranty other than this.
39: # DISCLAIMER: TRON Forum and Ken Sakamura shall not be held
40: # responsible for any consequences or damages caused directly or
41: # indirectly by the use of this software package.
42: #
43: # The source codes in bsd_source.tar.gz in this software package are
44: # derived from NetBSD or OpenBSD and not covered under T-License 2.x.
45: # They need to be changed or redistributed according to the
46: # representation of each source header.
47: #
48:
49: #
50: # makeift2ex.pl
51: #
52: # generate T2EX SVC interface library for EM1-D512
53: #
54:
55: sub makeift2ex
56: {
57: print LIB <<EndOfExtIfLibBody;
58: #include <machine.h>
59: #include <tk/sysdef.h>
60: #include "$fn_h"
61:
62: .text
63: .balign 4
64: .globl Csym(${func})
65: .type Csym(${func}), %function
66: Csym(${func}):
67: stmfd sp!, {r0-r3}
68: mov r0, sp
69: stmfd sp!, {lr}
70: ldr ip, =${prefix}_${Func}_FN
71: swi SWI_SVC
72: ldmfd sp!, {lr}
73: add sp, sp, #4*4
74: bx lr
75:
76: EndOfExtIfLibBody
77: }
78:
79: 1;
80: