perl.h, use STRINGIFY in 25171

Message-ID: <533D273D4014D411AB1D00062938C4D90849C75A@hotel.npl.co.uk>

p4raw-id: //depot/perl@25238

diff --git a/perl.h b/perl.h
index 8d5ac67..c1d08bb 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2694,7 +2694,7 @@ typedef pthread_key_t     perl_key;
 */
 
 #ifndef SVf_
-#  define SVf_(n) "-" #n "p"
+#  define SVf_(n) "-" STRINGIFY(n) "p"
 #endif
 
 #ifndef SVf
@@ -2715,9 +2715,7 @@ typedef pthread_key_t     perl_key;
  
 #ifndef VDf
 #  if vdNUMBER 
-#    define vdFORMAT(n) #n "p"
-#    define VDf_(n) vdFORMAT(n)
-#    define VDf VDf_(vdNUMBER)
+#    define VDf STRINGIFY(vdNUMBER) "p"
 #  else
 #    define VDf "vd"
 #  endif