fix bad testing of choice-point in throw (tabling bug?)

2009-12-12 23:22:10 +00:00 · 2009-12-12 23:22:10 +00:00 · 48861db34e
parent 0b17d3572b
commit 48861db34e
3 changed files with 5 additions and 3 deletions
--- a/C/exec.c
+++ b/C/exec.c
@ -1483,7 +1483,9 @@ JumpToEnv(Term t) {
 	previous = handler;
 #ifdef TABLING
      } else {
-	abolish_incomplete_subgoals(handler);
+	if (handler->cp_ap != NOCODE) {
+	  abolish_incomplete_subgoals(handler);
+	}
 #endif /* TABLING */
      }
      /* we reached C-Code */
--- a/packages/chr
+++ b/packages/chr
@ -1 +1 @@
-Subproject commit f6a79007615bf46dc79712c41d61289834f28ba3
+Subproject commit c325e4564bb8d4e32c27f2061df85f13d315974e
--- a/packages/jpl
+++ b/packages/jpl
@ -1 +1 @@
-Subproject commit eb6d27251c2548c25e6d37fff2a27a014caaa7aa
+Subproject commit a2d2f03107eecd45462cd61a678035132cf06326