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

bunch of fixes for YAP's own IO

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-07-22 19:33:30 -05:00
parent 91d6faabc1
commit f3b84af062
20 changed files with 191 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
os/alias.c
View File

@@ -267,8 +267,9 @@ Yap_DeleteAliases (int sno)
break; /* just put something here */
}
new_aliasp++;
} else {
} else {
LOCAL_NOfFileAliases--;
// printf("RM %p at %d/%d %d\n", new_aliasp->name, new_aliasp-LOCAL_FileAliases, new_aliasp->alias_stream, sno);
}
} else {
/* avoid holes in alias array */
@@ -279,7 +280,7 @@ Yap_DeleteAliases (int sno)
new_aliasp++;
}
aliasp++;
}
}/////
}
/* check if name is an alias */
@@ -365,10 +366,11 @@ Yap_RemoveAlias (Atom arg, int sno)
}
aliasp++;
}
//printf("RM %p at %d\n", arg, aliasp-LOCAL_FileAliases);
/* we have not found an alias neither a hole */
if (aliasp == LOCAL_FileAliases+LOCAL_SzOfFileAliases)
ExtendAliasArray();
LOCAL_NOfFileAliases++;
LOCAL_NOfFileAliases--;
aliasp->name = arg;
aliasp->alias_stream = sno;
return(TRUE);
@@ -393,6 +395,7 @@ Yap_AddAlias (Atom arg, int sno)
if (aliasp == LOCAL_FileAliases+LOCAL_SzOfFileAliases)
ExtendAliasArray();
LOCAL_NOfFileAliases++;
// printf("ADD %p at %d\n", arg, aliasp-LOCAL_FileAliases);
aliasp->name = arg;
aliasp->alias_stream = sno;
return true;