mirror of
https://github.com/RPCSX/llvm.git
synced 2024-12-04 01:43:06 +00:00
15d4059430
committed). This infrastructure is only activated when RUNLLVM2CPP=1 is specified on the make command line. Currently it is only supported in the Feature test suite. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@28525 91177308-0d34-0410-b5e6-96231b3b80d8
80 lines
2.4 KiB
Plaintext
80 lines
2.4 KiB
Plaintext
# This file defines a tcl proc to assist with testing the llvm2cpp. There are
|
|
# no llvm2cpp specific test cases. Instead, it utilizes all the existing test
|
|
# cases and makes sure llvm2cpp can run them. The basic idea is that we find
|
|
# all the LLVM Assembly (*.ll) files, run llvm2cpp on them to generate a C++
|
|
# program, compile those programs, run them and see if what they produce matches
|
|
# the original input to llvm2cpp.
|
|
|
|
proc llvm2cpp-test { files } {
|
|
# if { $env(LLVM_RUNLLVM2CPP_TEST) == 1 } {
|
|
global subdir tooldir libdir objdir srcdir objroot srcroot
|
|
set timeout 30
|
|
set path [file join $objdir $subdir]
|
|
set llvm2cpp [file join $tooldir llvm2cpp ]
|
|
set llvmas [file join $tooldir llvm-as ]
|
|
set llvmdis [file join $tooldir llvm-dis ]
|
|
|
|
#Make Output Directory if it does not exist already
|
|
if { [file exists path] } {
|
|
cd $path
|
|
} else {
|
|
file mkdir $path
|
|
cd $path
|
|
}
|
|
|
|
file mkdir Output
|
|
|
|
foreach test $files {
|
|
|
|
set filename [file tail $test]
|
|
set generated [file join Output $filename.cpp]
|
|
set executable [file join Output $filename.exe]
|
|
set output [file join Output $filename.gen]
|
|
set assembly [file join Output $filename.asm]
|
|
|
|
set retval [ catch {
|
|
exec -keepnewline $llvmas $test -o - | $llvmdis -f -o $assembly } msg ]
|
|
|
|
if { $retval != 0 } {
|
|
fail "$test: llvm-as/llvm-dis returned $retval\n$msg"
|
|
continue
|
|
}
|
|
|
|
set retval [ catch {
|
|
exec -keepnewline $llvm2cpp -f -o $generated $test } msg]
|
|
|
|
if { $retval != 0 } {
|
|
fail "$test: llvm2cpp returned $retval\n$msg"
|
|
continue
|
|
}
|
|
|
|
set retval [ catch {
|
|
exec -keepnewline gcc -g -D__STDC_LIMIT_MACROS -o $executable $generated -I$srcroot/include -I$objroot/include -L$libdir $libdir/LLVMCore.o -lLLVMSupport $libdir/LLVMbzip2.o -lLLVMSystem -lstdc++ } msg ]
|
|
|
|
if { $retval != 0 } {
|
|
fail "$test: gcc returned $retval\n$msg"
|
|
continue
|
|
}
|
|
|
|
set retval [ catch {
|
|
exec -keepnewline $executable > $output } msg ]
|
|
|
|
if { $retval != 0 } {
|
|
fail "$test: $filename returned $retval\n$msg"
|
|
continue
|
|
}
|
|
|
|
set retval [ catch {
|
|
exec -keepnewline diff -u $assembly $generated } msg ]
|
|
|
|
if { $retval != 0 } {
|
|
fail "$test: diff returned $retval\n$msg"
|
|
continue
|
|
}
|
|
pass "$test"
|
|
}
|
|
# }
|
|
}
|
|
|
|
|