[m-rev.] diff: fix minor compilation problem

[Zoltan Somogyi]

runtime/mercury_tabling.c:
	Fix some problems that prevented this code from compiling with
	-DMR_TABLE_DEBUG.

Zoltan.

cvs diff: Diffing .
Index: mercury_tabling.c
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/runtime/mercury_tabling.c,v
retrieving revision 1.69
diff -u -b -r1.69 mercury_tabling.c
--- mercury_tabling.c	5 Oct 2005 06:34:21 -0000	1.69
+++ mercury_tabling.c	28 Oct 2005 02:31:16 -0000
@@ -466,8 +466,8 @@
 MR_TrieNode
 MR_word_hash_lookup_or_add(MR_TrieNode t, MR_Word key)
 {
-#define key_format              "%p"
-#define key_cast                (MR_Word)
+#define key_format              "%d"
+#define key_cast                MR_Word
 #define table_type              MR_WordHashTableSlot
 #define table_field             word_slot_ptr
 #define hash(key)               ((long) (key))
@@ -486,8 +486,8 @@
 MR_TrieNode
 MR_word_hash_lookup(MR_TrieNode t, MR_Word key)
 {
-#define key_format              "%p"
-#define key_cast                (MR_Word)
+#define key_format              "%d"
+#define key_cast                MR_Word
 #define table_type              MR_WordHashTableSlot
 #define table_field             word_slot_ptr
 #define hash(key)               ((long) (key))
cvs diff: Diffing GETOPT
cvs diff: Diffing machdeps
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------