[MLton-commit] r4445

[Matthew Fluet]

Size is measured in bytes
----------------------------------------------------------------------

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

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

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/mlton/mlton.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/mlton/mlton.sml	2006-05-03 22:21:16 UTC (rev 4444)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/mlton/mlton.sml	2006-05-04 02:22:11 UTC (rev 4445)
@@ -29,7 +29,7 @@
 fun size x =
    let
       val refOverhead =
-         HeaderWord.wordSize + ObjptrWord.wordSize
+         Int.div (HeaderWord.wordSize + ObjptrWord.wordSize, 8)
    in 
       C_Size.toInt (Primitive.MLton.size (ref x)) - refOverhead
    end