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

fix sspurious stack error

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-12-16 02:48:07 -06:00
parent 117584e817
commit f98dfa6994
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/real/real.c
View File

@ -1,4 +1,5 @@
#define CSTACK_DEFNS
#include "rconfig.h" #include "rconfig.h"
#if HAVE_R_H || !defined(_YAP_NOT_INSTALLED_) #if HAVE_R_H || !defined(_YAP_NOT_INSTALLED_)
#include <SWI-Prolog.h> #include <SWI-Prolog.h>
@ -455,7 +456,7 @@ REAL_term_type( term_t t , int context)
static int static int
merge_dots( term_t t ) merge_dots( term_t t )
{ char so[1025], *ns; { char so[1025], *ns = so;
int loop=TRUE, first = TRUE, arity; int loop=TRUE, first = TRUE, arity;
term_t tmp = PL_new_term_ref(); term_t tmp = PL_new_term_ref();
atom_t name; atom_t name;
@ -472,7 +473,7 @@ merge_dots( term_t t )
} }
if ( PL_get_chars(tmp, &ns, CVT_ATOM|CVT_STRING|BUF_DISCARDABLE|REP_UTF8) ) { if ( PL_get_chars(tmp, &ns, CVT_ATOM|CVT_STRING|BUF_DISCARDABLE|REP_UTF8) ) {
strncat( so, ns, 1024-strlen(so)-1); ns += strlen(ns);
if (!loop) { if (!loop) {
atom_t at = PL_new_atom( so ); atom_t at = PL_new_atom( so );
return PL_put_atom(t, at); return PL_put_atom(t, at);
@ -2038,6 +2039,7 @@ init_R(void)
R_SignalHandlers=0; R_SignalHandlers=0;
#endif #endif
Rf_initEmbeddedR(argc, argv); Rf_initEmbeddedR(argc, argv);
R_CStackLimit = -1;
return TRUE; return TRUE;
} }