[MLton-commit] r5526

[Matthew Fluet]

Export real/word casts in MLton structure
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sig
U   mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sig
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sig	2007-04-14 18:53:21 UTC (rev 5525)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sig	2007-04-14 21:44:04 UTC (rev 5526)
@@ -39,6 +39,14 @@
       structure Profile: MLTON_PROFILE
 (*      structure Ptrace: MLTON_PTRACE *)
       structure Random: MLTON_RANDOM
+      structure Real32: sig
+                           val castFromWord: Word32.word -> Real32.real
+                           val castToWord: Real32.real -> Word32.word
+                        end
+      structure Real64: sig
+                           val castFromWord: Word64.word -> Real64.real
+                           val castToWord: Real64.real -> Word64.word
+                        end
       structure Rlimit: MLTON_RLIMIT
       structure Rusage: MLTON_RUSAGE
       structure Signal: MLTON_SIGNAL

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sml	2007-04-14 18:53:21 UTC (rev 5525)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library/mlton/mlton.sml	2007-04-14 21:44:04 UTC (rev 5526)
@@ -60,6 +60,8 @@
 (* structure Ptrace = MLtonPtrace *)
 structure Profile = MLtonProfile
 structure Random = MLtonRandom
+structure Real32 = Primitive.PackReal32
+structure Real64 = Primitive.PackReal64
 structure Rlimit = MLtonRlimit
 structure Rusage = MLtonRusage
 structure Signal = MLtonSignal