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

small fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1970 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-10-29 22:48:54 +00:00
parent 22c5632a53
commit d3bbba177f
6 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/c_interface.c
View File

@ -10,8 +10,13 @@
* File: c_interface.c *
* comments: c_interface primitives definition *
* *
* Last rev: $Date: 2007-10-28 00:54:09 $,$Author: vsc $ *
* Last rev: $Date: 2007-10-29 22:48:54 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.100 2007/10/28 00:54:09 vsc
* new version of viterbi implementation
* fix all:atvars reporting bad info
* fix bad S info in x86_64
*
* Revision 1.99 2007/10/16 18:57:17 vsc
* get rid of debug statement.
*
@ -1601,7 +1606,7 @@ YAP_Init(YAP_init_args *yap_init)
Yap_argv = yap_init->Argv;
Yap_argc = yap_init->Argc;
if (yap_init->SavedState != NULL ||
if (yap_init->SavedState != NULL &&
yap_init->YapPrologBootFile == NULL) {
if (Yap_SavedInfo (yap_init->SavedState, yap_init->YapLibDir, &Trail, &Stack, &Heap) != 1) {
yap_init->ErrorNo = Yap_Error_TYPE;

9
C/cdmgr.c
View File

@ -11,8 +11,11 @@
* File: cdmgr.c *
* comments: Code manager *
* *
* Last rev: $Date: 2007-04-10 22:13:20 $,$Author: vsc $ *
* Last rev: $Date: 2007-10-29 22:48:54 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.206 2007/04/10 22:13:20 vsc
* fix max modules limitation
*
* Revision 1.205 2007/03/26 15:18:43 vsc
* debugging and clause/3 over tabled predicates would kill YAP.
*
@ -2201,9 +2204,9 @@ p_in_this_f_before(void)
if (fp->p == p0)
break;
if (fp != ConsultBase)
return (TRUE);
return TRUE;
else
return (FALSE);
return FALSE;
}
static Int

2
C/corout.c
View File

@ -503,8 +503,6 @@ non_ground(Term t, Term *Var)
if (out >= 0)
return out;
}
extern int Yap_do_low_level_trace;
Yap_do_low_level_trace=1;
if (!Yap_ExpandPreAllocCodeSpace(0, NULL)) {
Yap_Error(OUT_OF_AUXSPACE_ERROR, ARG1, "overflow in ground");
return FALSE;

2
C/save.c
View File

@ -1428,7 +1428,7 @@ OpenRestore(char *inpf, char *YapLibDir, CELL *Astate, CELL *ATrail, CELL *AStac
{
int mode = FAIL_RESTORE;
Yap_ErrorMessage = NULL;
// Yap_ErrorMessage = NULL;
if (inpf == NULL)
inpf = StartUpFile;
#if __simplescalar__

1
pl/boot.yap
View File

@ -852,6 +852,7 @@ break :-
'$silent_bootstrap'(F) :-
'$allocate_default_arena'(1024, 64),
nb_setval('$if_level',0),
get_value('$lf_verbose',OldSilent),
set_value('$lf_verbose',silent),
bootstrap(F),

2
pl/init.yap
View File

@ -43,7 +43,6 @@ otherwise.
:- bootstrap('consult.yap').
:- [ 'utils.yap',
'arith.yap',
'directives.yap'].
@ -150,3 +149,4 @@ file_search_path(system, Dir) :-
prolog_flag(host_type, Dir).
file_search_path(foreign, yap('lib/Yap')).
:- start_low_level_trace.