diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-28 15:56:45 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-28 15:56:45 +0000 |
| commit | e2e4dbf1c0b3171079efbd13aea2730e8a9bfda5 (patch) | |
| tree | 979ffb38ba5884674024b53aa3382b8655ca93d3 /perl.c | |
| parent | 092026cff08d8963457599a8f6395bd1f642aed4 (diff) | |
| download | perl-e2e4dbf1c0b3171079efbd13aea2730e8a9bfda5.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 55 |
1 files changed, 28 insertions, 27 deletions
@@ -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 |