This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up delimcpy_no_escape()
[perl5.git] / embed.fnc
index e088cd8..5a30f46 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -756,10 +756,10 @@ pR        |SV *   |defelem_target |NN SV *sv|NULLOK MAGIC *mg
 ATpd   |char*  |delimcpy|NN char* to|NN const char* to_end             \
                         |NN const char* from|NN const char* from_end   \
                         |const int delim|NN I32* retlen
-Tpd    |char*  |delimcpy_no_escape|NN char* to|NN const char* toend    \
+ETpd   |char*  |delimcpy_no_escape|NN char* to|NN const char* to_end   \
                                   |NN const char* from                 \
-                                  |NN const char* fromend|int delim    \
-                                  |NN I32* retlen
+                                  |NN const char* from_end             \
+                                  |const int delim|NN I32* retlen
 : Used in op.c, perl.c
 px     |void   |delete_eval_scope
 Aprd   |OP*    |die_sv         |NN SV *baseex