vendor/dtracetoolkit/dtracetoolkit-20120512vendor/dtracetoolkit

1 files changed, 20 insertions, 0 deletions

diff --git a/Code/Tcl/func_abc.tcl b/Code/Tcl/func_abc.tcl
new file mode 100644
index 000000000000..c84acb074882
--- /dev/null
+++ b/Code/Tcl/func_abc.tcl
@@ -0,0 +1,20 @@
+#!./tclsh
+
+proc func_c {} {
+	puts "Function C"
+	after 1000
+}
+
+proc func_b {} {
+	puts "Function B"
+	after 1000
+	func_c
+}
+
+proc func_a {} {
+	puts "Function A"
+	after 1000
+	func_b
+}
+
+func_a