[1] | 1 | /* |
---|
[443] | 2 | * sys_trace.c - activate / desactivate the context switches trace for a given core |
---|
[1] | 3 | * |
---|
[637] | 4 | * Author Alain Greiner (c) (2016,2017,2018,2019) |
---|
[1] | 5 | * |
---|
[23] | 6 | * Copyright (c) UPMC Sorbonne Universites |
---|
[1] | 7 | * |
---|
[23] | 8 | * This file is part of ALMOS-MKH. |
---|
| 9 | * |
---|
| 10 | * ALMOS-MKH is free software; you can redistribute it and/or modify it |
---|
[1] | 11 | * under the terms of the GNU General Public License as published by |
---|
| 12 | * the Free Software Foundation; version 2.0 of the License. |
---|
| 13 | * |
---|
[23] | 14 | * ALMOS-MKH is distributed in the hope that it will be useful, but |
---|
[1] | 15 | * WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
| 16 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
---|
| 17 | * General Public License for more details. |
---|
| 18 | * |
---|
| 19 | * You should have received a copy of the GNU General Public License |
---|
[23] | 20 | * along with ALMOS-MKH; if not, write to the Free Software Foundation, |
---|
[1] | 21 | * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
---|
| 22 | */ |
---|
| 23 | |
---|
[457] | 24 | #include <hal_kernel_types.h> |
---|
[23] | 25 | #include <hal_special.h> |
---|
| 26 | #include <printk.h> |
---|
[1] | 27 | #include <thread.h> |
---|
| 28 | #include <errno.h> |
---|
[443] | 29 | #include <shared_syscalls.h> |
---|
[23] | 30 | #include <syscalls.h> |
---|
[1] | 31 | |
---|
[443] | 32 | /////////////////////////////// |
---|
| 33 | int sys_trace( bool_t active, |
---|
| 34 | cxy_t cxy, |
---|
| 35 | lid_t lid ) |
---|
[1] | 36 | { |
---|
[443] | 37 | uint32_t ncores; |
---|
[1] | 38 | |
---|
[443] | 39 | thread_t * this = CURRENT_THREAD; |
---|
| 40 | process_t * process = this->process; |
---|
| 41 | |
---|
[637] | 42 | #if (DEBUG_SYS_TRACE || CONFIG_INSTRUMENTATION_SYSCALLS) |
---|
| 43 | uint64_t tm_start = hal_get_cycles(); |
---|
| 44 | #endif |
---|
| 45 | |
---|
[443] | 46 | #if DEBUG_SYS_TRACE |
---|
| 47 | if( DEBUG_SYS_TRACE < tm_start ) |
---|
[637] | 48 | printk("\n[%s] thread[%x,%x] enters / cycle = %d\n", |
---|
| 49 | __FUNCTION__, this->process->pid, this->trdid, (uint32_t)tm_start ); |
---|
[443] | 50 | #endif |
---|
| 51 | |
---|
| 52 | // check cluster identifier |
---|
[637] | 53 | if( cluster_is_active( cxy ) == false ) |
---|
[23] | 54 | { |
---|
[443] | 55 | |
---|
| 56 | #if DEBUG_SYSCALLS_ERROR |
---|
| 57 | printk("\n[ERROR] in %s : illegal cxy argument %x / thread %x / process %x\n", |
---|
| 58 | __FUNCTION__ , cxy , this->trdid , process->pid ); |
---|
| 59 | #endif |
---|
| 60 | this->errno = EINVAL; |
---|
[23] | 61 | return -1; |
---|
| 62 | } |
---|
[1] | 63 | |
---|
[443] | 64 | // check core local index |
---|
[566] | 65 | ncores = hal_remote_l32( XPTR( cxy , &LOCAL_CLUSTER->cores_nr ) ); |
---|
[443] | 66 | if( lid >= ncores ) |
---|
[23] | 67 | { |
---|
[1] | 68 | |
---|
[443] | 69 | #if DEBUG_SYSCALLS_ERROR |
---|
| 70 | printk("\n[ERROR] in %s : illegal lid argument %x / thread %x / process %x\n", |
---|
| 71 | __FUNCTION__ , lid , this->trdid , process->pid ); |
---|
| 72 | #endif |
---|
| 73 | this->errno = EINVAL; |
---|
[23] | 74 | return -1; |
---|
| 75 | } |
---|
[1] | 76 | |
---|
[443] | 77 | // get local pointer on target core |
---|
| 78 | core_t * core = &LOCAL_CLUSTER->core_tbl[lid]; |
---|
| 79 | |
---|
| 80 | // get extended pointer on target scheduler trace field |
---|
| 81 | xptr_t trace_xp = XPTR( cxy , &core->scheduler.trace ); |
---|
| 82 | |
---|
[566] | 83 | if ( active ) hal_remote_s32( trace_xp , 1 ); |
---|
| 84 | else hal_remote_s32( trace_xp , 0 ); |
---|
[443] | 85 | |
---|
[124] | 86 | hal_fence(); |
---|
[1] | 87 | |
---|
[637] | 88 | #if (DEBUG_SYS_TRACE || CONFIG_INSTRUMENTATION_SYSCALLS) |
---|
| 89 | uint64_t tm_end = hal_get_cycles(); |
---|
| 90 | #endif |
---|
| 91 | |
---|
[443] | 92 | #if DEBUG_SYS_TRACE |
---|
| 93 | if( DEBUG_SYS_TRACE < tm_end ) |
---|
[637] | 94 | printk("\n[%s] thread[%x,%x] exit / cycle %d\n", |
---|
| 95 | __FUNCTION__, this->process->pid, this->trdid, (uint32_t)tm_end ); |
---|
[443] | 96 | #endif |
---|
| 97 | |
---|
[637] | 98 | #if CONFIG_INSTRUMENTATION_SYSCALLS |
---|
| 99 | hal_atomic_add( &syscalls_cumul_cost[SYS_TRACE] , tm_end - tm_start ); |
---|
| 100 | hal_atomic_add( &syscalls_occurences[SYS_TRACE] , 1 ); |
---|
| 101 | #endif |
---|
[23] | 102 | return 0; |
---|
[1] | 103 | |
---|
[23] | 104 | } // end sys_trace() |
---|