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:
Vítor Santos Costa 2013-11-04 22:32:53 +00:00
parent 4818d28b0b
commit ad8b101233
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
os/pl-files.c
View File

@ -680,8 +680,7 @@ PRED_IMPL("time_file64", 2, time_file64, 0)
static static
PRED_IMPL("size_file", 2, size_file, 0) PRED_IMPL("size_file", 2, size_file, 0)
{ PRED_LD { char *n;
char *n;
if ( PL_get_file_name(A1, &n, 0) ) if ( PL_get_file_name(A1, &n, 0) )
{ int64_t size; { int64_t size;
@ -1127,12 +1126,13 @@ PRED_IMPL("file_name_extension", 3, file_name_extension, 0)
static static
PRED_IMPL("prolog_to_os_filename", 2, prolog_to_os_filename, 0) PRED_IMPL("prolog_to_os_filename", 2, prolog_to_os_filename, 0)
{ PRED_LD {
#ifdef O_XOS
PRED_LD
term_t pl = A1; term_t pl = A1;
term_t os = A2; term_t os = A2;
#ifdef O_XOS
wchar_t *wn; wchar_t *wn;
if ( !PL_is_variable(pl) ) if ( !PL_is_variable(pl) )
@ -1160,7 +1160,8 @@ PRED_IMPL("prolog_to_os_filename", 2, prolog_to_os_filename, 0)
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, pl); return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, pl);
#else /*O_XOS*/ #else /*O_XOS*/
return PL_unify(pl, os);
return PL_unify(A1, A2);
#endif /*O_XOS*/ #endif /*O_XOS*/
} }

1
os/pl-stream.c
View File

@ -1898,6 +1898,7 @@ Svprintf(const char *fm, va_list args)
break; \ break; \
} \ } \
default: \ default: \
c = '\0'; /* make compiler happy */\
break; \ break; \
} }