fixes to?\012handle interrupts ^C in Windows.
Improvements to configure scripts for WIN32 configurations. --with-readline= option for configure git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@96 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
14
C/absmi.c
14
C/absmi.c
@@ -1978,9 +1978,11 @@ absmi(int inp)
|
||||
*/
|
||||
/* make sure we are here because of an awoken goal */
|
||||
if (CFREG == Unsigned(LCL0) && !(PrologMode & AbortMode)) {
|
||||
Term WGs = ReadTimedVar(WokenGoals);
|
||||
Term my_goal = AbsAppl(H);
|
||||
Term WGs;
|
||||
Term my_goal;
|
||||
|
||||
WGs = ReadTimedVar(WokenGoals);
|
||||
my_goal = AbsAppl(H);
|
||||
if (WGs != TermNil) {
|
||||
#if SHADOW_S
|
||||
/* save S for ModuleName() */
|
||||
@@ -2049,6 +2051,13 @@ absmi(int inp)
|
||||
}
|
||||
else {
|
||||
#endif
|
||||
if (PrologMode & AbortMode) {
|
||||
PrologMode &= ~AbortMode;
|
||||
CFREG = CalculateStackGap();
|
||||
/* same instruction */
|
||||
if (ProcessSIGINT() < 0) Abort("");
|
||||
JMPNext();
|
||||
}
|
||||
#if SHADOW_S
|
||||
S = SREG;
|
||||
#endif
|
||||
@@ -2100,7 +2109,6 @@ absmi(int inp)
|
||||
H += 2;
|
||||
CFREG = CalculateStackGap();
|
||||
SREG = (CELL *) (Unsigned(CreepCode) - sizeof(SMALLUNSGN));
|
||||
|
||||
#ifdef COROUTINING
|
||||
}
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user