jruby · Feb 19, 2016 · Feb 19, 2016 · Feb 19, 2016 · Feb 19, 2016
diff --git a/test/truffle/integration/backtraces/backtraces.rb b/test/truffle/integration/backtraces/backtraces.rb
@@ -10,7 +10,7 @@ def check(file)
   expected = nil
 
   File.open('test/truffle/integration/backtraces/' + file) do |f|
-    expected = f.lines.map(&:strip)
+    expected = f.each_line.map(&:strip)
   end
 
   begin

diff --git a/test/truffle/integration/backtraces/eval.rb b/test/truffle/integration/backtraces/eval.rb
@@ -6,10 +6,10 @@
 # GNU General Public License version 2
 # GNU Lesser General Public License version 2.1
 
-require_relative 'backtraces'
-
 # TODO CS 3-Feb-16 Not compliant with MRI - here as a regression test
 
+require_relative 'backtraces'
+
 def m1
   eval 'm2'
 end

diff --git a/test/truffle/integration/backtraces/send.rb b/test/truffle/integration/backtraces/send.rb
@@ -6,10 +6,10 @@
 # GNU General Public License version 2
 # GNU Lesser General Public License version 2.1
 
-require_relative 'backtraces'
-
 # TODO CS 3-Feb-16 Not compliant with MRI - here as a regression test
 
+require_relative 'backtraces'
+
 def m1
   send :m2
 end

diff --git a/test/truffle/integration/tracing.sh b/test/truffle/integration/tracing.sh
@@ -0,0 +1,9 @@
+#!/usr/bin/env bash
+
+set -e
+
+for f in test/truffle/integration/tracing/*.rb
+do
+  echo $f
+  ruby -X+T $f
+done
diff --git a/test/truffle/integration/tracing/binding.rb b/test/truffle/integration/tracing/binding.rb
@@ -0,0 +1,34 @@
+# Copyright (c) 2016 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+# TODO CS 19-Feb-16 Not compliant with MRI - here as a regression test
+
+require_relative 'tracing'
+
+def add(a)
+  a + yield
+end
+
+outside_trace = 1
+captured_in_scope = 2
+modified = 3
+
+set_trace_func $trace_proc
+
+inside_trace = 4
+modified = 5
+
+result = add(14) {
+  captured_in_scope
+}
+
+result
+
+set_trace_func nil
+
+check('binding.trace')
diff --git a/test/truffle/integration/tracing/binding.trace b/test/truffle/integration/tracing/binding.trace
@@ -0,0 +1,11 @@
+["line", "/binding.rb", 23, nil, {:captured_in_scope=>2, :inside_trace=>nil, :modified=>3, :outside_trace=>1, :result=>nil}, nil]
+["line", "/binding.rb", 24, nil, {:captured_in_scope=>2, :inside_trace=>4, :modified=>3, :outside_trace=>1, :result=>nil}, nil]
+["line", "/binding.rb", 26, nil, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>nil}, nil]
+["call", "/binding.rb", 26, :add, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>nil}, Object]
+["line", "/binding.rb", 14, nil, {:a=>14}, nil]
+["call", "/binding.rb", 14, :"<main>", {:a=>14}, Object]
+["line", "/binding.rb", 27, nil, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>16}, nil]
+["call", "/binding.rb", 14, :+, {:a=>14}, Fixnum]
+["line", "/binding.rb", 30, nil, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>16}, nil]
+["line", "/binding.rb", 32, nil, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>16}, nil]
+["call", "/binding.rb", 32, :set_trace_func, {:captured_in_scope=>2, :inside_trace=>4, :modified=>5, :outside_trace=>1, :result=>16}, Object]
diff --git a/test/truffle/integration/tracing/modules.rb b/test/truffle/integration/tracing/modules.rb
@@ -0,0 +1,27 @@
+# Copyright (c) 2016 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+# TODO CS 19-Feb-16 Not compliant with MRI - here as a regression test
+
+require_relative 'tracing'
+
+def add(a, b)
+  a + b
+end
+
+set_trace_func $trace_proc
+
+module Foo
+end
+
+class Bar
+end
+
+set_trace_func nil
+
+check('modules.trace')
diff --git a/test/truffle/integration/tracing/modules.trace b/test/truffle/integration/tracing/modules.trace
@@ -0,0 +1,9 @@
+["class", "/modules.rb", 19, nil, {}, nil]
+["line", "/modules.rb", 19, nil, {}, nil]
+["call", "/modules.rb", 19, :Foo, {}, Module]
+["class", "/modules.rb", 22, nil, {}, nil]
+["line", "/modules.rb", 22, nil, {}, nil]
+["call", "/modules.rb", 22, :inherited, {}, Class]
+["call", "/modules.rb", 22, :Bar, {}, Class]
+["line", "/modules.rb", 25, nil, {}, nil]
+["call", "/modules.rb", 25, :set_trace_func, {}, Object]
diff --git a/test/truffle/integration/tracing/simple.rb b/test/truffle/integration/tracing/simple.rb
@@ -0,0 +1,23 @@
+# Copyright (c) 2016 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+# TODO CS 19-Feb-16 Not compliant with MRI - here as a regression test
+
+require_relative 'tracing'
+
+def add(a, b)
+  a + b
+end
+
+set_trace_func $trace_proc
+
+add(14, 2)
+
+set_trace_func nil
+
+check('simple.trace')
diff --git a/test/truffle/integration/tracing/simple.trace b/test/truffle/integration/tracing/simple.trace
@@ -0,0 +1,6 @@
+["line", "/simple.rb", 19, nil, {}, nil]
+["call", "/simple.rb", 19, :add, {}, Object]
+["line", "/simple.rb", 14, nil, {:a=>14, :b=>2}, nil]
+["call", "/simple.rb", 14, :+, {:a=>14, :b=>2}, Fixnum]
+["line", "/simple.rb", 21, nil, {}, nil]
+["call", "/simple.rb", 21, :set_trace_func, {}, Object]
diff --git a/test/truffle/integration/tracing/tracing.rb b/test/truffle/integration/tracing/tracing.rb
@@ -0,0 +1,72 @@
+# Copyright (c) 2016 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+$trace = []
+
+$trace_proc = proc { |*args|
+  args[4] = args[4].dup
+  $trace << args
+}
+
+def check(file)
+  expected = nil
+
+  File.open('test/truffle/integration/tracing/' + file) do |f|
+    expected = f.each_line.map { |line| eval(line) }
+  end
+
+  actual = $trace
+
+  while actual.size < expected.size
+    actual.push [:missing, :missing, :missing, :missing, :missing, :missing]
+  end
+
+  while expected.size < actual.size
+    expected.push [:missing, :missing, :missing, :missing, :missing, :missing]
+  end
+
+  success = true
+
+  expected.zip(actual).each do |e, a|
+    unless a[0] == e[0]
+      puts "Expected #{e[0]}, actually #{a[0]}"
+      success = false
+    end
+
+    unless a[1].end_with?(e[1])
+      puts "Expected #{e[1]}, actually #{a[1]}"
+      success = false
+    end
+
+    unless a[2] == e[2]
+      puts "Expected #{e[2]}, actually #{a[2]}"
+      success = false
+    end
+
+    unless a[3] == e[3]
+      puts "Expected #{e[3]}, actually #{a[3]}"
+      success = false
+    end
+
+    ab = Hash[a[4].local_variables.sort.map { |v| [v, a[4].local_variable_get(v)] }]
+
+    unless ab == e[4]
+      puts "Expected Binding, actually #{ab}"
+      success = false
+    end
+
+    unless a[5] == e[5]
+      puts "Expected #{e[5]}, actually #{a[5]}"
+      success = false
+    end
+  end
+
+  unless success
+    exit 1
+  end
+end
diff --git a/truffle/src/main/java/org/jruby/truffle/core/binding/BindingNodes.java b/truffle/src/main/java/org/jruby/truffle/core/binding/BindingNodes.java
@@ -194,8 +194,22 @@ protected boolean compatibleFrames(DynamicObject binding1, DynamicObject binding
             final FrameDescriptor fd1 = getFrameDescriptor(binding1);
             final FrameDescriptor fd2 = getFrameDescriptor(binding2);
 
-            return ((fd1 == fd2) || (fd1.getSize() == 0 && fd2.getSize() == 0)) &&
-                    getDeclarationFrame(binding1).getFrameDescriptor() == getDeclarationFrame(binding2).getFrameDescriptor();
+            if (!((fd1 == fd2) || (fd1.getSize() == 0 && fd2.getSize() == 0))) {
+                return false;
+            }
+
+            final MaterializedFrame df1 = getDeclarationFrame(binding1);
+            final MaterializedFrame df2 = getDeclarationFrame(binding2);
+
+            if ((df1 == null) != (df2 == null)) {
+                return false;
+            }
+
+            if (df1 == null) {
+                return true;
+            }
+
+            return df1.getFrameDescriptor() == df2.getFrameDescriptor();
         }
 
         protected ReadFrameSlotNode createReadNode(FrameSlotAndDepth frameSlot) {

diff --git a/truffle/src/main/java/org/jruby/truffle/core/kernel/TraceManager.java b/truffle/src/main/java/org/jruby/truffle/core/kernel/TraceManager.java
@@ -117,7 +117,7 @@ public void newProbeInserted(Probe probe) {
 
             @Override
             public void probeTaggedAs(Probe probe, SyntaxTag tag, Object tagValue) {
-                if (eventFactories.containsKey(tag)) {
+                if (instruments != null && eventFactories.containsKey(tag)) {
                     instruments.add(context.getEnv().instrumenter().attach(probe, eventFactories.get(tag).createInstrumentListener(context, traceFunc), "set_trace_func"));
                 }
             }