errlog message added when IO stalled by cyclesup

src/exe/rt_emon/src/rt_emon.c

@@ -1435,9 +1435,12 @@ cSup_exec (
 	o->AlarmCheck = FALSE;
 	o->DelayNoted = TRUE;
 	if (o->DelayAction == 2) {
+	  int prev_rwflag = l.iohp->IOReadWriteFlag;
 	  l.iohp->IOReadWriteFlag = FALSE;
 	  l.nodep->EmergBreakTrue = TRUE;
 	  errh_SetStatus( MH__IOSTALLED);
+	  if ( prev_rwflag)
+	    errh_Fatal("CycleSup delayed with action Stop I/O");
 	}
       }
     }
@@ -5430,4 +5433,4 @@ static pwr_tStatus emon_redu_receive()
   }
   qcom_Free( &sts, msg);
   return MH__SUCCESS;
-}
+}
\ No newline at end of file

src/lib/rt/src/rt_plc_thread.c

@@ -705,9 +705,12 @@ scan (
 	time_GetTime(&now);
 	delay_action = csup_Exec(&sts, tp->csup_lh, (pwr_tDeltaTime *) &tp->sync_time, (pwr_tDeltaTime *) &tp->after_scan, &now);
 	if (delay_action == 2) {
+	  int prev_rwflag = pp->IOHandler->IOReadWriteFlag;
 	  pp->IOHandler->IOReadWriteFlag = FALSE;
 	  pp->Node->EmergBreakTrue = TRUE;
 	  errh_SetStatus( PLC__IOSTALLED);
+	  if ( prev_rwflag)
+	    errh_Fatal("CycleSup delayed with action Stop I/O");	  
 	}
       }
 
@@ -764,4 +767,4 @@ scan (
 
   if ( tp->loops % MAX( 1, (int)(1.0 / tp->PlcThread->ScanTime)) == 0)
     pwrs_Node_SupEmon();
-}
+}
\ No newline at end of file