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

more c-c fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@359 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-12 21:40:36 +00:00
parent 777817f8db
commit 401ad9c9fc
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/iopreds.c
View File

@ -926,6 +926,7 @@ ReadlineGetc(int sno)
ProcessSIGINT();
PrologMode &= ~ConsoleGetcMode;
if (PrologMode & AbortMode) {
Error(PURE_ABORT, TermNil, "");
ErrorMessage = "Abort";
return(console_post_process_read_char(EOF, s, sno));
}
@ -1301,6 +1302,7 @@ ConsoleGetc(int sno)
PrologMode &= ~ConsoleGetcMode;
newline = TRUE;
if (PrologMode & AbortMode) {
Error(PURE_ABORT, TermNil, "");
ErrorMessage = "Abort";
return(console_post_process_read_char(EOF, s, sno));
}

2
C/sysbits.c
View File

@ -1072,7 +1072,6 @@ InteractSIGINT(int ch) {
if (PrologMode & ConsoleGetcMode) {
PrologMode |= AbortMode;
} else {
getc(stdin);
Error(PURE_ABORT, TermNil, "");
/* in case someone mangles the P register */
#if _MSC_VER || defined(__MINGW32__)
@ -1235,6 +1234,7 @@ HandleSIGINT (int sig)
#if HAVE_LIBREADLINE
if (PrologMode & ConsoleGetcMode) {
fprintf(stderr, "Action (h for help): ");
rl_point = rl_end = 0;
#if HAVE_RL_SET_PROMPT
rl_set_prompt("Action (h for help): ");
#endif