#include <babeltrace/values.h>
#include <babeltrace/ctf-ir/stream-class.h>
#include <babeltrace/ctf-ir/stream.h>
+#include <babeltrace/ctf-ir/stream-internal.h>
#include <babeltrace/ctf-ir/packet.h>
+#include <babeltrace/ctf-ir/packet-internal.h>
#include <babeltrace/ctf-ir/fields.h>
#include <babeltrace/ctf-ir/fields-internal.h>
#include <babeltrace/ctf-ir/event-class-internal.h>
+#include <babeltrace/ctf-ir/clock-value-set-internal.h>
+#include <babeltrace/ctf-ir/field-wrapper-internal.h>
#include <babeltrace/ctf-ir/validation-internal.h>
#include <babeltrace/object-internal.h>
#include <babeltrace/assert-internal.h>
struct bt_stream_pos;
-struct bt_event_common {
- struct bt_object base;
- struct bt_event_class_common *class;
- struct bt_field_common *header_field;
- struct bt_field_common *stream_event_context_field;
- struct bt_field_common *context_field;
- struct bt_field_common *payload_field;
- int frozen;
-};
-
struct bt_event {
- struct bt_event_common common;
-
- /* Maps clock classes to bt_clock_value. */
- GHashTable *clock_values;
+ struct bt_object base;
+ struct bt_event_class *class;
+ struct bt_field_wrapper *header_field;
+ struct bt_field *stream_event_context_field;
+ struct bt_field *context_field;
+ struct bt_field *payload_field;
+ struct bt_clock_value_set cv_set;
struct bt_packet *packet;
+ int frozen;
};
BT_HIDDEN
-int _bt_event_common_validate(struct bt_event_common *event);
+void bt_event_destroy(struct bt_event *event);
BT_HIDDEN
-void _bt_event_common_freeze(struct bt_event_common *event);
+struct bt_event *bt_event_new(struct bt_event_class *event_class);
BT_HIDDEN
-void _bt_event_freeze(struct bt_event *event);
+void _bt_event_set_is_frozen(struct bt_event *event, bool is_frozen);
#ifdef BT_DEV_MODE
-# define bt_event_common_validate _bt_event_common_validate
-# define bt_event_common_freeze _bt_event_common_freeze
-# define bt_event_freeze _bt_event_freeze
+# define bt_event_set_is_frozen _bt_event_set_is_frozen
#else
-# define bt_event_common_validate(_event) 0
-# define bt_event_common_freeze(_event)
-# define bt_event_freeze(_event)
+# define bt_event_set_is_frozen(_event, _is_frozen)
#endif
-#define BT_ASSERT_PRE_EVENT_COMMON_HOT(_event, _name) \
- BT_ASSERT_PRE_HOT((_event), (_name), ": +%!+_e", (_event))
-
-static inline
-struct bt_event_class_common *bt_event_common_borrow_class(
- struct bt_event_common *event)
-{
- BT_ASSERT(event);
- return event->class;
-}
+#define BT_ASSERT_PRE_EVENT_HOT(_event, _name) \
+ BT_ASSERT_PRE_HOT((_event), (_name), ": %!+e", (_event))
-BT_HIDDEN
-int bt_event_common_initialize(struct bt_event_common *event,
- struct bt_event_class_common *event_class,
- struct bt_clock_class *init_expected_clock_class,
- bt_object_release_func release_func,
- bt_validation_flag_copy_field_type_func field_type_copy_func,
- bool must_be_in_trace,
- int (*map_clock_classes_func)(struct bt_stream_class_common *stream_class,
- struct bt_field_type_common *packet_context_field_type,
- struct bt_field_type_common *event_header_field_type),
- void *(*create_field_func)(void *));
+typedef void *(*create_field_func)(void *);
+typedef void (*release_field_func)(void *);
+typedef void *(*create_header_field_func)(void *, void *);
+typedef void (*release_header_field_func)(void *, void *);
+BT_UNUSED
static inline
-struct bt_field_common *bt_event_common_borrow_payload(
- struct bt_event_common *event)
+void _bt_event_reset_dev_mode(struct bt_event *event)
{
- struct bt_field_common *payload = NULL;
-
- BT_ASSERT_PRE_NON_NULL(event, "Event");
+ BT_ASSERT(event);
- if (!event->payload_field) {
- BT_LOGV("Event has no current payload field: addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64,
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class));
- goto end;
+ if (event->header_field) {
+ bt_field_set_is_frozen_recursive(
+ event->header_field->field, false);
+ bt_field_reset_recursive(
+ event->header_field->field);
}
- payload = event->payload_field;
-
-end:
- return payload;
-}
-
-static inline
-int bt_event_common_set_payload(struct bt_event_common *event,
- struct bt_field_common *payload)
-{
- BT_ASSERT_PRE_NON_NULL(event, "Event");
- BT_ASSERT_PRE_EVENT_COMMON_HOT(event, "Event");
-
- if (payload) {
- BT_ASSERT_PRE(bt_field_type_common_compare(payload->type,
- event->class->payload_field_type) == 0,
- "Payload field's type is different from the "
- "expected field type: %![event-]+_e, %![ft-]+_F, "
- "%![expected-ft-]+_F",
- event, payload->type,
- event->class->payload_field_type);
- } else {
- BT_ASSERT_PRE(!event->class->payload_field_type,
- "Setting no event payload field, "
- "but event payload field type is not NULL: ",
- "%![event-]+_e, %![payload-ft-]+_F",
- event, event->class->payload_field_type);
+ if (event->stream_event_context_field) {
+ bt_field_set_is_frozen_recursive(
+ event->stream_event_context_field, false);
+ bt_field_reset_recursive(
+ event->stream_event_context_field);
}
- bt_put(event->payload_field);
- event->payload_field = bt_get(payload);
- BT_LOGV("Set event's payload field: event-addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64 ", "
- "payload-field-addr=%p",
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class), payload);
- return 0;
-}
-
-static inline
-struct bt_field_common *bt_event_common_borrow_header(
- struct bt_event_common *event)
-{
- struct bt_field_common *header = NULL;
-
- BT_ASSERT_PRE_NON_NULL(event, "Event");
-
- if (!event->header_field) {
- BT_LOGV("Event has no current header field: addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64,
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class));
- goto end;
+ if (event->context_field) {
+ bt_field_set_is_frozen_recursive(
+ event->context_field, false);
+ bt_field_reset_recursive(event->context_field);
}
- header = event->header_field;
-
-end:
- return header;
+ if (event->payload_field) {
+ bt_field_set_is_frozen_recursive(
+ event->payload_field, false);
+ bt_field_reset_recursive(event->payload_field);
+ }
}
+#ifdef BT_DEV_MODE
+# define bt_event_reset_dev_mode _bt_event_reset_dev_mode
+#else
+# define bt_event_reset_dev_mode(_x)
+#endif
+
static inline
-int bt_event_common_set_header(struct bt_event_common *event,
- struct bt_field_common *header)
+void bt_event_reset(struct bt_event *event)
{
- BT_ASSERT_PRE_NON_NULL(event, "Event");
- BT_ASSERT_PRE_EVENT_COMMON_HOT(event, "Event");
-
- /*
- * Ensure the provided header's type matches the one registered to the
- * stream class.
- */
- if (header) {
- BT_ASSERT_PRE(bt_field_type_common_compare(header->type,
- bt_event_class_common_borrow_stream_class(event->class)->event_header_field_type) == 0,
- "Header field's type is different from the "
- "expected field type: %![event-]+_e, %![ft-]+_F, "
- "%![expected-ft-]+_F",
- event, header->type,
- bt_event_class_common_borrow_stream_class(event->class)->event_header_field_type);
- } else {
- BT_ASSERT_PRE(!bt_event_class_common_borrow_stream_class(event->class)->event_header_field_type,
- "Setting no event header field, "
- "but event header field type is not NULL: ",
- "%![event-]+_e, %![header-ft-]+_F",
- event,
- bt_event_class_common_borrow_stream_class(event->class)->event_header_field_type);
- }
-
- bt_put(event->header_field);
- event->header_field = bt_get(header);
- BT_LOGV("Set event's header field: event-addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64 ", "
- "header-field-addr=%p",
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class), header);
- return 0;
+ BT_ASSERT(event);
+ bt_event_set_is_frozen(event, false);
+ bt_clock_value_set_reset(&event->cv_set);
+ bt_object_put_no_null_check(&event->packet->base);
+ event->packet = NULL;
}
static inline
-struct bt_field_common *bt_event_common_borrow_context(
- struct bt_event_common *event)
+void bt_event_recycle(struct bt_event *event)
{
- struct bt_field_common *context = NULL;
-
- BT_ASSERT_PRE_NON_NULL(event, "Event");
+ struct bt_event_class *event_class;
- if (!event->context_field) {
- BT_LOGV("Event has no current context field: addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64,
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class));
- goto end;
- }
-
- context = event->context_field;
+ BT_ASSERT(event);
+ BT_LIB_LOGD("Recycling event: %!+e", event);
-end:
- return context;
+ /*
+ * Those are the important ordered steps:
+ *
+ * 1. Reset the event object (put any permanent reference it
+ * has, unfreeze it and its fields in developer mode, etc.),
+ * but do NOT put its class's reference. This event class
+ * contains the pool to which we're about to recycle this
+ * event object, so we must guarantee its existence thanks
+ * to this existing reference.
+ *
+ * 2. Move the event class reference to our `event_class`
+ * variable so that we can set the event's class member
+ * to NULL before recycling it. We CANNOT do this after
+ * we put the event class reference because this bt_put()
+ * could destroy the event class, also destroying its
+ * event pool, thus also destroying our event object (this
+ * would result in an invalid write access).
+ *
+ * 3. Recycle the event object.
+ *
+ * 4. Put our event class reference.
+ */
+ bt_event_reset(event);
+ event_class = event->class;
+ BT_ASSERT(event_class);
+ event->class = NULL;
+ bt_object_pool_recycle_object(&event_class->event_pool, event);
+ bt_object_put_no_null_check(&event_class->base);
}
static inline
-int bt_event_common_set_context(struct bt_event_common *event,
- struct bt_field_common *context)
+void bt_event_set_packet(struct bt_event *event, struct bt_packet *packet)
{
BT_ASSERT_PRE_NON_NULL(event, "Event");
- BT_ASSERT_PRE_EVENT_COMMON_HOT(event, "Event");
-
- if (context) {
- BT_ASSERT_PRE(bt_field_type_common_compare(context->type,
- event->class->context_field_type) == 0,
- "Context field's type is different from the "
- "expected field type: %![event-]+_e, %![ft-]+_F, "
- "%![expected-ft-]+_F",
- event, context->type, event->class->context_field_type);
- } else {
- BT_ASSERT_PRE(!event->class->context_field_type,
- "Setting no event context field, "
- "but event context field type is not NULL: ",
- "%![event-]+_e, %![context-ft-]+_F",
- event, event->class->context_field_type);
- }
-
- bt_put(event->context_field);
- event->context_field = bt_get(context);
- BT_LOGV("Set event's context field: event-addr=%p, "
+ BT_ASSERT_PRE_NON_NULL(packet, "Packet");
+ BT_ASSERT_PRE_EVENT_HOT(event, "Event");
+ BT_ASSERT_PRE(bt_event_class_borrow_stream_class(
+ event->class) == packet->stream->stream_class,
+ "Packet's stream class and event's stream class differ: "
+ "%![event-]+e, %![packet-]+a",
+ event, packet);
+
+ BT_ASSERT(!event->packet);
+ event->packet = packet;
+ bt_object_get_no_null_check_no_parent_check(&event->packet->base);
+ BT_LOGV("Set event's packet: event-addr=%p, "
"event-class-name=\"%s\", event-class-id=%" PRId64 ", "
- "context-field-addr=%p",
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class), context);
- return 0;
+ "packet-addr=%p",
+ event, bt_event_class_get_name(event->class),
+ bt_event_class_get_id(event->class), packet);
}
static inline
-struct bt_field_common *bt_event_common_borrow_stream_event_context(
- struct bt_event_common *event)
+struct bt_event *bt_event_create(struct bt_event_class *event_class,
+ struct bt_packet *packet)
{
- struct bt_field_common *stream_event_context = NULL;
-
- BT_ASSERT_PRE_NON_NULL(event, "Event");
+ struct bt_event *event = NULL;
- if (!event->stream_event_context_field) {
- BT_LOGV("Event has no current stream event context field: addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64,
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class));
+ BT_ASSERT(event_class);
+ event = bt_object_pool_create_object(&event_class->event_pool);
+ if (unlikely(!event)) {
+ BT_LIB_LOGE("Cannot allocate one event from event class's event pool: "
+ "%![event-class-]+E", event_class);
goto end;
}
- stream_event_context = event->stream_event_context_field;
-
-end:
- return stream_event_context;
-}
-
-static inline
-int bt_event_common_set_stream_event_context(struct bt_event_common *event,
- struct bt_field_common *stream_event_context)
-{
- BT_ASSERT_PRE_NON_NULL(event, "Event");
- BT_ASSERT_PRE_EVENT_COMMON_HOT(event, "Event");
-
- if (stream_event_context) {
- BT_ASSERT_PRE(bt_field_type_common_compare(stream_event_context->type,
- bt_event_class_common_borrow_stream_class(event->class)->event_context_field_type) == 0,
- "Stream event context field's type is different from the "
- "expected field type: %![event-]+_e, %![ft-]+_F, "
- "%![expected-ft-]+_F",
- event, stream_event_context->type,
- bt_event_class_common_borrow_stream_class(event->class)->event_context_field_type);
- } else {
- BT_ASSERT_PRE(!bt_event_class_common_borrow_stream_class(event->class)->event_context_field_type,
- "Setting no stream event context field, "
- "but stream event context field type is not NULL: ",
- "%![event-]+_e, %![context-ft-]+_F",
- event,
- bt_event_class_common_borrow_stream_class(event->class)->event_context_field_type);
+ if (unlikely(!event->class)) {
+ event->class = event_class;
+ bt_object_get_no_null_check(&event_class->base);
}
- bt_get(stream_event_context);
- BT_MOVE(event->stream_event_context_field, stream_event_context);
- BT_LOGV("Set event's stream event context field: event-addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64 ", "
- "stream-event-context-field-addr=%p",
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class),
- stream_event_context);
- return 0;
-}
-
-static inline
-void bt_event_common_finalize(struct bt_object *obj)
-{
- struct bt_event_common *event = (void *) obj;
-
- BT_LOGD("Destroying event: addr=%p, "
- "event-class-name=\"%s\", event-class-id=%" PRId64,
- event, bt_event_class_common_get_name(event->class),
- bt_event_class_common_get_id(event->class));
+ BT_ASSERT(packet);
+ bt_event_set_packet(event, packet);
+ goto end;
- if (!event->base.parent) {
- /*
- * Event was keeping a reference to its class since it shared no
- * common ancestor with it to guarantee they would both have the
- * same lifetime.
- */
- bt_put(event->class);
- }
-
- bt_put(event->header_field);
- BT_LOGD_STR("Putting event's stream event context field.");
- bt_put(event->stream_event_context_field);
- BT_LOGD_STR("Putting event's context field.");
- bt_put(event->context_field);
- BT_LOGD_STR("Putting event's payload field.");
- bt_put(event->payload_field);
- BT_LOGD_STR("Putting event's packet.");
+end:
+ return event;
}
#endif /* BABELTRACE_CTF_IR_EVENT_INTERNAL_H */