Data commit

Task/Stack-traces/Oz/stack-traces-1.oz

@@ -0,0 +1,10 @@
+declare
+  proc {Test}
+     _ = 1 div 0
+  end
+in
+  try
+     {Test}
+  catch E then
+     {Inspect E}
+  end

Task/Stack-traces/Oz/stack-traces-2.oz

@@ -0,0 +1,15 @@
+%% make sure that simple function calls are not optimized away
+\switch +controlflowinfo
+
+declare
+  [Debug] = {Link ['x-oz://boot/Debug']}
+
+  proc {F} {G} end
+
+  proc {G} {H} end
+
+  proc {H}
+     {Inspect {Debug.getTaskStack {Thread.this} 100 true}}
+  end
+in
+   {F}