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

temporary allocation protocol

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-02-20 14:39:30 +00:00
parent cd776f4f70
commit 9e6e236ee1
1 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
C/atomic.c
View File

@ -68,22 +68,6 @@ static Int hide_atom(USES_REGS1);
static Int hidden_atom(USES_REGS1); static Int hidden_atom(USES_REGS1);
static Int unhide_atom(USES_REGS1); static Int unhide_atom(USES_REGS1);
#define ReleaseAndReturn(r) \
{ \
pop_text_stack(l); \
return r; \
}
#define release_cut_fail() \
{ \
pop_text_stack(l); \
cut_fail(); \
}
#define release_cut_succeed() \
{ \
pop_text_stack(l); \
cut_succeed(); \
}
static int AlreadyHidden(unsigned char *name) { static int AlreadyHidden(unsigned char *name) {
AtomEntry *chain; AtomEntry *chain;
@ -2014,11 +1998,18 @@ static Int sub_atomic(bool sub_atom, bool sub_string USES_REGS) {
p = UStringOfTerm(tat1); p = UStringOfTerm(tat1);
sz = strlen_utf8(p); sz = strlen_utf8(p);
} else { } else {
Yap_Error(TYPE_ERROR_STRING, tat1, "sub_atom/5"); Yap_Error(TYPE_ERROR_STRING, tat1, "sub_string/5");
ReleaseAndReturn(false); ReleaseAndReturn(false);
} }
} else {
if ((p = Yap_TextToUTF8Buffer(tat1 PASS_REGS))) {
sz = strlen_utf8(p);
} else {
ReleaseAndReturn(false)
}
} }
} else { } else {
Yap_Error(INSTANTIATION_ERROR, tat1, "sub_atom/5: first variable\n"); Yap_Error(INSTANTIATION_ERROR, tat1, "sub_atom/5: first variable\n");
ReleaseAndReturn(false); ReleaseAndReturn(false);
} }