pp.c:pp_sin: Less stack fiddling

No need to pop and push.  No need to extend the stack.  No need for
PUTBACK with those changes, as we no longer maniputale the stack
pointer (and even when we did it always ended up with the same value).

1 files changed, 3 insertions, 3 deletions

diff --git a/pp.c b/pp.c
index fbc32a226f..a0c29cd7e3 100644
--- a/pp.c
+++ b/pp.c
@@ -2700,7 +2700,7 @@ PP(pp_sin)
 
     tryAMAGICun_MG(amg_type, 0);
     {
-      SV * const arg = POPs;
+      SV * const arg = TOPs;
       const NV value = SvNV_nomg(arg);
       NV result = NV_NAN;
       if (neg_report) { /* log or sqrt */
@@ -2722,8 +2722,8 @@ PP(pp_sin)
       case OP_LOG:  result = Perl_log(value);  break;
       case OP_SQRT: result = Perl_sqrt(value); break;
       }
-      XPUSHn(result);
-      RETURN;
+      SETn(result);
+      return NORMAL;
     }
 }