From 06f49001ff80b61852507d9128ae3c261bf21724 Mon Sep 17 00:00:00 2001
From: William Lupton <core-talk@aps.anl.gov>
Date: Mon, 13 Mar 2000 09:48:20 +0000
Subject: [PATCH] added ca_puser()

---
 src/ca/access.cpp | 9 +++++++++
 src/ca/cadef.h    | 2 ++
 2 files changed, 11 insertions(+)

diff --git a/src/ca/access.cpp b/src/ca/access.cpp
index 19cd50918..ea6b30d6f 100644
--- a/src/ca/access.cpp
+++ b/src/ca/access.cpp
@@ -3157,6 +3157,15 @@ epicsShareFunc void epicsShareAPI ca_set_puser (chid pChanIn, void *puser)
     pChan->puser = puser;
 }
 
+/*
+ * ca_get_puser ()
+ */
+epicsShareFunc void * epicsShareAPI ca_puser (chid pChanIn)
+{
+    baseCIU *pChan = (baseCIU *) pChanIn;
+    return pChan->puser;
+}
+
 /*
  * ca_read_access ()
  */
diff --git a/src/ca/cadef.h b/src/ca/cadef.h
index 307c31f27..06b7f8267 100644
--- a/src/ca/cadef.h
+++ b/src/ca/cadef.h
@@ -161,6 +161,7 @@ epicsShareFunc short epicsShareAPI ca_field_type (chid chan);
 epicsShareFunc unsigned long epicsShareAPI ca_element_count (chid chan);
 epicsShareFunc const char * epicsShareAPI ca_name (chid chan);
 epicsShareFunc void epicsShareAPI ca_set_puser (chid chan, void *puser);
+epicsShareFunc void * epicsShareAPI ca_puser (chid chan);
 epicsShareFunc unsigned epicsShareAPI ca_read_access (chid chan);
 epicsShareFunc unsigned epicsShareAPI ca_write_access (chid chan);
 
@@ -972,6 +973,7 @@ epicsShareFunc unsigned long epicsShareAPI ca_element_count ();
 epicsShareFunc char * epicsShareAPI ca_name (chid chan);
 epicsShareFunc enum channel_state epicsShareAPI ca_state ();
 epicsShareFunc void epicsShareAPI ca_set_puser ();
+epicsShareFunc void epicsShareAPI ca_get_puser ();
 epicsShareFunc unsigned epicsShareAPI ca_read_access ();
 epicsShareFunc unsigned epicsShareAPI ca_write_access ();
 epicsShareFunc int epicsShareAPI ca_task_initialize ();