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

Avoid complaining from strlen

Browse Source 
`
This commit is contained in:
Vítor Santos Costa
2015-09-21 17:05:36 -05:00
parent 880a9989c3
commit 4336b2ba88
469 changed files with 207364 additions and 9193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/c_interface.c
View File

@@ -793,7 +793,7 @@ YAP_LookupAtom(const char *c)
Atom a;
while (TRUE) {
a = Yap_LookupAtom((char *)c);
a = Yap_LookupAtom(c);
if (a == NIL || Yap_get_signal(YAP_CDOVF_SIGNAL)) {
if (!Yap_locked_growheap(FALSE, 0, NULL)) {
Yap_Error(OUT_OF_HEAP_ERROR, TermNil, "YAP failed to grow heap: %s", LOCAL_ErrorMessage);
@@ -831,7 +831,7 @@ YAP_FullLookupAtom(const char *c)
Atom at;
while (TRUE) {
at = Yap_FullLookupAtom((char *)c);
at = Yap_FullLookupAtom(c);
if (at == NIL || Yap_get_signal(YAP_CDOVF_SIGNAL)) {
if (!Yap_locked_growheap(FALSE, 0, NULL)) {
Yap_Error(OUT_OF_HEAP_ERROR, TermNil, "YAP failed to grow heap: %s", LOCAL_ErrorMessage);
@@ -854,9 +854,9 @@ YAP_AtomNameLength(Atom at)
return wcslen(c);
} else {
char *c = RepAtom(at)->StrOfAE;
unsigned char *c = RepAtom(at)->UStrOfAE;
return strlen(c);
return strlen((char *)c);
}
}