cpukit/libgnat/adasupp.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /**
0004  *  @file
0005  *
0006  *  @brief ada supplmental functions
0007  */
0008
0009 /*
0010  * COPYRIGHT (C) 1989-2010 On-Line Applications Research Corporation (OAR).
0011  *
0012  * Redistribution and use in source and binary forms, with or without
0013  * modification, are permitted provided that the following conditions
0014  * are met:
0015  * 1. Redistributions of source code must retain the above copyright
0016  *    notice, this list of conditions and the following disclaimer.
0017  * 2. Redistributions in binary form must reproduce the above copyright
0018  *    notice, this list of conditions and the following disclaimer in the
0019  *    documentation and/or other materials provided with the distribution.
0020  *
0021  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0022  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0023  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0024  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0025  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0026  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0027  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0028  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0029  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0030  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0031  * POSSIBILITY OF SUCH DAMAGE.
0032  */
0033
0034 #ifdef HAVE_CONFIG_H
0035 #include "config.h"
0036 #endif
0037
0038 #include <errno.h>
0039 #include <pthread.h>
0040
0041 #include <rtems/config.h>
0042 #include <rtems/posix/pthreadimpl.h>
0043 #include <rtems/score/stackimpl.h>
0044
0045 /*
0046  *  _ada_pthread_minimum_stack_size
0047  *
0048  *  This routine returns the minimum stack size so the GNAT RTS can
0049  *  allocate enough stack for Ada tasks.
0050  */
0051
0052 size_t _ada_pthread_minimum_stack_size( void )
0053 {
0054   /*
0055    *  Eventually this may need to include a per cpu family calculation
0056    *  but for now, this will do.
0057    */
0058
0059   return PTHREAD_MINIMUM_STACK_SIZE * 2;
0060 }
0061
0062 uint32_t _ada_microseconds_per_tick(void)
0063 {
0064   return rtems_configuration_get_microseconds_per_tick();
0065 }