LCOV - code coverage report
Current view: top level - util/tile - fd_tile_threads.c (source / functions) Hit Total Coverage
Test: cov.lcov Lines: 385 499 77.2 %
Date: 2026-09-17 04:28:31 Functions: 27 28 96.4 %

          Line data    Source code
       1             : #ifndef _GNU_SOURCE
       2             : #define _GNU_SOURCE
       3             : #endif
       4             : 
       5             : #include <ctype.h>
       6             : #include <errno.h>
       7             : #include <pthread.h>
       8             : #include <unistd.h>
       9             : #include <sched.h>
      10             : #include <syscall.h>
      11             : #include <sys/resource.h>
      12             : #include <sys/mman.h>
      13             : #include <sys/prctl.h>
      14             : 
      15             : #include "../sanitize/fd_sanitize.h"
      16             : #include "fd_tile_private.h"
      17             : 
      18             : /* Operating system shims ********************************************/
      19             : 
      20             : struct fd_tile_private_cpu_config {
      21             :   int prio;
      22             : };
      23             : 
      24             : typedef struct fd_tile_private_cpu_config fd_tile_private_cpu_config_t;
      25             : 
      26             : /* Configure the CPU optimally */
      27             : 
      28             : static inline void
      29             : fd_tile_private_cpu_config( fd_tile_private_cpu_config_t * save,
      30        2701 :                             ulong                          cpu_idx ) {
      31             : 
      32             :   /* If a floating tile, leave scheduler priority unchanged from however
      33             :      the thread group launcher configured it. */
      34             : 
      35        2701 :   if( cpu_idx==65535UL ) {
      36        2530 :     save->prio = INT_MIN;
      37        2530 :     return;
      38        2530 :   }
      39             : 
      40             :   /* Otherwise, configure high scheduler priority */
      41             : 
      42        2701 :   errno = 0;
      43         171 :   int prio = getpriority( PRIO_PROCESS, (id_t)0 );
      44         171 :   if( prio==-1 && errno ) {
      45           0 :     FD_LOG_WARNING(( "fd_tile: getpriority failed (%i-%s)\n\t"
      46           0 :                      "Unable to determine initial tile priority so not configuring the tile\n\t"
      47           0 :                      "for high scheduler priority.  Attempting to continue but this thread\n\t"
      48           0 :                      "group's performance and stability might be compromised.  Probably should\n\t"
      49           0 :                      "configure 'ulimit -e 39' (or 40 and this might require adjusting\n\t"
      50           0 :                      "/etc/security/limits.conf as superuser to nice -19 or -20 for this user)\n\t"
      51           0 :                      "to eliminate this warning.  Also consider starting this thread group\n\t"
      52           0 :                      "with 'nice --19'.",
      53           0 :                      errno, fd_io_strerror( errno ) ));
      54           0 :     save->prio = INT_MIN;
      55           0 :   }
      56             : 
      57         171 :   if( FD_UNLIKELY( prio!=-19 ) && FD_UNLIKELY( setpriority( PRIO_PROCESS, (id_t)0, -19 ) ) ) {
      58           0 :     FD_LOG_WARNING(( "fd_tile: setpriority failed (%i-%s)\n\t"
      59           0 :                      "Unable to configure this tile for high scheduler priority.  Attempting\n\t"
      60           0 :                      "to continue but this thread group's performance and stability might be\n\t"
      61           0 :                      "compromised.  Probably should configure 'ulimit -e 39' (or 40 and this\n\t"
      62           0 :                      "might require adjusting /etc/security/limits.conf to nice -19 or -20\n\t"
      63           0 :                      "for this user) to eliminate this warning.  Also consider starting this\n\t"
      64           0 :                      "thread group with 'nice --19'.",
      65           0 :                      errno, fd_io_strerror( errno ) ));
      66           0 :     save->prio = INT_MIN;
      67           0 :     return;
      68           0 :   }
      69             : 
      70         171 :   save->prio = prio;
      71         171 : }
      72             : 
      73             : /* Restore the CPU to the given state */
      74             : 
      75             : static inline void
      76        1597 : fd_tile_private_cpu_restore( fd_tile_private_cpu_config_t * save ) {
      77        1597 :   int prio = save->prio;
      78        1597 :   if( FD_LIKELY( prio!=INT_MIN ) && FD_UNLIKELY( prio!=-19 ) && FD_UNLIKELY( setpriority( PRIO_PROCESS, (id_t)0, prio ) ) )
      79           0 :     FD_LOG_WARNING(( "fd_tile: setpriority failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
      80        1597 : }
      81             : 
      82             : void *
      83             : fd_tile_private_stack_new( int   optimize,
      84          54 :                            ulong cpu_idx ) { /* Ignored if optimize is not requested */
      85             : 
      86          54 :   uchar * stack = NULL;
      87             : 
      88          54 :   if( optimize ) { /* Create a NUMA and TLB optimized stack for a tile running on cpu cpu_idx */
      89             : 
      90          54 :     stack = (uchar *)
      91          54 :       fd_shmem_acquire( FD_SHMEM_HUGE_PAGE_SZ, (FD_TILE_PRIVATE_STACK_SZ/FD_SHMEM_HUGE_PAGE_SZ)+2UL, cpu_idx ); /* logs details */
      92             : 
      93          54 :     if( FD_LIKELY( stack ) ) { /* Make space for guard lo and guard hi */
      94             : 
      95          54 :       fd_shmem_release( stack, FD_SHMEM_HUGE_PAGE_SZ, 1UL );
      96             : 
      97          54 :       stack += FD_SHMEM_HUGE_PAGE_SZ;
      98             : 
      99          54 :       fd_shmem_release( stack + FD_TILE_PRIVATE_STACK_SZ, FD_SHMEM_HUGE_PAGE_SZ, 1UL );
     100             : 
     101          54 :     } else {
     102             : 
     103           0 :       ulong numa_idx = fd_shmem_numa_idx( cpu_idx );
     104           0 :       static ulong warn = 0UL;
     105           0 :       if( FD_LIKELY( !(warn & (1UL<<numa_idx) ) ) ) {
     106           0 :         FD_LOG_WARNING(( "fd_tile: fd_shmem_acquire failed\n\t"
     107           0 :                          "There are probably not enough huge pages allocated by the OS on numa\n\t"
     108           0 :                          "node %lu.  Falling back on normal page backed stack for tile on cpu %lu\n\t"
     109           0 :                          "and attempting to continue.  Run:\n\t"
     110           0 :                          "\techo [CNT] > /sys/devices/system/node/node%lu/hugepages/hugepages-2048kB/nr_hugepages\n\t"
     111           0 :                          "(probably as superuser) or equivalent where [CNT] is a sufficient number\n\t"
     112           0 :                          "huge pages to reserve on this numa node system wide and/or adjust\n\t"
     113           0 :                          "/etc/security/limits.conf to permit this user to lock a sufficient\n\t"
     114           0 :                          "amount of memory to eliminate this warning.",
     115           0 :                          numa_idx, cpu_idx, numa_idx ));
     116           0 :         warn |= 1UL<<numa_idx;
     117           0 :       }
     118             : 
     119           0 :     }
     120             : 
     121          54 :   }
     122             : 
     123          54 :   if( !stack ) { /* Request for a non-optimized stack (or optimized stack creation failed above and we are falling back) */
     124             : 
     125           0 :     ulong mmap_sz = FD_TILE_PRIVATE_STACK_SZ + 2UL*FD_SHMEM_NORMAL_PAGE_SZ;
     126           0 :     stack = (uchar *)mmap( NULL, mmap_sz, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS, -1, (off_t)0 );
     127             : 
     128           0 :     if( FD_LIKELY( ((void *)stack)!=MAP_FAILED ) ) { /* Make space for guard lo and guard hi */
     129             : 
     130           0 :       if( FD_UNLIKELY( munmap( stack, FD_SHMEM_NORMAL_PAGE_SZ ) ) )
     131           0 :         FD_LOG_WARNING(( "fd_tile: munmap failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
     132             : 
     133           0 :       stack += FD_SHMEM_NORMAL_PAGE_SZ;
     134             : 
     135           0 :       if( FD_UNLIKELY( munmap( stack + FD_TILE_PRIVATE_STACK_SZ, FD_SHMEM_NORMAL_PAGE_SZ ) ) )
     136           0 :         FD_LOG_WARNING(( "fd_tile: munmap failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
     137             : 
     138           0 :     } else {
     139             : 
     140           0 :       FD_LOG_WARNING(( "fd_tile: mmap(NULL,%lu KiB,PROT_READ|PROT_WRITE,MAP_PRIVATE|MAP_ANONYMOUS,-1,0) failed (%i-%s)\n\t"
     141           0 :                        "Falling back on pthreads created stack and attempting to continue.",
     142           0 :                        mmap_sz >> 10, errno, fd_io_strerror( errno ) ));
     143           0 :       return NULL;
     144             : 
     145           0 :     }
     146             : 
     147           0 :   }
     148             : 
     149             :   /* Create the guard regions in the extra space */
     150             : 
     151          54 :   void * guard_lo = (void *)(stack - FD_SHMEM_NORMAL_PAGE_SZ );
     152          54 :   if( FD_UNLIKELY( mmap( guard_lo, FD_SHMEM_NORMAL_PAGE_SZ, PROT_NONE,
     153          54 :                          MAP_PRIVATE | MAP_ANONYMOUS | MAP_FIXED, -1, (off_t)0 )!=guard_lo ) )
     154           0 :     FD_LOG_WARNING(( "fd_tile: mmap failed (%i-%s)\n\tAttempting to continue without stack guard lo.",
     155          54 :                      errno, fd_io_strerror( errno ) ));
     156             : 
     157          54 :   void * guard_hi = (void *)(stack + FD_TILE_PRIVATE_STACK_SZ);
     158          54 :   if( FD_UNLIKELY( mmap( guard_hi, FD_SHMEM_NORMAL_PAGE_SZ, PROT_NONE,
     159          54 :                          MAP_PRIVATE | MAP_ANONYMOUS | MAP_FIXED, -1, (off_t)0 )!=guard_hi ) )
     160           0 :     FD_LOG_WARNING(( "fd_tile: mmap failed (%i-%s)\n\tAttempting to continue without stack guard hi.",
     161          54 :                      errno, fd_io_strerror( errno ) ));
     162             : 
     163          54 :   return stack;
     164          54 : }
     165             : 
     166             : static void
     167          54 : fd_tile_private_stack_delete( void * _stack ) {
     168          54 :   if( FD_UNLIKELY( !_stack ) ) return;
     169             : 
     170          54 :   uchar * stack    = (uchar *)_stack;
     171          54 :   uchar * guard_lo = stack - FD_SHMEM_NORMAL_PAGE_SZ;
     172          54 :   uchar * guard_hi = stack + FD_TILE_PRIVATE_STACK_SZ;
     173             : 
     174          54 :   if( FD_UNLIKELY( munmap( guard_hi, FD_SHMEM_NORMAL_PAGE_SZ ) ) )
     175           0 :     FD_LOG_WARNING(( "fd_tile: munmap failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
     176             : 
     177          54 :   if( FD_UNLIKELY( munmap( guard_lo, FD_SHMEM_NORMAL_PAGE_SZ ) ) )
     178           0 :     FD_LOG_WARNING(( "fd_tile: munmap failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
     179             : 
     180             :   /* Note that fd_shmem_release is just a wrapper around munmap such
     181             :      that this covers both the optimized and non-optimized cases */
     182             : 
     183          54 :   if( FD_UNLIKELY( munmap( stack, FD_TILE_PRIVATE_STACK_SZ ) ) )
     184           0 :     FD_LOG_WARNING(( "fd_tile: munmap failed (%i-%s); attempting to continue", errno, fd_io_strerror( errno ) ));
     185          54 : }
     186             : 
     187             : /* Tile side APIs ****************************************************/
     188             : 
     189             : static ulong fd_tile_private_id0; /* Zeroed at app start, initialized by the boot manager */
     190             : static ulong fd_tile_private_id1; /* " */
     191             : static ulong fd_tile_private_cnt; /* " */
     192             : 
     193          78 : ulong fd_tile_id0( void ) { return fd_tile_private_id0; }
     194          36 : ulong fd_tile_id1( void ) { return fd_tile_private_id1; }
     195         264 : ulong fd_tile_cnt( void ) { return fd_tile_private_cnt; }
     196             : 
     197             : static FD_TL ulong fd_tile_private_id;     /* Zeroed at app/thread start, initialized by the boot / tile manager */
     198             : static FD_TL ulong fd_tile_private_idx;    /* " */
     199             : /**/   FD_TL ulong fd_tile_private_stack0; /* " */
     200             : /**/   FD_TL ulong fd_tile_private_stack1; /* " */
     201             : 
     202          54 : ulong fd_tile_id ( void ) { return fd_tile_private_id;  }
     203         310 : ulong fd_tile_idx( void ) { return fd_tile_private_idx; }
     204             : 
     205             : static ushort fd_tile_private_cpu_id[ FD_TILE_MAX ]; /* Zeroed at app start, initialized by boot */
     206             : 
     207             : ulong
     208          93 : fd_tile_cpu_id( ulong tile_idx ) {
     209          93 :   if( FD_UNLIKELY( tile_idx>=fd_tile_private_cnt ) ) return ULONG_MAX;
     210          93 :   ulong cpu_idx = (ulong)fd_tile_private_cpu_id[ tile_idx ];
     211          93 :   return fd_ulong_if( cpu_idx<65535UL, cpu_idx, ULONG_MAX-1UL );
     212          93 : }
     213             : 
     214             : /* This is used for the OS services to communicate information with the
     215             :    tile managers */
     216             : 
     217         108 : #define FD_TILE_PRIVATE_STATE_BOOT (0) /* Tile is booting */
     218    49916176 : #define FD_TILE_PRIVATE_STATE_IDLE (1) /* Tile is idle */
     219         135 : #define FD_TILE_PRIVATE_STATE_EXEC (2) /* Tile is executing a task */
     220          54 : #define FD_TILE_PRIVATE_STATE_HALT (3) /* Tile is halting */
     221             : 
     222             : struct __attribute__((aligned(128))) fd_tile_private { /* Double cache line aligned to avoid aclpf false sharing */
     223             :   ulong          id;
     224             :   ulong          idx;
     225             :   int            state;  /* FD_TILE_PRIVATE_STATE_* */
     226             :   int            argc;
     227             :   char **        argv;
     228             :   fd_tile_task_t task;
     229             :   char const *   fail;
     230             :   int            ret;
     231             : };
     232             : 
     233             : typedef struct fd_tile_private fd_tile_private_t;
     234             : 
     235             : struct fd_tile_private_manager_args {
     236             :   ulong               id;
     237             :   ulong               idx;
     238             :   ulong               cpu_idx;
     239             :   void *              stack;    /* NULL if pthread created, non-NULL if user created */
     240             :   ulong               stack_sz;
     241             :   fd_tile_private_t * tile;
     242             : };
     243             : 
     244             : typedef struct fd_tile_private_manager_args fd_tile_private_manager_args_t;
     245             : 
     246             : static void *
     247          54 : fd_tile_private_manager( void * _args ) {
     248          54 :   fd_tile_private_manager_args_t * args = (fd_tile_private_manager_args_t *)_args;
     249             : 
     250             : # if !__GLIBC__
     251             :   if( args->cpu_idx<65535UL ) {
     252             :     FD_CPUSET_DECL( cpu_set );
     253             :     fd_cpuset_insert( cpu_set, args->cpu_idx );
     254             :     int err = fd_cpuset_setaffinity( (pid_t)0, cpu_set );
     255             :     if( FD_UNLIKELY( err ) )
     256             :       FD_LOG_WARNING(( "fd_tile: fd_cpuset_setaffinity_failed (%i-%s)\n\t"
     257             :                        "Unable to set the thread affinity for tile %lu to cpu %lu.  Attempting to\n\t"
     258             :                        "continue without explicitly specifying this tile's cpu affinity but it\n\t"
     259             :                        "is likely this thread group's performance and stability are compromised\n\t"
     260             :                        "(possibly catastrophically so).  Update --tile-cpus to specify a set of\n\t"
     261             :                        "allowed cpus that have been reserved for this thread group on this host\n\t"
     262             :                        "to eliminate this warning.", err, fd_io_strerror( err ), args->idx, args->cpu_idx ));
     263             :   }
     264             : # endif /* !__GLIBC__ */
     265             : 
     266          54 :   ulong  id       = args->id;
     267          54 :   ulong  idx      = args->idx;
     268          54 :   void * stack    = args->stack;
     269          54 :   ulong  stack_sz = args->stack_sz;
     270             : 
     271          54 :   char thread_name[ 20 ];
     272          54 :   FD_TEST( fd_cstr_printf_check( thread_name, sizeof( thread_name ), NULL, "tile:%lu", idx ) );
     273          54 :   if( FD_UNLIKELY( prctl( PR_SET_NAME, thread_name, 0, 0, 0 ) ) ) FD_LOG_ERR(( "prctl(PR_SET_NAME) failed (%i-%s)", errno, fd_io_strerror( errno ) ));
     274             : 
     275          54 :   if( FD_UNLIKELY( !( (id ==fd_log_thread_id()                                       ) &
     276          54 :                       (idx==(id-fd_tile_private_id0)                                 ) &
     277          54 :                       ((fd_tile_private_id0<id) & (id<fd_tile_private_id1)           ) &
     278          54 :                       (fd_tile_private_cnt==(fd_tile_private_id1-fd_tile_private_id0)) ) ) )
     279           0 :     FD_LOG_ERR(( "fd_tile: internal error (unexpected thread identifiers)" ));
     280             : 
     281          54 :   fd_tile_private_t tile[1];
     282          54 :   FD_VOLATILE( tile->id    ) = id;
     283          54 :   FD_VOLATILE( tile->idx   ) = idx;
     284          54 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_BOOT;
     285          54 :   FD_VOLATILE( tile->argc  ) = 0;
     286          54 :   FD_VOLATILE( tile->argv  ) = NULL;
     287          54 :   FD_VOLATILE( tile->task  ) = NULL;
     288          54 :   FD_VOLATILE( tile->fail  ) = NULL;
     289          54 :   FD_VOLATILE( tile->ret   ) = 0;
     290             : 
     291             :   /* state is BOOT ... configure the tile, transition to IDLE and then
     292             :      start polling for tasks */
     293             : 
     294          54 :   fd_tile_private_id  = id;
     295          54 :   fd_tile_private_idx = idx;
     296             : 
     297          54 :   if( FD_LIKELY( stack ) ) { /* User provided stack */
     298          54 :     fd_tile_private_stack0 = (ulong)stack;
     299          54 :     fd_tile_private_stack1 = (ulong)stack + stack_sz;
     300             : 
     301             :     /* Prevent another fork() from smashing the stack */
     302          54 :     if( FD_UNLIKELY( madvise( stack, FD_TILE_PRIVATE_STACK_SZ, MADV_DONTFORK ) ) ) {
     303           0 :       FD_LOG_ERR(( "madvise(stack,MADV_DONTFORK) failed (%i-%s)", errno, fd_io_strerror( errno ) ));
     304           0 :     }
     305             : 
     306          54 :   } else { /* Pthread provided stack */
     307           0 :     fd_log_private_stack_discover( stack_sz, &fd_tile_private_stack0, &fd_tile_private_stack1 ); /* logs details */
     308           0 :     if( FD_UNLIKELY( !fd_tile_private_stack0 ) )
     309           0 :       FD_LOG_WARNING(( "stack diagnostics not available on this tile; attempting to continue" ));
     310           0 :   }
     311             : 
     312          54 :   fd_tile_private_cpu_config_t dummy[1];
     313          54 :   fd_tile_private_cpu_config( dummy, args->cpu_idx );
     314             : 
     315          54 :   ulong app_id = fd_log_app_id();
     316          54 :   FD_LOG_INFO(( "fd_tile: boot tile %lu success (thread %lu:%lu in thread group %lu:%lu/%lu)",
     317          54 :                 idx, app_id, id, app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     318             : 
     319          54 :   FD_COMPILER_MFENCE();
     320          54 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_IDLE;
     321          54 :   FD_VOLATILE( args->tile  ) = tile;
     322             : 
     323   186297582 :   for(;;) {
     324             : 
     325             :     /* We are awake ... see what we should do next */
     326             : 
     327   186297582 :     int state = FD_VOLATILE_CONST( tile->state );
     328   186297582 :     if( FD_UNLIKELY( state!=FD_TILE_PRIVATE_STATE_EXEC ) ) {
     329   136381526 :       if( FD_UNLIKELY( state!=FD_TILE_PRIVATE_STATE_IDLE ) ) break;
     330             :       /* state is IDLE ... try again */
     331   136381481 :       FD_SPIN_PAUSE();
     332   136381481 :       continue;
     333   136381526 :     }
     334             : 
     335             :     /* state is EXEC ... the run assigned task and then
     336             :        transition to IDLE when done */
     337             : 
     338    49916056 :     int            argc = FD_VOLATILE_CONST( tile->argc );
     339    49916056 :     char **        argv = FD_VOLATILE_CONST( tile->argv );
     340    49916056 :     fd_tile_task_t task = FD_VOLATILE_CONST( tile->task );
     341    49916056 :     FD_VOLATILE( tile->ret  ) = task( argc, argv );
     342    49916056 :     FD_VOLATILE( tile->fail ) = NULL;
     343             : 
     344    49916056 :     FD_COMPILER_MFENCE();
     345    49916056 :     FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_IDLE;
     346    49916056 :   }
     347             : 
     348             :   /* state is HALT, clean up and then reset back to BOOT */
     349             : 
     350          54 :   FD_LOG_INFO(( "fd_tile: halting tile %lu", idx ));
     351             : 
     352          54 :   FD_COMPILER_MFENCE();
     353          54 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_BOOT;
     354          54 :   return stack;
     355          54 : }
     356             : 
     357             : /* Dispatch side APIs ************************************************/
     358             : 
     359             : static struct __attribute__((aligned(128))) { /* Each on its own cache line pair to limit false sharing in parallel dispatch */
     360             :   fd_tile_private_t * lock; /* Non-NULL if tile idx is available for dispatch, ==tile otherwise */
     361             :   fd_tile_private_t * tile;
     362             :   pthread_t           pthread;
     363             : } fd_tile_private[ FD_TILE_MAX ];
     364             : 
     365             : /* FIXME: ATOMIC_XCHG BASED INSTEAD? */
     366             : static inline fd_tile_private_t *
     367         138 : fd_tile_private_trylock( ulong tile_idx ) {
     368         138 :   fd_tile_private_t * volatile * vtile = (fd_tile_private_t * volatile *)&fd_tile_private[ tile_idx ].lock;
     369         138 :   fd_tile_private_t * tile = *vtile;
     370         138 :   if( FD_LIKELY( tile ) && FD_LIKELY( FD_ATOMIC_CAS( vtile, tile, NULL )==tile ) ) return tile;
     371           3 :   return NULL;
     372         138 : }
     373             : 
     374             : static inline fd_tile_private_t *
     375          54 : fd_tile_private_lock( ulong tile_idx ) {
     376          54 :   fd_tile_private_t * volatile * vtile = (fd_tile_private_t * volatile *)&fd_tile_private[ tile_idx ].lock;
     377          54 :   fd_tile_private_t * tile;
     378          54 :   for(;;) {
     379          54 :     tile = *vtile;
     380          54 :     if( FD_LIKELY( tile ) && FD_LIKELY( FD_ATOMIC_CAS( vtile, tile, NULL )==tile ) ) break;
     381           0 :     FD_SPIN_PAUSE();
     382           0 :   }
     383          54 :   return tile;
     384          54 : }
     385             : 
     386             : static inline void
     387             : fd_tile_private_unlock( ulong               tile_idx,
     388         189 :                         fd_tile_private_t * tile ) {
     389         189 :   FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = tile;
     390         189 : }
     391             : 
     392             : fd_tile_exec_t *
     393             : fd_tile_exec_new( ulong          idx,
     394             :                   fd_tile_task_t task,
     395             :                   int            argc,
     396         171 :                   char **        argv ) {
     397         171 :   if( FD_UNLIKELY( (idx==fd_tile_private_idx) | (!idx) ) ) return NULL; /* Can't dispatch to self or to tile 0 */
     398             : 
     399         138 :   fd_tile_private_t * tile = fd_tile_private_trylock( idx );
     400         138 :   if( FD_UNLIKELY( !tile ) ) return NULL;
     401             : 
     402             :   /* Exec holds the lock and tile state is idle here */
     403         135 :   FD_VOLATILE( tile->argc ) = argc;
     404         135 :   FD_VOLATILE( tile->argv ) = argv;
     405         135 :   FD_VOLATILE( tile->task ) = task;
     406         135 :   FD_COMPILER_MFENCE();
     407         135 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_EXEC;
     408         135 :   return (fd_tile_exec_t *)tile;
     409         138 : }
     410             : 
     411             : char const *
     412             : fd_tile_exec_delete( fd_tile_exec_t * exec,
     413         135 :                      int *            opt_ret ) {
     414         135 :   fd_tile_private_t * tile     = (fd_tile_private_t *)exec;
     415         135 :   ulong               tile_idx = tile->idx;
     416             : 
     417         135 :   int state;
     418     1388206 :   for(;;) {
     419     1388206 :     state = FD_VOLATILE_CONST( tile->state );
     420     1388206 :     if( FD_LIKELY( state==FD_TILE_PRIVATE_STATE_IDLE ) ) break;
     421     1388071 :     FD_SPIN_PAUSE();
     422     1388071 :   }
     423             :   /* state is IDLE at this point */
     424         135 :   char const * fail = FD_VOLATILE_CONST( tile->fail );
     425         135 :   if( FD_LIKELY( (!fail) & (!!opt_ret) ) ) *opt_ret = FD_VOLATILE_CONST( tile->ret );
     426         135 :   fd_tile_private_unlock( tile_idx, tile );
     427         135 :   return fail;
     428         135 : }
     429             : 
     430         138 : fd_tile_exec_t * fd_tile_exec( ulong tile_idx ) { return (fd_tile_exec_t *)fd_tile_private[ tile_idx ].tile; }
     431             : 
     432           0 : ulong          fd_tile_exec_id  ( fd_tile_exec_t const * exec ) { return ((fd_tile_private_t const *)exec)->id;   }
     433          12 : ulong          fd_tile_exec_idx ( fd_tile_exec_t const * exec ) { return ((fd_tile_private_t const *)exec)->idx;  }
     434          12 : fd_tile_task_t fd_tile_exec_task( fd_tile_exec_t const * exec ) { return ((fd_tile_private_t const *)exec)->task; }
     435          12 : int            fd_tile_exec_argc( fd_tile_exec_t const * exec ) { return ((fd_tile_private_t const *)exec)->argc; }
     436          12 : char **        fd_tile_exec_argv( fd_tile_exec_t const * exec ) { return ((fd_tile_private_t const *)exec)->argv; }
     437             : 
     438             : int
     439          12 : fd_tile_exec_done( fd_tile_exec_t const * exec ) {
     440          12 :   fd_tile_private_t const * tile = (fd_tile_private_t const *)exec;
     441          12 :   return FD_VOLATILE_CONST( tile->state )==FD_TILE_PRIVATE_STATE_IDLE;
     442          12 : }
     443             : 
     444             : /* Boot/halt APIs ****************************************************/
     445             : 
     446             : /* Parse a list of cpu tiles */
     447             : 
     448             : FD_STATIC_ASSERT( FD_TILE_MAX<65535, update_tile_to_cpu_type );
     449             : 
     450             : ulong
     451             : fd_tile_private_cpus_parse( char const * cstr,
     452        2647 :                             ushort *     tile_to_cpu ) {
     453        2647 :   if( !cstr ) return 0UL;
     454         117 :   ulong cnt = 0UL;
     455             : 
     456         117 :   FD_CPUSET_DECL( assigned_set );
     457             : 
     458         117 :   char const * p = cstr;
     459         237 :   for(;;) {
     460             : 
     461         237 :     while( fd_isspace( (int)p[0] ) ) p++; /* Munch whitespace */
     462             : 
     463         237 :     if( p[0]=='f' ) { /* These tiles have been requested to float on the original core set */
     464           0 :       p++;
     465             : 
     466           0 :       ulong float_cnt;
     467             : 
     468           0 :       while( fd_isspace( (int)p[0] ) ) p++; /* Munch whitespace */
     469           0 :       if     ( p[0]==','             ) float_cnt = 1UL, p++;
     470           0 :       else if( p[0]=='\0'            ) float_cnt = 1UL;
     471           0 :       else if( !fd_isdigit( (int)p[0] ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (malformed count)" ));
     472           0 :       else {
     473           0 :         float_cnt = fd_cstr_to_ulong( p );
     474           0 :         if( FD_UNLIKELY( !float_cnt ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (bad count)" ));
     475           0 :         p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     476           0 :         while( fd_isspace( (int)p[0] ) ) p++; /* Munch whitespace */
     477           0 :         if( FD_UNLIKELY( !( p[0]==',' || p[0]=='\0' ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (bad count delimiter)" ));
     478           0 :         if( p[0]==',' ) p++;
     479           0 :       }
     480             : 
     481             :       /* float_cnt is at least 1 at this point */
     482           0 :       do {
     483           0 :         if( FD_UNLIKELY( cnt>=FD_TILE_MAX ) ) FD_LOG_ERR(( "fd_tile: too many --tile-cpus" ));
     484           0 :         tile_to_cpu[ cnt++ ] = (ushort)65535;
     485           0 :       } while( --float_cnt );
     486             : 
     487           0 :       continue;
     488           0 :     }
     489             : 
     490         237 :     if( !fd_isdigit( (int)p[0] ) ) {
     491         117 :       if( FD_UNLIKELY( p[0]!='\0' ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (range lo not a cpu)" ));
     492         117 :       break;
     493         117 :     }
     494         120 :     ulong cpu0   = fd_cstr_to_ulong( p );
     495         120 :     ulong cpu1   = cpu0;
     496         120 :     ulong stride = 1UL;
     497         162 :     p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     498         120 :     while( fd_isspace( (int)p[0] ) ) p++;
     499         120 :     if( p[0]=='-' ) {
     500          12 :       p++;
     501          12 :       while( fd_isspace( (int)p[0] ) ) p++;
     502          12 :       if( FD_UNLIKELY( !fd_isdigit( (int)p[0] ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (range hi not a cpu)" ));
     503          12 :       cpu1 = fd_cstr_to_ulong( p );
     504          12 :       p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     505          12 :       while( fd_isspace( (int)p[0] ) ) p++;
     506          12 :       if( p[0]=='/' || p[0]==':' ) {
     507           3 :         p++;
     508           3 :         while( fd_isspace( (int)p[0] ) ) p++;
     509           3 :         if( FD_UNLIKELY( !fd_isdigit( (int)p[0] ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (stride not an int)" ));
     510           3 :         stride = fd_cstr_to_ulong( p );
     511           3 :         p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     512           3 :       }
     513          12 :     }
     514         108 :     else if( p[0]=='h' ) {
     515             :       /* `Nh` is a shorthand for "core N and its hyperthread sibling".
     516             :          If M is the sibling id and S = N-M, it translates as "N,M" or
     517             :          equivalently "N-M/S", i.e. a range from N to M with stride S.
     518             :          If core N doesn't have a sibling, the `h` suffix is ignored.
     519             :          This way an expression like "0h" also works on systems where
     520             :          hyperthread is not available. */
     521           0 :       p++;
     522           0 :       ulong sibling = fd_tile_private_sibling_idx( cpu0 );
     523           0 :       cpu1 =   fd_ulong_if( sibling==ULONG_MAX, cpu0, sibling );
     524           0 :       stride = fd_ulong_if( sibling==ULONG_MAX, 1,    sibling-cpu0 );
     525           0 :     }
     526         120 :     while( fd_isspace( (int)p[0] ) ) p++;
     527         120 :     if( FD_UNLIKELY( !( p[0]==',' || p[0]=='\0' ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (bad range delimiter)" ));
     528         120 :     if( p[0]==',' ) p++;
     529         120 :     cpu1++;
     530         120 :     if( FD_UNLIKELY( cpu1<=cpu0 ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (invalid range)"  ));
     531         120 :     if( FD_UNLIKELY( !stride    ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (invalid stride)" ));
     532             : 
     533         291 :     for( ulong cpu=cpu0; cpu<cpu1; cpu+=stride ) {
     534         171 :       if( FD_UNLIKELY( cnt>=FD_TILE_MAX                    ) ) FD_LOG_ERR(( "fd_tile: too many --tile-cpus" ));
     535         171 :       if( FD_UNLIKELY( cpu>=FD_TILE_MAX                    ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (cpu index too large)" ));
     536         171 :       if( FD_UNLIKELY( fd_cpuset_test( assigned_set, cpu ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (repeated cpu)" ));
     537         171 :       tile_to_cpu[ cnt++ ] = (ushort)cpu;
     538         171 :       fd_cpuset_insert( assigned_set, cpu );
     539         171 :     }
     540         120 :   }
     541             : 
     542         117 :   return cnt;
     543         117 : }
     544             : 
     545             : static fd_tile_private_cpu_config_t fd_tile_private_cpu_config_save[1];
     546             : 
     547             : void
     548             : fd_tile_private_map_boot( ushort * tile_to_cpu,
     549        2647 :                           ulong    tile_cnt ) {
     550        2647 :   fd_tile_private_id0 = fd_log_thread_id();
     551        2647 :   fd_tile_private_id1 = fd_tile_private_id0 + tile_cnt;
     552        2647 :   fd_tile_private_cnt = tile_cnt;
     553             : 
     554        2647 :   ulong app_id  = fd_log_app_id();
     555        2647 :   ulong host_id = fd_log_host_id();
     556        2647 :   FD_LOG_INFO(( "fd_tile: booting thread group %lu:%lu/%lu", app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     557             : 
     558             :   /* We create the tiles [1,tile_cnt) first so that any floating tiles
     559             :      in this inherit the appropriate scheduler priorities and affinities
     560             :      from the thread group launcher. */
     561             : 
     562        2701 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) {
     563             : 
     564          54 :     ulong cpu_idx = (ulong)tile_to_cpu[ tile_idx ];
     565          54 :     int   fixed   = (cpu_idx<65535UL);
     566             : 
     567          54 :     if( fixed ) FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:%lu",   tile_idx, host_id, cpu_idx ));
     568           0 :     else        FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:float", tile_idx, host_id ));
     569             : 
     570          54 :     pthread_attr_t attr[1];
     571          54 :     int err = pthread_attr_init( attr );
     572          54 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_attr_init failed (%i-%s) for tile %lu.\n\t",
     573          54 :                                           err, fd_io_strerror( err ), tile_idx ));
     574             : 
     575             :     /* Set affinity ahead of time.  This is a GNU-specific extension
     576             :        that is not available on musl.  On musl, we just skip this
     577             :        step as we call sched_setaffinity(2) later on regardless. */
     578             : 
     579          54 : #   if __GLIBC__
     580          54 :     if( fixed ) {
     581          54 :       FD_CPUSET_DECL( cpu_set );
     582          54 :       fd_cpuset_insert( cpu_set, cpu_idx );
     583          54 :       err = pthread_attr_setaffinity_np( attr, fd_cpuset_footprint(), (cpu_set_t const *)fd_type_pun_const( cpu_set ) );
     584          54 :       if( FD_UNLIKELY( err ) ) FD_LOG_WARNING(( "fd_tile: pthread_attr_setaffinity_failed (%i-%s)\n\t"
     585          54 :                                                 "Unable to set the thread affinity for tile %lu on cpu %lu.  Attempting to\n\t"
     586          54 :                                                 "continue without explicitly specifying this cpu's thread affinity but it\n\t"
     587          54 :                                                 "is likely this thread group's performance and stability are compromised\n\t"
     588          54 :                                                 "(possibly catastrophically so).  Update --tile-cpus to specify a set of\n\t"
     589          54 :                                                 "allowed cpus that have been reserved for this thread group on this host\n\t"
     590          54 :                                                 "to eliminate this warning.",
     591          54 :                                                 err, fd_io_strerror( err ), tile_idx, cpu_idx ));
     592          54 :     }
     593          54 : #   endif /* __GLIBC__ */
     594             : 
     595             :     /* Create an optimized stack with guard regions if the build target
     596             :        is x86 (e.g. supports huge pages necessary to optimize TLB usage)
     597             :        and the tile is assigned to a particular CPU (e.g. bind the stack
     598             :        memory to the NUMA node closest to the cpu).
     599             : 
     600             :        Otherwise (or if an optimized stack could not be created), create
     601             :        vanilla pthread-style stack with guard regions.  We DIY here
     602             :        because pthreads seems to be missing an API to determine the
     603             :        extents of the stacks it creates and we need to know the stack
     604             :        extents for run-time stack diagnostics.  Though we can use
     605             :        fd_log_private_stack_discover to determine stack extents after
     606             :        the thread is started, it is faster, more flexible, more reliable
     607             :        and more portable to use a user specified stack when possible.
     608             : 
     609             :        If neither can be done, we will let pthreads create the tile's
     610             :        stack and try to discover the stack extents after the thread is
     611             :        started. */
     612             : 
     613          54 :     int optimize = FD_HAS_X86 & fixed;
     614             : 
     615          54 :     void * stack = fd_tile_private_stack_new( optimize, cpu_idx );
     616          54 :     if( FD_LIKELY( stack ) ) {
     617          54 :       err = pthread_attr_setstack( attr, stack, FD_TILE_PRIVATE_STACK_SZ );
     618          54 :       if( FD_UNLIKELY( err ) ) {
     619           0 :         FD_LOG_WARNING(( "fd_tile: pthread_attr_setstack failed (%i-%s)\n\t", err, fd_io_strerror( err ) ));
     620           0 :         fd_tile_private_stack_delete( stack );
     621           0 :         stack = NULL;
     622           0 :       }
     623          54 :     }
     624             : 
     625          54 :     if( FD_UNLIKELY( !stack ) ) FD_LOG_WARNING(( "fd_tile: Unable to create a stack for tile %lu.\n\t"
     626          54 :                                                  "Attempting to continue with the default stack but it is likely this\n\t"
     627          54 :                                                  "thread group's performance and stability is compromised (possibly\n\t"
     628          54 :                                                  "catastrophically so).",
     629          54 :                                                  tile_idx ));
     630             : 
     631          54 :     ulong stack_sz;
     632          54 :     err = pthread_attr_getstacksize( attr, &stack_sz );
     633          54 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_attr_getstacksize failed (%i-%s) for tile %lu.\n\t",
     634          54 :                                           err, fd_io_strerror( err ), tile_idx ));
     635             : 
     636          54 :     FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = NULL;
     637             : 
     638          54 :     fd_tile_private_manager_args_t args[1];
     639             : 
     640          54 :     FD_VOLATILE( args->id       ) = fd_tile_private_id0 + tile_idx;
     641          54 :     FD_VOLATILE( args->idx      ) = tile_idx;
     642          54 :     FD_VOLATILE( args->cpu_idx  ) = cpu_idx;
     643          54 :     FD_VOLATILE( args->stack    ) = stack;
     644          54 :     FD_VOLATILE( args->stack_sz ) = stack_sz;
     645          54 :     FD_VOLATILE( args->tile     ) = NULL;
     646             : 
     647          54 :     FD_COMPILER_MFENCE();
     648             : 
     649          54 :     err = pthread_create( &fd_tile_private[tile_idx].pthread, attr, fd_tile_private_manager, args );
     650          54 :     if( FD_UNLIKELY( err ) ) {
     651           0 :       if( fixed ) FD_LOG_ERR(( "fd_tile: pthread_create failed (%i-%s)\n\t"
     652           0 :                                "Unable to start up the tile %lu on cpu %lu.  Likely causes for this include\n\t"
     653           0 :                                "this cpu is restricted from the user or does not exist on this host.\n\t"
     654           0 :                                "Update --tile-cpus to specify a set of allowed cpus that have been reserved\n\t"
     655           0 :                                "for this thread group on this host.",
     656           0 :                                err, fd_io_strerror( err ), tile_idx, cpu_idx ));
     657           0 :       FD_LOG_ERR(( "fd_tile: pthread_create failed (%i-%s)\n\tUnable to start up the tile %lu (floating).",
     658           0 :                    err, fd_io_strerror( err ), tile_idx ));
     659           0 :     }
     660             : 
     661             :     /* Wait for the tile to be ready to exec */
     662             : 
     663          54 :     fd_tile_private_t * tile;
     664        2389 :     for(;;) {
     665        2389 :       tile = FD_VOLATILE_CONST( args->tile );
     666        2389 :       if( FD_LIKELY( tile ) ) break;
     667        2335 :       FD_YIELD();
     668        2335 :     }
     669          54 :     FD_VOLATILE( fd_tile_private[ tile_idx ].tile ) = tile;
     670          54 :     FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = tile;
     671             : 
     672             :     /* Tile is running, args is safe to reuse */
     673             : 
     674          54 :     err = pthread_attr_destroy( attr );
     675          54 :     if( FD_UNLIKELY( err ) )
     676           0 :       FD_LOG_WARNING(( "fd_tile: pthread_attr_destroy failed (%i-%s) for tile %lu; attempting to continue",
     677          54 :                        err, fd_io_strerror( err ), tile_idx ));
     678          54 :   }
     679             : 
     680             :   /* And now we "boot" tile 0 */
     681             : 
     682        2647 :   ulong cpu_idx = (ulong)tile_to_cpu[ 0UL ];
     683        2647 :   int   fixed   = (cpu_idx<65535UL);
     684        2647 :   if( fixed ) FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:%lu",   0UL, host_id, cpu_idx ));
     685        2530 :   else        FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:float", 0UL, host_id ));
     686             : 
     687        2647 :   if( fixed ) {
     688             : 
     689         117 :     int good_taskset;
     690         117 :     FD_CPUSET_DECL( cpu_set );
     691         117 :     if( FD_UNLIKELY( fd_cpuset_getaffinity( (pid_t)0, cpu_set ) ) ) {
     692           0 :       FD_LOG_WARNING(( "fd_tile: fd_cpuset_getaffinity failed (%i-%s) for tile 0 on cpu %lu",
     693           0 :                        errno, fd_io_strerror( errno ), cpu_idx ));
     694           0 :       good_taskset = 0;
     695         117 :     } else {
     696         117 :       ulong cnt = fd_cpuset_cnt( cpu_set );
     697         117 :       ulong idx = fd_cpuset_first( cpu_set );
     698         117 :       good_taskset = (cnt==1UL) & (idx==cpu_idx);
     699         117 :     }
     700             : 
     701         117 :     if( FD_UNLIKELY( !good_taskset ) ) {
     702          15 :       FD_LOG_WARNING(( "fd_tile: --tile-cpus for tile 0 may not match initial kernel affinity\n\t"
     703          15 :                        "Tile 0 might not be fully optimized because of kernel first touch.\n\t"
     704          15 :                        "Overriding fd_log_cpu_id(), fd_log_cpu(), fd_log_thread() on tile 0 to\n\t"
     705          15 :                        "match --tile-cpus and attempting to continue.  Launch this thread\n\t"
     706          15 :                        "group via 'taskset -c %lu' or equivalent to eliminate this warning.", cpu_idx ));
     707          15 :       fd_cpuset_null( cpu_set );
     708          15 :       fd_cpuset_insert( cpu_set, cpu_idx );
     709          15 :       if( FD_UNLIKELY( fd_cpuset_setaffinity( (pid_t)0, cpu_set ) ) )
     710           0 :         FD_LOG_WARNING(( "fd_tile: fd_cpuset_setaffinity_failed (%i-%s)\n\t"
     711          15 :                          "Unable to set the thread affinity for tile 0 on cpu %lu.  Attempting to\n\t"
     712          15 :                          "continue without explicitly specifying this cpu's thread affinity but it\n\t"
     713          15 :                          "is likely this thread group's performance and stability are compromised\n\t"
     714          15 :                          "(possibly catastrophically so).  Update --tile-cpus to specify a set of\n\t"
     715          15 :                          "allowed cpus that have been reserved for this thread group on this host\n\t"
     716          15 :                          "to eliminate this warning.",
     717          15 :                          errno, fd_io_strerror( errno ), cpu_idx ));
     718          15 :       fd_log_private_cpu_id_set( cpu_idx );
     719          15 :       fd_log_cpu_set   ( NULL );
     720          15 :       fd_log_thread_set( NULL );
     721          15 :     }
     722         117 :   }
     723             : 
     724             :   /* Tile 0 "pthread_create" */
     725        2647 :   fd_tile_private[0].pthread = pthread_self();
     726             :   /* FIXME: ON X86, DETECT IF TILE 0 STACK ISN'T HUGE PAGE AND WARN AS NECESSARY? */
     727             : 
     728             :   /* Tile 0 "thread manager init" */
     729        2647 :   fd_tile_private_id  = fd_tile_private_id0;
     730        2647 :   fd_tile_private_idx = 0UL;
     731             : 
     732        2647 : # if !FD_HAS_ASAN
     733        2647 :   fd_log_private_stack_discover( fd_log_private_main_stack_sz(),
     734        2647 :                                  &fd_tile_private_stack0, &fd_tile_private_stack1 ); /* logs details */
     735        2647 :   if( FD_UNLIKELY( !fd_tile_private_stack0 ) )
     736           0 :     FD_LOG_WARNING(( "stack diagnostics not available on this tile; attempting to continue" ));
     737        2647 : # endif /* FD_HAS_ASAN */
     738             : 
     739        2647 :   fd_tile_private_cpu_config( fd_tile_private_cpu_config_save, cpu_idx );
     740        2647 :   fd_tile_private[0].lock = NULL; /* Can't dispatch to tile 0 */
     741        2647 :   fd_tile_private[0].tile = NULL; /* " */
     742             : 
     743        2647 :   FD_LOG_INFO(( "fd_tile: boot tile %lu success (thread %lu:%lu in thread group %lu:%lu/%lu)",
     744        2647 :                 fd_tile_private_idx, app_id, fd_tile_private_id, app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     745             : 
     746        2647 :   fd_memcpy( fd_tile_private_cpu_id, tile_to_cpu, fd_tile_private_cnt*sizeof(ushort) );
     747             : 
     748        2647 :   FD_LOG_INFO(( "fd_tile: boot success" ));
     749        2647 : }
     750             : 
     751             : void
     752        2647 : fd_tile_private_boot_str( char const * cpus ) {
     753        2647 :   ushort tile_to_cpu[ FD_TILE_MAX ];
     754        2647 :   ulong  tile_cnt = fd_tile_private_cpus_parse( cpus, tile_to_cpu );
     755             : 
     756        2647 :   if( FD_UNLIKELY( !tile_cnt ) ) {
     757        2530 :     FD_LOG_INFO(( "fd_tile: no cpus specified; treating thread group as single tile running on O/S assigned cpu(s)" ));
     758        2530 :     tile_to_cpu[0] = (ushort)65535;
     759        2530 :     tile_cnt       = 1UL;
     760        2530 :   }
     761             : 
     762        2647 :   fd_tile_private_map_boot( tile_to_cpu, tile_cnt );
     763        2647 : }
     764             : 
     765             : void
     766             : fd_tile_private_boot( int *    pargc,
     767        2647 :                       char *** pargv ) {
     768             :   /* Extract the tile configuration from the command line */
     769             : 
     770        2647 :   char const * cpus = fd_env_strip_cmdline_cstr( pargc, pargv, "--tile-cpus", "FD_TILE_CPUS", NULL );
     771             : 
     772        2647 :   if( !cpus ) FD_LOG_INFO(( "fd_tile: --tile-cpus not specified" ));
     773         117 :   else        FD_LOG_INFO(( "fd_tile: --tile-cpus \"%s\"", cpus ));
     774             : 
     775        2647 :   fd_tile_private_boot_str( cpus );
     776        2647 : }
     777             : 
     778             : void
     779        1597 : fd_tile_private_halt( void ) {
     780        1597 :   FD_LOG_INFO(( "fd_tile: halt" ));
     781             : 
     782        1597 :   fd_memset( fd_tile_private_cpu_id, 0, fd_tile_private_cnt*sizeof(ushort) );
     783             : 
     784        1597 :   ulong tile_cnt = fd_tile_private_cnt;
     785             : 
     786        1597 :   fd_tile_private_t * tile[ FD_TILE_MAX ]; /* FIXME: ALLOCA TO TILE_CNT? */
     787             : 
     788        1597 :   FD_LOG_INFO(( "fd_tile: disabling dispatch" ));
     789        1651 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) tile[ tile_idx ] = fd_tile_private_lock( tile_idx );
     790             :   /* All tile to tile dispatches will fail at this point */
     791             : 
     792        1597 :   FD_LOG_INFO(( "fd_tile: waiting for all tasks to complete" ));
     793        1651 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ )
     794          54 :     while( FD_VOLATILE_CONST( tile[ tile_idx ]->state )!=FD_TILE_PRIVATE_STATE_IDLE ) FD_YIELD();
     795             :   /* All halt transitions will be valid at this point */
     796             : 
     797        1597 :   FD_LOG_INFO(( "fd_tile: signaling all tiles to halt" ));
     798        1651 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) FD_VOLATILE( tile[ tile_idx ]->state ) = FD_TILE_PRIVATE_STATE_HALT;
     799             :   /* All tiles are halting at this point.  tile[*] is no longer safe */
     800             : 
     801        1597 :   FD_LOG_INFO(( "fd_tile: waiting for all tiles to halt" ));
     802        1651 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) {
     803          54 :     void * stack;
     804          54 :     int err = pthread_join( fd_tile_private[ tile_idx ].pthread, &stack );
     805          54 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_join failed (%i-%s)", err, fd_io_strerror( err ) ));
     806          54 :     fd_tile_private_stack_delete( stack );
     807          54 :     FD_LOG_INFO(( "fd_tile: halt tile %lu success", tile_idx ));
     808          54 :   }
     809             : 
     810             :   /* All tiles but this one are halted at this point */
     811             : 
     812        1597 :   fd_tile_private_cpu_restore( fd_tile_private_cpu_config_save );
     813             : 
     814        1597 :   FD_LOG_INFO(( "fd_tile: halt tile 0 success" ));
     815             : 
     816        1597 :   FD_LOG_INFO(( "fd_tile: cleaning up" ));
     817             : 
     818        1651 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) fd_tile_private_unlock( tile_idx, NULL );
     819             : 
     820        1597 :   fd_memset( fd_tile_private_cpu_config_save, 0, sizeof(fd_tile_private_cpu_config_t) );
     821             : 
     822        1597 :   fd_tile_private_stack1 = 0UL;
     823        1597 :   fd_tile_private_stack0 = 0UL;
     824        1597 :   fd_tile_private_idx    = 0UL;
     825        1597 :   fd_tile_private_id     = 0UL;
     826             : 
     827        1597 :   fd_tile_private_cnt = 0UL;
     828        1597 :   fd_tile_private_id1 = 0UL;
     829        1597 :   fd_tile_private_id0 = 0UL;
     830             : 
     831        1597 :   FD_LOG_INFO(( "fd_tile: halt success" ));
     832        1597 : }

Generated by: LCOV version 1.14