mirrors/tracy
1
0
Fork 0
mirror of https://github.com/wolfpld/tracy synced 2025-04-29 04:23:51 +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
end subroutine impl_tracy_fiber_enter
subroutine tracy_fiber_leave() &
bind(C, name="___tracy_fiber_leave") &
bind(C, name="___tracy_fiber_leave")
end subroutine tracy_fiber_leave
end interface
#endif
@ -346,8 +346,8 @@ 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
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
@ -376,7 +376,7 @@ contains
c_loc(source), len(source, kind=c_size_t), &
c_loc(function_name), len(function_name, kind=c_size_t), &
color_)
endif
end if
end function tracy_alloc_srcloc
type(tracy_zone_context) function tracy_emit_zone_begin_id(srcloc, depth, active)