fix qsave_module
This commit is contained in:
parent
52cf634e33
commit
e4306ba28e
2
C/qlyr.c
2
C/qlyr.c
@ -193,7 +193,7 @@ InsertPredEntry(PredEntry *op, PredEntry *pe)
|
|||||||
import_pred_entry_hash_entry_t *p;
|
import_pred_entry_hash_entry_t *p;
|
||||||
|
|
||||||
if (LOCAL_ImportPredEntryHashTableSize == 0)
|
if (LOCAL_ImportPredEntryHashTableSize == 0)
|
||||||
return NULL;
|
return;
|
||||||
hash = (CELL)(op) % LOCAL_ImportPredEntryHashTableSize;
|
hash = (CELL)(op) % LOCAL_ImportPredEntryHashTableSize;
|
||||||
p = LOCAL_ImportPredEntryHashChain[hash];
|
p = LOCAL_ImportPredEntryHashChain[hash];
|
||||||
while (p) {
|
while (p) {
|
||||||
|
1
C/qlyw.c
1
C/qlyw.c
@ -922,7 +922,6 @@ p_save_module_preds( USES_REGS1 )
|
|||||||
Yap_Error(TYPE_ERROR_ATOM,tmod,"save_module/2");
|
Yap_Error(TYPE_ERROR_ATOM,tmod,"save_module/2");
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
save_header( stream );
|
|
||||||
return save_module(stream, tmod) != 0;
|
return save_module(stream, tmod) != 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user