drew
/
acadia-newlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cygwin: gentls_offsets: Remove obsolte 'o' regex option 

Signed-off-by: Corinna Vinschen <corinna@vinschen.de>
This commit is contained in:
Corinna Vinschen 2019-01-15 13:19:41 +01:00
parent f7566c83c6
commit 4d2d891b99
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
winsup/cygwin/gentls_offsets
View File

@ -26,21 +26,21 @@ substr($tls, 0, length($pre)) = '';
$pre .= "\n//*/"; $pre .= "\n//*/";
$tls =~ s%/\*\s*gentls_offsets.*?/\*\s*gentls_offsets\s*\*/%%ogs; $tls =~ s%/\*\s*gentls_offsets.*?/\*\s*gentls_offsets\s*\*/%%ogs;
foreach ($tls =~ /^.*\n/mg) { foreach ($tls =~ /^.*\n/mg) {
/^}|\s*(?:typedef|const)/o and do { /^}|\s*(?:typedef|const)/ and do {
$def .= $_ ; $def .= $_ ;
next; next;
}; };
$def .= $_ if $struct; $def .= $_ if $struct;
if (!s/;.*$//o) { if (!s/;.*$//) {
if (!$struct && /^\s*(?:struct|class)\s*([a-z_0-9]+)/o) { if (!$struct && /^\s*(?:struct|class)\s*([a-z_0-9]+)/) {
$def .= $_; $def .= $_;
$struct = $1 $struct = $1
} }
next; next;
} }
s/(?:\[[^\]]*\]|struct|class)//o; s/(?:\[[^\]]*\]|struct|class)//;
s/^\s+\S+\s+//o; s/^\s+\S+\s+//;
s/[\*\s()]+//go; s/[\*\s()]+//g;
for my $f (split(/,/)) { for my $f (split(/,/)) {
push(@fields, $f); push(@fields, $f);
} }