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

fix warnings

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-08-03 11:15:17 -05:00
parent e16c8c573d
commit 2038dd42b6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/stdpreds.c
View File

@ -1060,6 +1060,7 @@ static Int init_current_atom_op(
return cont_current_atom_op(PASS_REGS1); return cont_current_atom_op(PASS_REGS1);
} }
#if 0
static Int static Int
copy_local_ops(USES_REGS1) { /* current_op(-Precedence,-Type,-Atom) */ copy_local_ops(USES_REGS1) { /* current_op(-Precedence,-Type,-Atom) */
Term tmodin = Deref(ARG1); Term tmodin = Deref(ARG1);
@ -1079,6 +1080,7 @@ static Int
B->cp_h = HR; B->cp_h = HR;
return cont_current_atom_op(PASS_REGS1); return cont_current_atom_op(PASS_REGS1);
} }
#endif
void Yap_show_statistics(void) { void Yap_show_statistics(void) {
CACHE_REGS CACHE_REGS
@ -1112,7 +1114,7 @@ void Yap_show_statistics(void) {
(Unsigned(TR) - Unsigned(LOCAL_TrailBase)))); (Unsigned(TR) - Unsigned(LOCAL_TrailBase))));
fprintf(stderr, "Runtime: %lds.\n", (unsigned long int)(runtime(PASS_REGS1))); fprintf(stderr, "Runtime: %lds.\n", (unsigned long int)(runtime(PASS_REGS1)));
fprintf(stderr, "Cputime: %lds.\n", (unsigned long int)(Yap_cputime())); fprintf(stderr, "Cputime: %lds.\n", (unsigned long int)(Yap_cputime()));
fprintf(stderr, "Walltime: %llu.\n", Yap_walltime() / 1000); fprintf(stderr, "Walltime: %lu.\n", Yap_walltime() / 1000);
} }
static Int p_statistics_heap_max(USES_REGS1) { static Int p_statistics_heap_max(USES_REGS1) {
@ -1603,9 +1605,9 @@ void Yap_InitCPreds(void) {
while (*p) while (*p)
(*(*p++))(); (*(*p++))();
} }
#if USE_MYDDAS #if USE_MYDDAS
init_myddas(); init_myddas();
#endif #endif
#if CAMACHO #if CAMACHO
{ {
extern void InitForeignPreds(void); extern void InitForeignPreds(void);