util.c: Reorder two functions

khwilliamson · khwilliamson · commit ad9dfdb7a438 · 2020-08-01T11:49:16.000-06:00
This will make some future commits a little less noisy
diff --git a/util.c b/util.c
@@ -572,20 +572,20 @@ S_delimcpy_intern(char *to, const char *toend, const char *from,
 }
 
 char *
-Perl_delimcpy(char *to, const char *toend, const char *from, const char *fromend, int delim, I32 *retlen)
+Perl_delimcpy_no_escape(char *to, const char *toend, const char *from,
+			const char *fromend, int delim, I32 *retlen)
 {
-    PERL_ARGS_ASSERT_DELIMCPY;
+    PERL_ARGS_ASSERT_DELIMCPY_NO_ESCAPE;
 
-    return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 1);
+    return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 0);
 }
 
 char *
-Perl_delimcpy_no_escape(char *to, const char *toend, const char *from,
-			const char *fromend, int delim, I32 *retlen)
+Perl_delimcpy(char *to, const char *toend, const char *from, const char *fromend, int delim, I32 *retlen)
 {
-    PERL_ARGS_ASSERT_DELIMCPY_NO_ESCAPE;
+    PERL_ARGS_ASSERT_DELIMCPY;
 
-    return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 0);
+    return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 1);
 }
 
 /*

Original file line number	Diff line number	Diff line change
`@@ -572,20 +572,20 @@ S_delimcpy_intern(char to, const char toend, const char *from,`
`572`	`572`	`}`
`573`	`573`
`574`	`574`	`char *`
`575`		`-Perl_delimcpy(char to, const char toend, const char from, const char fromend, int delim, I32 *retlen)`
	`575`	`+Perl_delimcpy_no_escape(char to, const char toend, const char *from,`
	`576`	`+ const char fromend, int delim, I32 retlen)`
`576`	`577`	`{`
`577`		`- PERL_ARGS_ASSERT_DELIMCPY;`
	`578`	`+ PERL_ARGS_ASSERT_DELIMCPY_NO_ESCAPE;`
`578`	`579`
`579`		`- return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 1);`
	`580`	`+ return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 0);`
`580`	`581`	`}`
`581`	`582`
`582`	`583`	`char *`
`583`		`-Perl_delimcpy_no_escape(char to, const char toend, const char *from,`
`584`		`- const char fromend, int delim, I32 retlen)`
	`584`	`+Perl_delimcpy(char to, const char toend, const char from, const char fromend, int delim, I32 *retlen)`
`585`	`585`	`{`
`586`		`- PERL_ARGS_ASSERT_DELIMCPY_NO_ESCAPE;`
	`586`	`+ PERL_ARGS_ASSERT_DELIMCPY;`
`587`	`587`
`588`		`- return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 0);`
	`588`	`+ return S_delimcpy_intern(to, toend, from, fromend, delim, retlen, 1);`
`589`	`589`	`}`
`590`	`590`
`591`	`591`	`/*`