[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);
}
/*