[MLton-commit] r4561

[Matthew F. <fl...@ml...>]

Naming convention
----------------------------------------------------------------------

A   mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/Real.c
D   mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/real.c

----------------------------------------------------------------------

Copied: mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/Real.c (from rev 4556, mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/real.c)

Deleted: mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/real.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/real.c	2006-05-21 19:17:07 UTC (rev 4560)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/real.c	2006-05-21 20:48:15 UTC (rev 4561)
@@ -1,28 +0,0 @@
-#include "platform.h"
-
-Real32_t Real32_Math_pi = (Real32_t)3.14159265358979323846;
-Real32_t Real32_Math_e = (Real32_t)2.7182818284590452354;
-
-Real32_t Real32_maxFinite =    3.40282347e+38;
-Real32_t Real32_minNormalPos = 1.17549435e-38;
-Real32_t Real32_minPos =       1.40129846e-45;
-
-Real64_t Real64_Math_pi = 3.14159265358979323846;
-Real64_t Real64_Math_e = 2.7182818284590452354;
-
-Real64_t Real64_maxFinite =    1.7976931348623157e+308;
-Real64_t Real64_minNormalPos = 2.2250738585072014e-308;
-Real64_t Real64_minPos =       4.9406564584124654e-324;
-
-#define ternary(size, name, op)                                             \
-        Real##size##_t Real##size##_mul##name                               \
-                (Real##size##_t r1, Real##size##_t r2, Real##size##_t r3);  \
-        Real##size##_t Real##size##_mul##name                               \
-                (Real##size##_t r1, Real##size##_t r2, Real##size##_t r3) { \
-                return r1 * r2 op r3;                                       \
-        }
-ternary(32, add, +)
-ternary(64, add, +)
-ternary(32, sub, -)
-ternary(64, sub, -)
-#undef ternary