gonzui


Format: Advanced Search

tkernel_2/etc/sysdepend/cpu/em1d/makeiftk.plbare sourcepermlink (0.00 seconds)

Search this content:

    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;