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

more fixes for catch and throw

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@340 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-30 02:20:44 +00:00
parent d7109e6974
commit af7cb4cd93
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/errors.c
View File

@ -207,7 +207,8 @@ exit_yap (int value, char *msg)
exit(value); exit(value);
} }
static void detect_bug_location(char *tp, int psize) static void
detect_bug_location(char *tp, int psize)
{ {
Atom pred_name; Atom pred_name;
Int pred_arity; Int pred_arity;

2
C/exec.c
View File

@ -1315,6 +1315,6 @@ InitExecFs(void)
InitCPred("$restore_regs", 1, p_restore_regs, SafePredFlag); InitCPred("$restore_regs", 1, p_restore_regs, SafePredFlag);
InitCPred("$restore_regs", 2, p_restore_regs2, SafePredFlag); InitCPred("$restore_regs", 2, p_restore_regs2, SafePredFlag);
InitCPred("$clean_ifcp", 1, p_clean_ifcp, SafePredFlag); InitCPred("$clean_ifcp", 1, p_clean_ifcp, SafePredFlag);
InitCPred("$jump_env_and_store_ball", 1, p_jump_env, SafePredFlag); InitCPred("$jump_env_and_store_ball", 1, p_jump_env, 0);
} }

1
pl/boot.yap
View File

@ -1188,7 +1188,6 @@ throw(Ball) :-
'$jump_env_and_store_ball'(NewBall). '$jump_env_and_store_ball'(NewBall).
% just create a choice-point % just create a choice-point
'$catch'(_,_,_). '$catch'(_,_,_).
'$catch'(_,_,_) :- fail. '$catch'(_,_,_) :- fail.