[MLton] cvs commit: Inconsistent naming of IntInf_ functions

Matthew Fluet fluet@mlton.org
Tue, 16 Mar 2004 17:52:23 -0800


fluet       04/03/16 17:52:23

  Modified:    mlton/backend ssa-to-rssa.fun
               runtime  IntInf.h
               runtime/basis IntInf.c
  Log:
  MAIL Inconsistent naming of IntInf_ functions
  Fixing inconsistent naming of IntInf_ functions in runtime and backend.

Revision  Changes    Path
1.62      +1 -1      mlton/mlton/backend/ssa-to-rssa.fun

Index: ssa-to-rssa.fun
===================================================================
RCS file: /cvsroot/mlton/mlton/mlton/backend/ssa-to-rssa.fun,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- ssa-to-rssa.fun	16 Mar 2004 06:38:27 -0000	1.61
+++ ssa-to-rssa.fun	17 Mar 2004 01:52:21 -0000	1.62
@@ -239,7 +239,7 @@
 			    maySwitchThreads = false,
 			    modifiesFrontier = true,
 			    modifiesStackTop = false,
-			    name = concat ["IntInf_do", name],
+			    name = concat ["IntInf_do_", name],
 			    return = SOME CType.pointer}
 	    fun wordBinary (s, name) =
 	       let



1.12      +2 -2      mlton/runtime/IntInf.h

Index: IntInf.h
===================================================================
RCS file: /cvsroot/mlton/mlton/runtime/IntInf.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- IntInf.h	18 Aug 2003 06:19:53 -0000	1.11
+++ IntInf.h	17 Mar 2004 01:52:22 -0000	1.12
@@ -104,8 +104,8 @@
 					      uint bytes);
 
 extern Word	IntInf_smallMul(Word lhs, Word rhs, pointer carry);
-extern int	IntInf_compare(pointer lhs, pointer rhs),
-		IntInf_equal(pointer lhs, pointer rhs);
+extern int	IntInf_do_compare(pointer lhs, pointer rhs),
+		IntInf_do_equal(pointer lhs, pointer rhs);
 
 #endif	/* #ifndef _MLTON_INT_INF_H */
 



1.15      +4 -4      mlton/runtime/basis/IntInf.c

Index: IntInf.c
===================================================================
RCS file: /cvsroot/mlton/mlton/runtime/basis/IntInf.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- IntInf.c	24 Apr 2003 20:51:04 -0000	1.14
+++ IntInf.c	17 Mar 2004 01:52:22 -0000	1.15
@@ -316,14 +316,14 @@
  * Return an integer which compares to 0 as the two intInf args compare
  * to each other.
  */
-int IntInf_compare (pointer lhs, pointer rhs) {
+int IntInf_do_compare (pointer lhs, pointer rhs) {
 	__mpz_struct		lhsmpz,
 				rhsmpz;
 	mp_limb_t		lhsspace[2],
 				rhsspace[2];
 
 	if (DEBUG_INT_INF)
-		fprintf (stderr, "IntInf_compare (0x%08x, 0x%08x)\n",
+		fprintf (stderr, "IntInf_do_compare (0x%08x, 0x%08x)\n",
 				(uint)lhs, (uint)rhs);
 	fill (lhs, &lhsmpz, lhsspace);
 	fill (rhs, &rhsmpz, rhsspace);
@@ -333,13 +333,13 @@
 /*
  * Check if two IntInf.int's are equal.
  */
-int IntInf_equal (pointer lhs, pointer rhs) {
+int IntInf_do_equal (pointer lhs, pointer rhs) {
 	if (lhs == rhs)
 		return TRUE;
 	if (eitherIsSmall (lhs, rhs))
 		return FALSE;
 	else
-		return 0 == IntInf_compare (lhs, rhs);
+		return 0 == IntInf_do_compare (lhs, rhs);
 }
 
 /*