From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 8 Jun 2002 14:22:10 +0000 (+0000)
Subject: h2ph: handle function pointer constants.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1be505aa59634a8036c429411fb42d2d38daabb8;p=p5sagit%2Fp5-mst-13.2.git

h2ph: handle function pointer constants.

p4raw-id: //depot/perl@17093
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 783dfc6..206df49 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -115,6 +115,7 @@ while (defined (my $file = next_file())) {
 		$name = $1;
 		$new = '';
 		s/\s+$//;
+		s/\(\w+\s*\(\*\)\s*\(\w*\)\)\s*(-?\d+)/$1/; # (int (*)(foo_t))0
 		if (s/^\(([\w,\s]*)\)//) {
 		    $args = $1;
     	    	    my $proto = '() ';