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

Fixed the RAN/DRAN intrinsic

Browse Source
This commit is contained in:
Neil Brown 2009-01-27 13:50:42 +00:00
parent 9b1368ffe7
commit f4f08e09aa
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/Intrinsics.hs
View File

@ -79,7 +79,7 @@ intrinsicFunctions =
-- Elementary floating point functions -- Elementary floating point functions
-- Appendix N of the occam 2 manual (and section J.4) -- Appendix N of the occam 2 manual (and section J.4)
++ [(n, ts) | (n, (ts, _)) <- simpleFloatIntrinsics] ++ [(n, ts) | (n, (ts, _)) <- simpleFloatIntrinsics]
++ [("RAN", ([A.Real32, A.Int32], [(A.Int32, "N")]))] ++ concatMap doubleD [("RAN", ([A.Real32, A.Int32], [(A.Int32, "N")]))]
where where
query n = (n, ([A.Bool], [(A.Real32, "X")])) query n = (n, ([A.Bool], [(A.Real32, "X")]))
simple n = (n, ([A.Real32], [(A.Real32, "X")])) simple n = (n, ([A.Real32], [(A.Real32, "X")]))

6
support/tock_intrinsics_float.h
View File

@ -190,3 +190,9 @@ static inline REAL ADD_PREFIX(SQRT) (REAL X, const char* pos) {
} }
} }
static inline REAL ADD_PREFIX(RAN) (RINT, RINT*, const char*) occam_unused;
static inline REAL ADD_PREFIX(RAN) (RINT N, RINT* result1, const char* pos) {
int next = rand_r((unsigned*)&N);
*result1 = *(int*)&N;
return (REAL)next / (REAL)RAND_MAX;
}