mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-12-25 15:06:14 +01:00
3e7b5cbef8
global variables in SystemTap are shared between all SystemTap scripts; so if scripts are loaded for two versions of GLib (for example, a stable and a development version), those global variables will conflict. Avoid that by including the soname’s version in the global variable names. https://bugzilla.gnome.org/show_bug.cgi?id=770646
200 lines
7.6 KiB
Plaintext
200 lines
7.6 KiB
Plaintext
global gobject_types_2_0_@LT_CURRENT@_@LT_REVISION@
|
|
global gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@
|
|
global gobject_signal_names_2_0_@LT_CURRENT@_@LT_REVISION@
|
|
|
|
/* These are needed to keep track of gtype and signal names for the below
|
|
* probes.
|
|
*/
|
|
probe process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("type__new")
|
|
{
|
|
gobject_types_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),user_string($arg1)] = $arg3;
|
|
gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg3] = user_string($arg1);
|
|
}
|
|
probe process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("signal__new")
|
|
{
|
|
gobject_signal_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg1] = user_string($arg2);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.type_new - Called when any entity registered with the #GType system is created
|
|
* @name: String name of type
|
|
* @parent_gtype: The parent #GType of this type
|
|
* @gtype: The #GType for this type
|
|
*/
|
|
probe gobject.type_new = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("type__new")
|
|
{
|
|
name = user_string($arg1);
|
|
parent_gtype = $arg2;
|
|
gtype = $arg3;
|
|
probestr = sprintf("gobject.type_new(%s, %d) -> %d", name, parent_gtype, gtype);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_new - Called when a #GObject is created
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
*/
|
|
probe gobject.object_new = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__new")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg2];
|
|
probestr = sprintf("gobject.object_new(%s) -> %p", type, object);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_ref - Called when a new reference is added to a #GObject
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
* @old_refcount: Original value of the reference count
|
|
* @refcount: New value of the reference count
|
|
*/
|
|
probe gobject.object_ref = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__ref")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),gtype];
|
|
old_refcount = $arg3;
|
|
refcount = old_refcount+1;
|
|
probestr = sprintf("gobject.object_ref(%p[%s]) -> %d", object, type, refcount);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_unref - Called when a reference is removed from a #GObject
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
* @old_refcount: Original value of the reference count
|
|
*/
|
|
probe gobject.object_unref = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__unref")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),gtype];
|
|
old_refcount = $arg3;
|
|
refcount = old_refcount-1;
|
|
probestr = sprintf("gobject.object_unref(%p [%s]) -> %d", object, type, refcount);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_dispose - Called when a g_object_dispose() run for a #GObject is initiated
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
* @last_unref: FIXME
|
|
*/
|
|
probe gobject.object_dispose = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__dispose")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg2];
|
|
last_unref = $arg3;
|
|
probestr = sprintf("gobject.object_dispose(%p[%s])", object, type);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_dispose_end - Called when a g_object_dispose() run for a #GObject is completed
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
* @last_unref: FIXME
|
|
*/
|
|
probe gobject.object_dispose_end = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__dispose__end")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg2];
|
|
last_unref = $arg3;
|
|
probestr = sprintf("gobject.object_dispose_end(%p[%s])", object, type);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_finalize - Called when finalization for a #GObject is started
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
*/
|
|
probe gobject.object_finalize = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__finalize")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg2];
|
|
probestr = sprintf("gobject.object_finalize(%p[%s])", object, type);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.object_finalize - Called when finalization for a #GObject is completed
|
|
* @object: Raw pointer to object
|
|
* @gtype: #GType for this object
|
|
* @type: String name of object type
|
|
*/
|
|
probe gobject.object_finalize_end = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("object__finalize__end")
|
|
{
|
|
object = $arg1;
|
|
gtype = $arg2;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg2];
|
|
probestr = sprintf("gobject.object_finalize_end(%p[%s])", object, type);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.signal_new - Called when a new signal is registered for a #GObject
|
|
* @gsignal: Integer value for this signal
|
|
* @name: String name for this signal
|
|
* @gtype: #GType for the type which will gain the new signal
|
|
* @type: String name of the type which will gain the new signal
|
|
*/
|
|
probe gobject.signal_new = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("signal__new")
|
|
{
|
|
gsignal = $arg1;
|
|
name = user_string($arg2);
|
|
gtype = $arg3;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg3];
|
|
probestr = sprintf("gobject.signal_new(%s, %s) -> %d", name, type, gsignal);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.signal_emit - Called when a signal emission for a #GObject is started
|
|
* @gsignal: Integer value for this signal
|
|
* @detail: String containing signal "detail"
|
|
* @signal: String name of the signal
|
|
* @object: Raw pointer for object emitting signal
|
|
* @gtype: #GType for the type emitting the signal
|
|
* @type: String name of the type emitting the signal
|
|
*/
|
|
probe gobject.signal_emit = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("signal__emit")
|
|
{
|
|
gsignal = $arg1;
|
|
detail = $arg2;
|
|
signal = gobject_signal_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg1];
|
|
if (detail != 0)
|
|
signal = signal . "::" . gquarks[pid(), detail]
|
|
object = $arg3;
|
|
gtype = $arg4;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg4];
|
|
probestr = sprintf("gobject.signal_emit(%p[%s], %s)", object, type, signal);
|
|
}
|
|
|
|
/**
|
|
* probe gobject.signal_emit_end - Called when a signal emission for a #GObject is completed
|
|
* @gsignal: Integer value for this signal
|
|
* @detail: String containing signal "detail"
|
|
* @signal: String name of the signal
|
|
* @object: Raw pointer for object emitting signal
|
|
* @gtype: #GType for the type emitting the signal
|
|
* @type: String name of the type emitting the signal
|
|
*/
|
|
probe gobject.signal_emit_end = process("@ABS_GLIB_RUNTIME_LIBDIR@/libgobject-2.0.so.0.@LT_CURRENT@.@LT_REVISION@").mark("signal__emit__end")
|
|
{
|
|
gsignal = $arg1;
|
|
detail = $arg2;
|
|
signal = gobject_signal_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg1];
|
|
if (detail != 0)
|
|
signal = signal . "::" . gquarks[pid(), detail]
|
|
object = $arg3;
|
|
gtype = $arg4;
|
|
type = gobject_type_names_2_0_@LT_CURRENT@_@LT_REVISION@[pid(),$arg4];
|
|
probestr = sprintf("gobject.signal_emit_end(%p[%s], %s)", object, type, signal);
|
|
}
|