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

small fixes

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-02-15 19:24:15 +00:00
parent b9a7cce232
commit 49f980a7a7
6 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/save.c
View File

@ -60,6 +60,8 @@ static char StartUpFile[] = "startup.yss";
static char end_msg[256] ="*** End of YAP saved state *****";
/* SWI IO, must be restarted after restore */
void initIO(void);
#ifdef DEBUG

2
C/write.c
View File

@ -422,7 +422,7 @@ putAtom(Atom atom, int Quote_illegal, wrf writewch) /* writes an atom */
}
#endif
if (IsBlob(atom)) {
wrputref(RepAtom(atom),1,writewch);
wrputref((CODEADDR)RepAtom(atom),1,writewch);
return;
}
if (IsWideAtom(atom)) {

2
packages/PLStream/pl-file.c
View File

@ -3687,7 +3687,7 @@ stream_close_on_exec_prop(IOSTREAM *s, term_t prop ARG_LD)
typedef struct
{ functor_t functor; /* functor of property */
int (*function)(); /* function to generate */
int (*function)(); /* function to generate */
} sprop;

4
packages/PLStream/pl-incl.h
View File

@ -1064,6 +1064,8 @@ PL_EXPORT(int) PL_get_file_nameW(term_t n, wchar_t **name, int flags);
COMMON(int) unifyTime(term_t t, time_t time);
COMMON(char) digitName(int n, int small);
/**** stuff from pl-utf8.c ****/
size_t utf8_strlen(const char *s, size_t len);
@ -1100,6 +1102,8 @@ COMMON(int) numberVars(term_t t, nv_options *opts, int n ARG_LD);
COMMON(Buffer) codes_or_chars_to_buffer(term_t l, unsigned int flags,
int wide, CVT_result *status);
COMMON(int) uflagsW(int code);
static inline word
setBoolean(int *flag, term_t old, term_t new)
{ if ( !PL_unify_bool_ex(old, *flag) ||

2
packages/PLStream/pl-read.c
View File

@ -15,6 +15,8 @@ init_read_data(ReadData _PL_rd, IOSTREAM *in ARG_LD)
{
_PL_rd->varnames = 0;
_PL_rd->stream = in;
_PL_rd->has_exception = 0;
_PL_rd->exception = 0;
}
static void

3
packages/PLStream/pl-yap.h
View File

@ -31,8 +31,9 @@ typedef YAP_Term (*Func)(term_t); /* foreign functions */
extern const char *Yap_GetCurrentPredName(void);
extern YAP_Int Yap_GetCurrentPredArity(void);
extern int Yap_read_term(term_t t, IOSTREAM *st, term_t *vs);
extern int Yap_read_term(term_t t, IOSTREAM *st, term_t vs);
extern int Yap_LookupSWIStream(void *swi_s);
extern term_t Yap_fetch_module_for_format(term_t args, YAP_Term *modp);
extern atom_t codeToAtom(int chrcode);