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

support trace

Browse Source 
fix for ^c in readline


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@133 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-08-08 21:17:27 +00:00
parent 5d57058e8e
commit 8fd1bc92f3
16 changed files with 6442 additions and 2652 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
C/cdmgr.c
View File

@@ -2161,6 +2161,22 @@ p_clean_up_dead_clauses(void)
return(TRUE);
}
static Int /* $parent_pred(Module, Name, Arity) */
p_parent_pred(void)
{
Atom at;
Int arity;
SMALLUNSGN module;
if (!PredForCode((CODEADDR)CP, &at, &arity, &module)) {
return(unify(ARG1, MkIntTerm(0)) &&
unify(ARG2, MkAtomTerm(AtomMetaCall)) &&
unify(ARG3, MkIntTerm(0)));
}
return(unify(ARG1, MkIntTerm(module)) &&
unify(ARG2, MkAtomTerm(at)) &&
unify(ARG3, MkIntTerm(arity)));
}
void
InitCdMgr(void)
{
@@ -2197,4 +2213,5 @@ InitCdMgr(void)
InitCPred("$search_for_static_predicates_in_use", 1, p_search_for_static_predicate_in_use, TestPredFlag|SafePredFlag|SyncPredFlag);
InitCPred("$toggle_static_predicates_in_use", 0, p_toggle_static_predicates_in_use, SafePredFlag|SyncPredFlag);
InitCPred("$set_pred_module", 2, p_set_pred_module, SafePredFlag);
InitCPred("$parent_pred", 3, p_parent_pred, SafePredFlag);
}