From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 28 Sep 2005 15:56:45 +0000 (+0000)
Subject: We can use the C pre-processor to build a single, longer string
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2e4dbf1c0b3171079efbd13aea2730e8a9bfda5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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