[MLton-commit] r4495

Matthew Fluet MLton@mlton.org
Mon, 8 May 2006 18:10:25 -0700


Drop old compatability functions.
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/basis/Int/PackWord.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/platform.h

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/basis/Int/PackWord.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/Int/PackWord.c	2006-05-09 01:09:23 UTC (rev 4494)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/Int/PackWord.c	2006-05-09 01:10:25 UTC (rev 4495)
@@ -62,16 +62,3 @@
 #undef mkSubSeqRev
 #undef mkUpdate
 #undef all
-
-
-Word32_t Word8Array_subWord32Rev (Array(Word8_t) a, C_Ptrdiff_t offset) {
-  return PackWord32_subArrRev (a, 4 * offset);
-}
-
-void Word8Array_updateWord32Rev (Array(Word8_t) a, C_Ptrdiff_t offset, Word32_t w) {
-  PackWord32_updateRev (a, 4 * offset, w);
-}
-
-Word32_t Word8Vector_subWord32Rev (Vector(Word8_t) v, C_Ptrdiff_t offset) {
-  return PackWord32_subVecRev (v, 4 * offset);
-}

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/platform.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/platform.h	2006-05-09 01:09:23 UTC (rev 4494)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/platform.h	2006-05-09 01:10:25 UTC (rev 4495)
@@ -203,15 +203,6 @@
 extern Bool MLton_Platform_CygwinUseMmap;
 
 /* ------------------------------------------------- */
-/*                     PackWord                      */
-/* ------------------------------------------------- */
-
-/* Compat */
-Word32_t Word8Array_subWord32Rev (Array(Word8_t) a, C_Ptrdiff_t offset);
-void Word8Array_updateWord32Rev (Array(Word8_t) a, C_Ptrdiff_t offset, Word32_t w);
-Word32_t Word8Vector_subWord32Rev (Vector(Word8_t) v, C_Ptrdiff_t offset);
-
-/* ------------------------------------------------- */
 /*                      Socket                       */
 /* ------------------------------------------------- */