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

fix debugger messages

Browse Source 
debug imported mnodules
fix yap2swi in win32
fixes for solaris


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@505 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-06-01 01:46:06 +00:00
parent 577298ac0b
commit 1ec4c2acaf
10 changed files with 183 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
library/yap2swi/yap2swi.c
View File

@@ -185,6 +185,11 @@ buf_writer(int c)
*bf++ = c;
}
#if !HAVE_SNPRINTF
#define snprintf(X,Y,Z,A) sprintf(X,Z,A)
#endif
X_API int PL_get_chars(term_t l, char **sp, unsigned flags)
{
Term t = YapGetFromSlot(l);
@@ -937,12 +942,12 @@ PL_exception(qid_t q)
}
X_API int
PL_initialise(int argc, char **argv, char **environ)
PL_initialise(int myargc, char **myargv, char **myenviron)
{
yap_init_args init_args;
init_args.Argv = argv;
init_args.Argc = argc;
init_args.Argv = myargv;
init_args.Argc = myargc;
init_args.SavedState = "startup";
init_args.HeapSize = 0;
init_args.StackSize = 0;
@@ -1102,7 +1107,7 @@ X_API int Sprintf(char *format,...)
int WINAPI PROTO(win_yap2swi, (HANDLE, DWORD, LPVOID));
int WINAPI win_sys(HANDLE hinst, DWORD reason, LPVOID reserved)
int WINAPI win_yap2swi(HANDLE hinst, DWORD reason, LPVOID reserved)
{
switch (reason)
{

4
library/yap2swi/yap2swi.h
View File

@@ -160,7 +160,7 @@ extern X_API int PL_is_variable(term_t);
extern X_API int PL_term_type(term_t);
/* end PL_is_* functions =============================*/
extern X_API void PL_halt(int);
extern X_API int PL_initialise(int, char **, char **);
extern X_API int PL_initialise(int, char **, char **);
extern X_API void PL_close_foreign_frame(fid_t);
extern X_API void PL_discard_foreign_frame(fid_t);
extern X_API fid_t PL_open_foreign_frame(void);
@@ -176,7 +176,7 @@ extern X_API void PL_close_query(qid_t);
extern X_API term_t PL_exception(qid_t);
extern X_API int PL_call_predicate(module_t, int, predicate_t, term_t);
extern X_API int PL_call(term_t, module_t);
extern X_API void PL_register_extensions(PL_extension *e);
extern X_API void PL_register_extensions(PL_extension *);
extern X_API int Sprintf(char *,...);