We can use the C pre-processor to build a single, longer string

constant which makes the object code slightly smaller.

p4raw-id: //depot/perl@25634

diff --git a/perl.c b/perl.c
index 0b21655..13ce59e 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1725,85 +1725,86 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #endif
                    opts = SvCUR(opts_prog);
 
-                   sv_catpv(opts_prog,"\"  Compile-time options:");
+                   sv_catpv(opts_prog,"\"  Compile-time options:"
 #  ifdef DEBUGGING
-                   sv_catpv(opts_prog," DEBUGGING");
+                            " DEBUGGING"
 #  endif
 #  ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
-                   sv_catpv(opts_prog," DEBUG_LEAKING_SCALARS_FORK_DUMP");
+                            " DEBUG_LEAKING_SCALARS_FORK_DUMP"
 #  endif
 #  ifdef FAKE_THREADS
-                   sv_catpv(opts_prog," FAKE_THREADS");
+                            " FAKE_THREADS"
 #  endif
 #  ifdef MULTIPLICITY
-                   sv_catpv(opts_prog," MULTIPLICITY");
+                            " MULTIPLICITY"
 #  endif
 #  ifdef MYMALLOC
-                   sv_catpv(opts_prog," MYMALLOC");
+                            " MYMALLOC"
 #  endif
 #  ifdef PERL_DONT_CREATE_GVSV
-                   sv_catpv(opts_prog," PERL_DONT_CREATE_GVSV");
+                            " PERL_DONT_CREATE_GVSV"
 #  endif
 #  ifdef PERL_GLOBAL_STRUCT
-                   sv_catpv(opts_prog," PERL_GLOBAL_STRUCT");
+                            " PERL_GLOBAL_STRUCT"
 #  endif
 #  ifdef PERL_IMPLICIT_CONTEXT
-                   sv_catpv(opts_prog," PERL_IMPLICIT_CONTEXT");
+                            " PERL_IMPLICIT_CONTEXT"
 #  endif
 #  ifdef PERL_IMPLICIT_SYS
-                   sv_catpv(opts_prog," PERL_IMPLICIT_SYS");
+                            " PERL_IMPLICIT_SYS"
 #  endif
 #  ifdef PERL_MALLOC_WRAP
-                   sv_catpv(opts_prog," PERL_MALLOC_WRAP");
+                            " PERL_MALLOC_WRAP"
 #  endif
 #  ifdef PERL_NEED_APPCTX
-                   sv_catpv(opts_prog," PERL_NEED_APPCTX");
+                            " PERL_NEED_APPCTX"
 #  endif
 #  ifdef PERL_NEED_TIMESBASE
-                   sv_catpv(opts_prog," PERL_NEED_TIMESBASE");
+                            " PERL_NEED_TIMESBASE"
 #  endif
 #  ifdef PERL_OLD_COPY_ON_WRITE
-                   sv_catpv(opts_prog," PERL_OLD_COPY_ON_WRITE");
+                            " PERL_OLD_COPY_ON_WRITE"
 #  endif
 #  ifdef PL_OP_SLAB_ALLOC
-                   sv_catpv(opts_prog," PL_OP_SLAB_ALLOC");
+                            " PL_OP_SLAB_ALLOC"
 #  endif
 #  ifdef THREADS_HAVE_PIDS
-                   sv_catpv(opts_prog," THREADS_HAVE_PIDS");
+                            " THREADS_HAVE_PIDS"
 #  endif
 #  ifdef USE_5005THREADS
-                   sv_catpv(opts_prog," USE_5005THREADS");
+                            " USE_5005THREADS"
 #  endif
 #  ifdef USE_64_BIT_ALL
-                   sv_catpv(opts_prog," USE_64_BIT_ALL");
+                            " USE_64_BIT_ALL"
 #  endif
 #  ifdef USE_64_BIT_INT
-                   sv_catpv(opts_prog," USE_64_BIT_INT");
+                            " USE_64_BIT_INT"
 #  endif
 #  ifdef USE_ITHREADS
-                   sv_catpv(opts_prog," USE_ITHREADS");
+                            " USE_ITHREADS"
 #  endif
 #  ifdef USE_LARGE_FILES
-                   sv_catpv(opts_prog," USE_LARGE_FILES");
+                            " USE_LARGE_FILES"
 #  endif
 #  ifdef USE_LONG_DOUBLE
-                   sv_catpv(opts_prog," USE_LONG_DOUBLE");
+                            " USE_LONG_DOUBLE"
 #  endif
 #  ifdef USE_PERLIO
-                   sv_catpv(opts_prog," USE_PERLIO");
+                            " USE_PERLIO"
 #  endif
 #  ifdef USE_REENTRANT_API
-                   sv_catpv(opts_prog," USE_REENTRANT_API");
+                            " USE_REENTRANT_API"
 #  endif
 #  ifdef USE_SFIO
-                   sv_catpv(opts_prog," USE_SFIO");
+                            " USE_SFIO"
 #  endif
 #  ifdef USE_SITECUSTOMIZE
-                   sv_catpv(opts_prog," USE_SITECUSTOMIZE");
+                            " USE_SITECUSTOMIZE"
 #  endif              
 #  ifdef USE_SOCKS
-                   sv_catpv(opts_prog," USE_SOCKS");
+                            " USE_SOCKS"
 #  endif
+                            );
 
                    while (SvCUR(opts_prog) > opts+76) {
                        /* find last space after "options: " and before col 76