^C was very broken: break was not accepted, and debug,

trace and statistics did not work at all.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1448 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/sysbits.c

@@ -1254,6 +1254,10 @@ InteractSIGINT(int ch) {
 #endif
     }
     return -1;
+  case 'b':
+    /* continue */
+    Yap_signal (YAP_BREAK_SIGNAL);
+    return 1;
   case 'c':
     /* continue */
     return 1;

changes-5.1.html

@@ -16,6 +16,8 @@
 
 <h2>Yap-5.1.0:</h2>
 <ul>
+<li> FIXED: ^C was very broken: break was not accepted, and debug,
+trace and statistics did not work at all. </li>
 <li> FIXED: format_has_tabs could miss tab signs. </li>
 <li> FIXED: plug holes in memory allocation from scanner. </li>
 <li> FIXED: instrument memory allocation use use_malloc. </li>

pl/signals.yap

@@ -49,29 +49,26 @@
 	'$continue_signals',
 	'$current_module'(M0),
 	'$execute0'(G,M0).
-'$do_signal'(sig_trace, G) :-
+'$do_signal'(sig_trace, [M|G]) :-
 	'$continue_signals',
-	trace.
-'$do_signal'(sig_debug, G) :-
+	trace,
+	'$execute'(M:G).
+'$do_signal'(sig_debug, [M|G]) :-
 	'$continue_signals',
-	'$current_module'(M0),
 	debug,
-	'$execute0'(G,M0).
-'$do_signal'(sig_break, G) :-
+	'$execute'(M:G).
+'$do_signal'(sig_break, [M|G]) :-
 	'$continue_signals',
-	'$current_module'(M0),
 	break,
-	'$execute0'(G,M0).
-'$do_signal'(sig_statistics, G) :-
+	'$execute0'(G,M).
+'$do_signal'(sig_statistics, [M|G]) :-
 	'$continue_signals',
-	'$current_module'(M0),
 	statistics,
-	'$execute0'(G,M0).
-'$do_signal'(sig_stack_dump, G) :-
+	'$execute0'(G,M).
+'$do_signal'(sig_stack_dump, [M|G]) :-
 	'$continue_signals',
-	'$current_module'(M0),
 	'$stack_dump',
-	'$execute0'(G,M0).
+	'$execute0'(G,M).
 % Unix signals
 '$do_signal'(sig_alarm, G) :-
 	'$signal_handler'(sig_alarm, G).