This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In embed.fnc, reorder the symbols conditional on HAVE_INTERP_INTERP.
authorNicholas Clark <nick@ccl4.org>
Mon, 18 Jul 2011 17:31:55 +0000 (18:31 +0100)
committerNicholas Clark <nick@ccl4.org>
Tue, 2 Jul 2013 20:05:04 +0000 (22:05 +0200)
This reordering removes 2 pre-processor directives.

embed.fnc

index 5d8ec53..5c27b27 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1721,14 +1721,12 @@ Ap      |void   |ptr_table_store|NN PTR_TBL_t *const tbl|NULLOK const void *const oldsv
 Ap     |void   |ptr_table_split|NN PTR_TBL_t *const tbl
 ApD    |void   |ptr_table_clear|NULLOK PTR_TBL_t *const tbl
 Ap     |void   |ptr_table_free|NULLOK PTR_TBL_t *const tbl
-#if defined(USE_ITHREADS)
-#  if defined(HAVE_INTERP_INTERN)
-Ap     |void   |sys_intern_dup |NN struct interp_intern* src|NN struct interp_intern* dst
-#  endif
-#endif
 #if defined(HAVE_INTERP_INTERN)
 Ap     |void   |sys_intern_clear
 Ap     |void   |sys_intern_init
+#  if defined(USE_ITHREADS)
+Ap     |void   |sys_intern_dup |NN struct interp_intern* src|NN struct interp_intern* dst
+#  endif
 #endif
 
 AopP   |const XOP *    |custom_op_xop  |NN const OP *o