Mercurial > hg > graal-compiler

comparison graal/com.oracle.truffle.ruby.runtime/src/com/oracle/truffle/ruby/runtime/subsystems/TraceManager.java @ 13514:0fbee3eb71f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ruby: import project.
author Chris Seaton <chris.seaton@oracle.com>
date Mon, 06 Jan 2014 17:12:09 +0000
parents
children
comparison
equal deleted inserted replaced
13513:64a23ce736a0 13514:0fbee3eb71f0
1 /*
2 * Copyright (c) 2013 Oracle and/or its affiliates. All rights reserved. This
3 * code is released under a tri EPL/GPL/LGPL license. You can use it,
4 * redistribute it and/or modify it under the terms of the:
5 *
6 * Eclipse Public License version 1.0
7 * GNU General Public License version 2
8 * GNU Lesser General Public License version 2.1
9 */
10 package com.oracle.truffle.ruby.runtime.subsystems;
11
12 import com.oracle.truffle.api.*;
13 import com.oracle.truffle.api.utilities.*;
14 import com.oracle.truffle.ruby.runtime.*;
15 import com.oracle.truffle.ruby.runtime.core.*;
16
17 /**
18 * Manages trace events and calls the user's trace method if one is set.
19 * <p>
20 * Once tracing has been enabled via {@link #setTraceProc(RubyProc)}, the underlying instrumentation
21 * remains in effect, along with performance impact.
22 */
23 public final class TraceManager {
24
25 private RubyContext context;
26
27 private final AssumedValue<RubyProc> traceProc = new AssumedValue<>("trace-proc", null);
28 private boolean suspended;
29
30 private String lastFile;
31 private int lastLine;
32
33 private final Assumption notTracingAssumption = Truffle.getRuntime().createAssumption("tracing-disabled");
34
35 public TraceManager(RubyContext context) {
36 this.context = context;
37 }
38
39 /**
40 * Produce a trace; it is a runtime error if {@link #hasTraceProc()}{@code == false}.
41 */
42 @CompilerDirectives.SlowPath
43 public void trace(String event, String file, int line, long objectId, RubyBinding binding, String className) {
44 // If tracing is suspended, stop here
45
46 if (suspended) {
47 return;
48 }
49
50 // If the file and line haven't changed since the last trace, stop here
51
52 if (file.equals(lastFile) && line == lastLine) {
53 return;
54 }
55
56 final RubyClass stringClass = context.getCoreLibrary().getStringClass();
57
58 // Suspend tracing while we run the trace proc
59
60 suspended = true;
61
62 try {
63 // Exceptions from within the proc propagate normally
64
65 traceProc.get().call(null, new RubyString(stringClass, event), //
66 new RubyString(stringClass, file), //
67 line, //
68 GeneralConversions.fixnumOrBignum(objectId), //
69 GeneralConversions.instanceOrNil(binding), //
70 GeneralConversions.instanceOrNil(className));
71 } finally {
72 // Resume tracing
73
74 suspended = false;
75 }
76
77 // Remember the last trace event file and line
78
79 lastFile = file;
80 lastLine = line;
81 }
82
83 /**
84 * Is there a "trace proc" in effect?
85 */
86 public boolean hasTraceProc() {
87 return traceProc.get() != null;
88 }
89
90 /**
91 * Gets the assumption that there has never yet been tracing enabled. Once the assumption is
92 * invalidated, tracing is presumed permanently enabled even if {@link #hasTraceProc()} returns
93 * {@code false}.
94 */
95 public Assumption getNotTracingAssumption() {
96 return notTracingAssumption;
97 }
98
99 public void setTraceProc(RubyProc newTraceProc) {
100 if (!context.getConfiguration().getTrace()) {
101 throw new RuntimeException("You need the --trace option to use tracing");
102 }
103
104 traceProc.set(newTraceProc);
105 lastFile = null;
106 lastLine = -1;
107
108 notTracingAssumption.invalidate();
109 }
110 }