makedef

Author: khwilliamson

embed.h

@@ -694,6 +694,7 @@
 #   undef is_c9strict_utf8_string_loc
 #   undef is_c9strict_utf8_string_loclen
 #   undef is_codeset_name_UTF8
+#   undef is_existing_identifier
 #   undef is_fork_open
 #   undef is_grapheme
 #   undef is_handle_constructor
@@ -1145,6 +1146,7 @@
 #   undef parse_fullstmt
 #   undef parse_gv_stash_name
 #   undef parse_ident
+#   undef parse_ident_no_copy
 #   undef parse_label
 #   undef parse_LC_ALL_string
 #   undef parse_listexpr

makedef.pl

@@ -467,6 +467,9 @@ sub readvar {
 if (!$define{USE_ITHREADS} || $define{WIN32}) {
     ++$skip{PL_main_thread};
 }
+if ($define{USE_ITHREADS}) {
+    ++$skip{Perl_CopFILEGV_set};
+}
 
 unless ($define{USE_POSIX_2008_LOCALE})
 {
@@ -794,15 +797,17 @@ sub readvar {
 {
     my %seen;
     my ($embed_array) = setup_embed($ARGS{TARG_DIR});
-    my $excludedre = $define{'NO_MATHOMS'} ? qr/[emiIsb]/ : qr/[emiIs]/;
+    my $excludedre = $define{'NO_MATHOMS'} ? qr/[eiIsb]/ : qr/[eiIs]/;
 
     foreach (@$embed_array) {
         my $embed= $_->{embed}
             or next;
 	my ($flags, $retval, $func, $args) = @{$embed}{qw(flags return_type name args)};
 	next unless $func;
-	if (($flags =~ /[AXC]/ && $flags !~ $excludedre)
-            || (!$define{'NO_MATHOMS'} && $flags =~ /b/))
+        next if $flags =~ /u/;
+	if (   ($flags =~ /[AXC]/ && $flags !~ $excludedre)
+            || (!$define{'NO_MATHOMS'} && $flags =~ /b/)
+            || ($flags =~ tr/mp// > 1))
         {
 	    # public API, so export