fix shared object stuff (obs from Roberto Bagnara).

This commit is contained in:
Vítor Santos Costa 2010-11-22 18:07:01 +00:00
parent 80b2253de1
commit a2286354c8
1 changed files with 2 additions and 1 deletions

View File

@ -261,7 +261,8 @@ Yap_ReOpenLoadForeign(void)
while (f_code != NULL) {
CurrentModule = f_code->module;
if(Yap_ReLoadForeign(f_code->objs,f_code->libs,f_code->f,&InitProc)==LOAD_SUCCEEDED) {
(*InitProc)();
if (InitProc)
(*InitProc)();
}
f_code = f_code->next;
}