Build failure on Windows.

Niklas Larsson <[email protected]> Sat, 15 Dec 2012 16:02:24 +0100

Newsgroups	gmane.comp.lang.haskell.cvs.ghc
Message-ID	<CACG=oWH=LwJs97zPPdXe3ASceWkEBaRP4N0PEZpiv7Bqc4aOcg@mail.gmail.com>

Hi!

It seems like the build on Windows HEAD is trying to build the PowerPC
assembly in rts/AdjustorAsm.S. Somehow the powerpc_HOST_ARCH must be
defined, I can't figure out how though.

It seems to work fine on commit d7d25db3e58f3edfb950ebfa466c1e1e06d175d6
from a week ago.

I have one patch though. When I was messing around, I taught sync-all how
to checkout all the repos based on a date. It is somewhat tested, use with
caution.

_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

0001-Add-date-command-to-sync-all.patch (application/octet-stream, 1.4 KB)

From 98c64b8ddea95bc87afe2e4979aa3e336a72c202 Mon Sep 17 00:00:00 2001
From: Niklas Larsson <[email protected]>
Date: Sat, 15 Dec 2012 15:49:30 +0100
Subject: [PATCH] Add "date" command to sync-all

The date command checks out all the repos to the last commit before the
date provided. The date formats supported are the same as "git log"
supports.

Examples of use:
./sync-all date "2012-12-01"
./sync-all date "Dec 1, 2012 10:00"
---
 sync-all | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/sync-all b/sync-all
index 225ad36..2046cc3 100755
--- a/sync-all
+++ b/sync-all
@@ -182,6 +182,23 @@ sub scm {
     }
 }
 
+sub checkout_date {
+    my $dir = shift;
+    if ($dir eq '.') {
+        message "== Getting last commit before @_";
+    } else {
+        message "== $dir: Getting last commit before @_";
+        chdir($dir);
+    }
+    open(SHA,"git log -1 --before=\"@_\" --format=\"\%H\" |");
+    my $sha = <SHA>;
+    system("git checkout $sha");
+    close(SHA);
+    if ($dir ne '.') {
+        chdir($initial_working_directory);
+    }
+}
+
 sub scmall {
     my $command = shift;
 
@@ -476,6 +493,9 @@ sub scmall {
         elsif ($command eq "tag") {
             scm ($localpath, $scm, "tag", @args);
         }
+        elsif ($command eq "date") {
+            checkout_date($localpath, @args) if $scm eq "git";
+        }
         else {
             die "Unknown command: $command";
         }
-- 
1.8.0.msysgit.0