folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

TIMER: Add debug of all calibration decision variables default no idle skip

Browse source
This commit is contained in:
Mark Pizzolato 2019-06-08 16:38:15 -07:00
parent 7bcf407fcc
commit 9ab8d0e91e
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
sim_timer.c
View file

@ -212,10 +212,11 @@ typedef struct RTC {
double clock_catchup_base_time; /* reference time for catchup ticks */ double clock_catchup_base_time; /* reference time for catchup ticks */
uint32 clock_catchup_ticks; /* Record of catchups */ uint32 clock_catchup_ticks; /* Record of catchups */
uint32 clock_catchup_ticks_tot; /* Record of catchups - total */ uint32 clock_catchup_ticks_tot; /* Record of catchups - total */
uint32 clock_catchup_ticks_curr;/* Record of catchups in this second */
t_bool clock_catchup_pending; /* clock tick catchup pending */ t_bool clock_catchup_pending; /* clock tick catchup pending */
t_bool clock_catchup_eligible; /* clock tick catchup eligible */ t_bool clock_catchup_eligible; /* clock tick catchup eligible */
uint32 clock_time_idled; /* total time idled */ uint32 clock_time_idled; /* total time idled */
uint32 clock_time_idled_last; /* total time idled */ uint32 clock_time_idled_last; /* total time idled as of the previous second */
uint32 clock_calib_skip_idle; /* Calibrations skipped due to idling */ uint32 clock_calib_skip_idle; /* Calibrations skipped due to idling */
uint32 clock_calib_gap2big; /* Calibrations skipped Gap Too Big */ uint32 clock_calib_gap2big; /* Calibrations skipped Gap Too Big */
uint32 clock_calib_backwards; /* Calibrations skipped Clock Running Backwards */ uint32 clock_calib_backwards; /* Calibrations skipped Clock Running Backwards */
@ -899,6 +900,7 @@ rtc->clock_catchup_pending = FALSE;
rtc->clock_catchup_eligible = FALSE; rtc->clock_catchup_eligible = FALSE;
rtc->clock_catchup_ticks_tot += rtc->clock_catchup_ticks; rtc->clock_catchup_ticks_tot += rtc->clock_catchup_ticks;
rtc->clock_catchup_ticks = 0; rtc->clock_catchup_ticks = 0;
rtc->clock_catchup_ticks_curr = 0;
rtc->calib_ticks_acked_tot += rtc->calib_ticks_acked; rtc->calib_ticks_acked_tot += rtc->calib_ticks_acked;
rtc->calib_ticks_acked = 0; rtc->calib_ticks_acked = 0;
++rtc->calib_initializations; ++rtc->calib_initializations;
@ -916,7 +918,7 @@ return sim_rtcn_calb (rtc->hz, tmr);
int32 sim_rtcn_calb (int32 ticksper, int32 tmr) int32 sim_rtcn_calb (int32 ticksper, int32 tmr)
{ {
uint32 new_rtime, delta_rtime, last_idle_pct; uint32 new_rtime, delta_rtime, last_idle_pct, catchup_ticks_curr;
int32 delta_vtime; int32 delta_vtime;
double new_gtime; double new_gtime;
int32 new_currd; int32 new_currd;
@ -957,11 +959,14 @@ if (rtc->clock_unit == NULL) { /* Not using TIMER units? */
} }
if (rtc->clock_catchup_pending) { /* catchup tick? */ if (rtc->clock_catchup_pending) { /* catchup tick? */
++rtc->clock_catchup_ticks; /* accumulating which were catchups */ ++rtc->clock_catchup_ticks; /* accumulating which were catchups */
++rtc->clock_catchup_ticks_curr;
rtc->clock_catchup_pending = FALSE; rtc->clock_catchup_pending = FALSE;
} }
rtc->ticks += 1; /* count ticks */ rtc->ticks += 1; /* count ticks */
if (rtc->ticks < ticksper) /* 1 sec yet? */ if (rtc->ticks < ticksper) /* 1 sec yet? */
return rtc->currd; return rtc->currd;
catchup_ticks_curr = rtc->clock_catchup_ticks_curr;
rtc->clock_catchup_ticks_curr = 0;
rtc->ticks = 0; /* reset ticks */ rtc->ticks = 0; /* reset ticks */
rtc->elapsed += 1; /* count sec */ rtc->elapsed += 1; /* count sec */
if (!rtc_avail) /* no timer? */ if (!rtc_avail) /* no timer? */
@ -1007,13 +1012,11 @@ if (delta_rtime > 30000) { /* gap too big? */
sim_debug (DBG_CAL, &sim_timer_dev, "gap too big: delta = %d - result: %d\n", delta_rtime, rtc->currd); sim_debug (DBG_CAL, &sim_timer_dev, "gap too big: delta = %d - result: %d\n", delta_rtime, rtc->currd);
return rtc->currd; /* can't calibr */ return rtc->currd; /* can't calibr */
} }
last_idle_pct = 0; /* normally force calibration */
if (tmr != SIM_NTIMERS) { if (tmr != SIM_NTIMERS) {
if (delta_rtime == 0) /* avoid divide by zero */ if (delta_rtime != 0) /* avoid divide by zero */
last_idle_pct = 0; /* force calibration */
else
last_idle_pct = MIN(100, (uint32)(100.0 * (((double)(rtc->clock_time_idled - rtc->clock_time_idled_last)) / ((double)delta_rtime)))); last_idle_pct = MIN(100, (uint32)(100.0 * (((double)(rtc->clock_time_idled - rtc->clock_time_idled_last)) / ((double)delta_rtime))));
rtc->clock_time_idled_last = rtc->clock_time_idled; rtc->clock_time_idled_last = rtc->clock_time_idled;
#if defined (SIM_TIME_IDLE_PCT)
if (last_idle_pct > sim_idle_calib_pct) { if (last_idle_pct > sim_idle_calib_pct) {
rtc->rtime = new_rtime; /* save wall time */ rtc->rtime = new_rtime; /* save wall time */
rtc->vtime += 1000; /* adv sim time */ rtc->vtime += 1000; /* adv sim time */
@ -1023,7 +1026,6 @@ if (tmr != SIM_NTIMERS) {
sim_debug (DBG_CAL, &sim_timer_dev, "skipping calibration due to idling (%d%%) - result: %d\n", last_idle_pct, rtc->currd); sim_debug (DBG_CAL, &sim_timer_dev, "skipping calibration due to idling (%d%%) - result: %d\n", last_idle_pct, rtc->currd);
return rtc->currd; /* avoid calibrating idle checks */ return rtc->currd; /* avoid calibrating idle checks */
} }
#endif
} }
new_gtime = sim_gtime(); new_gtime = sim_gtime();
if ((last_idle_pct == 0) && (delta_rtime != 0)) { if ((last_idle_pct == 0) && (delta_rtime != 0)) {
@ -1070,8 +1072,8 @@ if (rtc->based <= 0) /* never negative or zero! *
rtc->based = 1; rtc->based = 1;
if (rtc->currd <= 0) /* never negative or zero! */ if (rtc->currd <= 0) /* never negative or zero! */
rtc->currd = 1; rtc->currd = 1;
sim_debug (DBG_CAL, &sim_timer_dev, "sim_rtcn_calb(calibrated tmr=%d, tickper=%d) (delta_rtime=%d, delta_vtime=%d, base=%d, nxintv=%u, result: %d)\n", sim_debug (DBG_CAL, &sim_timer_dev, "sim_rtcn_calb(calibrated tmr=%d, tickper=%d) (delta_rtime=%d, delta_vtime=%d, base=%d, nxintv=%u, catchups=%u, idle=%d%%, result: %d)\n",
tmr, ticksper, (int)delta_rtime, (int)delta_vtime, rtc->based, rtc->nxintv, rtc->currd); tmr, ticksper, (int)delta_rtime, (int)delta_vtime, rtc->based, rtc->nxintv, catchup_ticks_curr, last_idle_pct, rtc->currd);
/* Adjust calibration for other timers which depend on this timer's calibration */ /* Adjust calibration for other timers which depend on this timer's calibration */
for (itmr=0; itmr<=SIM_NTIMERS; itmr++) { for (itmr=0; itmr<=SIM_NTIMERS; itmr++) {
RTC *irtc = &rtcs[itmr]; RTC *irtc = &rtcs[itmr];
@ -1246,6 +1248,8 @@ for (tmr=clocks=0; tmr<=SIM_NTIMERS; ++tmr) {
fprintf (st, " Total Tick Time: %s\n", sim_fmt_secs (rtc->calib_tick_time_tot+rtc->calib_tick_time)); fprintf (st, " Total Tick Time: %s\n", sim_fmt_secs (rtc->calib_tick_time_tot+rtc->calib_tick_time));
if (rtc->clock_catchup_ticks) if (rtc->clock_catchup_ticks)
fprintf (st, " Catchup Ticks Sched: %s\n", sim_fmt_numeric ((double)rtc->clock_catchup_ticks)); fprintf (st, " Catchup Ticks Sched: %s\n", sim_fmt_numeric ((double)rtc->clock_catchup_ticks));
if (rtc->clock_catchup_ticks_curr)
fprintf (st, " Catchup Ticks this second: %s\n", sim_fmt_numeric ((double)rtc->clock_catchup_ticks_curr));
if (rtc->clock_catchup_ticks_tot+rtc->clock_catchup_ticks != rtc->clock_catchup_ticks) if (rtc->clock_catchup_ticks_tot+rtc->clock_catchup_ticks != rtc->clock_catchup_ticks)
fprintf (st, " Total Catchup Ticks Sched: %s\n", sim_fmt_numeric ((double)(rtc->clock_catchup_ticks_tot+rtc->clock_catchup_ticks))); fprintf (st, " Total Catchup Ticks Sched: %s\n", sim_fmt_numeric ((double)(rtc->clock_catchup_ticks_tot+rtc->clock_catchup_ticks)));
if (rtc->clock_init_base_time) { if (rtc->clock_init_base_time) {
@ -1415,7 +1419,6 @@ t_stat r = SCPE_OK;
if (cptr == NULL) if (cptr == NULL)
return SCPE_ARG; return SCPE_ARG;
#if defined (SIM_TIME_IDLE_PCT)
if (1) { if (1) {
int32 newpct; int32 newpct;
char gbuf[CBUFSIZE]; char gbuf[CBUFSIZE];
@ -1436,9 +1439,6 @@ if (1) {
sim_idle_calib_pct = (uint32)newpct; sim_idle_calib_pct = (uint32)newpct;
} }
return SCPE_OK; return SCPE_OK;
#else
return sim_messagef (SCPE_NOFNC, "Calibration Idle Threshold %% is not implemented\n");
#endif
} }
/* Set stop time */ /* Set stop time */
@ -1596,7 +1596,7 @@ if (rtc->hz == 0) /* specified timer is no
tmr = sim_calb_tmr; /* use calibrated timer instead */ tmr = sim_calb_tmr; /* use calibrated timer instead */
rtc = &rtcs[tmr]; rtc = &rtcs[tmr];
if (rtc->clock_catchup_pending) { /* Catchup clock tick pending? */ if (rtc->clock_catchup_pending) { /* Catchup clock tick pending? */
sim_debug (DBG_CAL, &sim_timer_dev, "sim_idle(tmr=%d, sin_cyc=%d) - accelerating pending catch-up tick before idling %s\n", tmr, sin_cyc, sim_uname (rtc->clock_unit)); sim_debug (DBG_TIK, &sim_timer_dev, "sim_idle(tmr=%d, sin_cyc=%d) - accelerating pending catch-up tick before idling %s\n", tmr, sin_cyc, sim_uname (rtc->clock_unit));
sim_activate_abs (&sim_timer_units[tmr], 0); sim_activate_abs (&sim_timer_units[tmr], 0);
sim_interval -= sin_cyc; sim_interval -= sin_cyc;
return FALSE; return FALSE;
@ -1615,7 +1615,7 @@ if ((!sim_idle_enab) || /* idling disabled */
return FALSE; return FALSE;
} }
if (_rtcn_tick_catchup_check (tmr, -1)) { if (_rtcn_tick_catchup_check (tmr, -1)) {
sim_debug (DBG_CAL, &sim_timer_dev, "sim_idle(tmr=%d, sin_cyc=%d) - rescheduling catchup tick %d for %s\n", tmr, sin_cyc, 1 + rtc->ticks, sim_uname (rtc->clock_unit)); sim_debug (DBG_TIK, &sim_timer_dev, "sim_idle(tmr=%d, sin_cyc=%d) - rescheduling catchup tick %d for %s\n", tmr, sin_cyc, 1 + rtc->ticks, sim_uname (rtc->clock_unit));
sim_interval -= sin_cyc; sim_interval -= sin_cyc;
return FALSE; return FALSE;
} }