deadcode removal

p4raw-id: //depot/perl@4034

1 files changed, 2 insertions, 4 deletions

diff --git a/embed.pl b/embed.pl
index 28c2e384fb..ef8fc802d4 100755
--- a/embed.pl
+++ b/embed.pl
@@ -756,8 +756,6 @@ print CAPIH <<'EOT';
 #  define aTHXo			pPerl
 #  undef  aTHXo_
 #  define aTHXo_		aTHXo,
-#  undef  _aTHXo
-#  define _aTHXo		,aTHXo
 #endif /* PERL_OBJECT */
 
 START_EXTERN_C
@@ -970,9 +968,9 @@ EOT
 __END__
 
 # Lines are of the form:
-#    flags|return_type|function_name|return_type|arg1|arg2|...|argN
+#    flags|return_type|function_name|arg1|arg2|...|argN
 #
-# They may continue on multiple lines when \w| begins the next line.
+# A line may be continued on another by ending it with a backslash.
 # Leading and trailing whitespace will be ignored in each component.
 #
 # flags are single letters with following meanings: