We have sufficient spare bits to store the SV type in body_details,

[perl5.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index f1f20b2..6cc018b 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1049,6 +1049,36 @@ PP(pp_hex)
     return pp_oct();
 }
 
+PP(pp_pop)
+{
+    return pp_shift();
+}
+
+PP(pp_cos)
+{
+    return pp_sin();
+}
+
+PP(pp_exp)
+{
+    return pp_sin();
+}
+
+PP(pp_log)
+{
+    return pp_sin();
+}
+
+PP(pp_sqrt)
+{
+    return pp_sin();
+}
+
+PP(pp_bit_xor)
+{
+    return pp_bit_or();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {