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:
Vitor Santos Costa 2011-07-22 21:35:18 +01:00
parent 69e5fed10f
commit a701f08180
3 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/c_interface.c
View File

@ -544,13 +544,6 @@ X_API int STD_PROTO(YAP_NewOpaqueType,(void *));
X_API Term STD_PROTO(YAP_NewOpaqueObject,(int, size_t)); X_API Term STD_PROTO(YAP_NewOpaqueObject,(int, size_t));
X_API void *STD_PROTO(YAP_OpaqueObjectFromTerm,(Term)); X_API void *STD_PROTO(YAP_OpaqueObjectFromTerm,(Term));
static int (*do_putcf)(wchar_t);
static int do_yap_putc(int streamno,wchar_t ch) {
do_putcf(ch);
return(ch);
}
static int static int
dogc(void) dogc(void)
{ {
@ -2435,7 +2428,6 @@ YAP_RestartGoal(void)
BACKUP_MACHINE_REGS(); BACKUP_MACHINE_REGS();
if (LOCAL_AllowRestart) { if (LOCAL_AllowRestart) {
P = (yamop *)FAILCODE; P = (yamop *)FAILCODE;
do_putcf = myputc;
LOCAL_PrologMode = UserMode; LOCAL_PrologMode = UserMode;
out = Yap_exec_absmi(TRUE); out = Yap_exec_absmi(TRUE);
LOCAL_PrologMode = UserCCallMode; LOCAL_PrologMode = UserCCallMode;
@ -2659,7 +2651,6 @@ YAP_Write(Term t, IOSTREAM *stream, int flags)
{ {
BACKUP_MACHINE_REGS(); BACKUP_MACHINE_REGS();
do_putcf = myputc; /* */
Yap_dowrite (t, stream, flags, 1200); Yap_dowrite (t, stream, flags, 1200);
RECOVER_MACHINE_REGS(); RECOVER_MACHINE_REGS();

7
configure vendored
View File

@ -9927,6 +9927,9 @@ mkdir -p packages/clib/maildrop
mkdir -p packages/clib/maildrop/rfc822 mkdir -p packages/clib/maildrop/rfc822
mkdir -p packages/clib/maildrop/rfc2045 mkdir -p packages/clib/maildrop/rfc2045
mkdir -p packages/CLPBN mkdir -p packages/CLPBN
mkdir -p packages/CLPBN/clpbn
mkdir -p packages/CLPBN/clpbn/bp
mkdir -p packages/CLPBN/clpbn/bp/xmlParser
mkdir -p packages/clpqr mkdir -p packages/clpqr
mkdir -p packages/cplint mkdir -p packages/cplint
mkdir -p packages/cplint/approx mkdir -p packages/cplint/approx
@ -10619,8 +10622,8 @@ esac
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
# Files that config.status was made for. # Files that config.status was made for.
config_files="`echo $ac_config_files`" config_files="$ac_config_files"
config_headers="`echo $ac_config_headers`" config_headers="$ac_config_headers"
_ACEOF _ACEOF

3
configure.in
View File

@ -2103,6 +2103,9 @@ mkdir -p packages/clib/maildrop
mkdir -p packages/clib/maildrop/rfc822 mkdir -p packages/clib/maildrop/rfc822
mkdir -p packages/clib/maildrop/rfc2045 mkdir -p packages/clib/maildrop/rfc2045
mkdir -p packages/CLPBN mkdir -p packages/CLPBN
mkdir -p packages/CLPBN/clpbn
mkdir -p packages/CLPBN/clpbn/bp
mkdir -p packages/CLPBN/clpbn/bp/xmlParser
mkdir -p packages/clpqr mkdir -p packages/clpqr
mkdir -p packages/cplint mkdir -p packages/cplint
mkdir -p packages/cplint/approx mkdir -p packages/cplint/approx