-Wall cleanup continues.

p4raw-id: //depot/perl@10392

1 files changed, 21 insertions, 3 deletions

diff --git a/embed.h b/embed.h
index dd0097c438..9d5180acf7 100644
--- a/embed.h
+++ b/embed.h
@@ -1017,8 +1017,10 @@
 #define regtail			S_regtail
 #define regwhite		S_regwhite
 #define nextchar		S_nextchar
+#  ifdef DEBUGGING
 #define dumpuntil		S_dumpuntil
 #define put_byte		S_put_byte
+#  endif
 #define scan_commit		S_scan_commit
 #define cl_anything		S_cl_anything
 #define cl_is_anything		S_cl_is_anything
@@ -1049,8 +1051,10 @@
 #define find_byclass		S_find_byclass
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#   ifdef DEBUGGING
 #define deb_curcv		S_deb_curcv
 #define debprof			S_debprof
+#   endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 #define save_scalar_at		S_save_scalar_at
@@ -1100,7 +1104,7 @@
 #define visit			S_visit
 #define sv_add_backref		S_sv_add_backref
 #define sv_del_backref		S_sv_del_backref
-#  if defined(DEBUGGING)
+#  ifdef DEBUGGING
 #define del_sv			S_del_sv
 #  endif
 #  if !defined(NV_PRESERVES_UV)
@@ -1145,7 +1149,9 @@
 #define filter_gets		S_filter_gets
 #define find_in_my_stash	S_find_in_my_stash
 #define new_constant		S_new_constant
+#  if defined(DEBUGGING)
 #define tokereport		S_tokereport
+#  endif
 #define ao			S_ao
 #define depcom			S_depcom
 #define incl_perldb		S_incl_perldb
@@ -2508,8 +2514,10 @@
 #define regtail(a,b,c)		S_regtail(aTHX_ a,b,c)
 #define regwhite(a,b)		S_regwhite(aTHX_ a,b)
 #define nextchar(a)		S_nextchar(aTHX_ a)
+#  ifdef DEBUGGING
 #define dumpuntil(a,b,c,d,e)	S_dumpuntil(aTHX_ a,b,c,d,e)
 #define put_byte(a,b)		S_put_byte(aTHX_ a,b)
+#  endif
 #define scan_commit(a,b)	S_scan_commit(aTHX_ a,b)
 #define cl_anything(a,b)	S_cl_anything(aTHX_ a,b)
 #define cl_is_anything(a)	S_cl_is_anything(aTHX_ a)
@@ -2539,8 +2547,10 @@
 #define find_byclass(a,b,c,d,e,f)	S_find_byclass(aTHX_ a,b,c,d,e,f)
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#   ifdef DEBUGGING
 #define deb_curcv(a)		S_deb_curcv(aTHX_ a)
 #define debprof(a)		S_debprof(aTHX_ a)
+#   endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 #define save_scalar_at(a)	S_save_scalar_at(aTHX_ a)
@@ -2590,7 +2600,7 @@
 #define visit(a)		S_visit(aTHX_ a)
 #define sv_add_backref(a,b)	S_sv_add_backref(aTHX_ a,b)
 #define sv_del_backref(a)	S_sv_del_backref(aTHX_ a)
-#  if defined(DEBUGGING)
+#  ifdef DEBUGGING
 #define del_sv(a)		S_del_sv(aTHX_ a)
 #  endif
 #  if !defined(NV_PRESERVES_UV)
@@ -2635,7 +2645,9 @@
 #define filter_gets(a,b,c)	S_filter_gets(aTHX_ a,b,c)
 #define find_in_my_stash(a,b)	S_find_in_my_stash(aTHX_ a,b)
 #define new_constant(a,b,c,d,e,f)	S_new_constant(aTHX_ a,b,c,d,e,f)
+#  if defined(DEBUGGING)
 #define tokereport(a,b,c)	S_tokereport(aTHX_ a,b,c)
+#  endif
 #define ao(a)			S_ao(aTHX_ a)
 #define depcom()		S_depcom(aTHX)
 #define incl_perldb()		S_incl_perldb(aTHX)
@@ -4897,10 +4909,12 @@
 #define regwhite		S_regwhite
 #define S_nextchar		CPerlObj::S_nextchar
 #define nextchar		S_nextchar
+#  ifdef DEBUGGING
 #define S_dumpuntil		CPerlObj::S_dumpuntil
 #define dumpuntil		S_dumpuntil
 #define S_put_byte		CPerlObj::S_put_byte
 #define put_byte		S_put_byte
+#  endif
 #define S_scan_commit		CPerlObj::S_scan_commit
 #define scan_commit		S_scan_commit
 #define S_cl_anything		CPerlObj::S_cl_anything
@@ -4957,10 +4971,12 @@
 #define find_byclass		S_find_byclass
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#   ifdef DEBUGGING
 #define S_deb_curcv		CPerlObj::S_deb_curcv
 #define deb_curcv		S_deb_curcv
 #define S_debprof		CPerlObj::S_debprof
 #define debprof			S_debprof
+#   endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 #define S_save_scalar_at	CPerlObj::S_save_scalar_at
@@ -5055,7 +5071,7 @@
 #define sv_add_backref		S_sv_add_backref
 #define S_sv_del_backref	CPerlObj::S_sv_del_backref
 #define sv_del_backref		S_sv_del_backref
-#  if defined(DEBUGGING)
+#  ifdef DEBUGGING
 #define S_del_sv		CPerlObj::S_del_sv
 #define del_sv			S_del_sv
 #  endif
@@ -5137,8 +5153,10 @@
 #define find_in_my_stash	S_find_in_my_stash
 #define S_new_constant		CPerlObj::S_new_constant
 #define new_constant		S_new_constant
+#  if defined(DEBUGGING)
 #define S_tokereport		CPerlObj::S_tokereport
 #define tokereport		S_tokereport
+#  endif
 #define S_ao			CPerlObj::S_ao
 #define ao			S_ao
 #define S_depcom		CPerlObj::S_depcom