Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add to gambit.h the ___FETCH_.../___STORE_... macros for ___F64 and _…

…__F32 types.
  • Loading branch information...
commit be9c067f48b5653c4ecbaee0aacd2e17fafc5b07 1 parent 08670f5
@feeley authored
Showing with 17 additions and 1 deletion.
  1. +16 −0 include/gambit.h.in
  2. +1 −1  include/stamp.h
View
16 include/gambit.h.in
@@ -1607,6 +1607,22 @@ ___CAST_U64((val)<<(((i)&7)<<3))
#endif
+/*
+ * Macros to access ___F32 and ___F64 data types.
+ */
+
+#ifdef ___F32
+#define ___FETCH_F32(base,i)*(___CAST(___F32*,base)+(i))
+#define ___STORE_F32(base,i,val)*(___CAST(___F32*,base)+(i)) = (val)
+#define ___CAST_F32(x)___CAST(___F32,x)
+#endif
+
+#ifdef ___F64
+#define ___FETCH_F64(base,i)*(___CAST(___F64*,base)+(i))
+#define ___STORE_F64(base,i,val)*(___CAST(___F64*,base)+(i)) = (val)
+#define ___CAST_F64(x)___CAST(___F64,x)
+#endif
+
/*---------------------------------------------------------------------------*/
/*
View
2  include/stamp.h
@@ -3,4 +3,4 @@
*/
#define ___STAMP_YMD 20130312
-#define ___STAMP_HMS 183141
+#define ___STAMP_HMS 183630

0 comments on commit be9c067

Please sign in to comment.
Something went wrong with that request. Please try again.