Remove 3 hex digit limit on symbol number in recent fix.

adunstan · adunstan · commit 7ae43187eec7 · 2008-01-31T16:30:24.000Z
diff --git a/src/tools/msvc/gendef.pl b/src/tools/msvc/gendef.pl
@@ -2,7 +2,7 @@
 #
 # Script that generates a .DEF file for all objects in a directory
 # 
-# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.7 2008/01/31 03:26:14 adunstan Exp $
+# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.8 2008/01/31 16:30:24 adunstan Exp $
 #
 
 die "Usage: gendef.pl <modulepath>\n" unless ($ARGV[0] =~ /\\([^\\]+$)/);
@@ -27,7 +27,7 @@
     {
         s/\(\)//g;
         my @pieces = split;
-        next unless $pieces[0] =~ /^[A-F0-9]{3}$/;
+        next unless $pieces[0] =~ /^[A-F0-9]{3,}$/;
         next unless $pieces[6];
         next if ($pieces[2] eq "UNDEF");
         next unless ($pieces[4] eq "External");

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`#`
`3`	`3`	`# Script that generates a .DEF file for all objects in a directory`
`4`	`4`	`#`
`5`		`-# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.7 2008/01/31 03:26:14 adunstan Exp $`
	`5`	`+# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.8 2008/01/31 16:30:24 adunstan Exp $`
`6`	`6`	`#`
`7`	`7`
`8`	`8`	`die "Usage: gendef.pl <modulepath>\n" unless ($ARGV[0] =~ /\\([^\\]+$)/);`
`@@ -27,7 +27,7 @@`
`27`	`27`	`{`
`28`	`28`	`s/\(\)//g;`
`29`	`29`	`my @pieces = split;`
`30`		`- next unless $pieces[0] =~ /^[A-F0-9]{3}$/;`
	`30`	`+ next unless $pieces[0] =~ /^[A-F0-9]{3,}$/;`
`31`	`31`	`next unless $pieces[6];`
`32`	`32`	`next if ($pieces[2] eq "UNDEF");`
`33`	`33`	`next unless ($pieces[4] eq "External");`