fix restoring preds for module: there may be none!
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@613 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f57c2a1c19
commit
fe129bcd9e
@ -180,7 +180,9 @@ restore_codes(void)
|
|||||||
|
|
||||||
for (i = 0; i < heap_regs->no_of_modules; i++) {
|
for (i = 0; i < heap_regs->no_of_modules; i++) {
|
||||||
heap_regs->module_name[i] = AtomTermAdjust(heap_regs->module_name[i]);
|
heap_regs->module_name[i] = AtomTermAdjust(heap_regs->module_name[i]);
|
||||||
heap_regs->module_pred[i] = PtoPredAdjust(heap_regs->module_pred[i]);
|
if (heap_regs->module_pred[i]) {
|
||||||
|
heap_regs->module_pred[i] = PtoPredAdjust(heap_regs->module_pred[i]);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
heap_regs->atom_abol = AtomAdjust(heap_regs->atom_abol);
|
heap_regs->atom_abol = AtomAdjust(heap_regs->atom_abol);
|
||||||
|
Reference in New Issue
Block a user