mirrors/tracy
1
0
Fork 0
mirror of https://github.com/wolfpld/tracy synced 2025-04-29 12:23:53 +00:00
Code Issues Releases Wiki Activity

Add fibers support

Browse Source
This commit is contained in:
Igor S. Gerasimov 2025-01-02 18:11:54 +01:00
parent 82460b0316
commit 7730ac595f
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
public/TracyClient.F90
View File

@ -305,6 +305,18 @@ module tracy
end subroutine impl_tracy_emit_plot_config
end interface
#ifdef TRACY_FIBERS
interface
subroutine impl_tracy_fiber_enter(fiber_name) &
bind(C, name="___tracy_fiber_enter")
import
type(c_ptr), intent(in) :: fiber_name
end subroutine impl_tracy_fiber_enter
subroutine tracy_fiber_leave() &
bind(C, name="___tracy_fiber_leave") &
end subroutine tracy_fiber_leave
end interface
#endif
!
public :: tracy_zone_context
!
@ -320,6 +332,9 @@ module tracy
public :: tracy_message
public :: tracy_image
public :: tracy_plot_config, tracy_plot
#ifdef TRACY_FIBERS
public :: tracy_fiber_enter, tracy_fiber_leave
#endif
contains
subroutine tracy_set_thread_name(name)
character(kind=c_char, len=*), intent(in) :: name
@ -574,4 +589,11 @@ contains
if (present(color)) color_ = color
call impl_tracy_emit_plot_config(c_loc(name), type_, step_, fill_, color_)
end subroutine tracy_plot_config
#ifdef TRACY_FIBERS
subroutine tracy_fiber_enter(fiber_name)
character(kind=c_char, len=*), target, intent(in) :: fiber_name
call impl_tracy_fiber_enter(c_loc(fiber_name))
end subroutine tracy_fiber_enter
#endif
end module tracy