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

Use simpler typename of context

Browse Source
This commit is contained in:
Igor S. Gerasimov 2025-01-02 17:52:32 +01:00
parent caabfc6379
commit 82460b0316
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
public/TracyClient.F90
View File

@ -19,7 +19,7 @@ module tracy
integer(c_int32_t) :: color integer(c_int32_t) :: color
end type end type
type, bind(C) :: tracy_c_zone_context type, bind(C) :: tracy_zone_context
integer(c_int32_t) :: id integer(c_int32_t) :: id
integer(c_int32_t) :: active integer(c_int32_t) :: active
end type end type
@ -114,14 +114,14 @@ module tracy
end interface end interface
interface interface
type(tracy_c_zone_context) function impl_tracy_emit_zone_begin_callstack(srcloc, depth, active) & type(tracy_zone_context) function impl_tracy_emit_zone_begin_callstack(srcloc, depth, active) &
bind(C, name="___tracy_emit_zone_begin_callstack") bind(C, name="___tracy_emit_zone_begin_callstack")
import import
type(tracy_source_location_data), intent(in) :: srcloc type(tracy_source_location_data), intent(in) :: srcloc
integer(c_int32_t), intent(in), value :: depth integer(c_int32_t), intent(in), value :: depth
integer(c_int32_t), intent(in), value :: active integer(c_int32_t), intent(in), value :: active
end function impl_tracy_emit_zone_begin_callstack end function impl_tracy_emit_zone_begin_callstack
type(tracy_c_zone_context) function impl_tracy_emit_zone_begin_alloc_callstack(srcloc, depth, active) & type(tracy_zone_context) function impl_tracy_emit_zone_begin_alloc_callstack(srcloc, depth, active) &
bind(C, name="___tracy_emit_zone_begin_alloc_callstack") bind(C, name="___tracy_emit_zone_begin_alloc_callstack")
import import
integer(c_int64_t), intent(in), value :: srcloc integer(c_int64_t), intent(in), value :: srcloc
@ -136,31 +136,31 @@ module tracy
interface interface
subroutine tracy_zone_end(ctx) bind(C, name="___tracy_emit_zone_end") subroutine tracy_zone_end(ctx) bind(C, name="___tracy_emit_zone_end")
import import
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
end subroutine tracy_zone_end end subroutine tracy_zone_end
end interface end interface
interface interface
subroutine tracy_emit_zone_text(ctx, txt, size) bind(C, name="___tracy_emit_zone_text") subroutine tracy_emit_zone_text(ctx, txt, size) bind(C, name="___tracy_emit_zone_text")
import import
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
type(c_ptr), intent(in) :: txt type(c_ptr), intent(in) :: txt
integer(c_size_t), intent(in), value :: size integer(c_size_t), intent(in), value :: size
end subroutine tracy_emit_zone_text end subroutine tracy_emit_zone_text
subroutine tracy_emit_zone_name(ctx, txt, size) bind(C, name="___tracy_emit_zone_name") subroutine tracy_emit_zone_name(ctx, txt, size) bind(C, name="___tracy_emit_zone_name")
import import
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
type(c_ptr), intent(in) :: txt type(c_ptr), intent(in) :: txt
integer(c_size_t), intent(in), value :: size integer(c_size_t), intent(in), value :: size
end subroutine tracy_emit_zone_name end subroutine tracy_emit_zone_name
subroutine tracy_emit_zone_color(ctx, color) bind(C, name="___tracy_emit_zone_color") subroutine tracy_emit_zone_color(ctx, color) bind(C, name="___tracy_emit_zone_color")
import import
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
integer(c_int32_t), intent(in), value :: color integer(c_int32_t), intent(in), value :: color
end subroutine tracy_emit_zone_color end subroutine tracy_emit_zone_color
subroutine tracy_emit_zone_value(ctx, value) bind(C, name="___tracy_emit_zone_value") subroutine tracy_emit_zone_value(ctx, value) bind(C, name="___tracy_emit_zone_value")
import import
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
integer(c_int64_t), intent(in), value :: value integer(c_int64_t), intent(in), value :: value
end subroutine tracy_emit_zone_value end subroutine tracy_emit_zone_value
end interface end interface
@ -306,7 +306,7 @@ module tracy
end interface end interface
! !
public :: tracy_c_zone_context public :: tracy_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
@ -357,7 +357,7 @@ contains
endif endif
end function tracy_alloc_srcloc end function tracy_alloc_srcloc
type(tracy_c_zone_context) function tracy_emit_zone_begin_id(srcloc, depth, active) type(tracy_zone_context) function tracy_emit_zone_begin_id(srcloc, depth, active)
integer(c_int64_t), intent(in) :: srcloc integer(c_int64_t), intent(in) :: srcloc
integer(c_int32_t), intent(in), optional :: depth integer(c_int32_t), intent(in), optional :: depth
logical(1), intent(in), optional :: active logical(1), intent(in), optional :: active
@ -376,7 +376,7 @@ contains
if (present(depth)) depth_ = depth if (present(depth)) depth_ = depth
tracy_emit_zone_begin_id = impl_tracy_emit_zone_begin_alloc_callstack(srcloc, depth_, active_) tracy_emit_zone_begin_id = impl_tracy_emit_zone_begin_alloc_callstack(srcloc, depth_, active_)
end function tracy_emit_zone_begin_id end function tracy_emit_zone_begin_id
type(tracy_c_zone_context) function tracy_emit_zone_begin_type(srcloc, depth, active) type(tracy_zone_context) function tracy_emit_zone_begin_type(srcloc, depth, active)
type(tracy_source_location_data), intent(in) :: srcloc type(tracy_source_location_data), intent(in) :: srcloc
integer(c_int32_t), intent(in), optional :: depth integer(c_int32_t), intent(in), optional :: depth
logical(1), intent(in), optional :: active logical(1), intent(in), optional :: active
@ -397,7 +397,7 @@ contains
end function tracy_emit_zone_begin_type end function tracy_emit_zone_begin_type
subroutine tracy_zone_set_properties(ctx, text, name, color, value) subroutine tracy_zone_set_properties(ctx, text, name, color, value)
type(tracy_c_zone_context), intent(in), value :: ctx type(tracy_zone_context), intent(in), value :: ctx
character(kind=c_char, len=*), target, intent(in), optional :: text character(kind=c_char, len=*), target, intent(in), optional :: text
character(kind=c_char, len=*), target, intent(in), optional :: name character(kind=c_char, len=*), target, intent(in), optional :: name
integer(c_int32_t), target, intent(in), optional :: color integer(c_int32_t), target, intent(in), optional :: color