100 lines
2.6 KiB
C++
100 lines
2.6 KiB
C++
|
/*
|
||
|
|
* rt_nonfinite.cpp
|
||
|
|
*
|
||
|
|
* Academic License - for use in teaching, academic research, and meeting
|
||
|
|
* course requirements at degree granting institutions only. Not for
|
||
|
|
* government, commercial, or other organizational use.
|
||
|
|
*
|
||
|
|
* Code generation for model "Arduino_skal".
|
||
|
|
*
|
||
|
|
* Model version : 1.1
|
||
|
|
* Simulink Coder version : 9.5 (R2021a) 14-Nov-2020
|
||
|
|
* C++ source code generated on : Thu Apr 15 15:56:50 2021
|
||
|
|
*
|
||
|
|
* Target selection: grt.tlc
|
||
|
|
* Note: GRT includes extra infrastructure and instrumentation for prototyping
|
||
|
|
* Embedded hardware selection: Intel->x86-64 (Windows64)
|
||
|
|
* Code generation objective: Debugging
|
||
|
|
* Validation result: Not run
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Abstract:
|
||
|
|
* Function to initialize non-finites,
|
||
|
|
* (Inf, NaN and -Inf).
|
||
|
|
*/
|
||
|
|
#include "rt_nonfinite.h"
|
||
|
|
#include "rtGetNaN.h"
|
||
|
|
#include "rtGetInf.h"
|
||
|
|
#define NumBitsPerChar 8U
|
||
|
|
|
||
|
|
extern "C" {
|
||
|
|
real_T rtInf;
|
||
|
|
real_T rtMinusInf;
|
||
|
|
real_T rtNaN;
|
||
|
|
real32_T rtInfF;
|
||
|
|
real32_T rtMinusInfF;
|
||
|
|
real32_T rtNaNF;
|
||
|
|
}
|
||
|
|
extern "C"
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* Initialize the rtInf, rtMinusInf, and rtNaN needed by the
|
||
|
|
* generated code. NaN is initialized as non-signaling. Assumes IEEE.
|
||
|
|
*/
|
||
|
|
void rt_InitInfAndNaN(size_t realSize)
|
||
|
|
{
|
||
|
|
(void) (realSize);
|
||
|
|
rtNaN = rtGetNaN();
|
||
|
|
rtNaNF = rtGetNaNF();
|
||
|
|
rtInf = rtGetInf();
|
||
|
|
rtInfF = rtGetInfF();
|
||
|
|
rtMinusInf = rtGetMinusInf();
|
||
|
|
rtMinusInfF = rtGetMinusInfF();
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Test if value is infinite */
|
||
|
|
boolean_T rtIsInf(real_T value)
|
||
|
|
{
|
||
|
|
return (boolean_T)((value==rtInf || value==rtMinusInf) ? 1U : 0U);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Test if single-precision value is infinite */
|
||
|
|
boolean_T rtIsInfF(real32_T value)
|
||
|
|
{
|
||
|
|
return (boolean_T)(((value)==rtInfF || (value)==rtMinusInfF) ? 1U : 0U);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Test if value is not a number */
|
||
|
|
boolean_T rtIsNaN(real_T value)
|
||
|
|
{
|
||
|
|
boolean_T result = (boolean_T) 0;
|
||
|
|
size_t bitsPerReal = sizeof(real_T) * (NumBitsPerChar);
|
||
|
|
if (bitsPerReal == 32U) {
|
||
|
|
result = rtIsNaNF((real32_T)value);
|
||
|
|
} else {
|
||
|
|
union {
|
||
|
|
LittleEndianIEEEDouble bitVal;
|
||
|
|
real_T fltVal;
|
||
|
|
} tmpVal;
|
||
|
|
|
||
|
|
tmpVal.fltVal = value;
|
||
|
|
result = (boolean_T)((tmpVal.bitVal.words.wordH & 0x7FF00000) ==
|
||
|
|
0x7FF00000 &&
|
||
|
|
( (tmpVal.bitVal.words.wordH & 0x000FFFFF) != 0 ||
|
||
|
|
(tmpVal.bitVal.words.wordL != 0) ));
|
||
|
|
}
|
||
|
|
|
||
|
|
return result;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Test if single-precision value is not a number */
|
||
|
|
boolean_T rtIsNaNF(real32_T value)
|
||
|
|
{
|
||
|
|
IEEESingle tmp;
|
||
|
|
tmp.wordL.wordLreal = value;
|
||
|
|
return (boolean_T)( (tmp.wordL.wordLuint & 0x7F800000) == 0x7F800000 &&
|
||
|
|
(tmp.wordL.wordLuint & 0x007FFFFF) != 0 );
|
||
|
|
}
|
||
|
|
}
|