warnings
This commit is contained in:
parent
0a9f37710c
commit
fb966536a9
@ -106,9 +106,7 @@ Int Yap_peek(int sno) {
|
|||||||
|
|
||||||
s = GLOBAL_Stream + sno;
|
s = GLOBAL_Stream + sno;
|
||||||
#if USE_READLINE
|
#if USE_READLINE
|
||||||
if (s->status & Readline_Stream_f
|
if (s->status & Readline_Stream_f && trueGlobalPrologFlag(READLINE_FLAG)) {
|
||||||
&& trueGlobalPrologFlag(READLINE_FLAG)
|
|
||||||
) {
|
|
||||||
ch = Yap_ReadlinePeekChar(sno);
|
ch = Yap_ReadlinePeekChar(sno);
|
||||||
if (ch == EOFCHAR) {
|
if (ch == EOFCHAR) {
|
||||||
s->stream_getc = EOFPeek;
|
s->stream_getc = EOFPeek;
|
||||||
|
@ -484,7 +484,7 @@ file_base_name ( USES_REGS1 )
|
|||||||
return Yap_unify(ARG2, MkAtomTerm(Yap_LookupWideAtom(c+i)));
|
return Yap_unify(ARG2, MkAtomTerm(Yap_LookupWideAtom(c+i)));
|
||||||
} else {
|
} else {
|
||||||
const char *c = RepAtom(at)->StrOfAE;
|
const char *c = RepAtom(at)->StrOfAE;
|
||||||
char *s;
|
const char *s;
|
||||||
#if HAVE_BASENAME && 0 // DISABLED: Linux basename is not compatible with file_base_name in SWI and GNU
|
#if HAVE_BASENAME && 0 // DISABLED: Linux basename is not compatible with file_base_name in SWI and GNU
|
||||||
char c1[YAP_FILENAME_MAX+1];
|
char c1[YAP_FILENAME_MAX+1];
|
||||||
strncpy( c1, c, YAP_FILENAME_MAX);
|
strncpy( c1, c, YAP_FILENAME_MAX);
|
||||||
|
Reference in New Issue
Block a user