Change 13573 by jhi@alpha on 2001/12/09 23:45:57
h2ph updates from OpenBSD 3.0.
Affected files ...
.... //depot/perl/utils/h2ph.PL#29 edit
Differences ...
==== //depot/perl/utils/h2ph.PL#29 (text) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL.~1~ Sun Dec 9 17:00:06 2001
+++ perl/utils/h2ph.PL Sun Dec 9 17:00:06 2001
@@ -338,7 +338,7 @@
# Eliminate typedefs
/\(([\w\s]+)[\*\s]*\)\s*[\w\(]/ && do {
foreach (split /\s+/, $1) { # Make sure all the words are types,
- last unless ($isatype{$_} or $_ eq 'struct');
+ last unless ($isatype{$_} or $_ eq 'struct' or $_ eq 'union');
}
s/\([\w\s]+[\*\s]*\)// && next; # then eliminate them.
};
@@ -361,7 +361,7 @@
};
s/^([_a-zA-Z]\w*)// && do {
my $id = $1;
- if ($id eq 'struct') {
+ if ($id eq 'struct' || $id eq 'union') {
s/^\s+(\w+)//;
$id .= ' ' . $1;
$isatype{$id} = 1;
End of Patch.
