remove old xmlrpc call

iraf-community · Apr 30, 2017 · 6f5f9bd · 6f5f9bd
1 parent dc062e1
commit 6f5f9bd
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/vendor/voclient/libsamp/libxrpc/xrClient.c b/vendor/voclient/libsamp/libxrpc/xrClient.c
@@ -858,8 +858,6 @@ void
 xr_freeParam (int cnum)
 {
     ClientP client   = &clientArray[cnum];
-    int    refcount  = 0;
-    extern int xmlrpc_refcount();
 
     assert (cnum < MAX_CLIENTS);		/* validate the client number */
 
@@ -874,14 +872,13 @@ xr_freeParam (int cnum)
 	    xmlrpc_DECREF (v);
 	}
 	*/
-        refcount = xmlrpc_refcount (client->param) - 1;
 	xmlrpc_DECREF (client->param);
 #ifdef CLEAN_ENV
 	xmlrpc_env_clean(&client->env);
 #endif
     }
 
-    if (refcount == 0)
+    if (xmlrpc_value_type(client->result) == XMLRPC_TYPE_DEAD)
 	client->param = (xmlrpc_value *) NULL;
 }
 
@@ -893,8 +890,6 @@ void
 xr_freeResult (int cnum)
 {
     ClientP client   = &clientArray[cnum];
-    int    refcount  = 0;
-    extern int xmlrpc_refcount();
 
     assert (cnum < MAX_CLIENTS);		/* validate the client number */
 
@@ -909,15 +904,14 @@ xr_freeResult (int cnum)
 	    xmlrpc_DECREF (v);
 	}
 	*/
-        refcount = xmlrpc_refcount (client->result) - 1;
-	if (refcount)
+	if (xmlrpc_value_type(client->result) != XMLRPC_TYPE_DEAD)
 	    xmlrpc_DECREF (client->result);
 #ifdef CLEAN_ENV
 	xmlrpc_env_clean(&client->env);
 #endif
     }
 
-    if (refcount == 0)
+    if (xmlrpc_value_type(client->result) == XMLRPC_TYPE_DEAD)
 	client->result = (xmlrpc_value *) NULL;
 }