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

MALLOC

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-09-23 01:37:36 -05:00
parent 298b287859
commit bee39cb385
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/dialect/swi/fli/swi.c
View File

@ -209,6 +209,10 @@ X_API int PL_get_nchars(term_t l, size_t *lengthp, char **s, unsigned flags) {
} else { } else {
out.enc = ENC_ISO_LATIN1; out.enc = ENC_ISO_LATIN1;
} }
if (flags & BUF_MALLOC) {
out.type |= YAP_STRING_MALLOC;
}
if (lengthp) { if (lengthp) {
out.type |= YAP_STRING_NCHARS; out.type |= YAP_STRING_NCHARS;
out.max = *lengthp; out.max = *lengthp;
@ -232,9 +236,6 @@ int PL_get_wchars(term_t l, size_t *lengthp, wchar_t **s, unsigned flags) {
out.type = YAP_STRING_WCHARS; out.type = YAP_STRING_WCHARS;
if (flags & BUF_MALLOC) { if (flags & BUF_MALLOC) {
out.type |= YAP_STRING_MALLOC; out.type |= YAP_STRING_MALLOC;
out.val.w = *s;
} else {
out.val.w = NULL;
} }
if (lengthp) { if (lengthp) {
out.type |= YAP_STRING_NCHARS; out.type |= YAP_STRING_NCHARS;