[MLton-commit] r6434

[spoons at mlton.org]

Wrong primitive assigned to MLton.Pointer.sub

Original commit 5805 by Matthew Fluet

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

U   mlton/branches/shared-heap-multicore/basis-library/primitive/prim-mlton.sml

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

Modified: mlton/branches/shared-heap-multicore/basis-library/primitive/prim-mlton.sml
===================================================================
--- mlton/branches/shared-heap-multicore/basis-library/primitive/prim-mlton.sml	2008-03-03 14:52:14 UTC (rev 6433)
+++ mlton/branches/shared-heap-multicore/basis-library/primitive/prim-mlton.sml	2008-03-03 14:52:23 UTC (rev 6434)
@@ -228,7 +228,7 @@
       val add =
          _prim "CPointer_add": pointer * C_Size.word -> pointer;
       val sub =
-         _prim "CPointer_add": pointer * C_Size.word -> pointer;
+         _prim "CPointer_sub": pointer * C_Size.word -> pointer;
       val diff =
          _prim "CPointer_diff": pointer * pointer -> C_Size.word;
       val < = _prim "CPointer_lt": pointer * pointer -> bool;