lxdream.org :: lxdream/src/checkver.pl r738:0cbff49086b8

tree revision 936:f394309c399a lxdream-mem

filename	src/checkver.pl
changeset	738:0cbff49086b8
next	1068:a422f30ce0a8
author	nkeynes
date	Sat Dec 27 02:59:35 2008 +0000 (15 years ago)
branch	lxdream-mem
permissions	-rw-r--r--
last change	Replace fpscr_mask/fpscr flags in xlat_cache_block with a single xlat_sh4_mode, which tracks the field of the same name in sh4r - actually a little faster this way. Now depends on SR.MD, FPSCR.PR and FPSCR.SZ (although it doesn't benefit from the SR flag yet). Also fixed the failure to check the flags in the common case (code address returned by previous block) which took away the performance benefits, but oh well.

file

annotate

diff

log

raw

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/checkver.pl	Sat Dec 27 02:59:35 2008 +0000
     1.3 @@ -0,0 +1,39 @@
     1.4 +#!/usr/bin/perl
     1.5 +# Usage: updatever.pl <basever> <top_srcdir> <version file>
     1.6 +
     1.7 +my $svnversion = "svnversion";
     1.8 +my $basever = $ARGV[0];
     1.9 +my $top_srcdir = $ARGV[1];
    1.10 +my $outfile = $ARGV[2];
    1.11 +
    1.12 +my $rev = "";
    1.13 +my $full_ver = "$basever";
    1.14 +
    1.15 +if( $svnversion ) {
    1.16 +   $rev = `$svnversion "$top_srcdir"`;
    1.17 +   chomp $rev;
    1.18 +   if( $rev == "exported" ) {
    1.19 +      $rev = "";
    1.20 +   } else {
    1.21 +      $full_ver = "${basever}.${rev}";
    1.22 +   }
    1.23 +}
    1.24 +my $header = "/* Autogenerated by checkver.pl */";
    1.25 +my $output = "${header}\n".
    1.26 +             "const char lxdream_package_name[] = \"lxdream $basever\";\n" .
    1.27 +             "const char lxdream_short_version[] = \"$basever\";\n" .
    1.28 +             "const char lxdream_full_version[] = \"$full_ver\";\n" .
    1.29 +             "const char lxdream_copyright[] = \"Copyright (C) 2005-2008 Nathan Keynes\";\n";
    1.30 +
    1.31 +my $oldfile = "";
    1.32 +if( -e $outfile ) {
    1.33 +    open(VERSIONFILE, "<$outfile") || die "Unable to read from $outfile\n";
    1.34 +    $oldfile = join "", <VERSIONFILE>;
    1.35 +    close(VERSIONFILE);
    1.36 +}
    1.37 +
    1.38 +if( $oldfile ne $output ) {
    1.39 +    open(VERSIONFILE, ">$outfile") || die "Unable to write to $outfile\n";
    1.40 +    print VERSIONFILE $output;
    1.41 +    close(VERSIONFILE);
    1.42 +}
    1.43 \ No newline at end of file