fix global variables

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1962 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-10-18 08:24:16 +00:00
parent d316ddeb2a
commit c625347697
8 changed files with 84 additions and 18 deletions

View File

@@ -1314,7 +1314,7 @@ InteractSIGINT(int ch) {
switch (ch) {
case 'a':
/* abort computation */
if (Yap_PrologMode & ConsoleGetcMode) {
if (Yap_PrologMode & (GCMode|ConsoleGetcMode|GrowStackMode|GrowHeapMode)) {
Yap_PrologMode |= AbortMode;
} else {
Yap_Error(PURE_ABORT, TermNil, "");