1 files changed, 734 insertions, 0 deletions
diff --git a/source/subj-C/subjfloat.c b/source/subj-C/subjfloat.c
new file mode 100644
index 0000000..4d1a0d6
--- /dev/null
+++ b/source/subj-C/subjfloat.c
@@ -0,0 +1,734 @@
+
+/*============================================================================
+
+This C source file is part of TestFloat, Release 3, a package of programs for
+testing the correctness of floating-point arithmetic complying with the IEEE
+Standard for Floating-Point, by John R. Hauser.
+
+Copyright 2011, 2012, 2013, 2014 The Regents of the University of California
+(Regents).  All Rights Reserved.  Redistribution and use in source and binary
+forms, with or without modification, are permitted provided that the following
+conditions are met:
+
+Redistributions of source code must retain the above copyright notice,
+this list of conditions, and the following two paragraphs of disclaimer.
+Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions, and the following two paragraphs of disclaimer in the
+documentation and/or other materials provided with the distribution.  Neither
+the name of the Regents nor the names of its contributors may be used to
+endorse or promote products derived from this software without specific prior
+written permission.
+
+IN NO EVENT SHALL REGENTS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT,
+SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING
+OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF REGENTS HAS
+BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+REGENTS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED
+TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED
+HEREUNDER IS PROVIDED "AS IS".  REGENTS HAS NO OBLIGATION TO PROVIDE
+MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
+
+=============================================================================*/
+
+#include <stdbool.h>
+#include <stdint.h>
+#include <fenv.h>
+#include <math.h>
+#include "platform.h"
+#include "softfloat.h"
+#include "subjfloat_config.h"
+#include "subjfloat.h"
+
+#pragma STDC FENV_ACCESS ON
+
+void subjfloat_setRoundingMode( uint_fast8_t roundingMode )
+{
+
+    fesetround(
+          (roundingMode == softfloat_round_near_even) ? FE_TONEAREST
+        : (roundingMode == softfloat_round_minMag)    ? FE_TOWARDZERO
+        : (roundingMode == softfloat_round_min)       ? FE_DOWNWARD
+        : FE_UPWARD
+    );
+
+}
+
+void subjfloat_setExtF80RoundingPrecision( uint_fast8_t roundingPrecision )
+{
+
+}
+
+uint_fast8_t subjfloat_clearExceptionFlags( void )
+{
+    int subjExceptionFlags;
+    uint_fast8_t exceptionFlags;
+
+    subjExceptionFlags =
+        fetestexcept(
+            FE_INVALID | FE_DIVBYZERO | FE_OVERFLOW | FE_UNDERFLOW | FE_INEXACT
+        );
+    feclearexcept(
+        FE_INVALID | FE_DIVBYZERO | FE_OVERFLOW | FE_UNDERFLOW | FE_INEXACT );
+    exceptionFlags = 0;
+    if ( subjExceptionFlags & FE_INVALID ) {
+        exceptionFlags |= softfloat_flag_invalid;
+    }
+    if ( subjExceptionFlags & FE_DIVBYZERO ) {
+        exceptionFlags |= softfloat_flag_infinite;
+    }
+    if ( subjExceptionFlags & FE_OVERFLOW ) {
+        exceptionFlags |= softfloat_flag_overflow;
+    }
+    if ( subjExceptionFlags & FE_UNDERFLOW ) {
+        exceptionFlags |= softfloat_flag_underflow;
+    }
+    if ( subjExceptionFlags & FE_INEXACT ) {
+        exceptionFlags |= softfloat_flag_inexact;
+    }
+    return exceptionFlags;
+
+}
+
+union f32_f { float32_t f32; float f; };
+union f64_d { float64_t f64; double d; };
+
+float32_t subj_ui32_to_f32( uint_fast32_t a )
+{
+    union f32_f uZ;
+
+    uZ.f = a;
+    return uZ.f32;
+
+}
+
+float64_t subj_ui32_to_f64( uint_fast32_t a )
+{
+    union f64_d uZ;
+
+    uZ.d = a;
+    return uZ.f64;
+
+}
+
+float32_t subj_ui64_to_f32( uint_fast64_t a )
+{
+    union f32_f uZ;
+
+    uZ.f = a;
+    return uZ.f32;
+
+}
+
+float64_t subj_ui64_to_f64( uint_fast64_t a )
+{
+    union f64_d uZ;
+
+    uZ.d = a;
+    return uZ.f64;
+
+}
+
+float32_t subj_i32_to_f32( int_fast32_t a )
+{
+    union f32_f uZ;
+
+    uZ.f = a;
+    return uZ.f32;
+
+}
+
+float64_t subj_i32_to_f64( int_fast32_t a )
+{
+    union f64_d uZ;
+
+    uZ.d = a;
+    return uZ.f64;
+
+}
+
+float32_t subj_i64_to_f32( int_fast64_t a )
+{
+    union f32_f uZ;
+
+    uZ.f = a;
+    return uZ.f32;
+
+}
+
+float64_t subj_i64_to_f64( int_fast64_t a )
+{
+    union f64_d uZ;
+
+    uZ.d = a;
+    return uZ.f64;
+
+}
+
+uint_fast32_t subj_f32_to_ui32_rx_minMag( float32_t a )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    return (uint32_t) uA.f;
+
+}
+
+uint_fast64_t subj_f32_to_ui64_rx_minMag( float32_t a )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    return (uint64_t) uA.f;
+
+}
+
+int_fast32_t subj_f32_to_i32_rx_minMag( float32_t a )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    return (int32_t) uA.f;
+
+}
+
+int_fast64_t subj_f32_to_i64_rx_minMag( float32_t a )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    return (int64_t) uA.f;
+
+}
+
+float64_t subj_f32_to_f64( float32_t a )
+{
+    union f32_f uA;
+    union f64_d uZ;
+
+    uA.f32 = a;
+    uZ.d = uA.f;
+    return uZ.f64;
+
+}
+
+float32_t subj_f32_add( float32_t a, float32_t b )
+{
+    union f32_f uA, uB, uZ;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    uZ.f = uA.f + uB.f;
+    return uZ.f32;
+
+}
+
+float32_t subj_f32_sub( float32_t a, float32_t b )
+{
+    union f32_f uA, uB, uZ;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    uZ.f = uA.f - uB.f;
+    return uZ.f32;
+
+}
+
+float32_t subj_f32_mul( float32_t a, float32_t b )
+{
+    union f32_f uA, uB, uZ;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    uZ.f = uA.f * uB.f;
+    return uZ.f32;
+
+}
+
+float32_t subj_f32_div( float32_t a, float32_t b )
+{
+    union f32_f uA, uB, uZ;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    uZ.f = uA.f / uB.f;
+    return uZ.f32;
+
+}
+
+bool subj_f32_eq( float32_t a, float32_t b )
+{
+    union f32_f uA, uB;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    return (uA.f == uB.f);
+
+}
+
+bool subj_f32_le( float32_t a, float32_t b )
+{
+    union f32_f uA, uB;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    return (uA.f <= uB.f);
+
+}
+
+bool subj_f32_lt( float32_t a, float32_t b )
+{
+    union f32_f uA, uB;
+
+    uA.f32 = a;
+    uB.f32 = b;
+    return (uA.f < uB.f);
+
+}
+
+uint_fast32_t subj_f64_to_ui32_rx_minMag( float64_t a )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    return (uint32_t) uA.d;
+
+}
+
+uint_fast64_t subj_f64_to_ui64_rx_minMag( float64_t a )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    return (uint64_t) uA.d;
+
+}
+
+int_fast32_t subj_f64_to_i32_rx_minMag( float64_t a )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    return (int32_t) uA.d;
+
+}
+
+int_fast64_t subj_f64_to_i64_rx_minMag( float64_t a )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    return (int64_t) uA.d;
+
+}
+
+float32_t subj_f64_to_f32( float64_t a )
+{
+    union f64_d uA;
+    union f32_f uZ;
+
+    uA.f64 = a;
+    uZ.f = uA.d;
+    return uZ.f32;
+
+}
+
+float64_t subj_f64_add( float64_t a, float64_t b )
+{
+    union f64_d uA, uB, uZ;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    uZ.d = uA.d + uB.d;
+    return uZ.f64;
+
+}
+
+float64_t subj_f64_sub( float64_t a, float64_t b )
+{
+    union f64_d uA, uB, uZ;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    uZ.d = uA.d - uB.d;
+    return uZ.f64;
+
+}
+
+float64_t subj_f64_mul( float64_t a, float64_t b )
+{
+    union f64_d uA, uB, uZ;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    uZ.d = uA.d * uB.d;
+    return uZ.f64;
+
+}
+
+float64_t subj_f64_div( float64_t a, float64_t b )
+{
+    union f64_d uA, uB, uZ;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    uZ.d = uA.d / uB.d;
+    return uZ.f64;
+
+}
+
+float64_t subj_f64_sqrt( float64_t a )
+{
+    union f64_d uA, uZ;
+
+    uA.f64 = a;
+    uZ.d = sqrt( uA.d );
+    return uZ.f64;
+
+}
+
+bool subj_f64_eq( float64_t a, float64_t b )
+{
+    union f64_d uA, uB;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    return (uA.d == uB.d);
+
+}
+
+bool subj_f64_le( float64_t a, float64_t b )
+{
+    union f64_d uA, uB;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    return (uA.d <= uB.d);
+
+}
+
+bool subj_f64_lt( float64_t a, float64_t b )
+{
+    union f64_d uA, uB;
+
+    uA.f64 = a;
+    uB.f64 = b;
+    return (uA.d < uB.d);
+
+}
+
+#if defined EXTFLOAT80 && defined LONG_DOUBLE_IS_EXTFLOAT80
+
+void subj_ui32_to_extF80M( uint_fast32_t a, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_ui64_to_extF80M( uint_fast64_t a, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_i32_to_extF80M( int_fast32_t a, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_i64_to_extF80M( int_fast64_t a, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_f32_to_extF80M( float32_t a, extFloat80_t *zPtr )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    *((long double *) zPtr) = uA.f;
+
+}
+
+void subj_f64_to_extF80M( float64_t a, extFloat80_t *zPtr )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    *((long double *) zPtr) = uA.d;
+
+}
+
+uint_fast32_t subj_extF80M_to_ui32_rx_minMag( const extFloat80_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+uint_fast64_t subj_extF80M_to_ui64_rx_minMag( const extFloat80_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+int_fast32_t subj_extF80M_to_i32_rx_minMag( const extFloat80_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+int_fast64_t subj_extF80M_to_i64_rx_minMag( const extFloat80_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+float32_t subj_extF80M_to_f32( const extFloat80_t *aPtr )
+{
+    union f32_f uZ;
+
+    uZ.f = *((const long double *) aPtr);
+    return uZ.f32;
+
+}
+
+float64_t subj_extF80M_to_f64( const extFloat80_t *aPtr )
+{
+    union f64_d uZ;
+
+    uZ.d = *((const long double *) aPtr);
+    return uZ.f64;
+
+}
+
+void
+ subj_extF80M_add(
+     const extFloat80_t *aPtr, const extFloat80_t *bPtr, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) + *((const long double *) bPtr);
+
+}
+
+void
+ subj_extF80M_sub(
+     const extFloat80_t *aPtr, const extFloat80_t *bPtr, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) - *((const long double *) bPtr);
+
+}
+
+void
+ subj_extF80M_mul(
+     const extFloat80_t *aPtr, const extFloat80_t *bPtr, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) * *((const long double *) bPtr);
+
+}
+
+void
+ subj_extF80M_div(
+     const extFloat80_t *aPtr, const extFloat80_t *bPtr, extFloat80_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) / *((const long double *) bPtr);
+
+}
+
+bool subj_extF80M_eq( const extFloat80_t *aPtr, const extFloat80_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) == *((const long double *) bPtr));
+
+}
+
+bool subj_extF80M_le( const extFloat80_t *aPtr, const extFloat80_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) <= *((const long double *) bPtr));
+
+}
+
+bool subj_extF80M_lt( const extFloat80_t *aPtr, const extFloat80_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) < *((const long double *) bPtr));
+
+}
+
+#endif
+
+#if defined FLOAT128 && defined LONG_DOUBLE_IS_FLOAT128
+
+void subj_ui32_to_f128M( uint_fast32_t a, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_ui64_to_f128M( uint_fast64_t a, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_i32_to_f128M( int_fast32_t a, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_i64_to_f128M( int_fast64_t a, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) = a;
+
+}
+
+void subj_f32_to_f128M( float32_t a, float128_t *zPtr )
+{
+    union f32_f uA;
+
+    uA.f32 = a;
+    *((long double *) zPtr) = uA.f;
+
+}
+
+void subj_f64_to_f128M( float64_t a, float128_t *zPtr )
+{
+    union f64_d uA;
+
+    uA.f64 = a;
+    *((long double *) zPtr) = uA.d;
+
+}
+
+uint_fast32_t subj_f128M_to_ui32_rx_minMag( const float128_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+uint_fast64_t subj_f128M_to_ui64_rx_minMag( const float128_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+int_fast32_t subj_f128M_to_i32_rx_minMag( const float128_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+int_fast64_t subj_f128M_to_i64_rx_minMag( const float128_t *aPtr )
+{
+
+    return *((const long double *) aPtr);
+
+}
+
+float32_t subj_f128M_to_f32( const float128_t *aPtr )
+{
+    union f32_f uZ;
+
+    uZ.f = *((const long double *) aPtr);
+    return uZ.f32;
+
+}
+
+float64_t subj_f128M_to_f64( const float128_t *aPtr )
+{
+    union f64_d uZ;
+
+    uZ.d = *((const long double *) aPtr);
+    return uZ.f64;
+
+}
+
+void
+ subj_f128M_add(
+     const float128_t *aPtr, const float128_t *bPtr, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) + *((const long double *) bPtr);
+
+}
+
+void
+ subj_f128M_sub(
+     const float128_t *aPtr, const float128_t *bPtr, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) - *((const long double *) bPtr);
+
+}
+
+void
+ subj_f128M_mul(
+     const float128_t *aPtr, const float128_t *bPtr, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) * *((const long double *) bPtr);
+
+}
+
+void
+ subj_f128M_div(
+     const float128_t *aPtr, const float128_t *bPtr, float128_t *zPtr )
+{
+
+    *((long double *) zPtr) =
+        *((const long double *) aPtr) / *((const long double *) bPtr);
+
+}
+
+bool subj_f128M_eq( const float128_t *aPtr, const float128_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) == *((const long double *) bPtr));
+
+}
+
+bool subj_f128M_le( const float128_t *aPtr, const float128_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) <= *((const long double *) bPtr));
+
+}
+
+bool subj_f128M_lt( const float128_t *aPtr, const float128_t *bPtr )
+{
+
+    return (*((const long double *) aPtr) < *((const long double *) bPtr));
+
+}
+
+#endif
+