Changeset 1127 for script

Show
Ignore:
Timestamp:
03/25/05 12:25:34 (4 years ago)
Author:
kcwu
svk:copy_cache_prev:
2534
Message:

let script/pugscc know $ENV{GHC}

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • script/pugscc

    r1083 r1127  
    4242print "*** Using the '$backend' backend.\n" if !$run; 
    4343 
     44my $ghc_exe = $ENV{GHC} || 'ghc'; 
    4445my $ghc_version = ghc_version(); 
    4546my $base = cwd(); 
    … …  
    9596    push @ghc_flags, "$base/src/UnicodeC.o"; 
    9697 
    97     (system("ghc", "-v0", "-o", $out, "--make", "-main-is", "MainCC.mainCC", @ghc_flags, "$base/src/MainCC.hs") == 0) or die $!; 
     98    (system($ghc_exe, "-v0", "-o", $out, "--make", "-main-is", "MainCC.mainCC", @ghc_flags, "$base/src/MainCC.hs") == 0) or die $!; 
    9899    unlink "$base/src/MainCC.hs"; 
    99100} 
    … …  
    114115 
    115116sub ghc_version { 
    116     my $ghcver = `ghc --version`; 
     117    my $ghcver = `$ghc_exe --version`; 
    117118    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.'; 
    118119*** Cannot find a runnable 'ghc' from path.