From: Tanya Lattner <tonic@nondot.org>
Date: Sat, 13 Nov 2004 22:55:51 +0000 (+0000)
Subject: Changed to use tcl script.
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=de942dc12d8f2b68124c1e5e466954d5f9ee7c23;p=oota-llvm.git

Changed to use tcl script.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@17711 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/test/lib/llvm-dg.exp b/test/lib/llvm-dg.exp
index 35f9d3bf295..d7beb1ee9c7 100644
--- a/test/lib/llvm-dg.exp
+++ b/test/lib/llvm-dg.exp
@@ -52,8 +52,8 @@ proc llvm-runtest { programs objdir subdir target_triplet llvmgcc llvmgxx prcont
 		#replace %llvmgxx with actual path to llvmg++
 		regsub -all {%llvmgxx} $new_runline $llvmgxx new_runline
 		
-		#replace %prcontext with actual path to llvmg++ (Goes away when we remove qmtest)
-		regsub -all {%prcontext} $new_runline "$prcontext" new_runline
+		#replace %prcontext with prcontext.tcl (Goes away when we remove qmtest)
+		regsub -all {%prcontext} $new_runline "prcontext.tcl" new_runline
 
 		puts $scriptFileId $new_runline
 	    } elseif {[regexp {XFAIL:[ *](.+)} $line match targets]} {