New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
h2ph not correctly processing glibc sys/sysmacros.ph #7322
Comments
From @samvCreated by @samvHi, h2ph sys/sysmacros.h incorrectly translates this: # define makedev(major, minor) { ((((unsigned int) (major)) << 8) \ to this: eval "\n#line 10 sys/sysmacros.ph\n" . 'sub makedev { This is a syntax error; it should read: eval "\n#line 10 sys/sysmacros.ph\n" . 'sub makedev { Any ideas? Perl Info
|
From wolfgang.laun@chello.atAt 30 May 2004 02:51:10 -0000 Sam Vilain wrote:
Yes. Inline Patch--- h2ph.old Sat Jan 17 09:38:29 2004
+++ h2ph Sun May 30 16:57:41 2004
@@ -346,10 +346,16 @@
};
# Eliminate typedefs
/\(([\w\s]+)[\*\s]*\)\s*[\w\(]/ && do {
+ my $doit = 1;
foreach (split /\s+/, $1) { # Make sure all the words are types,
- last unless ($isatype{$_} or $_ eq 'struct' or $_ eq 'union');
+ unless($isatype{$_} or $_ eq 'struct' or $_ eq 'union'){
+ $doit = 0;
+ last;
+ }
+ }
+ if( $doit ){
+ s/\([\w\s]+[\*\s]*\)// && next; # then eliminate them.
}
- s/\([\w\s]+[\*\s]*\)// && next; # then eliminate them.
};
# struct/union member, including arrays:
s/^([_A-Z]\w*(\[[^\]]+\])?((\.|->)[_A-Z]\w*(\[[^\]]+\])?)+)//i && do { |
The RT System itself - Status changed from 'new' to 'open' |
From @rgswolfgang.laun@chello.at wrote:
Thanks, applied as #22877 (to h2ph.PL).
|
@rspier - Status changed from 'open' to 'resolved' |
From @rgsSam Vilain (via RT) wrote:
Wait, the story is not over; in recent glibcs (glibc-devel-2.3.3-12mdk) __extension__ extern __inline unsigned int and so on. h2ph doesn't grok this. I think it should be patched... |
From @rgsI wrote:
I've commited a rough patch (#22925) to bleadperl to "fix" this. It I strongly recommend that this is backported to maintperl. At least I'm |
Migrated from rt.perl.org#29969 (status was 'resolved')
Searchable as RT29969$
The text was updated successfully, but these errors were encountered: