This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mathoms.c: Remove special casing from instr()
authorKarl Williamson <khw@cpan.org>
Wed, 11 May 2016 04:12:06 +0000 (22:12 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 May 2016 02:20:47 +0000 (20:20 -0600)
This function was recently moved to mathoms.  Now that various changes
have been made to the system, the special casing needed to get things to
compile can be removed.  Also, it can just call the macro
implementation, instead of what the macro expands to.

mathoms.c

index 91c1104..9ae81ab 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1752,22 +1752,15 @@ Perl_pad_compname_type(pTHX_ const PADOFFSET po)
     return PAD_COMPNAME_TYPE(po);
 }
 
-/* now a macro */
 /* return ptr to little string in big string, NULL if not found */
-/* This routine was donated by Corey Satten. */
+/* The original version of this routine was donated by Corey Satten. */
 
 char *
 Perl_instr(const char *big, const char *little)
 {
-    /* Porting tests require this macro to be used even though it doesn't exist
-     * (except for the commented-out version in proto.h).  So provide a commented-out
-     * "use" of the prototype and supply a real version of what it expanded to.
     PERL_ARGS_ASSERT_INSTR;
-    */
-    assert(big);
-    assert(little);
 
-    return strstr((char*)big, (char*)little);
+    return instr((char *) big, (char *) little);
 }
 
 #endif /* NO_MATHOMS */