source: asp3_tinet_ecnl_arm/trunk/asp3_dcre/mbed/mbed_stub.c@ 377

/*
 *  TOPPERS/ASP Kernel
 *      Toyohashi Open Platform for Embedded Real-Time Systems/
 *      Advanced Standard Profile Kernel
 *
 *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
 *              Graduate School of Information Science, Nagoya Univ., JAPAN
 *
 *  上記著作権者
は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
 *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 *  変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
 *  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
 *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
 *      スコード中に含まれていること．
 *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
 *      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
 *      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
 *      の無保証規定を掲載すること．
 *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
 *      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
 *      と．
 *    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
 *        作権表示，この利用条件および下記の無保証規定を掲載すること．
 *    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
 *        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
 *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
 *      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
 *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
 *      由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
 *      å…
è²¬ã™ã‚‹ã“と．
 *
 *  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
 *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
 *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
 *  ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
 *
 *  $Id$
 */

/*
 *              カーネルのターゲット依存部（GR-PEACH用）
 */

#include <kernel.h>
#include <sil.h>
#include "us_ticker_api.h"
#include <sys/types.h>
#include <errno.h>
#include "kernel_cfg.h"
#include "t_syslog.h"

int main()
{
        static const char *const args[] = {
                (char *)1,
                "asp3",
                0,
                // envp
                "TZ=JST-9",
                0,
                // auxv
                0
        };
        musl_start(args);
        return 0;
}

void wait_us(int us);

void wait(float s)
{
        wait_us(s * 1000000.0f);
}

void wait_ms(int ms)
{
        wait_us(ms * 1000);
}

void wait_us(int us)
{
        ER ercd;

        ercd = dly_tsk(us);
        if (ercd == E_CTX){
                uint32_t start = us_ticker_read();
                while ((us_ticker_read() - start) < (uint32_t)us);
        }
}

int32_t IRQ_Initialize (void)
{
  GIC_Enable();
  return (0);
}

__attribute__((weak))
long SYS_poll()
{
        return -ENOSYS;
}

__attribute__((weak))
long SYS_open()
{
        return -ENOSYS;
}

void *tid_address;

__attribute__((weak))
long SYS_set_tid_address(long a) {
        tid_address = (void *)a;
        return 0;
}

__attribute__((weak))
long ARM_SYS_set_tls(long a)
{
        __asm__ __volatile__("mcr p15,0,%0,c13,c0,3" :: "r"(a));
        return 0;
}

__attribute__((weak))
long SYS_exit_group()
{
        ext_ker();
        return 0;
}

__attribute__((weak))
long SYS_exit()
{
        ext_ker();
        return 0;
}

__attribute__((weak))
long SYS_futex(long a, long b, long c, long d, long e, long f) {
        //int futex(int *uaddr, int op, int val, const struct timespec *timeout, int *uaddr2, int val3);
        return -ENOSYS;
}

#ifndef _MSC_VER
extern uint32_t __HeapBase;
extern uint32_t __HeapLimit;
extern uint32_t __end__;
#else
uint8_t __HeapBase[14 * 4096];
#define __HeapLimit __HeapBase[sizeof(__HeapBase)]
#endif

void *_sbrk(int incr)
{
    static unsigned char *heap = (unsigned char *)&__end__;
    unsigned char        *prev_heap = heap;
    unsigned char        *new_heap = heap + incr;

    if (new_heap >= (unsigned char *)&__HeapLimit) {
        errno = ENOMEM;
        return (void *) -1;
    }

    heap = new_heap;
    return (void *) prev_heap;
}

__attribute__((weak))
void *SYS_brk(void *addr)
{
        if (addr == 0) {
                return (void *)(&__HeapBase);
        }
        if ((addr >= (void *)&__HeapBase) && (addr < (void *)&__HeapLimit)) {
                return addr;
        }
        return (void *)-1;
}

__attribute__((weak))
void *SYS_mmap2(void *start, size_t length, int prot, int flags, int fd, off_t pgoffset)
{
        if (fd != -1)
                return (void *)-EINVAL;

        if ((length >= 0) && (length <= sizeof(&__HeapBase))) {
                return &__HeapBase;
        }
        return (void *)-1;
}

__attribute__((weak))
int SYS_mprotect(void *addr, size_t len, int prot)
{
        //if ((addr >= (void *)&__HeapBase) && (addr + len < (void *)&__HeapLimit)) {
                return 0;
        //}
        //return -1;
}

__attribute__((weak))
long SYS_madvise()
{
        return -ENOSYS;
}

__attribute__((weak))
long SYS_mremap()
{
        return -ENOSYS;
}

__attribute__((weak))
long SYS_munmap()
{
        return -ENOSYS;
}

int malloc_lock_sem_count[TNUM_TSKID];

void __malloc_lock(struct _reent *_r)
{
        ER ercd;
        ID tskid = 0;

        ercd = get_tid(&tskid);
        if (ercd != E_OK) {
                goto error;
        }

        if (malloc_lock_sem_count[tskid - 1] == 0) {
                ercd = wai_sem(SEM_MALLOC);
                if (ercd != E_OK) {
                        goto error;
                }
        }

        malloc_lock_sem_count[tskid - 1]++;
        return;
error:
        syslog(LOG_ERROR, "%s (%d) __malloc_lock error.",
                itron_strerror(ercd), SERCD(ercd));
        asm("bkpt #0");
        while(0);
}

void __malloc_unlock(struct _reent *_r)
{
        ER ercd;
        ID tskid = 0;
        int count;

        ercd = get_tid(&tskid);
        if (ercd != E_OK) {
                goto error;
        }

        malloc_lock_sem_count[tskid - 1]--;
        if (malloc_lock_sem_count[tskid - 1] > 0)
                return;

        if (malloc_lock_sem_count[tskid - 1] < 0) {
                goto error;
        }

        ercd = sig_sem(SEM_MALLOC);
        if (ercd != E_OK) {
                goto error;
        }
        return;
error:
        syslog(LOG_ERROR, "%s (%d) __malloc_unlock error.",
                itron_strerror(ercd), SERCD(ercd));
        asm("bkpt #0");
        while(0);
}