From: Tanya Lattner Date: Fri, 19 Nov 2004 22:46:23 +0000 (+0000) Subject: Adding srcdir arg. Added ability to specify the path to an input file. This is needed... X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=f9e7943915edf1945e9cbf81930bc5271bad60db;p=oota-llvm.git Adding srcdir arg. Added ability to specify the path to an input file. This is needed for when srcdir != objdir. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@18021 91177308-0d34-0410-b5e6-96231b3b80d8 --- diff --git a/test/lib/llvm-dg.exp b/test/lib/llvm-dg.exp index 8363af7807b..7c104c0f462 100644 --- a/test/lib/llvm-dg.exp +++ b/test/lib/llvm-dg.exp @@ -1,4 +1,4 @@ -proc llvm-runtest { programs objdir subdir target_triplet llvmgcc llvmgxx prcontext} { +proc llvm-runtest { programs objdir srcdir subdir target_triplet llvmgcc llvmgxx prcontext} { set path [file join $objdir $subdir] @@ -14,7 +14,9 @@ proc llvm-runtest { programs objdir subdir target_triplet llvmgcc llvmgxx prcont foreach test $programs { - set timeout 40 + #Should figure out best way to set the timeout + #set timeout 40 + set filename [file tail $test] set output [file join Output $filename.out] set script $output.script @@ -46,15 +48,18 @@ proc llvm-runtest { programs objdir subdir target_triplet llvmgcc llvmgxx prcont #replace %t with temp filenames regsub -all {%t} $new_runline [file join Output $tmpFile] new_runline + #replace %prcontext with prcontext.tcl (Must replace before %p) + regsub -all {%prcontext} $new_runline $prcontext new_runline + + #replace %p with path to source, + regsub -all {%p} $new_runline $srcdir new_runline + #replace %llvmgcc with actual path to llvmgcc regsub -all {%llvmgcc} $new_runline $llvmgcc new_runline #replace %llvmgxx with actual path to llvmg++ regsub -all {%llvmgxx} $new_runline $llvmgxx new_runline - #replace %prcontext with prcontext.tcl (Goes away when we remove qmtest) - regsub -all {%prcontext} $new_runline $prcontext new_runline - puts $scriptFileId $new_runline } elseif {[regexp {XFAIL:[ *](.+)} $line match targets]} { set targets