Change 30120 by [EMAIL PROTECTED] on 2007/02/04 20:43:46
In vms/gen_shrfls.pl, consider EXTERN_C declarations as function
candidates, not global variable candidates. Currently only needed
for PerlIO_teardown.
Affected files ...
... //depot/perl/vms/gen_shrfls.pl#41 edit
Differences ...
==== //depot/perl/vms/gen_shrfls.pl#41 (text) ====
Index: perl/vms/gen_shrfls.pl
--- perl/vms/gen_shrfls.pl#40~27669~ 2006-04-01 17:09:38.000000000 -0800
+++ perl/vms/gen_shrfls.pl 2007-02-04 12:43:46.000000000 -0800
@@ -194,18 +194,18 @@
while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) {
while (/__VMS_PROTOTYPES__/i .. /__VMS_SEPYTOTORP__/i) {
print "vms_proto>> $_" if $debug > 2;
- if (/^\s*EXT/) { &scan_var($_); }
+ if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); }
else { &scan_func($_); }
last LINE unless defined($_ = <CPP>);
}
print "vmsish.h>> $_" if $debug > 2;
- if (/^\s*EXT/) { &scan_var($_); }
+ if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); }
last LINE unless defined($_ = <CPP>);
}
while (/^#.*opcode\.h/i .. /^#.*perl\.h/i) {
print "opcode.h>> $_" if $debug > 2;
if (/^OP \*\s/) { &scan_func($_); }
- if (/^\s*EXT/) { &scan_var($_); }
+ if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); }
last LINE unless defined($_ = <CPP>);
}
# Check for transition to new header file
@@ -221,12 +221,12 @@
}
if ($ckfunc) {
print "$scanname>> $_" if $debug > 2;
- if (/^\s*EXT/) { &scan_var($_); }
+ if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); }
else { &scan_func($_); }
}
else {
print $_ if $debug > 3 && ($debug > 5 || length($_));
- if (/^\s*EXT/) { &scan_var($_); }
+ if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); }
}
}
close CPP;
End of Patch.
