check for non-heap memory
This commit is contained in:
parent
fa650a6440
commit
429c8155c9
@ -2025,7 +2025,8 @@ X_API int YAP_InitConsult(int mode, const char *filename, int *osnop) {
|
|||||||
f = fopen(full, "r");
|
f = fopen(full, "r");
|
||||||
if (!f)
|
if (!f)
|
||||||
return -1;
|
return -1;
|
||||||
else
|
else if (full != filename && full != LOCAL_FileNameBuf &&
|
||||||
|
full != LOCAL_FileNameBuf2)
|
||||||
free((char *)full);
|
free((char *)full);
|
||||||
sno = Yap_OpenStream(f, NULL, TermNil, Input_Stream_f);
|
sno = Yap_OpenStream(f, NULL, TermNil, Input_Stream_f);
|
||||||
*osnop = Yap_CheckAlias(AtomLoopStream);
|
*osnop = Yap_CheckAlias(AtomLoopStream);
|
||||||
|
Reference in New Issue
Block a user