grok_bin_oct_hex: Make a parameter const

khwilliamson · khwilliamson · commit bbd568b0276c · 2025-11-09T20:21:07.000-07:00
This prevents a future maintainer from accidentally changing this
pointer inside the function, where its original value is needed at the
end
diff --git a/embed.fnc b/embed.fnc
@@ -1404,7 +1404,7 @@ AMdp	|UV	|grok_bin	|NN const char *start			\
 				|NN I32 *flags				\
 				|NULLOK NV *result
 Cp	|UV	|grok_bin_oct_hex					\
-				|NN const char *start			\
+				|NN const char * const start		\
 				|NN STRLEN *len_p			\
 				|NN I32 *flags				\
 				|NULLOK NV *result			\
diff --git a/numeric.c b/numeric.c
@@ -365,7 +365,7 @@ S_output_non_portable(pTHX_ const U8 base)
 }
 
 UV
-Perl_grok_bin_oct_hex(pTHX_ const char *start,
+Perl_grok_bin_oct_hex(pTHX_ const char * const start,
                         STRLEN *len_p,
                         I32 *flags,
                         NV *result,
diff --git a/proto.h b/proto.h

Original file line number	Diff line number	Diff line change
`@@ -365,7 +365,7 @@ S_output_non_portable(pTHX_ const U8 base)`
`365`	`365`	`}`
`366`	`366`
`367`	`367`	`UV`
`368`		`-Perl_grok_bin_oct_hex(pTHX_ const char *start,`
	`368`	`+Perl_grok_bin_oct_hex(pTHX_ const char * const start,`
`369`	`369`	`STRLEN *len_p,`
`370`	`370`	`I32 *flags,`
`371`	`371`	`NV *result,`