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

fix loop in c_files (obs from roberto bagnara).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-11-22 10:36:32 +00:00
parent 1730d4e206
commit 92bfc4cedc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/load_foreign.c
View File

@ -135,7 +135,7 @@ p_open_shared_object(void) {
} }
ofiles = (StringList) Yap_AllocCodeSpace(sizeof(StringListItem)); ofiles = (StringList) Yap_AllocCodeSpace(sizeof(StringListItem));
ofiles->next = ofiles; ofiles->next = NULL;
ofiles->s = RepAtom(AtomOfTerm(t))->StrOfAE; ofiles->s = RepAtom(AtomOfTerm(t))->StrOfAE;
if ((ptr = Yap_LoadForeignFile(ofiles->s, IntOfTerm(tflags)))==NULL) { if ((ptr = Yap_LoadForeignFile(ofiles->s, IntOfTerm(tflags)))==NULL) {
return FALSE; return FALSE;
@ -179,7 +179,7 @@ p_close_shared_object(void) {
if (f0) { if (f0) {
f0->next = f->next; f0->next = f->next;
} else { } else {
ForeignCodeLoaded->next = f->next; ForeignCodeLoaded = f->next;
} }
handle = f->objs->handle; handle = f->objs->handle;
Yap_FreeCodeSpace((ADDR)f->objs); Yap_FreeCodeSpace((ADDR)f->objs);