From 1bb85f670ccc25e8b2dc35fe9d9469efbeca6482 Mon Sep 17 00:00:00 2001
From: Jeff Hill <johill@lanl.gov>
Date: Wed, 31 Jan 2001 01:59:32 +0000
Subject: [PATCH] print warning message if IO is still installed in tcp iiu
 when it disconnects

---
 src/ca/tcpiiu.cpp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/ca/tcpiiu.cpp b/src/ca/tcpiiu.cpp
index 69a3cf01e..11f1fde11 100644
--- a/src/ca/tcpiiu.cpp
+++ b/src/ca/tcpiiu.cpp
@@ -655,9 +655,11 @@ void tcpiiu::disconnect ()
 {
     assert ( this->fullyConstructedFlag );
 
-    {
-        epicsAutoMutex autoMutex ( this->mutex );
-        this->ioTable.traverse ( &baseNMIU::destroy );
+    // if we get here and the IO is still attached then we have an
+    // io block that was not registered with a channel.
+    if ( this->ioTable.numEntriesInstalled () ) {
+        this->pCAC ()->printf ( "CA connection disconnect with %u IO items still installed?\n",
+            this->ioTable.numEntriesInstalled () );
     }
 
     this->cleanShutdown ();