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

fix restore foreign functions

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-12-07 18:21:10 +00:00
parent 1bbded5ef7
commit e7f5c50707
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/load_foreign.c
View File

@ -242,9 +242,10 @@ Yap_ReOpenLoadForeign(void)
{ {
ForeignObj *f_code = ForeignCodeLoaded; ForeignObj *f_code = ForeignCodeLoaded;
Term OldModule = CurrentModule; Term OldModule = CurrentModule;
YapInitProc InitProc = NULL;
while (f_code != NULL) { while (f_code != NULL) {
YapInitProc InitProc = NULL;
CurrentModule = f_code->module; CurrentModule = f_code->module;
if(Yap_ReLoadForeign(f_code->objs,f_code->libs,f_code->f,&InitProc)==LOAD_SUCCEEDED) { if(Yap_ReLoadForeign(f_code->objs,f_code->libs,f_code->f,&InitProc)==LOAD_SUCCEEDED) {
if (InitProc) if (InitProc)