Add markers to event stream

src/profiler.rs

@@ -213,10 +213,22 @@ impl ProfilerSession {
     }
 
     fn track_event(&mut self, event: SimEvent) -> Result<()> {
-        if let Some(program) = &mut self.program {
-            program.track_event(event)?;
+        let Some(program) = &mut self.program else {
+            return Ok(());
+        };
+        match event {
+            SimEvent::Call(address) => program.track_call(address),
+            SimEvent::Return => program.track_return(),
+            SimEvent::Halt => program.track_halt(),
+            SimEvent::Interrupt(code, address) => program.track_interrupt(code, address),
+            SimEvent::Reti => program.track_reti(),
+            SimEvent::Marker(name) => {
+                if let Some(recording) = &mut self.recording {
+                    recording.track_marker(name);
+                };
+                Ok(())
+            }
         }
-        Ok(())
     }
 
     fn start_recording(&mut self) {