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

31
C/exec.c
View File

@@ -200,6 +200,16 @@ CallMetaCall(void) {
return (FastCallProlog(PredMetaCall));
}
inline static Int
EnterCreepMode(PredEntry *pen) {
Atom a = NameOfFunctor(FunctorSpy);
PredEntry *PredSpy = RepPredProp(PredProp(a,1));
ARG1 = MkPairTerm(Module_Name((CODEADDR)(pen)),ARG1);
CreepFlag = CalculateStackGap();
WRITE_LOCK(PredSpy->PRWLock);
return (FastCallProlog(PredSpy));
}
static Int
p_execute(void)
{ /* '$execute'(Goal) */
@@ -209,10 +219,6 @@ p_execute(void)
Atom a;
restart_exec:
if (yap_flags[SPY_CREEP_FLAG]) {
a = NameOfFunctor(FunctorSpiedMetaCall);
return (CallProlog(RepPredProp(PredProp(a,1)), 1, (Int) (-1)));
}
if (PredGoalExpansion->OpcodeOfPred != UNDEF_OPCODE) {
return(CallMetaCall());
} else if (IsVarTerm(t)) {
@@ -268,6 +274,9 @@ p_execute(void)
if (pen->PredFlags & MetaPredFlag) {
return(CallMetaCall());
}
if (yap_flags[SPY_CREEP_FLAG]) {
return(EnterCreepMode(pen));
}
/* now let us do what we wanted to do from the beginning !! */
/* I cannot use the standard macro here because
otherwise I would dereference the argument and
@@ -312,6 +321,9 @@ p_execute(void)
return(CallMetaCall());
}
}
if (yap_flags[SPY_CREEP_FLAG]) {
return(EnterCreepMode(RepPredProp(pe)));
}
return (CallProlog(RepPredProp(pe), arity, (Int) (-1)));
} else {
/* Is Pair Term */
@@ -336,10 +348,6 @@ p_execute_within(void)
Atom a;
restart_exec:
if (yap_flags[SPY_CREEP_FLAG]) {
a = NameOfFunctor(FunctorSpiedMetaCall);
return (CallProlog(RepPredProp(PredProp(a,1)), 1, (Int) (-1)));
}
if (PredGoalExpansion->OpcodeOfPred != UNDEF_OPCODE) {
return(CallMetaCallWithin());
} else if (IsVarTerm(t)) {
@@ -395,6 +403,10 @@ p_execute_within(void)
if (pen->PredFlags & MetaPredFlag) {
return(CallMetaCallWithin());
}
/* at this point check if we should enter creep mode */
if (yap_flags[SPY_CREEP_FLAG]) {
return(EnterCreepMode(pen));
}
/* now let us do what we wanted to do from the beginning !! */
/* I cannot use the standard macro here because
otherwise I would dereference the argument and
@@ -463,6 +475,9 @@ p_execute_within(void)
return(CallMetaCallWithin());
}
}
if (yap_flags[SPY_CREEP_FLAG]) {
return(EnterCreepMode(RepPredProp(pe)));
}
return (CallProlog(RepPredProp(pe), arity, (Int) (-1)));
} else {
/* Is Pair Term */