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

more experiments with format

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-05-05 00:38:46 +01:00
parent 1a53fdc757
commit 950144a63f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/heapgc.c
View File

@ -1256,7 +1256,7 @@ mark_variable(CELL_PTR current)
goto begin; goto begin;
#ifdef DEBUG #ifdef DEBUG
} else if (next < (CELL *)Yap_GlobalBase || next > (CELL *)Yap_TrailTop) { } else if (next < (CELL *)Yap_GlobalBase || next > (CELL *)Yap_TrailTop) {
fprintf(Yap_stderr, "OOPS in GC: marking, current=%p, *current=%lx next=%p\n", current, (unsigned long int)ccur, next); fprintf(Yap_stderr, "OOPS in GC: marking, current=%p, *current=" UInt_FORMAT " next=%p\n", current, ccur, next);
#endif #endif
} else { } else {
#ifdef COROUTING #ifdef COROUTING
@ -1495,7 +1495,7 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
#ifdef DEBUG #ifdef DEBUG
if (size < 0 || size > 512) if (size < 0 || size > 512)
fprintf(Yap_stderr,"OOPS in GC: env size for %p is %ld\n", gc_ENV, (unsigned long int)size); fprintf(Yap_stderr,"OOPS in GC: env size for %p is " UInt_FORMAT "\n", gc_ENV, (CELL)size);
#endif #endif
mark_db_fixed((CELL *)gc_ENV[E_CP]); mark_db_fixed((CELL *)gc_ENV[E_CP]);
/* for each saved variable */ /* for each saved variable */

4
H/Yap.h
View File

@ -187,14 +187,14 @@
/* */ typedef unsigned int UInt; /* */ typedef unsigned int UInt;
#define Int_FORMAT "%d" #define Int_FORMAT "%d"
#define UInt_FORMAT "%ud" #define UInt_FORMAT "%u"
#elif SIZEOF_LONG_INT==8 #elif SIZEOF_LONG_INT==8
/* */ typedef long int Int; /* */ typedef long int Int;
/* */ typedef unsigned long int UInt; /* */ typedef unsigned long int UInt;
#define Int_FORMAT "%l" #define Int_FORMAT "%l"
#define UInt_FORMAT "%ul" #define UInt_FORMAT "%lu"
# elif SIZEOF_LONG_LONG_INT==8 # elif SIZEOF_LONG_LONG_INT==8
/* */ typedef long long int Int; /* */ typedef long long int Int;