It's not necessary to do rounding for alloca operations when the requested
alignment is equal to the stack alignment.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@40004 91177308-0d34-0410-b5e6-96231b3b80d8
diff --git a/test/Scripts/prcontext.tcl b/test/Scripts/prcontext.tcl
new file mode 100755
index 0000000..5ab0854
--- /dev/null
+++ b/test/Scripts/prcontext.tcl
@@ -0,0 +1,36 @@
+#!/usr/bin/tclsh
+#
+# Usage:
+# prcontext <pattern> <# lines of context>
+# (for platforms that don't have grep -C)
+
+
+#
+# Get the arguments
+#
+set pattern [lindex $argv 0]
+set num [lindex $argv 1]
+
+
+#
+# Get all of the lines in the file.
+#
+set lines [split [read stdin] \n]
+
+set index 0
+foreach line $lines {
+ if { [regexp $pattern $line match matchline] } {
+ if { [ expr [expr $index - $num] < 0 ] } {
+ set bottom 0
+ } else {
+ set bottom [expr $index - $num]
+ }
+ set endLineNum [ expr [expr $index + $num] + 1]
+ while {$bottom < $endLineNum} {
+ set output [lindex $lines $bottom]
+ puts $output
+ set bottom [expr $bottom + 1]
+ }
+ }
+ set index [expr $index + 1]
+}
\ No newline at end of file