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");
|
||||
if (!f)
|
||||
return -1;
|
||||
else
|
||||
else if (full != filename && full != LOCAL_FileNameBuf &&
|
||||
full != LOCAL_FileNameBuf2)
|
||||
free((char *)full);
|
||||
sno = Yap_OpenStream(f, NULL, TermNil, Input_Stream_f);
|
||||
*osnop = Yap_CheckAlias(AtomLoopStream);
|
||||
|
Reference in New Issue
Block a user