Recognize int3 instructions in trace parser

Not quite sure why we'd be seeing this, but let's not crash when we do.
For now, treat a software interrupt as a jump.

Ref #257

Author: Xyene

src/event.ml

@@ -8,6 +8,7 @@ module Kind = struct
     | Syscall
     | Sysret
     | Hardware_interrupt
+    | Interrupt
     | Iret
     | Jump
     | Tx_abort

src/event.mli

@@ -8,6 +8,7 @@ module Kind : sig
     | Syscall
     | Sysret
     | Hardware_interrupt
+    | Interrupt
     | Iret
     | Jump
     | Tx_abort

src/perf_decode.ml

@@ -21,7 +21,7 @@ let perf_callstack_entry_re = Re.Perl.re "^\t *([0-9a-f]+) (.*)$" |> Re.compile
 
 let perf_branches_event_re =
   Re.Perl.re
-    {|^ *(call|return|tr strt|syscall|sysret|hw int|iret|tx abrt|tr end|tr strt tr end|tr end  (?:async|call|return|syscall|sysret|iret)|jmp|jcc) +(\(x\) +)?([0-9a-f]+) (.*) => +([0-9a-f]+) (.*)$|}
+    {|^ *(call|return|tr strt|syscall|sysret|hw int|iret|int|tx abrt|tr end|tr strt tr end|tr end  (?:async|call|return|syscall|sysret|iret)|jmp|jcc) +(\(x\) +)?([0-9a-f]+) (.*) => +([0-9a-f]+) (.*)$|}
   |> Re.compile
 ;;
 
@@ -259,6 +259,7 @@ let parse_perf_branches_event ?perf_maps (thread : Event.Thread.t) time line : E
       match String.strip kind with
       | "call" -> Some Call
       | "return" -> Some Return
+      | "int" -> Some Interrupt
       | "jmp" -> Some Jump
       | "jcc" -> Some Jump
       | "syscall" -> Some Syscall
@@ -519,6 +520,19 @@ let%test_module _ =
            (data (Trace (kind Call) (src 0x56234f77576b) (dst 0x56234f4bc7a0)))))) |}]
     ;;
 
+    let%expect_test "software interrupts" =
+      check
+        "1907478/1909463 457407.880965552:          1                                \
+         branches:uH:   int                      564aa58813d4 \
+         Builtins_RunMicrotasks+0x554 (/usr/local/bin/workload) =>     564aa584fa00 \
+         Builtins_Call_ReceiverIsNotNullOrUndefined+0x0 (/usr/local/bin/workload)";
+      [%expect
+        {|
+        ((Ok
+          ((thread ((pid (1907478)) (tid (1909463)))) (time 5d7h3m27.880965552s)
+           (data (Trace (kind Interrupt) (src 0x564aa58813d4) (dst 0x564aa584fa00)))))) |}]
+    ;;
+
     let%expect_test "decode error with a timestamp" =
       check
         " instruction trace error type 1 time 47170.086912826 cpu -1 pid 293415 tid \

src/trace_writer.ml

@@ -1126,12 +1126,13 @@ and write_event' (T t) ?events_writer event =
               | Return
               | Hardware_interrupt
               | Iret
+              | Interrupt
               | Sysret
-              | Jump
+              | Jump 
               | Tx_abort )
           , Some Start )
         | Some Async, None
-        | Some (Hardware_interrupt | Jump | Tx_abort), Some End ->
+        | Some (Hardware_interrupt | Jump | Interrupt | Tx_abort), Some End ->
           raise_s
             [%message
               "BUG: magic-trace devs thought this event was impossible, but you just \
@@ -1223,7 +1224,7 @@ and write_event' (T t) ?events_writer event =
                ~time;
              check_current_symbol t thread_info ~time dst)
         | Some Tx_abort, None -> check_current_symbol t thread_info ~time dst
-        | Some Jump, None ->
+        | Some (Jump | Interrupt), None ->
           Ocaml_hacks.check_current_symbol_track_entertraps t thread_info ~time dst
         (* (None, _) comes up when perf spews something magic-trace doesn't recognize.
            Instead of crashing, ignore it and keep going. *)