infnan: store the nan payload error in an optional SV

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index fb2c1ac..7ae61a7 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -814,8 +814,8 @@ EMsPR       |char*|form_short_octal_warning|NN const char * const s  \
 #endif
 Apd    |UV     |grok_hex       |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV *result
 Apd    |int    |grok_infnan    |NN const char** sp|NN const char *send|NULLOK NV *nvp
-Apd    |const char *|grok_nan  |NN const char* s|NN const char *send|NN int *flags|NULLOK NV *nvp
-Apd    |const char *|grok_nan_payload|NN const char* s|NN const char *send|bool signaling|NN int *flags|NULLOK NV *nvp
+Apd    |const char *|grok_nan  |NN const char* s|NN const char *send|NN int *flags|NULLOK NV *nvp|NULLOK SV* svp
+Apd    |const char *|grok_nan_payload|NN const char* s|NN const char *send|bool signaling|NN int *flags|NULLOK NV *nvp|NULLOK SV *svp
 Apd    |int    |grok_number    |NN const char *pv|STRLEN len|NULLOK UV *valuep
 Apd    |int    |grok_number_flags|NN const char *pv|STRLEN len|NULLOK UV *valuep|U32 flags
 Apd    |int    |grok_number2_flags|NN const char *pv|STRLEN len|NULLOK UV *valuep|NULLOK NV* nvp|U32 flags
@@ -825,7 +825,7 @@ Apdn        |UV     |grok_atou      |NN const char* pv|NULLOK const char** endptr
 Apdn   |U8*    |nan_hibyte|NN NV *nvp|NN U8* mask
 Apd    |void   |nan_signaling_set|NN NV *nvp|bool signaling
 Apdn   |int    |nan_is_signaling|NV nv
-Apd    |void   |nan_payload_set|NN NV *nvp|NN const void *bytes|STRLEN byten|bool signaling
+Apd    |void   |nan_payload_set|NN NV *nvp|NULLOK SV *svp|NN const void *bytes|STRLEN byten|bool signaling
 : These are all indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_clearenv |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_clear_all_env|NN SV* sv|NN MAGIC* mg