Implement caller:string() in terms of symname() and caller_addr().

* tapset/context-unwind.stp (caller): Implement as stap function using
  symname(), caller_addr() and sprintf().

diff --git a/tapset/context-unwind.stp b/tapset/context-unwind.stp
index f1e99dc8450df4546f60fd1bc6a173fd36ced4c2..d6654d25ef2468eaff9fff7033f84a1bd2f115dc 100644 (file)
--- a/tapset/context-unwind.stp
+++ b/tapset/context-unwind.stp
@@ -51,16 +51,13 @@ function backtrace:string () %{ /* pure */
  * sfunction caller - Return name and address of calling function
  *
  *  Return the address and name of the calling function. 
+ *  This is equivalent to calling:
+ *  sprintf("%s 0x%x", symname(caller_addr(), caller_addr()))
  *  <emphasis>Works only for return probes at this time.</emphasis>
  */
-function caller:string() %{ /* pure */
-        if (CONTEXT->pi) 
-               _stp_symbol_snprint( THIS->__retvalue, MAXSTRINGLEN, 
-                       (unsigned long)_stp_ret_addr_r(CONTEXT->pi),
-                        current, 0);
-        else
-               strlcpy(THIS->__retvalue,"unknown",MAXSTRINGLEN);
-%}
+function caller:string() {
+       return sprintf("%s 0x%x", symname(caller_addr()), caller_addr());
+}
 
 /**
  * sfunction caller_addr -  Return caller address