$d_attr = 'undef';
}
print OUT "vms_cc_type='$cctype'\n";
- print OUT "d_attribut='$d_attr'\n";
+ print OUT "d_attribute_format='$d_attr'\n";
+ # XXX The following attributes may be able to use $d_attr, too.
+ print OUT "d_attribute_malloc='undef'\n";
+ print OUT "d_attribute_nonnull='undef'\n";
+ print OUT "d_attribute_noreturn='undef'\n";
+ print OUT "d_attribute_pure='undef'\n";
+ print OUT "d_attribute_unused='undef'\n";
+ print OUT "d_attribute_warn_unused_result='undef'\n";
print OUT "cc='$cc'\n";
if ( ($cctype eq 'decc' and $archsufx eq 'VAX') || $cctype eq 'gcc') {
# gcc and DECC for VAX requires filename in /object qualifier, so we
$optimize = $qual;
$ccflags =~ s/$qual//;
}
- $usethreads = ($ccflags =~ m!/DEF[^/]+USE_THREADS!i and
- $ccflags !~ m!/UND[^/]+USE_THREADS!i);
+ $usethreads = ($ccflags =~ m!/DEF[^/]+USE_5005THREADS!i and
+ $ccflags !~ m!/UND[^/]+USE_5005THREADS!i);
print OUT "usethreads='",($usethreads ? 'define' : 'undef'),"'\n";;
$optimize = "$debug$optimize";
print OUT "ccflags='$ccflags'\n";
# as the manifest for the obsolete variable $d_eunice.
print OUT "d_eunice='undef'\n"; delete $pp_vars{VMS};
-# XXX temporary -- USE_THREADS is currently on CC command line
-delete $pp_vars{'USE_THREADS'};
+# XXX temporary -- USE_5005THREADS is currently on CC command line
+delete $pp_vars{'USE_5005THREADS'};
foreach (sort keys %pp_vars) {
warn "Didn't see $_ in $infile\n";