From 786267cf948131b07ed7fd8018888e063dc8b714 Mon Sep 17 00:00:00 2001 From: vsc Date: Fri, 14 Feb 2003 11:47:01 +0000 Subject: [PATCH] fix a few int =/= long warnings. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@777 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/adtdefs.c | 2 -- C/heapgc.c | 12 ++++++------ 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/C/adtdefs.c b/C/adtdefs.c index 0435634fd..70f8ce9d9 100644 --- a/C/adtdefs.c +++ b/C/adtdefs.c @@ -149,8 +149,6 @@ LookupAtom(char *atom) /* compute hash */ p = (unsigned char *)atom; HashFunction(p, hash); - if (!strcmp("in line 284, system predicate see/1 at prolog:$$compile_stat/5 (clause 1)",atom)) - fprintf(stderr,"vsc: has is %d\n", hash); WRITE_LOCK(HashChain[hash].AERWLock); a = HashChain[hash].Entry; /* search atom in chain */ diff --git a/C/heapgc.c b/C/heapgc.c index fab5097ac..baa020e48 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -1484,11 +1484,11 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) SMALLUNSGN mod; if (Yap_PredForCode(gc_B->cp_ap, &at, &arity, &mod)) { if (arity) - fprintf(Yap_stderr,"[GC] %s/%d marked %d (%s)\n", RepAtom(at)->StrOfAE, arity, total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] %s/%ld marked %ld (%s)\n", RepAtom(at)->StrOfAE, arity, total_marked, op_names[opnum]); else - fprintf(Yap_stderr,"[GC] %s marked %d (%s)\n", RepAtom(at)->StrOfAE, total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] %s marked %ld (%s)\n", RepAtom(at)->StrOfAE, total_marked, op_names[opnum]); } else - fprintf(Yap_stderr,"[GC] marked %d (%s)\n", total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] marked %ld (%s)\n", total_marked, op_names[opnum]); } break; #ifdef TABLING @@ -1521,12 +1521,12 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) { PredEntry *pe = (PredEntry *)gc_B->cp_ap->u.ld.p; if (pe == NULL) { - fprintf(Yap_stderr,"[GC] marked %d (%s)\n", total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] marked %ld (%s)\n", total_marked, op_names[opnum]); } else if (pe->ArityOfPE) - fprintf(Yap_stderr,"[GC] %s/%d marked %d (%s)\n", RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] %s/%ld marked %ld (%s)\n", RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, total_marked, op_names[opnum]); else - fprintf(Yap_stderr,"[GC] %s marked %d (%s)\n", RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, total_marked, op_names[opnum]); + fprintf(Yap_stderr,"[GC] %s marked %ld (%s)\n", RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, total_marked, op_names[opnum]); } } }