Skip to content

Instantly share code, notes, and snippets.

@peschwa
Last active October 22, 2015 17:20
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save peschwa/e63482bc9c260a654f96 to your computer and use it in GitHub Desktop.
Save peschwa/e63482bc9c260a654f96 to your computer and use it in GitHub Desktop.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
index dbdf77a..6cbd229 100644
--- a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
+++ b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -4457,6 +4457,11 @@ public final class Ops {
}
public static SixModelObject setobjsc(SixModelObject obj, SixModelObject scRef, ThreadContext tc) {
if (scRef instanceof SCRefInstance) {
+ if(System.getenv("DEBUG_PLS") != null && isconcrete(decont(obj, tc), tc) == 0) {
+ System.err.println("type object: " + typeName(obj, tc)
+ + " from SC: " + (obj.sc != null ? obj.sc.description : "null")
+ + " to SC: " + ((SCRefInstance)scRef).referencedSC.description);
+ }
obj.sc = ((SCRefInstance)scRef).referencedSC;
return obj;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment