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:
vsc
2001-06-22 17:53:36 +00:00
parent c3e7f600d5
commit f22f7434c7
25 changed files with 1070 additions and 769 deletions

View File

@@ -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