From 69d8be78d35051303f403bcf0d1379e46ab7e146 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Thu, 1 Nov 2012 14:57:36 -0500
Subject: [PATCH] startup: Recognize 64-bit Windows

For 64-bit versions of Perl on Windows, the EpicsHostArch.pl
script will now return the host architecture "windows-x64".
---
 startup/EpicsHostArch.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/startup/EpicsHostArch.pl b/startup/EpicsHostArch.pl
index 1c4a96dcb..942d55940 100755
--- a/startup/EpicsHostArch.pl
+++ b/startup/EpicsHostArch.pl
@@ -30,6 +30,7 @@ sub GetEpicsHostArch { # no args
     } elsif ($arch =~ m/x86_64-linux/)  { return "linux-x86_64";
     } elsif ($arch =~ m/arm-linux/)     { return "linux-arm";
     } elsif ($arch =~ m/MSWin32-x86/)   { return "win32-x86";
+    } elsif ($arch =~ m/MSWin32-x64/)   { return "windows-x64";
     } elsif ($arch =~ m/cygwin/)        { return "cygwin-x86";
     } elsif ($arch =~ m/darwin/)        {
             my($kernel, $hostname, $release, $version, $cpu) = POSIX::uname();