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

Implement tracy_connected

Browse Source
This commit is contained in:
Igor S. Gerasimov 2025-01-02 15:27:09 +01:00
parent 07cd1d8ee1
commit 4fd6d5317b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
public/TracyClient.F90
View File

@ -167,11 +167,19 @@ module tracy
! GPU is not supported yet ! GPU is not supported yet
interface
function impl_tracy_connected() bind(C, name="___tracy_connected")
import
integer(c_int32_t) :: impl_tracy_connected
end function impl_tracy_connected
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_connected
public :: tracy_alloc_srcloc public :: tracy_alloc_srcloc
public :: tracy_zone_begin, tracy_zone_end public :: tracy_zone_begin, tracy_zone_end
public :: tracy_zone_set_properties public :: tracy_zone_set_properties
@ -270,4 +278,8 @@ contains
call tracy_emit_zone_value(ctx, value) call tracy_emit_zone_value(ctx, value)
end if end if
end subroutine tracy_zone_set_properties end subroutine tracy_zone_set_properties
logical(1) function tracy_connected()
tracy_connected = impl_tracy_connected() /= 0_c_int32_t
end function tracy_connected
end module tracy end module tracy