This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
utf8.c: Change parameter types of internal fcns
[perl5.git]
/
Porting
/
expand-macro.pl
diff --git
a/Porting/expand-macro.pl
b/Porting/expand-macro.pl
index
6b33f74
..
cf2c9c8
100755
(executable)
--- a/
Porting/expand-macro.pl
+++ b/
Porting/expand-macro.pl
@@
-62,7
+62,9
@@
open my $out, '>', $trysource or die "Can't open $trysource: $!";
my $sentinel = "$macro expands to";
my $sentinel = "$macro expands to";
-my %done_header;
+# These two are included from perl.h, and perl.h sometimes redefines their
+# macros. So no need to include them.
+my %done_header = ('embed.h' => 1, 'embedvar.h' => 1);
sub do_header {
my $header = shift;
sub do_header {
my $header = shift;
@@
-136,12
+138,14
@@
expand-macro.pl - expand C macros using the C preprocessor
=head1 SYNOPSIS
=head1 SYNOPSIS
- expand-macro.pl [options] [ < macro-name | macro-expression | - > [headers] ]
+ expand-macro.pl [options]
+ [ < macro-name | macro-expression | - > [headers] ]
options:
-f use 'indent' to format output
-F <tool> use <tool> to format output (instead of -f)
options:
-f use 'indent' to format output
-F <tool> use <tool> to format output (instead of -f)
- -e erase try.[ic] instead of failing when they're present (errdetect)
+ -e erase try.[ic] instead of failing when they're present
+ (errdetect)
-k keep them after generating (for handy inspection)
-v verbose
-I <indent-opts> passed into indent
-k keep them after generating (for handy inspection)
-v verbose
-I <indent-opts> passed into indent