Link/tracy
1
0
Fork 0
mirror of https://github.com/wolfpld/tracy.git synced 2025-03-20 07:40:02 +08:00
Code Issues Projects Wiki Activity

Implement tracy_alloc_srcloc

Browse Source
This commit is contained in:
Igor S. Gerasimov 2024-12-26 22:16:14 +01:00
parent 66a50a8c76
commit 1d627c86be
1 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
public/TracyClient.F90
View File

@ -1,6 +1,6 @@
module tracy module tracy
use, intrinsic :: iso_c_binding, only: c_ptr, c_loc, c_char, c_null_char, & use, intrinsic :: iso_c_binding, only: c_ptr, c_loc, c_char, c_null_char, &
& c_int8_t, c_int16_t, c_int32_t, c_int64_t, c_int, c_float & c_size_t, c_int8_t, c_int16_t, c_int32_t, c_int64_t, c_int, c_float
implicit none implicit none
private private
! skipped: TracyPlotFormatEnum ! skipped: TracyPlotFormatEnum
@ -86,11 +86,39 @@ module tracy
end function impl_tracy_profiler_started end function impl_tracy_profiler_started
end interface end interface
interface
function impl_tracy_alloc_srcloc(line, source, sourceSz, function_name, functionSz, color) &
bind(C, name="___tracy_alloc_srcloc")
import
integer(c_int64_t) :: impl_tracy_alloc_srcloc
integer(c_int32_t), intent(in), value :: line
type(c_ptr), intent(in) :: source
integer(c_size_t), intent(in), value :: sourceSz
type(c_ptr), intent(in) :: function_name
integer(c_size_t), intent(in), value :: functionSz
integer(c_int32_t), intent(in), value :: color
end function impl_tracy_alloc_srcloc
function impl_tracy_alloc_srcloc_name(line, source, sourceSz, function_name, functionSz, zone_name, nameSz, color) &
bind(C, name="___tracy_alloc_srcloc_name")
import
integer(c_int64_t) :: impl_tracy_alloc_srcloc_name
integer(c_int32_t), intent(in), value :: line
type(c_ptr), intent(in) :: source
integer(c_size_t), intent(in), value :: sourceSz
type(c_ptr), intent(in) :: function_name
integer(c_size_t), intent(in), value :: functionSz
type(c_ptr), intent(in) :: zone_name
integer(c_size_t), intent(in), value :: nameSz
integer(c_int32_t), intent(in), value :: color
end function impl_tracy_alloc_srcloc_name
end interface
! !
public :: tracy_c_zone_context public :: tracy_c_zone_context
! !
public :: tracy_set_thread_name public :: tracy_set_thread_name
public :: tracy_startup_profiler, tracy_shutdown_profiler, tracy_profiler_started public :: tracy_startup_profiler, tracy_shutdown_profiler, tracy_profiler_started
public :: tracy_alloc_srcloc
contains 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
@ -103,4 +131,28 @@ contains
logical(1) function tracy_profiler_started() logical(1) function tracy_profiler_started()
tracy_profiler_started = impl_tracy_profiler_started() /= 0_c_int tracy_profiler_started = impl_tracy_profiler_started() /= 0_c_int
end function tracy_profiler_started end function tracy_profiler_started
integer(c_int64_t) function tracy_alloc_srcloc(line, source, function_name, zone_name, color)
integer(c_int32_t), intent(in) :: line
character(kind=c_char, len=*), target, intent(in) :: source, function_name
character(kind=c_char, len=*), target, intent(in), optional :: zone_name
integer(c_int32_t), intent(in), optional :: color
!
integer(c_int32_t) :: color_
!
color_ = 0_c_int32_t
if (present(color)) color_ = color
if (present(zone_name)) then
tracy_alloc_srcloc = impl_tracy_alloc_srcloc_name(line, &
c_loc(source), len(source, kind=c_size_t), &
c_loc(function_name), len(function_name, kind=c_size_t), &
c_loc(zone_name), len(zone_name, kind=c_size_t), &
color_)
else
tracy_alloc_srcloc = impl_tracy_alloc_srcloc(line, &
c_loc(source), len(source, kind=c_size_t), &
c_loc(function_name), len(function_name, kind=c_size_t), &
color_)
endif
end function tracy_alloc_srcloc
end module tracy end module tracy