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

fix ^c abort for PCs: registers were not being reset properly.

Browse Source 
fix error message in abort.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@628 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-08 14:32:42 +00:00
parent bfbc9c9dfc
commit 935665ec92
4 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/exec.c
View File

@ -1659,6 +1659,9 @@ JumpToEnv(Term t) {
/* uncaught throw */
if (B == NULL) {
B = B0;
#if PUSH_REGS
restore_absmi_regs(&standard_regs);
#endif
siglongjmp(RestartEnv,1);
}
/* is it a continuation? */

9
C/sysbits.c
View File

@ -30,13 +30,9 @@ static char SccsId[] = "%W% %G%";
#if _MSC_VER || defined(__MINGW32__)
#define _WIN32_WINNT 0x0400
#endif
#include "Yap.h"
#include "absmi.h"
#include "yapio.h"
#include "eval.h"
#include "Yatom.h"
#include "Heap.h"
#include "alloc.h"
#include "tracer.h"
#include <math.h>
#if STDC_HEADERS
#include <stdlib.h>
@ -1089,6 +1085,9 @@ InteractSIGINT(int ch) {
#if _MSC_VER || defined(__MINGW32__)
/* don't even think about trying this */
#else
#if PUSH_REGS
restore_absmi_regs(&standard_regs);
#endif
siglongjmp (RestartEnv, 1);
#endif
}

1
console/yap.c
View File

@ -489,6 +489,7 @@ exec_top_level(int BootMode, char *filename)
livegoal = YAP_FullLookupAtom("$live");
atomfalse = YAP_MkAtomTerm (YAP_LookupAtom("false"));
while (YAP_GetValue (livegoal) != atomfalse) {
YAP_Reset();
do_top_goal (YAP_MkAtomTerm (livegoal));
}
YAP_Exit(EXIT_SUCCESS);

4
pl/errors.yap
View File

@ -35,7 +35,7 @@
fail.
'$process_error'(abort) :- !,
'$format'(user_error,'[ Execution Aborted ]~n').
'$format'(user_error,"[ Execution Aborted ]~n",[]).
'$process_error'(error(Msg, Where)) :- !,
'$set_fpu_exceptions',
'$print_message'(error,error(Msg, Where)).
@ -180,6 +180,8 @@ print_message(Level, Mss) :-
'$preprocess_stack'(Gs, NGs).
'$beautify_hidden_goal'('$consult',1,prolog,ClNo,Gs,NGs) :- !,
'$preprocess_stack'(Gs, NGs).
'$beautify_hidden_goal'('$reconsult',1,prolog,ClNo,Gs,NGs) :- !,
'$preprocess_stack'(Gs, NGs).
'$beautify_hidden_goal'('$undefp',1,prolog,ClNo,Gs,NGs) :- !,
'$preprocess_stack'(Gs, NGs).
'$beautify_hidden_goal'('$consult',2,prolog,ClNo,Gs,[cl(consult,1,prolog,ClNo)|NGs]) :- !,