diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

64 bit error

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-04 14:53:05 +01:00
parent 85361bf920
commit 2be8bcb482
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/compiler.c
View File

@ -3298,7 +3298,7 @@ c_optimize(PInstr *pc)
} }
yamop * 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 */ { /* compile a prolog clause, copy of clause myst be in ARG1 */
/* returns address of code for clause */ /* returns address of code for clause */
Term head, body; Term head, body;
@ -3326,6 +3326,7 @@ Yap_cclause(volatile Term inp_clause, int NOfArgs, Term mod, volatile Term src)
ARG3 = src; ARG3 = src;
YAPLeaveCriticalSection(); 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))) { if (!Yap_gcl(Yap_Error_Size, NOfArgs, ENV, gc_P(P,CP))) {
Yap_Error_TYPE = OUT_OF_STACK_ERROR; Yap_Error_TYPE = OUT_OF_STACK_ERROR;
Yap_Error_Term = inp_clause; Yap_Error_Term = inp_clause;

2
H/Yapproto.h
View File

@ -146,7 +146,7 @@ int STD_PROTO(Yap_compare_terms,(Term,Term));
void STD_PROTO(Yap_InitCmpPreds,(void)); void STD_PROTO(Yap_InitCmpPreds,(void));
/* compiler.c */ /* compiler.c */
yamop *STD_PROTO(Yap_cclause,(Term, int, Term, Term)); yamop *STD_PROTO(Yap_cclause,(Term, Int, Term, Term));
/* computils.c */ /* computils.c */