868b2b66 (kx 2024-12-20 16:11:07 +0300 1)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 3) __ST_SERVICE.C
868b2b66 (kx 2024-12-20 16:11:07 +0300 4)
868b2b66 (kx 2024-12-20 16:11:07 +0300 5) This file contains source code of functions for
868b2b66 (kx 2024-12-20 16:11:07 +0300 6) SERVICE constants operations.
868b2b66 (kx 2024-12-20 16:11:07 +0300 7)
868b2b66 (kx 2024-12-20 16:11:07 +0300 8) PART OF : MPU - library .
868b2b66 (kx 2024-12-20 16:11:07 +0300 9)
868b2b66 (kx 2024-12-20 16:11:07 +0300 10) USAGE : Internal only .
868b2b66 (kx 2024-12-20 16:11:07 +0300 11)
868b2b66 (kx 2024-12-20 16:11:07 +0300 12) NOTE : NONE .
868b2b66 (kx 2024-12-20 16:11:07 +0300 13)
868b2b66 (kx 2024-12-20 16:11:07 +0300 14) Copyright (C) 2000 - 2024 by Andrew V.Kosteltsev.
868b2b66 (kx 2024-12-20 16:11:07 +0300 15) All Rights Reserved.
868b2b66 (kx 2024-12-20 16:11:07 +0300 16) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 17)
868b2b66 (kx 2024-12-20 16:11:07 +0300 18) #ifdef HAVE_CONFIG_H
868b2b66 (kx 2024-12-20 16:11:07 +0300 19) #include <config.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 20) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 21)
868b2b66 (kx 2024-12-20 16:11:07 +0300 22) #include <errno.h> /* errno(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 23) #include <string.h> /* strcpy(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 24) #include <strings.h> /* bzero(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 25) #include <stdlib.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 26)
868b2b66 (kx 2024-12-20 16:11:07 +0300 27) #include <libmpu.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 28) #include <mpu-context.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 29)
868b2b66 (kx 2024-12-20 16:11:07 +0300 30) #include <mpu-emutype.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 31) #include <mpu-integer.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 32) #include <mpu-real.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 33) #include <mpu-floatp.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 34)
868b2b66 (kx 2024-12-20 16:11:07 +0300 35) #include <mpu-char.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 36) #include <mpu-symbols.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 37)
868b2b66 (kx 2024-12-20 16:11:07 +0300 38) #include <mpu-math-errno.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 39) #include <mpu-mtherr.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 40)
868b2b66 (kx 2024-12-20 16:11:07 +0300 41)
868b2b66 (kx 2024-12-20 16:11:07 +0300 42) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 43) Кодировка имен файлов:
868b2b66 (kx 2024-12-20 16:11:07 +0300 44)
868b2b66 (kx 2024-12-20 16:11:07 +0300 45) Трехзначное десятичное число, представляющее количество
868b2b66 (kx 2024-12-20 16:11:07 +0300 46) 128-и битных слов, из которых состоят вещественные числа
868b2b66 (kx 2024-12-20 16:11:07 +0300 47) размещенные в массивах:
868b2b66 (kx 2024-12-20 16:11:07 +0300 48)
868b2b66 (kx 2024-12-20 16:11:07 +0300 49) размер чисел в битах кодировка
868b2b66 (kx 2024-12-20 16:11:07 +0300 50) -------------------- ---------
868b2b66 (kx 2024-12-20 16:11:07 +0300 51) 128 001
868b2b66 (kx 2024-12-20 16:11:07 +0300 52) 256 002
868b2b66 (kx 2024-12-20 16:11:07 +0300 53) 512 004
868b2b66 (kx 2024-12-20 16:11:07 +0300 54) 1024 008
868b2b66 (kx 2024-12-20 16:11:07 +0300 55) 2048 016
868b2b66 (kx 2024-12-20 16:11:07 +0300 56) 4096 032
868b2b66 (kx 2024-12-20 16:11:07 +0300 57) 8192 064
868b2b66 (kx 2024-12-20 16:11:07 +0300 58) 16384 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 59) 32768 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 60) 65536 512 (это предел);
868b2b66 (kx 2024-12-20 16:11:07 +0300 61)
868b2b66 (kx 2024-12-20 16:11:07 +0300 62) ПРИМЕРЫ:
868b2b66 (kx 2024-12-20 16:11:07 +0300 63) -------
868b2b66 (kx 2024-12-20 16:11:07 +0300 64) ei_service_001_emu32lsb.dfn - 128-бит,
868b2b66 (kx 2024-12-20 16:11:07 +0300 65) ei_service_512_emu32lsb.dfn - 65536-бит.
868b2b66 (kx 2024-12-20 16:11:07 +0300 66)
868b2b66 (kx 2024-12-20 16:11:07 +0300 67) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 68)
868b2b66 (kx 2024-12-20 16:11:07 +0300 69) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 70) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 71) #include <math/service/emu00128/ei_service_001_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 72) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 73) #include <math/service/emu00128/ei_service_001_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 74) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 75) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 76)
868b2b66 (kx 2024-12-20 16:11:07 +0300 77) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 78) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 79) #include <math/service/emu00256/ei_service_002_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 80) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 81) #include <math/service/emu00256/ei_service_002_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 82) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 83) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 84)
868b2b66 (kx 2024-12-20 16:11:07 +0300 85) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 86) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 87) #include <math/service/emu00512/ei_service_004_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 88) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 89) #include <math/service/emu00512/ei_service_004_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 90) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 91) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 92)
868b2b66 (kx 2024-12-20 16:11:07 +0300 93) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 94) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 95) #include <math/service/emu01024/ei_service_008_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 96) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 97) #include <math/service/emu01024/ei_service_008_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 98) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 99) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 100)
868b2b66 (kx 2024-12-20 16:11:07 +0300 101) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 102) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 103) #include <math/service/emu02048/ei_service_016_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 104) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 105) #include <math/service/emu02048/ei_service_016_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 106) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 107) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 108)
868b2b66 (kx 2024-12-20 16:11:07 +0300 109) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 110) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 111) #include <math/service/emu04096/ei_service_032_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 112) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 113) #include <math/service/emu04096/ei_service_032_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 114) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 115) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 116)
868b2b66 (kx 2024-12-20 16:11:07 +0300 117) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 118) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 119) #include <math/service/emu08192/ei_service_064_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 120) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 121) #include <math/service/emu08192/ei_service_064_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 122) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 123) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 124)
868b2b66 (kx 2024-12-20 16:11:07 +0300 125) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 126) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 127) #include <math/service/emu16384/ei_service_128_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 128) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 129) #include <math/service/emu16384/ei_service_128_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 130) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 131) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 132)
868b2b66 (kx 2024-12-20 16:11:07 +0300 133) #if MPU_MATH_FN_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 134) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 135) #include <math/service/emu32768/ei_service_256_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 136) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 137) #include <math/service/emu32768/ei_service_256_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 138) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 139) #endif /* MPU_MATH_FN_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 140)
868b2b66 (kx 2024-12-20 16:11:07 +0300 141) #if MPU_MATH_FN_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 142) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 143) #include <math/service/emu65536/ei_service_512_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 144) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 145) #include <math/service/emu65536/ei_service_512_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 146) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 147) #endif /* MPU_MATH_FN_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 148)
868b2b66 (kx 2024-12-20 16:11:07 +0300 149)
868b2b66 (kx 2024-12-20 16:11:07 +0300 150) EMUSHORT *_get_m_ln2hi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 151) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 152) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 153)
868b2b66 (kx 2024-12-20 16:11:07 +0300 154) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 155) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 156) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 157) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 158) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 159) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 160) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 161)
868b2b66 (kx 2024-12-20 16:11:07 +0300 162) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 163) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 164) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 165) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 166) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 167) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 168) rc = (EMUSHORT *)&_ei_m_ln2hi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 169) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 170) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 171) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 172) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 173) rc = (EMUSHORT *)&_ei_m_ln2hi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 174) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 175) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 176) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 177) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 178) rc = (EMUSHORT *)&_ei_m_ln2hi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 179) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 180) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 181) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 182) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 183) rc = (EMUSHORT *)&_ei_m_ln2hi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 184) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 185) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 186) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 187) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 188) rc = (EMUSHORT *)&_ei_m_ln2hi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 189) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 190) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 191) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 192) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 193) rc = (EMUSHORT *)&_ei_m_ln2hi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 194) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 195) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 196) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 197) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 198) rc = (EMUSHORT *)&_ei_m_ln2hi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 199) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 200) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 201) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 202) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 203) rc = (EMUSHORT *)&_ei_m_ln2hi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 204) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 205) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 206)
868b2b66 (kx 2024-12-20 16:11:07 +0300 207) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 208) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 209) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 210) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 211) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 212) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 213) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 214)
868b2b66 (kx 2024-12-20 16:11:07 +0300 215) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 216)
868b2b66 (kx 2024-12-20 16:11:07 +0300 217) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 218)
868b2b66 (kx 2024-12-20 16:11:07 +0300 219) } /* End of _get_m_ln2hi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 220)
868b2b66 (kx 2024-12-20 16:11:07 +0300 221)
868b2b66 (kx 2024-12-20 16:11:07 +0300 222) EMUSHORT *_get_m_ln2lo_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 223) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 224) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 225)
868b2b66 (kx 2024-12-20 16:11:07 +0300 226) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 227) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 228) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 229) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 230) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 231) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 232) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 233)
868b2b66 (kx 2024-12-20 16:11:07 +0300 234) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 235) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 236) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 237) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 238) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 239) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 240) rc = (EMUSHORT *)&_ei_m_ln2lo_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 241) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 242) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 243) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 244) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 245) rc = (EMUSHORT *)&_ei_m_ln2lo_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 246) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 247) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 248) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 249) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 250) rc = (EMUSHORT *)&_ei_m_ln2lo_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 251) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 252) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 253) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 254) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 255) rc = (EMUSHORT *)&_ei_m_ln2lo_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 256) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 257) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 258) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 259) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 260) rc = (EMUSHORT *)&_ei_m_ln2lo_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 261) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 262) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 263) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 264) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 265) rc = (EMUSHORT *)&_ei_m_ln2lo_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 266) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 267) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 268) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 269) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 270) rc = (EMUSHORT *)&_ei_m_ln2lo_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 271) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 272) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 273) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 274) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 275) rc = (EMUSHORT *)&_ei_m_ln2lo_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 276) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 277) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 278)
868b2b66 (kx 2024-12-20 16:11:07 +0300 279) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 280) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 281) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 282) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 283) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 284) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 285) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 286)
868b2b66 (kx 2024-12-20 16:11:07 +0300 287) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 288)
868b2b66 (kx 2024-12-20 16:11:07 +0300 289) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 290)
868b2b66 (kx 2024-12-20 16:11:07 +0300 291) } /* End of _get_m_ln2lo_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 292)
868b2b66 (kx 2024-12-20 16:11:07 +0300 293)
868b2b66 (kx 2024-12-20 16:11:07 +0300 294) EMUSHORT *_get_m_ln_huge_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 295) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 296) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 297)
868b2b66 (kx 2024-12-20 16:11:07 +0300 298) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 299) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 300) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 301) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 302) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 303) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 304) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 305)
868b2b66 (kx 2024-12-20 16:11:07 +0300 306) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 307) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 308) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 309) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 310) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 311) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 312) rc = (EMUSHORT *)&_ei_m_ln_huge_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 313) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 314) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 315) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 316) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 317) rc = (EMUSHORT *)&_ei_m_ln_huge_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 318) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 319) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 320) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 321) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 322) rc = (EMUSHORT *)&_ei_m_ln_huge_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 323) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 324) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 325) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 326) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 327) rc = (EMUSHORT *)&_ei_m_ln_huge_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 328) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 329) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 330) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 331) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 332) rc = (EMUSHORT *)&_ei_m_ln_huge_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 333) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 334) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 335) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 336) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 337) rc = (EMUSHORT *)&_ei_m_ln_huge_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 338) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 339) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 340) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 341) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 342) rc = (EMUSHORT *)&_ei_m_ln_huge_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 343) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 344) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 345) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 346) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 347) rc = (EMUSHORT *)&_ei_m_ln_huge_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 348) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 349) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 350)
868b2b66 (kx 2024-12-20 16:11:07 +0300 351) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 352) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 353) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 354) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 355) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 356) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 357) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 358)
868b2b66 (kx 2024-12-20 16:11:07 +0300 359) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 360)
868b2b66 (kx 2024-12-20 16:11:07 +0300 361) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 362)
868b2b66 (kx 2024-12-20 16:11:07 +0300 363) } /* End of _get_m_ln_huge_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 364)
868b2b66 (kx 2024-12-20 16:11:07 +0300 365)
868b2b66 (kx 2024-12-20 16:11:07 +0300 366) EMUSHORT *_get_m_ln_tiny_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 367) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 368) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 369)
868b2b66 (kx 2024-12-20 16:11:07 +0300 370) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 371) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 372) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 373) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 374) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 375) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 376) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 377)
868b2b66 (kx 2024-12-20 16:11:07 +0300 378) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 379) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 380) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 381) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 382) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 383) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 384) rc = (EMUSHORT *)&_ei_m_ln_tiny_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 385) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 386) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 387) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 388) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 389) rc = (EMUSHORT *)&_ei_m_ln_tiny_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 390) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 391) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 392) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 393) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 394) rc = (EMUSHORT *)&_ei_m_ln_tiny_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 395) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 396) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 397) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 398) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 399) rc = (EMUSHORT *)&_ei_m_ln_tiny_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 400) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 401) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 402) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 403) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 404) rc = (EMUSHORT *)&_ei_m_ln_tiny_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 405) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 406) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 407) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 408) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 409) rc = (EMUSHORT *)&_ei_m_ln_tiny_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 410) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 411) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 412) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 413) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 414) rc = (EMUSHORT *)&_ei_m_ln_tiny_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 415) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 416) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 417) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 418) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 419) rc = (EMUSHORT *)&_ei_m_ln_tiny_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 420) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 421) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 422)
868b2b66 (kx 2024-12-20 16:11:07 +0300 423) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 424) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 425) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 426) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 427) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 428) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 429) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 430)
868b2b66 (kx 2024-12-20 16:11:07 +0300 431) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 432)
868b2b66 (kx 2024-12-20 16:11:07 +0300 433) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 434)
868b2b66 (kx 2024-12-20 16:11:07 +0300 435) } /* End of _get_m_ln_tiny_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 436)
868b2b66 (kx 2024-12-20 16:11:07 +0300 437)
868b2b66 (kx 2024-12-20 16:11:07 +0300 438) EMUSHORT *_get_m_athfhi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 439) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 440) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 441)
868b2b66 (kx 2024-12-20 16:11:07 +0300 442) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 443) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 444) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 445) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 446) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 447) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 448) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 449)
868b2b66 (kx 2024-12-20 16:11:07 +0300 450) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 451) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 452) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 453) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 454) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 455) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 456) rc = (EMUSHORT *)&_ei_m_athfhi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 457) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 458) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 459) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 460) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 461) rc = (EMUSHORT *)&_ei_m_athfhi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 462) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 463) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 464) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 465) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 466) rc = (EMUSHORT *)&_ei_m_athfhi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 467) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 468) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 469) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 470) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 471) rc = (EMUSHORT *)&_ei_m_athfhi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 472) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 473) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 474) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 475) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 476) rc = (EMUSHORT *)&_ei_m_athfhi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 477) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 478) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 479) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 480) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 481) rc = (EMUSHORT *)&_ei_m_athfhi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 482) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 483) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 484) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 485) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 486) rc = (EMUSHORT *)&_ei_m_athfhi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 487) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 488) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 489) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 490) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 491) rc = (EMUSHORT *)&_ei_m_athfhi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 492) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 493) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 494)
868b2b66 (kx 2024-12-20 16:11:07 +0300 495) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 496) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 497) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 498) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 499) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 500) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 501) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 502)
868b2b66 (kx 2024-12-20 16:11:07 +0300 503) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 504)
868b2b66 (kx 2024-12-20 16:11:07 +0300 505) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 506)
868b2b66 (kx 2024-12-20 16:11:07 +0300 507) } /* End of _get_m_athfhi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 508)
868b2b66 (kx 2024-12-20 16:11:07 +0300 509)
868b2b66 (kx 2024-12-20 16:11:07 +0300 510) EMUSHORT *_get_m_athflo_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 511) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 512) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 513)
868b2b66 (kx 2024-12-20 16:11:07 +0300 514) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 515) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 516) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 517) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 518) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 519) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 520) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 521)
868b2b66 (kx 2024-12-20 16:11:07 +0300 522) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 523) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 524) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 525) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 526) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 527) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 528) rc = (EMUSHORT *)&_ei_m_athflo_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 529) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 530) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 531) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 532) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 533) rc = (EMUSHORT *)&_ei_m_athflo_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 534) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 535) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 536) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 537) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 538) rc = (EMUSHORT *)&_ei_m_athflo_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 539) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 540) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 541) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 542) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 543) rc = (EMUSHORT *)&_ei_m_athflo_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 544) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 545) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 546) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 547) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 548) rc = (EMUSHORT *)&_ei_m_athflo_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 549) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 550) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 551) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 552) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 553) rc = (EMUSHORT *)&_ei_m_athflo_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 554) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 555) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 556) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 557) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 558) rc = (EMUSHORT *)&_ei_m_athflo_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 559) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 560) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 561) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 562) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 563) rc = (EMUSHORT *)&_ei_m_athflo_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 564) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 565) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 566)
868b2b66 (kx 2024-12-20 16:11:07 +0300 567) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 568) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 569) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 570) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 571) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 572) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 573) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 574)
868b2b66 (kx 2024-12-20 16:11:07 +0300 575) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 576)
868b2b66 (kx 2024-12-20 16:11:07 +0300 577) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 578)
868b2b66 (kx 2024-12-20 16:11:07 +0300 579) } /* End of _get_m_athflo_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 580)
868b2b66 (kx 2024-12-20 16:11:07 +0300 581)
868b2b66 (kx 2024-12-20 16:11:07 +0300 582) EMUSHORT *_get_m_at1fhi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 583) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 584) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 585)
868b2b66 (kx 2024-12-20 16:11:07 +0300 586) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 587) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 588) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 589) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 590) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 591) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 592) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 593)
868b2b66 (kx 2024-12-20 16:11:07 +0300 594) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 595) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 596) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 597) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 598) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 599) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 600) rc = (EMUSHORT *)&_ei_m_at1fhi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 601) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 602) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 603) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 604) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 605) rc = (EMUSHORT *)&_ei_m_at1fhi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 606) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 607) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 608) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 609) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 610) rc = (EMUSHORT *)&_ei_m_at1fhi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 611) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 612) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 613) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 614) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 615) rc = (EMUSHORT *)&_ei_m_at1fhi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 616) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 617) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 618) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 619) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 620) rc = (EMUSHORT *)&_ei_m_at1fhi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 621) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 622) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 623) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 624) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 625) rc = (EMUSHORT *)&_ei_m_at1fhi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 626) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 627) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 628) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 629) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 630) rc = (EMUSHORT *)&_ei_m_at1fhi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 631) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 632) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 633) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 634) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 635) rc = (EMUSHORT *)&_ei_m_at1fhi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 636) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 637) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 638)
868b2b66 (kx 2024-12-20 16:11:07 +0300 639) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 640) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 641) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 642) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 643) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 644) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 645) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 646)
868b2b66 (kx 2024-12-20 16:11:07 +0300 647) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 648)
868b2b66 (kx 2024-12-20 16:11:07 +0300 649) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 650)
868b2b66 (kx 2024-12-20 16:11:07 +0300 651) } /* End of _get_m_at1fhi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 652)
868b2b66 (kx 2024-12-20 16:11:07 +0300 653)
868b2b66 (kx 2024-12-20 16:11:07 +0300 654) EMUSHORT *_get_m_at1flo_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 655) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 656) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 657)
868b2b66 (kx 2024-12-20 16:11:07 +0300 658) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 659) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 660) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 661) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 662) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 663) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 664) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 665)
868b2b66 (kx 2024-12-20 16:11:07 +0300 666) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 667) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 668) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 669) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 670) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 671) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 672) rc = (EMUSHORT *)&_ei_m_at1flo_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 673) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 674) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 675) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 676) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 677) rc = (EMUSHORT *)&_ei_m_at1flo_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 678) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 679) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 680) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 681) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 682) rc = (EMUSHORT *)&_ei_m_at1flo_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 683) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 684) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 685) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 686) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 687) rc = (EMUSHORT *)&_ei_m_at1flo_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 688) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 689) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 690) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 691) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 692) rc = (EMUSHORT *)&_ei_m_at1flo_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 693) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 694) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 695) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 696) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 697) rc = (EMUSHORT *)&_ei_m_at1flo_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 698) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 699) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 700) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 701) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 702) rc = (EMUSHORT *)&_ei_m_at1flo_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 703) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 704) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 705) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 706) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 707) rc = (EMUSHORT *)&_ei_m_at1flo_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 708) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 709) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 710)
868b2b66 (kx 2024-12-20 16:11:07 +0300 711) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 712) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 713) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 714) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 715) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 716) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 717) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 718)
868b2b66 (kx 2024-12-20 16:11:07 +0300 719) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 720)
868b2b66 (kx 2024-12-20 16:11:07 +0300 721) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 722)
868b2b66 (kx 2024-12-20 16:11:07 +0300 723) } /* End of _get_m_at1flo_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 724)
868b2b66 (kx 2024-12-20 16:11:07 +0300 725)
868b2b66 (kx 2024-12-20 16:11:07 +0300 726) EMUSHORT *_get_m_39_16_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 727) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 728) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 729)
868b2b66 (kx 2024-12-20 16:11:07 +0300 730) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 731) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 732) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 733) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 734) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 735) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 736) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 737)
868b2b66 (kx 2024-12-20 16:11:07 +0300 738) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 739) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 740) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 741) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 742) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 743) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 744) rc = (EMUSHORT *)&_ei_m_39_16__128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 745) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 746) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 747) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 748) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 749) rc = (EMUSHORT *)&_ei_m_39_16__256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 750) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 751) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 752) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 753) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 754) rc = (EMUSHORT *)&_ei_m_39_16__512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 755) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 756) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 757) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 758) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 759) rc = (EMUSHORT *)&_ei_m_39_16__1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 760) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 761) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 762) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 763) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 764) rc = (EMUSHORT *)&_ei_m_39_16__2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 765) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 766) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 767) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 768) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 769) rc = (EMUSHORT *)&_ei_m_39_16__4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 770) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 771) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 772) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 773) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 774) rc = (EMUSHORT *)&_ei_m_39_16__8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 775) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 776) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 777) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 778) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 779) rc = (EMUSHORT *)&_ei_m_39_16__16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 780) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 781) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 782)
868b2b66 (kx 2024-12-20 16:11:07 +0300 783) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 784) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 785) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 786) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 787) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 788) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 789) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 790)
868b2b66 (kx 2024-12-20 16:11:07 +0300 791) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 792)
868b2b66 (kx 2024-12-20 16:11:07 +0300 793) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 794)
868b2b66 (kx 2024-12-20 16:11:07 +0300 795) } /* End of _get_m_39_16_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 796)
868b2b66 (kx 2024-12-20 16:11:07 +0300 797)
868b2b66 (kx 2024-12-20 16:11:07 +0300 798) EMUSHORT *_get_m_1_16_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 799) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 800) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 801)
868b2b66 (kx 2024-12-20 16:11:07 +0300 802) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 803) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 804) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 805) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 806) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 807) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 808) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 809)
868b2b66 (kx 2024-12-20 16:11:07 +0300 810) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 811) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 812) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 813) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 814) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 815) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 816) rc = (EMUSHORT *)&_ei_m_1_16__128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 817) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 818) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 819) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 820) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 821) rc = (EMUSHORT *)&_ei_m_1_16__256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 822) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 823) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 824) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 825) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 826) rc = (EMUSHORT *)&_ei_m_1_16__512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 827) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 828) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 829) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 830) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 831) rc = (EMUSHORT *)&_ei_m_1_16__1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 832) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 833) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 834) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 835) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 836) rc = (EMUSHORT *)&_ei_m_1_16__2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 837) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 838) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 839) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 840) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 841) rc = (EMUSHORT *)&_ei_m_1_16__4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 842) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 843) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 844) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 845) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 846) rc = (EMUSHORT *)&_ei_m_1_16__8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 847) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 848) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 849) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 850) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 851) rc = (EMUSHORT *)&_ei_m_1_16__16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 852) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 853) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 854)
868b2b66 (kx 2024-12-20 16:11:07 +0300 855) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 856) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 857) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 858) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 859) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 860) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 861) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 862)
868b2b66 (kx 2024-12-20 16:11:07 +0300 863) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 864)
868b2b66 (kx 2024-12-20 16:11:07 +0300 865) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 866)
868b2b66 (kx 2024-12-20 16:11:07 +0300 867) } /* End of _get_m_1_16_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 868)
868b2b66 (kx 2024-12-20 16:11:07 +0300 869)
868b2b66 (kx 2024-12-20 16:11:07 +0300 870) EMUSHORT *_get_m_thovfl_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 871) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 872) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 873)
868b2b66 (kx 2024-12-20 16:11:07 +0300 874) if( nb < NBR_32 || nb > MPU_MATH_FN_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 875) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 876) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 877) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 878) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 879) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 880) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 881)
868b2b66 (kx 2024-12-20 16:11:07 +0300 882) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 883) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 884) #if MPU_MATH_FN_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 885) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 886) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 887) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 888) rc = (EMUSHORT *)&_ei_m_thovfl_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 889) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 890) #endif /* MPU_MATH_FN_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 891) #if MPU_MATH_FN_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 892) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 893) rc = (EMUSHORT *)&_ei_m_thovfl_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 894) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 895) #endif /* MPU_MATH_FN_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 896) #if MPU_MATH_FN_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 897) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 898) rc = (EMUSHORT *)&_ei_m_thovfl_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 899) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 900) #endif /* MPU_MATH_FN_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 901) #if MPU_MATH_FN_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 902) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 903) rc = (EMUSHORT *)&_ei_m_thovfl_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 904) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 905) #endif /* MPU_MATH_FN_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 906) #if MPU_MATH_FN_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 907) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 908) rc = (EMUSHORT *)&_ei_m_thovfl_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 909) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 910) #endif /* MPU_MATH_FN_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 911) #if MPU_MATH_FN_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 912) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 913) rc = (EMUSHORT *)&_ei_m_thovfl_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 914) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 915) #endif /* MPU_MATH_FN_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 916) #if MPU_MATH_FN_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 917) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 918) rc = (EMUSHORT *)&_ei_m_thovfl_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 919) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 920) #endif /* MPU_MATH_FN_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 921) #if MPU_MATH_FN_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 922) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 923) rc = (EMUSHORT *)&_ei_m_thovfl_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 924) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 925) #endif /* MPU_MATH_FN_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 926)
868b2b66 (kx 2024-12-20 16:11:07 +0300 927) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 928) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 929) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 930) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 931) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 932) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 933) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 934)
868b2b66 (kx 2024-12-20 16:11:07 +0300 935) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 936)
868b2b66 (kx 2024-12-20 16:11:07 +0300 937) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 938)
868b2b66 (kx 2024-12-20 16:11:07 +0300 939) } /* End of _get_m_thovfl_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 940)
868b2b66 (kx 2024-12-20 16:11:07 +0300 941)
868b2b66 (kx 2024-12-20 16:11:07 +0300 942) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 943) Hide internal symbols:
868b2b66 (kx 2024-12-20 16:11:07 +0300 944) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 945)
868b2b66 (kx 2024-12-20 16:11:07 +0300 946) __mpu_hidden_decl(_get_m_ln2hi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 947) __mpu_hidden_decl(_get_m_ln2lo_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 948) __mpu_hidden_decl(_get_m_ln_huge_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 949) __mpu_hidden_decl(_get_m_ln_tiny_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 950) __mpu_hidden_decl(_get_m_athfhi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 951) __mpu_hidden_decl(_get_m_athflo_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 952) __mpu_hidden_decl(_get_m_at1fhi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 953) __mpu_hidden_decl(_get_m_at1flo_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 954) __mpu_hidden_decl(_get_m_39_16_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 955) __mpu_hidden_decl(_get_m_1_16_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 956) __mpu_hidden_decl(_get_m_thovfl_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 957)
868b2b66 (kx 2024-12-20 16:11:07 +0300 958)
868b2b66 (kx 2024-12-20 16:11:07 +0300 959) /*
868b2b66 (kx 2024-12-20 16:11:07 +0300 960) End of hide internal symbols.
868b2b66 (kx 2024-12-20 16:11:07 +0300 961) ***************************************************************/
Math Processor Unit Library
libmpu – library of arithmetic functions for integer, real, and complex numbers of increased digit capacity
16 Commits
0 Branches
2 Tags