gonzui


Format: Advanced Search

tkernel_2/etc/sysdepend/cpu/em1d/makeiftd.plbare sourcepermlink (0.01 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: #       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;