From 2be8bcb482002ca390116fba9d78e84904ba91fd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Tue, 4 May 2010 14:53:05 +0100 Subject: [PATCH] 64 bit error --- C/compiler.c | 3 ++- H/Yapproto.h | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/C/compiler.c b/C/compiler.c index 06f58392a..221f93145 100644 --- a/C/compiler.c +++ b/C/compiler.c @@ -3298,7 +3298,7 @@ c_optimize(PInstr *pc) } yamop * -Yap_cclause(volatile Term inp_clause, int NOfArgs, Term mod, volatile Term src) +Yap_cclause(volatile Term inp_clause, Int NOfArgs, Term mod, volatile Term src) { /* compile a prolog clause, copy of clause myst be in ARG1 */ /* returns address of code for clause */ Term head, body; @@ -3326,6 +3326,7 @@ Yap_cclause(volatile Term inp_clause, int NOfArgs, Term mod, volatile Term src) ARG3 = src; YAPLeaveCriticalSection(); + fprintf(stderr,"ENV=%p %d\n",ENV, Yap_op_from_opcode(((yamop *)ENV[E_CP])->opc)); if (!Yap_gcl(Yap_Error_Size, NOfArgs, ENV, gc_P(P,CP))) { Yap_Error_TYPE = OUT_OF_STACK_ERROR; Yap_Error_Term = inp_clause; diff --git a/H/Yapproto.h b/H/Yapproto.h index 5d2c7816f..a6f8f7310 100644 --- a/H/Yapproto.h +++ b/H/Yapproto.h @@ -146,7 +146,7 @@ int STD_PROTO(Yap_compare_terms,(Term,Term)); void STD_PROTO(Yap_InitCmpPreds,(void)); /* compiler.c */ -yamop *STD_PROTO(Yap_cclause,(Term, int, Term, Term)); +yamop *STD_PROTO(Yap_cclause,(Term, Int, Term, Term)); /* computils.c */