suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Finished off the last of the floating point intrinsics (from appendices K and M)

Browse Source 
cgtest19 now passes all its tests
This commit is contained in:
Neil Brown 2009-01-27 12:21:18 +00:00
parent 08f862685c
commit d1e0ec07c4
2 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
support/tock_intrinsics_float.h
View File

@ -12,15 +12,32 @@ static inline INT ADD_PREFIX(IEEECOMPARE) (REAL X, REAL Y, const char* pos) {
}
static inline BOOL SPLICE_SIZE(occam_IEEE,OP) (REAL, INT, INT, REAL, REAL*, const char*) occam_unused;
static inline BOOL SPLICE_SIZE(occam_IEEE,OP) (REAL X, INT Rm, INT Op, REAL Y, REAL* result1, const char* pos) {
return 0;
REAL R;
int prevRm = fegetround();
switch (Rm) {
case 0: fesetround(FE_TOWARDZERO); break;
case 1: fesetround(FE_TONEAREST); break;
case 2: fesetround(FE_UPWARD); break;
case 3: fesetround(FE_DOWNWARD); break;
}
switch (Op) {
case 0: R = X + Y; break;
case 1: R = X - Y; break;
case 2: R = X * Y; break;
case 3: R = X / Y; break;
}
fesetround(prevRm);
*result1 = R;
return (isnan(R));
}
static inline BOOL SPLICE_SIZE(occam_IEEE,REM) (REAL, REAL, REAL*, const char*) occam_unused;
static inline BOOL SPLICE_SIZE(occam_IEEE,REM) (REAL X, REAL Y, REAL* result1, const char* pos) {
return 0;
*result1 = F(remainder)(X,Y);
return isnan((*result1));
}
static inline BOOL SPLICE_SIZE(occam_REAL,EQ) (REAL, REAL, const char*) occam_unused;
static inline BOOL SPLICE_SIZE(occam_REAL,EQ) (REAL X, REAL Y, const char* pos) {
return 0;
return X==Y;
}
static inline BOOL SPLICE_SIZE(occam_REAL,GT) (REAL, REAL, const char*) occam_unused;
static inline BOOL SPLICE_SIZE(occam_REAL,GT) (REAL X, REAL Y, const char* pos) {
@ -38,7 +55,7 @@ static inline REAL SPLICE_SIZE(occam_REAL,OP) (REAL X, INT Op, REAL Y, const cha
}
static inline REAL SPLICE_SIZE(occam_REAL,REM) (REAL, REAL, const char*) occam_unused;
static inline REAL SPLICE_SIZE(occam_REAL,REM) (REAL X, REAL Y, const char* pos) {
return 0;
return F(remainder)(X,Y);
}
#if SPLICE_SIZE(4,1) == 4321
static inline BOOL occam_ARGUMENT_REDUCE (float, float, float, int32_t*, float*, const char*) occam_unused;

1
support/tock_support.h
View File

@ -23,6 +23,7 @@
#include <stdbool.h>
#include <stdint.h>
#include <limits.h>
#include <fenv.h>
#include <float.h>
#include <stdio.h>
#include <math.h>