Copying the first parameter in the macro del_body seems to reduce

code size.  Presumably an expression is no longer evaluated twice.

p4raw-id: //depot/perl@25053

diff --git a/sv.c b/sv.c
index d416b1b..83c2d4e 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1127,9 +1127,10 @@ S_new_body(pTHX_ void **arena_root, void **root, size_t size)
 
 #define del_body(thing, root)                  \
     STMT_START {                               \
+       void **thing_copy = (void **)thing;     \
        LOCK_SV_MUTEX;                          \
-       *(void **)thing = *root;                \
-       *root = (void*)thing;                   \
+       *thing_copy = *root;                    \
+       *root = (void*)thing_copy;              \
        UNLOCK_SV_MUTEX;                        \
     } STMT_END