Mercurial > projects > ldc

comparison revisions.pl.in @ 1064:f0b6549055ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make LDC work with LLVM trunk (s/LinkOnceLinkage/LinkOnceOdrLinkage/) Also moved the #defines for linkage types into a separate header instead of mars.h so we can #include revisions.h without having to rebuild the entire frontend every time we update. (I'm using revisions.h to get the LLVM revision for use in preprocessor conditionals. It should work with LLVM release 2.5, old trunk and new trunk)
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:13:10 +0100
parents d66ab756c75b
children dc576c7e4b1e
comparison
equal deleted inserted replaced
1063:40d7f9b7357f 1064:f0b6549055ab
5 use File::stat; 5 use File::stat;
6 use Time::localtime; 6 use Time::localtime;
7 7
8 my $llvm_src = `perl @LLVM_CONFIG@ --src-root`; 8 my $llvm_src = `perl @LLVM_CONFIG@ --src-root`;
9 9
10 my $llvm_rev = `svnversion $llvm_src`; 10 my $llvm_rev = `svnversion --committed $llvm_src`;
11 my $llvm_rev_str;
12 my $llvm_rev_nr;
11 13
12 if ($llvm_rev =~ s/(\d+M?)\s+$/$1/) { 14 if ($llvm_rev =~ /^\s*(\d+:)?(?<str>(?<nr>\d+)[MSP]*)\s*$/) {
13 $llvm_rev = qq!#define LLVM_REV "LLVM rev. $llvm_rev"! 15 $llvm_rev_str = qq!#define LLVM_REV_STR "LLVM rev. $+{str}"!;
16 $llvm_rev_nr = "$+{nr}";
14 } else { 17 } else {
15 my $llvm_lib = `perl @LLVM_CONFIG@ --libdir`; 18 my $llvm_lib = `perl @LLVM_CONFIG@ --libdir`;
16 $llvm_lib =~ s/\s+$//; 19 $llvm_lib =~ s/\s+$//;
17 $llvm_rev = ctime(stat($llvm_lib)->mtime) if (-d $llvm_lib); 20 $llvm_rev = ctime(stat($llvm_lib)->mtime) if (-d $llvm_lib);
18 $llvm_rev = qq!#include "llvm/Config/config.h"\n#define LLVM_REV PACKAGE_STRING" ($llvm_rev)"!; 21 $llvm_rev_str = qq!#include "llvm/Config/config.h"\n#define LLVM_REV_STR PACKAGE_STRING" ($llvm_rev)"!;
22 # Assume latest release, so < any version we should be testing for.
23 $llvm_rev_nr = 0;
19 } 24 }
20 25
21 my $ldc_rev = `hg -R@PROJECT_SOURCE_DIR@ log -r qparent --template '{rev}:{node|short} ({date|isodate})' 2>/dev/null || hg -R@PROJECT_SOURCE_DIR@ tip --template '{rev}:{node|short} ({date|isodate})'`; 26 my $ldc_rev = `hg -R@PROJECT_SOURCE_DIR@ log -r qparent --template '{rev}:{node|short} ({date|isodate})' 2>/dev/null || hg -R@PROJECT_SOURCE_DIR@ tip --template '{rev}:{node|short} ({date|isodate})'`;
22 27
23 my $out = qq!#ifndef LDC_VERSIONS_H 28 my $out = qq!#ifndef LDC_VERSIONS_H
24 #define LDC_VERSIONS_H 29 #define LDC_VERSIONS_H
25 30
26 $llvm_rev 31 // LLVM version string, for use in -version output
32 $llvm_rev_str
33 // LLVM svn revision number, used to adapt to changes in LLVM
34 // (Is 0 if LLVM is not an SVN version)
35 #define LLVM_REV $llvm_rev_nr
36 // LDC version string, for use in -version output
27 #define LDC_REV "rev. $ldc_rev" 37 #define LDC_REV "rev. $ldc_rev"
28 38
29 #endif // LDC_VERSIONS_H\n!; 39 #endif // LDC_VERSIONS_H\n!;
30 40
31 my $revh; 41 my $revh;