rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge commit '3307ff377b32a791fcf7ba57a64fcdc79adcf230'

This commit is contained in:
Benjamin Vedder 2022-02-01 21:51:54 +01:00
parent 058ef0b839 3307ff377b
commit d700a40a24
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lispBM/lispBM/repl-cps/repl.c
View File

@ -481,8 +481,18 @@ int main(int argc, char **argv) {
printf("Incorrect arguments to send\n");
}
} else {
} else if (strncmp(str, ":pause", 6) == 0) {
lbm_pause_eval_with_gc(30);
while(lbm_get_eval_state() != EVAL_CPS_STATE_PAUSED) {
sleep_callback(10);
}
printf("Evaluator paused\n");
} else if (strncmp(str, ":continue", 9) == 0) {
lbm_continue_eval();
} else if (strncmp(str, ":step", 5) == 0) {
lbm_step_eval();
} else {
/* Get exclusive access to the heap */
lbm_pause_eval();
while(lbm_get_eval_state() != EVAL_CPS_STATE_PAUSED) {

3
lispBM/lispBM/src/eval_cps.c
View File

@ -1927,7 +1927,7 @@ void lbm_run_eval(void){
eval_cps_run_state = EVAL_CPS_STATE_RUNNING;
break;
case EVAL_CPS_STATE_STEP:
eval_cps_run_state = EVAL_CPS_STATE_PAUSED;
eval_cps_next_state = EVAL_CPS_STATE_PAUSED;
break;
case EVAL_CPS_STATE_PAUSED:
if (eval_cps_run_state != EVAL_CPS_STATE_PAUSED) {
@ -1943,6 +1943,7 @@ void lbm_run_eval(void){
eval_running = false;
continue;
default:
eval_cps_run_state = eval_cps_next_state;
break;
}