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

a CELL is not printable as %d in 64bit machines

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@119 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2001-07-06 13:15:16 +00:00
parent 6e241c6c8b
commit 3a752aca82
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/tracer.c
View File

@ -41,13 +41,13 @@ send_tracer_message(char *start, char *name, Int arity, char *mname, CELL *args)
if (name == NULL) { if (name == NULL) {
#ifdef YAPOR #ifdef YAPOR
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
YP_fprintf(YP_stderr, "(%d)%s (D:%d)", worker_id, start, (CELL)IntegerOfTerm(DEPTH)/2); YP_fprintf(YP_stderr, "(%d)%s (D:%ld)", worker_id, start, (CELL)IntegerOfTerm(DEPTH)/2);
#else #else
YP_fprintf(YP_stderr, "(%d)%s", worker_id, start); YP_fprintf(YP_stderr, "(%d)%s", worker_id, start);
#endif #endif
#else #else
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
YP_fprintf(YP_stderr, "%s (D:%d)", start, (CELL)IntegerOfTerm(DEPTH)/2); YP_fprintf(YP_stderr, "%s (D:%ld)", start, (CELL)IntegerOfTerm(DEPTH)/2);
#else #else
YP_fprintf(YP_stderr, "%s", start); YP_fprintf(YP_stderr, "%s", start);
#endif #endif
@ -57,13 +57,13 @@ send_tracer_message(char *start, char *name, Int arity, char *mname, CELL *args)
if (arity) { if (arity) {
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
YP_fprintf(YP_stderr, "%s (D:%d) %s:%s(", start, (CELL)IntegerOfTerm(DEPTH)/2, mname, name); YP_fprintf(YP_stderr, "%s (D:%ld) %s:%s(", start, (CELL)IntegerOfTerm(DEPTH)/2, mname, name);
#else #else
YP_fprintf(YP_stderr, "%s %s:%s(", start, mname, name); YP_fprintf(YP_stderr, "%s %s:%s(", start, mname, name);
#endif #endif
} else { } else {
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
YP_fprintf(YP_stderr, "%s (D:%d) %s:%s", start, (CELL)IntegerOfTerm(DEPTH)/2, mname, name); YP_fprintf(YP_stderr, "%s (D:%ld) %s:%s", start, (CELL)IntegerOfTerm(DEPTH)/2, mname, name);
#else #else
YP_fprintf(YP_stderr, "%s %s:%s", start, mname, name); YP_fprintf(YP_stderr, "%s %s:%s", start, mname, name);
#endif #endif