From: Charles Bailey <bailey@newman.upenn.edu>
Date: Fri, 3 Mar 2000 03:37:18 +0000 (+0000)
Subject: Remove leftover bits of VAXC support (Dan Sugalski)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8184601ff95d0973ecc224fee0a07f74f161664d;p=p5sagit%2Fp5-mst-13.2.git

Remove leftover bits of VAXC support (Dan Sugalski)

p4raw-id: //depot/vmsperl@5477
---

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index c668120..a109f7b 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -186,12 +186,6 @@ LINE: while (<CPP>) {
     print "opcode.h>> $_" if $debug > 2;
     if (/^OP \*\s/) { &scan_func($_); }
     if (/^\s*EXT/) { &scan_var($_); }
-    if (/^\s+OP_/) { &scan_enum($_); }
-    last LINE unless defined($_ = <CPP>);
-  }
-  while (/^typedef enum/ .. /^\s*\}/) {
-    print "global enum>> $_" if $debug > 2;
-    &scan_enum($_);
     last LINE unless defined($_ = <CPP>);
   }
   # Check for transition to new header file