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 `extern inline' problems #7841
Comments
From at@altlinux.ruCreated by at@altlinux.orgHello, h2ph fails to convert the following simple header file. $ cat asm/unistd.h extern inline long exit(int error_code) #endif Please note that its location under asm/ directory is essential. $ h2ph -d . asm/unistd.h no warnings 'redefine'; unless(defined(&_ASM_X86_64_UNISTD_H_)) { -- Perl Info
|
From at@altlinux.ruOn Sat, Mar 19, 2005 at 12:24:37PM -0000, Alexey Tourbin wrote:
And even the following simple header file suffers wrong conversion: $ cat test.h Note that asm/ location is unrelated for this time. $ h2ph -d . test.h no warnings 'redefine'; unless(defined(&TEST_H)) { The problem seems to be inside next_line(): READ: while (not eof IN) { while (length $in) { The problem is that $in varialbe is not reset and "if" conditons hold Inline Patch
-- |
From at@altlinux.ruOn Sat, Mar 19, 2005 at 04:37:12PM +0300, Alexey Tourbin wrote:
Here is a test that fails with the existing h2ph and passes with my PS: please fix my English wherever applicable. Inline Patch--- perl-5.9.2.24046/t/lib/h2ph.h- 2003-03-13 22:07:49 +0000
+++ perl-5.9.2.24046/t/lib/h2ph.h 2005-03-19 14:08:07 +0000
@@ -56,6 +56,11 @@
# define WHATEVER 1000
#endif
+/* Test passing through the alien constructs (perlbug #34493) */
+#ifdef __LANGUAGE_PASCAL__
+function Tru64_Pascal(n: Integer): Integer;
+#endif
+
/*
* Test #include, #import and #include_next
* #include_next is difficult to test, it really depends on the actual
End of patch |
From @rgsAlexey Tourbin wrote:
Thanks, both applied as #24054 to bleadperl. |
The RT System itself - Status changed from 'new' to 'open' |
@rgs - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#34493 (status was 'resolved')
Searchable as RT34493$
The text was updated successfully, but these errors were encountered: