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

compile without gmp

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-12-16 15:35:34 +00:00
parent 51535a86ce
commit 52b863eab4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/text.c
View File

@ -438,6 +438,7 @@ read_Text( void *buf, seq_tv_t *inp, encoding_t *enc, int *minimal, size_t *leng
*lengp = strlen(s); *lengp = strlen(s);
*enc = YAP_CHAR; *enc = YAP_CHAR;
return s; return s;
#if USE_GMP
case YAP_STRING_BIG: case YAP_STRING_BIG:
if (buf) s = buf; if (buf) s = buf;
else s = Yap_PreAllocCodeSpace(); else s = Yap_PreAllocCodeSpace();
@ -447,6 +448,7 @@ read_Text( void *buf, seq_tv_t *inp, encoding_t *enc, int *minimal, size_t *leng
*enc = YAP_CHAR; *enc = YAP_CHAR;
*lengp = strlen(s); *lengp = strlen(s);
return s; return s;
#endif
case YAP_STRING_CHARS: case YAP_STRING_CHARS:
*enc = YAP_CHAR; *enc = YAP_CHAR;
if (inp->sz) if (inp->sz)
@ -535,6 +537,7 @@ read_Text( void *buf, seq_tv_t *inp, encoding_t *enc, int *minimal, size_t *leng
LOCAL_Error_TYPE = gen_type_error( inp->type ); LOCAL_Error_TYPE = gen_type_error( inp->type );
LOCAL_Error_Term = t; LOCAL_Error_Term = t;
} }
#if USE_GMP
} else if (IsBigIntTerm(t)) { } else if (IsBigIntTerm(t)) {
if (inp->type & (YAP_STRING_BIG)) { if (inp->type & (YAP_STRING_BIG)) {
inp->type &= (YAP_STRING_BIG); inp->type &= (YAP_STRING_BIG);
@ -544,6 +547,7 @@ read_Text( void *buf, seq_tv_t *inp, encoding_t *enc, int *minimal, size_t *leng
LOCAL_Error_TYPE = gen_type_error( inp->type ); LOCAL_Error_TYPE = gen_type_error( inp->type );
LOCAL_Error_Term = t; LOCAL_Error_Term = t;
} }
#endif
} else { } else {
if (!Yap_IsGroundTerm(t)) { if (!Yap_IsGroundTerm(t)) {
LOCAL_Error_TYPE = INSTANTIATION_ERROR; LOCAL_Error_TYPE = INSTANTIATION_ERROR;