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 35f9d3bf295a3d89a10a5e8c731300c6207f1dad..d7beb1ee9c797aa6e9d9d23b50214e2f03a2043f 100644 (file)
--- 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]} {