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 tracy_set_thread_name

Browse Source
This commit is contained in:
Igor S. Gerasimov 2024-12-26 20:32:16 +01:00
parent a30fff8b4c
commit d16986dfa7
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
public/TracyClient.F90
View File

@ -1,6 +1,22 @@
module tracy
use, intrinsic :: iso_c_binding, only: c_ptr
use, intrinsic :: iso_c_binding, only: c_ptr, c_loc, c_char, c_null_char
implicit none
private
! skipped: TracyPlotFormatEnum
interface
subroutine impl_tracy_set_thread_name(name) bind(C, name="___tracy_set_thread_name")
import
type(c_ptr) :: name
end subroutine impl_tracy_set_thread_name
end interface
!
public :: tracy_set_thread_name
contains
subroutine tracy_set_thread_name(name)
character(kind=c_char, len=*), intent(in) :: name
character(kind=c_char, len=:), allocatable, target :: alloc_name
allocate(character(kind=c_char, len=len(name) + 1) :: alloc_name)
alloc_name = name // c_null_char
call impl_tracy_set_thread_name(c_loc(alloc_name))
end subroutine tracy_set_thread_name
end module tracy