From 8f2a5171c9d157b46d4b7acdae0ec87cf36991d6 Mon Sep 17 00:00:00 2001
From: Jeff Hill <johill@lanl.gov>
Date: Thu, 14 Sep 2000 00:25:58 +0000
Subject: [PATCH] cleanup if event add fails

---
 src/ca/access.cpp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ca/access.cpp b/src/ca/access.cpp
index 14343ed89..8702ed870 100644
--- a/src/ca/access.cpp
+++ b/src/ca/access.cpp
@@ -394,6 +394,9 @@ int epicsShareAPI ca_add_masked_array_event ( chtype type, unsigned long count,
             *monixptr = pSubsr;
         }
     }
+    else {
+        pSubsr->destroy ();
+    }
 
     return status;
 }