projects / postgresql.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5069e95)
Detect a 64-bit build environment on Windows, and generate the appropriate
authorMagnus Hagander
Fri, 1 Jan 2010 17:34:25 +0000 (17:34 +0000)
committerMagnus Hagander
Fri, 1 Jan 2010 17:34:25 +0000 (17:34 +0000)
project files.

Based on the work of Tsutomu Yamada, but much refactored.

src/tools/msvc/Project.pm patch | blob | blame | history
src/tools/msvc/Solution.pm patch | blob | blame | history
src/tools/msvc/gendef.pl patch | blob | blame | history

diff --git a/src/tools/msvc/Project.pm b/src/tools/msvc/Project.pm
index 176325e17c73e943049109245bd1afdd1cdda633..280733638cf6efd41ffb07142ca0b2bb9c4e7033 100644 (file)
--- 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
-">Win32\">{name}\\$obj"
-              . "_$file.obj\" />Win32\">{name}\\$obj"
+">$self->{platform}\">{name}\\$obj"
+              . "_$file.obj\" />$self->{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
-"Win32\">";
+"$self->{platform}\">";
 }
 
 sub WriteReferences
@@ -460,7 +461,7 @@ sub WriteHeader
     print $f <
 
 {vcver}" Name="$self->{name}" ProjectGUID="$self->{guid}">
- Win32"/>
+ $self->{platform}"/>
  
 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 <
-  Win32" OutputDirectory=".\\$cfgname\\$self->{name}" IntermediateDirectory=".\\$cfgname\\$self->{name}"
+  $self->{platform}" OutputDirectory=".\\$cfgname\\$self->{name}" IntermediateDirectory=".\\$cfgname\\$self->{name}"
    ConfigurationType="$cfgtype" UseOfMFC="0" ATLMinimizesCRunTimeLibraryUsage="FALSE" CharacterSet="2" WholeProgramOptimization="$p->{wholeopt}">
    {opt}"
        AdditionalIncludeDirectories="$self->{prefixincludes}src/include;src/include/port/win32;src/include/port/win32_msvc;$self->{includes}"
@@ -513,7 +515,7 @@ EOF
        StackReserveSize="4194304" DisableSpecificWarnings="$self->{disablewarnings}"
        GenerateDebugInformation="TRUE" ProgramDatabaseFile=".\\$cfgname\\$self->{name}\\$self->{name}.pdb"
        GenerateMapFile="FALSE" MapFileName=".\\$cfgname\\$self->{name}\\$self->{name}.map"
-       SubSystem="1" TargetMachine="1"
+       SubSystem="1" TargetMachine="$targetmachine"
 EOF
     if ($self->{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 d01a81f71a11a187057c97dc3a73e610b96f2056..5dc95c99258fb7ac72ef0ca17190a00d5f966660 100644 (file)
--- 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:
+           $self->{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 <
 Global
    GlobalSection(SolutionConfigurationPlatforms) = preSolution
-       Debug|Win32 = Debug|Win32
-       Release|Win32 = Release|Win32
+       Debug|$self->{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 <
-       $proj->{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 05455787cbbb1804aacc5faf3824c777dd4f3ec0..81ce9f4dbbf318a1e05b7d7e6962771a036131be 100644 (file)
--- 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?
This is the main PostgreSQL git repository.