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

Prettify code

Browse Source
This commit is contained in:
Igor S. Gerasimov 2025-01-03 12:37:42 +01:00
parent 9b14656c8a
commit fb9686fb28
1 changed files with 97 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
public/TracyClient.F90
View File

@ -320,7 +320,7 @@ module tracy
type(c_ptr), intent(in) :: fiber_name type(c_ptr), intent(in) :: fiber_name
end subroutine impl_tracy_fiber_enter end subroutine impl_tracy_fiber_enter
subroutine tracy_fiber_leave() & subroutine tracy_fiber_leave() &
bind(C, name="___tracy_fiber_leave") & bind(C, name="___tracy_fiber_leave")
end subroutine tracy_fiber_leave end subroutine tracy_fiber_leave
end interface end interface
#endif #endif
@ -346,8 +346,8 @@ contains
subroutine tracy_set_thread_name(name) subroutine tracy_set_thread_name(name)
character(kind=c_char, len=*), intent(in) :: name character(kind=c_char, len=*), intent(in) :: name
character(kind=c_char, len=:), allocatable, target :: alloc_name character(kind=c_char, len=:), allocatable, target :: alloc_name
allocate(character(kind=c_char, len=len(name) + 1) :: alloc_name) allocate (character(kind=c_char, len=len(name) + 1) :: alloc_name)
alloc_name = name // c_null_char alloc_name = name//c_null_char
call impl_tracy_set_thread_name(c_loc(alloc_name)) call impl_tracy_set_thread_name(c_loc(alloc_name))
end subroutine tracy_set_thread_name end subroutine tracy_set_thread_name
@ -376,7 +376,7 @@ contains
c_loc(source), len(source, kind=c_size_t), & c_loc(source), len(source, kind=c_size_t), &
c_loc(function_name), len(function_name, kind=c_size_t), & c_loc(function_name), len(function_name, kind=c_size_t), &
color_) color_)
endif end if
end function tracy_alloc_srcloc end function tracy_alloc_srcloc
type(tracy_zone_context) function tracy_emit_zone_begin_id(srcloc, depth, active) type(tracy_zone_context) function tracy_emit_zone_begin_id(srcloc, depth, active)