diff --git a/src/tools/msvc/Project.pm b/src/tools/msvc/Project.pm index 176325e17c..280733638c 100644 --- a/src/tools/msvc/Project.pm +++ b/src/tools/msvc/Project.pm @@ -3,7 +3,7 @@ package Project; # # Package that encapsulates a Visual C++ project file generation # -# $PostgreSQL: pgsql/src/tools/msvc/Project.pm,v 1.22 2009/12/23 13:27:04 mha Exp $ +# $PostgreSQL: pgsql/src/tools/msvc/Project.pm,v 1.23 2010/01/01 17:34:25 mha Exp $ # use Carp; use strict; @@ -33,7 +33,8 @@ sub new solution => $solution, disablewarnings => '4018;4244;4273;4102;4090', disablelinkerwarnings => '', - vcver => $solution->{vcver} + vcver => $solution->{vcver}, + platform => $solution->{platform}, }; bless $self; @@ -391,7 +392,7 @@ EOF $of =~ s/\.y$/.c/; $of =~ s{^src\\pl\\plpgsql\\src\\gram.c$}{src\\pl\\plpgsql\\src\\pl_gram.c}; print F '>' - . GenerateCustomTool('Running bison on ' . $f, + . $self->GenerateCustomTool('Running bison on ' . $f, 'cmd /V:ON /c src\tools\msvc\pgbison.bat ' . $f, $of) . '' . "\n"; } @@ -400,7 +401,7 @@ EOF my $of = $f; $of =~ s/\.l$/.c/; print F '>' - . GenerateCustomTool('Running flex on ' . $f, 'src\tools\msvc\pgflex.bat ' . $f,$of) + . $self->GenerateCustomTool('Running flex on ' . $f, 'src\tools\msvc\pgflex.bat ' . $f,$of) . '' . "\n"; } elsif (defined($uniquefiles{$file})) @@ -410,8 +411,8 @@ EOF my $obj = $dir; $obj =~ s/\\/_/g; print F -">{name}\\$obj" - . "_$file.obj\" />{name}\\$obj" +">{platform}\">{name}\\$obj" + . "_$file.obj\" />{platform}\">{name}\\$obj" . "_$file.obj\" />\n"; } else @@ -431,14 +432,14 @@ EOF sub GenerateCustomTool { - my ($desc, $tool, $output, $cfg) = @_; + my ($self, $desc, $tool, $output, $cfg) = @_; if (!defined($cfg)) { - return GenerateCustomTool($desc, $tool, $output, 'Debug') - .GenerateCustomTool($desc, $tool, $output, 'Release'); + return $self->GenerateCustomTool($desc, $tool, $output, 'Debug') . + $self->GenerateCustomTool($desc, $tool, $output, 'Release'); } return -""; +"{platform}\">"; } sub WriteReferences @@ -460,7 +461,7 @@ sub WriteHeader print $f < - + EOF $self->WriteConfiguration($f, 'Debug', @@ -493,8 +494,9 @@ sub WriteConfiguration } $libs =~ s/ $//; $libs =~ s/__CFGNAME__/$cfgname/g; + my $targetmachine = $self->{platform} eq 'Win32' ? 1 : 17; print $f < {disablelinkerwarnings}) { @@ -540,7 +542,7 @@ EOF if ($self->{builddef}) { print $f -"\t{name}\" />\n"; +"\t{name} $self->{platform}\" />\n"; } print $f < diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm index d01a81f71a..5dc95c9925 100644 --- a/src/tools/msvc/Solution.pm +++ b/src/tools/msvc/Solution.pm @@ -3,7 +3,7 @@ package Solution; # # Package that encapsulates a Visual C++ solution file generation # -# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.50 2009/12/30 12:26:41 mha Exp $ +# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.51 2010/01/01 17:34:25 mha Exp $ # use Carp; use strict; @@ -21,6 +21,7 @@ sub new numver => '', strver => '', vcver => undef, + platform => undef, }; bless $self; # integer_datetimes is now the default @@ -73,6 +74,19 @@ sub DetermineToolVersions elsif ($1 == 9) { $self->{vcver} = '9.00' } else { die "Unsupported version of Visual Studio: $1" } print "Detected Visual Studio version $self->{vcver}\n"; + +# Determine if we are in 32 or 64-bit mode. Do this by seeing if CL has +# 64-bit only parameters. + $self->{platform} = 'Win32'; + open(P,"cl /? 2>NUL|") || die "cl command not found"; + while (

) { + if (/^\/favor:{platform} = 'x64'; + last; + } + } + close(P); + print "Detected hardware platform: $self->{platform}\n"; } @@ -109,6 +123,7 @@ sub copyFile sub GenerateFiles { my $self = shift; + my $bits = $self->{platform} eq 'Win32' ? 32 : 64; # Parse configure.in to get version numbers open(C,"configure.in") || confess("Could not open configure.in for reading\n"); @@ -144,8 +159,7 @@ sub GenerateFiles { s{PG_VERSION "[^"]+"}{PG_VERSION "$self->{strver}"}; s{PG_VERSION_NUM \d+}{PG_VERSION_NUM $self->{numver}}; - # XXX: When we support 64-bit, need to remove this hardcoding -s{PG_VERSION_STR "[^"]+"}{__STRINGIFY(x) #x\n#define __STRINGIFY2(z) __STRINGIFY(z)\n#define PG_VERSION_STR "PostgreSQL $self->{strver}, compiled by Visual C++ build " __STRINGIFY2(_MSC_VER) ", 32-bit"}; +s{PG_VERSION_STR "[^"]+"}{__STRINGIFY(x) #x\n#define __STRINGIFY2(z) __STRINGIFY(z)\n#define PG_VERSION_STR "PostgreSQL $self->{strver}, compiled by Visual C++ build " __STRINGIFY2(_MSC_VER) ", $bits-bit"}; print O; } print O "#define PG_MAJORVERSION \"$self->{majorver}\"\n"; @@ -446,8 +460,8 @@ EOF print SLN <{platform}= Debug|$self->{platform} + Release|$self->{platform} = Release|$self->{platform} EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution EOF @@ -457,10 +471,10 @@ EOF foreach my $proj (@{$self->{projects}->{$fld}}) { print SLN <{guid}.Debug|Win32.ActiveCfg = Debug|Win32 - $proj->{guid}.Debug|Win32.Build.0 = Debug|Win32 - $proj->{guid}.Release|Win32.ActiveCfg = Release|Win32 - $proj->{guid}.Release|Win32.Build.0 = Release|Win32 + $proj->{guid}.Debug|$self->{platform}.ActiveCfg = Debug|$self->{platform} + $proj->{guid}.Debug|$self->{platform}.Build.0 = Debug|$self->{platform} + $proj->{guid}.Release|$self->{platform}.ActiveCfg = Release|$self->{platform} + $proj->{guid}.Release|$self->{platform}.Build.0 = Release|$self->{platform} EOF } } diff --git a/src/tools/msvc/gendef.pl b/src/tools/msvc/gendef.pl index 05455787cb..81ce9f4dbb 100644 --- a/src/tools/msvc/gendef.pl +++ b/src/tools/msvc/gendef.pl @@ -2,11 +2,13 @@ my @def; # # Script that generates a .DEF file for all objects in a directory # -# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.8 2008/01/31 16:30:24 adunstan Exp $ +# $PostgreSQL: pgsql/src/tools/msvc/gendef.pl,v 1.9 2010/01/01 17:34:25 mha Exp $ # -die "Usage: gendef.pl \n" unless ($ARGV[0] =~ /\\([^\\]+$)/); +die "Usage: gendef.pl \n" unless + (($ARGV[0] =~ /\\([^\\]+$)/) && ($ARGV[1] == 'Win32' || $ARGV[1] == 'x64')); my $defname = uc $1; +my $platform = $ARGV[1]; if (-f "$ARGV[0]/$defname.def") { @@ -14,7 +16,7 @@ if (-f "$ARGV[0]/$defname.def") exit(0); } -print "Generating $defname.DEF from directory $ARGV[0]\n"; +print "Generating $defname.DEF from directory $ARGV[0], platform $platform\n"; while (<$ARGV[0]/*.obj>) { @@ -55,7 +57,7 @@ foreach my $f (sort @def) { next if ($f eq $last); $last = $f; - $f =~ s/^_//; + $f =~ s/^_// unless ($platform eq "x64"); # win64 has new format of exports $i++; # print DEF " $f \@ $i\n"; # ordinaled exports?