From fc0dc3b334ed07492841d4d27f3f4100c92588d2 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 29 Aug 1999 03:35:18 +0000
Subject: deadcode removal

p4raw-id: //depot/perl@4034
---
 embed.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'embed.pl')

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:
-- 
cgit v1.2.1