/***************************************************************
__MPU_M_CONST.C
This file contains source code of functions for
MATH CONSTANTS operations.
PART OF : MPU - library .
USAGE : Internal only .
NOTE : NONE .
Copyright (C) 2000 - 2024 by Andrew V.Kosteltsev.
All Rights Reserved.
***************************************************************/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <errno.h> /* errno(3) */
#include <string.h> /* strcpy(3) */
#include <strings.h> /* bzero(3) */
#include <libmpu.h>
#include <mpu-context.h>
#include <mpu-emutype.h>
#include <mpu-floatp.h>
#include <mpu-m-const.h>
#include <mpu-char.h>
#include <mpu-symbols.h>
#include <mpu-math-errno.h>
#include <mpu-mtherr.h>
/***************************************************************
Кодировка имен файлов:
Трехзначное десятичное число, представляющее количество
128-и битных слов, из которых состоят вещественные числа
размещенные в массивах:
размер чисел в битах кодировка
-------------------- ---------
128 001
256 002
512 004
1024 008
2048 016
4096 032
8192 064
16384 128
32768 256
65536 512 (это предел);
ПРИМЕРЫ:
-------
ei_mconst_001_emu32lsb.dfn - 128-бит,
ei_mconst_512_emu32lsb.dfn - 65536-бит.
***************************************************************/
#if MPU_REAL_IO_LIMIT >= 128
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu00128/ei_mconst_001_emu32lsb.dfn>
#else
#include <m_const/emu00128/ei_mconst_001_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu00256/ei_mconst_002_emu32lsb.dfn>
#else
#include <m_const/emu00256/ei_mconst_002_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu00512/ei_mconst_004_emu32lsb.dfn>
#else
#include <m_const/emu00512/ei_mconst_004_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu01024/ei_mconst_008_emu32lsb.dfn>
#else
#include <m_const/emu01024/ei_mconst_008_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu02048/ei_mconst_016_emu32lsb.dfn>
#else
#include <m_const/emu02048/ei_mconst_016_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu04096/ei_mconst_032_emu32lsb.dfn>
#else
#include <m_const/emu04096/ei_mconst_032_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu08192/ei_mconst_064_emu32lsb.dfn>
#else
#include <m_const/emu08192/ei_mconst_064_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu16384/ei_mconst_128_emu32lsb.dfn>
#else
#include <m_const/emu16384/ei_mconst_128_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu32768/ei_mconst_256_emu32lsb.dfn>
#else
#include <m_const/emu32768/ei_mconst_256_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
#if MPU_WORD_ORDER_BIG_ENDIAN == 0
#include <m_const/emu65536/ei_mconst_512_emu32lsb.dfn>
#else
#include <m_const/emu65536/ei_mconst_512_emu32msb.dfn>
#endif
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
EMUSHORT *_get_m_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_ptr() */
EMUSHORT *_get_m_e_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_e_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_e_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_e_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_e_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_e_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_e_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_e_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_e_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_e_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_e_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_e_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_e_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_e_ptr() */
EMUSHORT *_get_m_1_ln2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_ln2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_ln2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_ln2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_ln2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_ln2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_ln2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_ln2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_ln2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_ln2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_ln2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_ln2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_ln2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_ln2_ptr() */
EMUSHORT *_get_m_ln2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_ln2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_ln2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_ln2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_ln2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_ln2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_ln2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_ln2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_ln2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_ln2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_ln2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_ln2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_ln2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_ln2_ptr() */
EMUSHORT *_get_m_1_ln10_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_ln10_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_ln10_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_ln10_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_ln10_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_ln10_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_ln10_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_ln10_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_ln10_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_ln10_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_ln10_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_ln10_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_ln10_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_ln10_ptr() */
EMUSHORT *_get_m_ln10_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_ln10_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_ln10_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_ln10_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_ln10_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_ln10_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_ln10_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_ln10_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_ln10_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_ln10_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_ln10_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_ln10_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_ln10_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_ln10_ptr() */
EMUSHORT *_get_m_1_lg2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_lg2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_lg2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_lg2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_lg2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_lg2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_lg2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_lg2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_lg2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_lg2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_lg2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_lg2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_lg2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_lg2_ptr() */
EMUSHORT *_get_m_lg2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_lg2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_lg2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_lg2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_lg2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_lg2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_lg2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_lg2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_lg2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_lg2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_lg2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_lg2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_lg2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_lg2_ptr() */
EMUSHORT *_get_m_pi_2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_2_ptr() */
EMUSHORT *_get_m_pi_3_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_3_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_3_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_3_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_3_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_3_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_3_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_3_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_3_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_3_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_3_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_3_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_3_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_3_ptr() */
EMUSHORT *_get_m_pi_4_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_4_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_4_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_4_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_4_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_4_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_4_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_4_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_4_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_4_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_4_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_4_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_4_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_4_ptr() */
EMUSHORT *_get_m_pi_5_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_5_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_5_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_5_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_5_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_5_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_5_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_5_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_5_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_5_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_5_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_5_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_5_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_5_ptr() */
EMUSHORT *_get_m_pi_6_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_pi_6_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_pi_6_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_pi_6_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_pi_6_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_pi_6_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_pi_6_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_pi_6_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_pi_6_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_pi_6_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_pi_6_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_pi_6_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_pi_6_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_pi_6_ptr() */
EMUSHORT *_get_m_1_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_pi_ptr() */
EMUSHORT *_get_m_2_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_2_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_2_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_2_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_2_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_2_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_2_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_2_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_2_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_2_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_2_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_2_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_2_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_2_pi_ptr() */
EMUSHORT *_get_m_3_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_3_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_3_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_3_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_3_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_3_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_3_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_3_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_3_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_3_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_3_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_3_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_3_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_3_pi_ptr() */
EMUSHORT *_get_m_4_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_4_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_4_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_4_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_4_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_4_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_4_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_4_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_4_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_4_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_4_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_4_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_4_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_4_pi_ptr() */
EMUSHORT *_get_m_5_pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_5_pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_5_pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_5_pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_5_pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_5_pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_5_pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_5_pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_5_pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_5_pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_5_pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_5_pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_5_pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_5_pi_ptr() */
EMUSHORT *_get_m_2pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_2pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_2pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_2pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_2pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_2pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_2pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_2pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_2pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_2pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_2pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_2pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_2pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_2pi_ptr() */
EMUSHORT *_get_m_3pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_3pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_3pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_3pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_3pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_3pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_3pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_3pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_3pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_3pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_3pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_3pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_3pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_3pi_ptr() */
EMUSHORT *_get_m_1_2pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_2pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_2pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_2pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_2pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_2pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_2pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_2pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_2pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_2pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_2pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_2pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_2pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_2pi_ptr() */
EMUSHORT *_get_m_1_3pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_3pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_3pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_3pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_3pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_3pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_3pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_3pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_3pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_3pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_3pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_3pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_3pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_3pi_ptr() */
EMUSHORT *_get_m_1_4pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_4pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_4pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_4pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_4pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_4pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_4pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_4pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_4pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_4pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_4pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_4pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_4pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_4pi_ptr() */
EMUSHORT *_get_m_1_5pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_5pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_5pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_5pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_5pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_5pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_5pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_5pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_5pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_5pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_5pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_5pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_5pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_5pi_ptr() */
EMUSHORT *_get_m_1_6pi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_6pi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_6pi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_6pi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_6pi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_6pi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_6pi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_6pi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_6pi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_6pi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_6pi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_6pi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_6pi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_6pi_ptr() */
EMUSHORT *_get_m_3pi_4_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_3pi_4_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_3pi_4_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_3pi_4_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_3pi_4_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_3pi_4_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_3pi_4_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_3pi_4_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_3pi_4_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_3pi_4_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_3pi_4_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_3pi_4_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_3pi_4_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_3pi_4_ptr() */
EMUSHORT *_get_m_sqrtpi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_sqrtpi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_sqrtpi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_sqrtpi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_sqrtpi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_sqrtpi_ptr() */
EMUSHORT *_get_m_1_sqrtpi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_sqrtpi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_sqrtpi_ptr() */
EMUSHORT *_get_m_2_sqrtpi_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_2_sqrtpi_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_2_sqrtpi_ptr() */
EMUSHORT *_get_m_sqrt2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_sqrt2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_sqrt2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_sqrt2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_sqrt2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_sqrt2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_sqrt2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_sqrt2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_sqrt2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_sqrt2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_sqrt2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_sqrt2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_sqrt2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_sqrt2_ptr() */
EMUSHORT *_get_m_1_sqrt2_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_sqrt2_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_sqrt2_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_sqrt2_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_sqrt2_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_sqrt2_ptr() */
EMUSHORT *_get_m_sqrt3_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_sqrt3_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_sqrt3_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_sqrt3_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_sqrt3_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_sqrt3_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_sqrt3_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_sqrt3_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_sqrt3_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_sqrt3_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_sqrt3_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_sqrt3_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_sqrt3_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_sqrt3_ptr() */
EMUSHORT *_get_m_1_sqrt3_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_sqrt3_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_sqrt3_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_sqrt3_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_sqrt3_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_sqrt3_ptr() */
EMUSHORT *_get_m_degree_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_degree_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_degree_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_degree_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_degree_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_degree_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_degree_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_degree_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_degree_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_degree_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_degree_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_degree_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_degree_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_degree_ptr() */
EMUSHORT *_get_m_1_degree_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_1_degree_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_1_degree_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_1_degree_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_1_degree_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_1_degree_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_1_degree_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_1_degree_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_1_degree_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_1_degree_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_1_degree_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_1_degree_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_1_degree_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_1_degree_ptr() */
EMUSHORT *_get_m_goldenratio_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_goldenratio_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_goldenratio_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_goldenratio_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_goldenratio_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_goldenratio_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_goldenratio_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_goldenratio_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_goldenratio_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_goldenratio_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_goldenratio_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_goldenratio_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_goldenratio_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_goldenratio_ptr() */
EMUSHORT *_get_m_eulergamma_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_eulergamma_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_eulergamma_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_eulergamma_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_eulergamma_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_eulergamma_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_eulergamma_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_eulergamma_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_eulergamma_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_eulergamma_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_eulergamma_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_eulergamma_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_eulergamma_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_eulergamma_ptr() */
EMUSHORT *_get_m_catalan_ptr( int nb )
{
EMUSHORT *rc = (EMUSHORT *)NULL;
if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
return( rc );
}
switch( nb )
{
#if MPU_REAL_IO_LIMIT >= 128
case NBR_32 :
rc = (EMUSHORT *)&_ei_m_catalan_32_[0];
break;
case NBR_64 :
rc = (EMUSHORT *)&_ei_m_catalan_64_[0];
break;
case NBR_128 :
rc = (EMUSHORT *)&_ei_m_catalan_128_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 128 */
#if MPU_REAL_IO_LIMIT >= 256
case NBR_256 :
rc = (EMUSHORT *)&_ei_m_catalan_256_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 256 */
#if MPU_REAL_IO_LIMIT >= 512
case NBR_512 :
rc = (EMUSHORT *)&_ei_m_catalan_512_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 512 */
#if MPU_REAL_IO_LIMIT >= 1024
case NBR_1024 :
rc = (EMUSHORT *)&_ei_m_catalan_1024_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 1024 */
#if MPU_REAL_IO_LIMIT >= 2048
case NBR_2048 :
rc = (EMUSHORT *)&_ei_m_catalan_2048_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 2048 */
#if MPU_REAL_IO_LIMIT >= 4096
case NBR_4096 :
rc = (EMUSHORT *)&_ei_m_catalan_4096_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 4096 */
#if MPU_REAL_IO_LIMIT >= 8192
case NBR_8192 :
rc = (EMUSHORT *)&_ei_m_catalan_8192_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 8192 */
#if MPU_REAL_IO_LIMIT >= 16384
case NBR_16384:
rc = (EMUSHORT *)&_ei_m_catalan_16384_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 16384 */
#if MPU_REAL_IO_LIMIT >= 32768
case NBR_32768:
rc = (EMUSHORT *)&_ei_m_catalan_32768_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 32768 */
#if MPU_REAL_IO_LIMIT >= 65536
case NBR_65536:
rc = (EMUSHORT *)&_ei_m_catalan_65536_[0];
break;
#endif /* MPU_REAL_IO_LIMIT >= 65536 */
default:
{
/* error: Invalid size of operand(s) */
__real_error_no = __R_ESIZE__;
__STIND; /* Set REAL ind-produsing operation Flag */
break;
}
} /* End of switch( nb ) */
return( rc );
} /* End of _get_m_catalan_ptr() */
/***************************************************************
Hide internal symbols:
***************************************************************/
__mpu_hidden_decl(_get_m_pi_ptr);
__mpu_hidden_decl(_get_m_e_ptr);
__mpu_hidden_decl(_get_m_1_ln2_ptr);
__mpu_hidden_decl(_get_m_ln2_ptr);
__mpu_hidden_decl(_get_m_1_ln10_ptr);
__mpu_hidden_decl(_get_m_ln10_ptr);
__mpu_hidden_decl(_get_m_1_lg2_ptr);
__mpu_hidden_decl(_get_m_lg2_ptr);
__mpu_hidden_decl(_get_m_pi_2_ptr);
__mpu_hidden_decl(_get_m_pi_3_ptr);
__mpu_hidden_decl(_get_m_pi_4_ptr);
__mpu_hidden_decl(_get_m_pi_5_ptr);
__mpu_hidden_decl(_get_m_pi_6_ptr);
__mpu_hidden_decl(_get_m_1_pi_ptr);
__mpu_hidden_decl(_get_m_2_pi_ptr);
__mpu_hidden_decl(_get_m_3_pi_ptr);
__mpu_hidden_decl(_get_m_4_pi_ptr);
__mpu_hidden_decl(_get_m_5_pi_ptr);
__mpu_hidden_decl(_get_m_2pi_ptr);
__mpu_hidden_decl(_get_m_3pi_ptr);
__mpu_hidden_decl(_get_m_1_2pi_ptr);
__mpu_hidden_decl(_get_m_1_3pi_ptr);
__mpu_hidden_decl(_get_m_1_4pi_ptr);
__mpu_hidden_decl(_get_m_1_5pi_ptr);
__mpu_hidden_decl(_get_m_1_6pi_ptr);
__mpu_hidden_decl(_get_m_3pi_4_ptr);
__mpu_hidden_decl(_get_m_sqrtpi_ptr);
__mpu_hidden_decl(_get_m_1_sqrtpi_ptr);
__mpu_hidden_decl(_get_m_2_sqrtpi_ptr);
__mpu_hidden_decl(_get_m_sqrt2_ptr);
__mpu_hidden_decl(_get_m_1_sqrt2_ptr);
__mpu_hidden_decl(_get_m_sqrt3_ptr);
__mpu_hidden_decl(_get_m_1_sqrt3_ptr);
__mpu_hidden_decl(_get_m_degree_ptr);
__mpu_hidden_decl(_get_m_1_degree_ptr);
__mpu_hidden_decl(_get_m_goldenratio_ptr);
__mpu_hidden_decl(_get_m_eulergamma_ptr);
__mpu_hidden_decl(_get_m_catalan_ptr);
/*
End of hide internal symbols.
***************************************************************/
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