diff --git a/scp.c b/scp.c index 911e7321..b3c1a757 100644 --- a/scp.c +++ b/scp.c @@ -8378,6 +8378,7 @@ for (i = 1; (dptr = sim_devices[i]) != NULL; i++) { /* flush attached files } } } +tmxr_flush_log_files (); } t_stat diff --git a/sim_tmxr.c b/sim_tmxr.c index 4ccbdb7c..d477b1c7 100644 --- a/sim_tmxr.c +++ b/sim_tmxr.c @@ -4276,6 +4276,19 @@ else { return SCPE_OK; } +t_stat tmxr_flush_log_files (void) +{ +int i, j; + +for (i=0; ilines; ++j) + if (mp->ldsc[j].txlog) + fflush (mp->ldsc[j].txlog); + } +return SCPE_OK; +} /* Close a master listening socket. diff --git a/sim_tmxr.h b/sim_tmxr.h index 3a73a6d4..b2b6d863 100644 --- a/sim_tmxr.h +++ b/sim_tmxr.h @@ -297,6 +297,7 @@ t_stat tmxr_show_summ (FILE *st, UNIT *uptr, int32 val, CONST void *desc); t_stat tmxr_show_cstat (FILE *st, UNIT *uptr, int32 val, CONST void *desc); t_stat tmxr_show_lines (FILE *st, UNIT *uptr, int32 val, CONST void *desc); t_stat tmxr_show_open_devices (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc); +t_stat tmxr_flush_log_files (void); t_stat tmxr_activate (UNIT *uptr, int32 interval); t_stat tmxr_activate_abs (UNIT *uptr, int32 interval); t_stat tmxr_activate_after (UNIT *uptr, uint32 usecs_walltime);