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

Implement tracy_appinfo

Browse Source
This commit is contained in:
Igor S. Gerasimov 2025-01-02 17:30:05 +01:00
parent fbc40e8b9e
commit 49cc094869
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

@ -232,6 +232,12 @@ module tracy
integer(c_int32_t), value :: color integer(c_int32_t), value :: color
integer(c_int32_t), value :: depth integer(c_int32_t), value :: depth
end subroutine impl_tracy_emit_messageC end subroutine impl_tracy_emit_messageC
subroutine impl_tracy_emit_message_appinfo(txt, size) &
bind(C, name="___tracy_emit_message_appinfo")
import
type(c_ptr), intent(in) :: txt
integer(c_size_t), value :: size
end subroutine impl_tracy_emit_message_appinfo
end interface end interface
interface interface
@ -270,6 +276,7 @@ module tracy
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_connected
public :: tracy_appinfo
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
@ -446,6 +453,11 @@ contains
end if end if
end subroutine tracy_message end subroutine tracy_message
subroutine tracy_appinfo(info)
character(kind=c_char, len=*), target, intent(in) :: info
call impl_tracy_emit_message_appinfo(c_loc(info), len(info, kind=c_size_t))
end subroutine tracy_appinfo
subroutine tracy_frame_mark(name) subroutine tracy_frame_mark(name)
character(kind=c_char, len=*), target, intent(in), optional :: name character(kind=c_char, len=*), target, intent(in), optional :: name
if (present(name)) then if (present(name)) then