diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix restoring preds for module: there may be none!

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@613 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-02 17:07:45 +00:00
parent f57c2a1c19
commit fe129bcd9e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
H/rheap.h
View File

@ -180,9 +180,11 @@ 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]);
if (heap_regs->module_pred[i]) {
heap_regs->module_pred[i] = PtoPredAdjust(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);
heap_regs->atom_append = AtomAdjust(heap_regs->atom_append); heap_regs->atom_append = AtomAdjust(heap_regs->atom_append);
heap_regs->atom_array = AtomAdjust(heap_regs->atom_array); heap_regs->atom_array = AtomAdjust(heap_regs->atom_array);