LCOV - code coverage report
Current view: top level - util/tile - fd_tile_threads.c (source / functions) Hit Total Coverage
Test: cov.lcov Lines: 384 498 77.1 %
Date: 2026-08-14 04:54:57 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        2728 :                             ulong                          cpu_idx ) {
      31             : 
      32             :   /* If a floating tile, leave scheduler priority unchanged from however
      33             :      the thread group launcher configured it. */
      34             : 
      35        2728 :   if( cpu_idx==65535UL ) {
      36        2581 :     save->prio = INT_MIN;
      37        2581 :     return;
      38        2581 :   }
      39             : 
      40             :   /* Otherwise, configure high scheduler priority */
      41             : 
      42        2728 :   errno = 0;
      43         147 :   int prio = getpriority( PRIO_PROCESS, (id_t)0 );
      44         147 :   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         147 :   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         147 :   save->prio = prio;
      71         147 : }
      72             : 
      73             : /* Restore the CPU to the given state */
      74             : 
      75             : static inline void
      76        1549 : fd_tile_private_cpu_restore( fd_tile_private_cpu_config_t * save ) {
      77        1549 :   int prio = save->prio;
      78        1549 :   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        1549 : }
      81             : 
      82             : void *
      83             : fd_tile_private_stack_new( int   optimize,
      84          36 :                            ulong cpu_idx ) { /* Ignored if optimize is not requested */
      85             : 
      86          36 :   uchar * stack = NULL;
      87             : 
      88          36 :   if( optimize ) { /* Create a NUMA and TLB optimized stack for a tile running on cpu cpu_idx */
      89             : 
      90          36 :     stack = (uchar *)
      91          36 :       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          36 :     if( FD_LIKELY( stack ) ) { /* Make space for guard lo and guard hi */
      94             : 
      95          36 :       fd_shmem_release( stack, FD_SHMEM_HUGE_PAGE_SZ, 1UL );
      96             : 
      97          36 :       stack += FD_SHMEM_HUGE_PAGE_SZ;
      98             : 
      99          36 :       fd_shmem_release( stack + FD_TILE_PRIVATE_STACK_SZ, FD_SHMEM_HUGE_PAGE_SZ, 1UL );
     100             : 
     101          36 :     } 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          36 :   }
     122             : 
     123          36 :   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          36 :   void * guard_lo = (void *)(stack - FD_SHMEM_NORMAL_PAGE_SZ );
     152          36 :   if( FD_UNLIKELY( mmap( guard_lo, FD_SHMEM_NORMAL_PAGE_SZ, PROT_NONE,
     153          36 :                          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          36 :                      errno, fd_io_strerror( errno ) ));
     156             : 
     157          36 :   void * guard_hi = (void *)(stack + FD_TILE_PRIVATE_STACK_SZ);
     158          36 :   if( FD_UNLIKELY( mmap( guard_hi, FD_SHMEM_NORMAL_PAGE_SZ, PROT_NONE,
     159          36 :                          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          36 :                      errno, fd_io_strerror( errno ) ));
     162             : 
     163          36 :   return stack;
     164          36 : }
     165             : 
     166             : static void
     167          36 : fd_tile_private_stack_delete( void * _stack ) {
     168          36 :   if( FD_UNLIKELY( !_stack ) ) return;
     169             : 
     170          36 :   uchar * stack    = (uchar *)_stack;
     171          36 :   uchar * guard_lo = stack - FD_SHMEM_NORMAL_PAGE_SZ;
     172          36 :   uchar * guard_hi = stack + FD_TILE_PRIVATE_STACK_SZ;
     173             : 
     174          36 :   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          36 :   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          36 :   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          36 : }
     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         237 : 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         555 : 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          81 : fd_tile_cpu_id( ulong tile_idx ) {
     209          81 :   if( FD_UNLIKELY( tile_idx>=fd_tile_private_cnt ) ) return ULONG_MAX;
     210          81 :   ulong cpu_idx = (ulong)fd_tile_private_cpu_id[ tile_idx ];
     211          81 :   return fd_ulong_if( cpu_idx<65535UL, cpu_idx, ULONG_MAX-1UL );
     212          81 : }
     213             : 
     214             : /* This is used for the OS services to communicate information with the
     215             :    tile managers */
     216             : 
     217          72 : #define FD_TILE_PRIVATE_STATE_BOOT (0) /* Tile is booting */
     218    67509836 : #define FD_TILE_PRIVATE_STATE_IDLE (1) /* Tile is idle */
     219         105 : #define FD_TILE_PRIVATE_STATE_EXEC (2) /* Tile is executing a task */
     220          36 : #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          36 : fd_tile_private_manager( void * _args ) {
     248          36 :   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          36 :   ulong  id       = args->id;
     267          36 :   ulong  idx      = args->idx;
     268          36 :   void * stack    = args->stack;
     269          36 :   ulong  stack_sz = args->stack_sz;
     270             : 
     271          36 :   char thread_name[ 20 ];
     272          36 :   FD_TEST( fd_cstr_printf_check( thread_name, sizeof( thread_name ), NULL, "tile:%lu", idx ) );
     273          36 :   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          36 :   if( FD_UNLIKELY( !( (id ==fd_log_thread_id()                                       ) &
     276          36 :                       (idx==(id-fd_tile_private_id0)                                 ) &
     277          36 :                       ((fd_tile_private_id0<id) & (id<fd_tile_private_id1)           ) &
     278          36 :                       (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          36 :   fd_tile_private_t tile[1];
     282          36 :   FD_VOLATILE( tile->id    ) = id;
     283          36 :   FD_VOLATILE( tile->idx   ) = idx;
     284          36 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_BOOT;
     285          36 :   FD_VOLATILE( tile->argc  ) = 0;
     286          36 :   FD_VOLATILE( tile->argv  ) = NULL;
     287          36 :   FD_VOLATILE( tile->task  ) = NULL;
     288          36 :   FD_VOLATILE( tile->fail  ) = NULL;
     289          36 :   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          36 :   fd_tile_private_id  = id;
     295          36 :   fd_tile_private_idx = idx;
     296             : 
     297          36 :   if( FD_LIKELY( stack ) ) { /* User provided stack */
     298          36 :     fd_tile_private_stack0 = (ulong)stack;
     299          36 :     fd_tile_private_stack1 = (ulong)stack + stack_sz;
     300             : 
     301             :     /* Prevent another fork() from smashing the stack */
     302          36 :     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          36 :   } 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          36 :   fd_tile_private_cpu_config_t dummy[1];
     313          36 :   fd_tile_private_cpu_config( dummy, args->cpu_idx );
     314             : 
     315          36 :   ulong app_id = fd_log_app_id();
     316          36 :   FD_LOG_INFO(( "fd_tile: boot tile %lu success (thread %lu:%lu in thread group %lu:%lu/%lu)",
     317          36 :                 idx, app_id, id, app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     318             : 
     319          36 :   FD_COMPILER_MFENCE();
     320          36 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_IDLE;
     321          36 :   FD_VOLATILE( args->tile  ) = tile;
     322             : 
     323   150510309 :   for(;;) {
     324             : 
     325             :     /* We are awake ... see what we should do next */
     326             : 
     327   150510309 :     int state = FD_VOLATILE_CONST( tile->state );
     328   150510309 :     if( FD_UNLIKELY( state!=FD_TILE_PRIVATE_STATE_EXEC ) ) {
     329    83000557 :       if( FD_UNLIKELY( state!=FD_TILE_PRIVATE_STATE_IDLE ) ) break;
     330             :       /* state is IDLE ... try again */
     331    83000530 :       FD_SPIN_PAUSE();
     332    83000530 :       continue;
     333    83000557 :     }
     334             : 
     335             :     /* state is EXEC ... the run assigned task and then
     336             :        transition to IDLE when done */
     337             : 
     338    67509752 :     int            argc = FD_VOLATILE_CONST( tile->argc );
     339    67509752 :     char **        argv = FD_VOLATILE_CONST( tile->argv );
     340    67509752 :     fd_tile_task_t task = FD_VOLATILE_CONST( tile->task );
     341    67509752 :     FD_VOLATILE( tile->ret  ) = task( argc, argv );
     342    67509752 :     FD_VOLATILE( tile->fail ) = NULL;
     343             : 
     344    67509752 :     FD_COMPILER_MFENCE();
     345    67509752 :     FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_IDLE;
     346    67509752 :   }
     347             : 
     348             :   /* state is HALT, clean up and then reset back to BOOT */
     349             : 
     350          36 :   FD_LOG_INFO(( "fd_tile: halting tile %lu", idx ));
     351             : 
     352          36 :   FD_COMPILER_MFENCE();
     353          36 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_BOOT;
     354          36 :   return stack;
     355          36 : }
     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         108 : fd_tile_private_trylock( ulong tile_idx ) {
     368         108 :   fd_tile_private_t * volatile * vtile = (fd_tile_private_t * volatile *)&fd_tile_private[ tile_idx ].lock;
     369         108 :   fd_tile_private_t * tile = *vtile;
     370         108 :   if( FD_LIKELY( tile ) && FD_LIKELY( FD_ATOMIC_CAS( vtile, tile, NULL )==tile ) ) return tile;
     371           3 :   return NULL;
     372         108 : }
     373             : 
     374             : static inline fd_tile_private_t *
     375          36 : fd_tile_private_lock( ulong tile_idx ) {
     376          36 :   fd_tile_private_t * volatile * vtile = (fd_tile_private_t * volatile *)&fd_tile_private[ tile_idx ].lock;
     377          36 :   fd_tile_private_t * tile;
     378          36 :   for(;;) {
     379          36 :     tile = *vtile;
     380          36 :     if( FD_LIKELY( tile ) && FD_LIKELY( FD_ATOMIC_CAS( vtile, tile, NULL )==tile ) ) break;
     381           0 :     FD_SPIN_PAUSE();
     382           0 :   }
     383          36 :   return tile;
     384          36 : }
     385             : 
     386             : static inline void
     387             : fd_tile_private_unlock( ulong               tile_idx,
     388         141 :                         fd_tile_private_t * tile ) {
     389         141 :   FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = tile;
     390         141 : }
     391             : 
     392             : fd_tile_exec_t *
     393             : fd_tile_exec_new( ulong          idx,
     394             :                   fd_tile_task_t task,
     395             :                   int            argc,
     396         141 :                   char **        argv ) {
     397         141 :   if( FD_UNLIKELY( (idx==fd_tile_private_idx) | (!idx) ) ) return NULL; /* Can't dispatch to self or to tile 0 */
     398             : 
     399         108 :   fd_tile_private_t * tile = fd_tile_private_trylock( idx );
     400         108 :   if( FD_UNLIKELY( !tile ) ) return NULL;
     401             : 
     402             :   /* Exec holds the lock and tile state is idle here */
     403         105 :   FD_VOLATILE( tile->argc ) = argc;
     404         105 :   FD_VOLATILE( tile->argv ) = argv;
     405         105 :   FD_VOLATILE( tile->task ) = task;
     406         105 :   FD_COMPILER_MFENCE();
     407         105 :   FD_VOLATILE( tile->state ) = FD_TILE_PRIVATE_STATE_EXEC;
     408         105 :   return (fd_tile_exec_t *)tile;
     409         108 : }
     410             : 
     411             : char const *
     412             : fd_tile_exec_delete( fd_tile_exec_t * exec,
     413         105 :                      int *            opt_ret ) {
     414         105 :   fd_tile_private_t * tile     = (fd_tile_private_t *)exec;
     415         105 :   ulong               tile_idx = tile->idx;
     416             : 
     417         105 :   int state;
     418     1374591 :   for(;;) {
     419     1374591 :     state = FD_VOLATILE_CONST( tile->state );
     420     1374591 :     if( FD_LIKELY( state==FD_TILE_PRIVATE_STATE_IDLE ) ) break;
     421     1374486 :     FD_SPIN_PAUSE();
     422     1374486 :   }
     423             :   /* state is IDLE at this point */
     424         105 :   char const * fail = FD_VOLATILE_CONST( tile->fail );
     425         105 :   if( FD_LIKELY( (!fail) & (!!opt_ret) ) ) *opt_ret = FD_VOLATILE_CONST( tile->ret );
     426         105 :   fd_tile_private_unlock( tile_idx, tile );
     427         105 :   return fail;
     428         105 : }
     429             : 
     430         108 : 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        2692 :                             ushort *     tile_to_cpu ) {
     453        2692 :   if( !cstr ) return 0UL;
     454         111 :   ulong cnt = 0UL;
     455             : 
     456         111 :   FD_CPUSET_DECL( assigned_set );
     457             : 
     458         111 :   char const * p = cstr;
     459         225 :   for(;;) {
     460             : 
     461         225 :     while( fd_isspace( (int)p[0] ) ) p++; /* Munch whitespace */
     462             : 
     463         225 :     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         225 :     if( !fd_isdigit( (int)p[0] ) ) {
     491         111 :       if( FD_UNLIKELY( p[0]!='\0' ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (range lo not a cpu)" ));
     492         111 :       break;
     493         111 :     }
     494         114 :     ulong cpu0   = fd_cstr_to_ulong( p );
     495         114 :     ulong cpu1   = cpu0;
     496         114 :     ulong stride = 1UL;
     497         156 :     p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     498         114 :     while( fd_isspace( (int)p[0] ) ) p++;
     499         114 :     if( p[0]=='-' ) {
     500           6 :       p++;
     501           6 :       while( fd_isspace( (int)p[0] ) ) p++;
     502           6 :       if( FD_UNLIKELY( !fd_isdigit( (int)p[0] ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (range hi not a cpu)" ));
     503           6 :       cpu1 = fd_cstr_to_ulong( p );
     504           6 :       p++; while( fd_isdigit( (int)p[0] ) ) p++; /* FIXME: USE STRTOUL ENDPTR FOR CORRECT HANDLING OF NON-BASE-10 */
     505           6 :       while( fd_isspace( (int)p[0] ) ) p++;
     506           6 :       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           6 :     }
     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         114 :     while( fd_isspace( (int)p[0] ) ) p++;
     527         114 :     if( FD_UNLIKELY( !( p[0]==',' || p[0]=='\0' ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (bad range delimiter)" ));
     528         114 :     if( p[0]==',' ) p++;
     529         114 :     cpu1++;
     530         114 :     if( FD_UNLIKELY( cpu1<=cpu0 ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (invalid range)"  ));
     531         114 :     if( FD_UNLIKELY( !stride    ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (invalid stride)" ));
     532             : 
     533         261 :     for( ulong cpu=cpu0; cpu<cpu1; cpu+=stride ) {
     534         147 :       if( FD_UNLIKELY( cnt>=FD_TILE_MAX                    ) ) FD_LOG_ERR(( "fd_tile: too many --tile-cpus" ));
     535         147 :       if( FD_UNLIKELY( fd_cpuset_test( assigned_set, cpu ) ) ) FD_LOG_ERR(( "fd_tile: malformed --tile-cpus (repeated cpu)" ));
     536         147 :       tile_to_cpu[ cnt++ ] = (ushort)cpu;
     537         147 :       fd_cpuset_insert( assigned_set, cpu );
     538         147 :     }
     539         114 :   }
     540             : 
     541         111 :   return cnt;
     542         111 : }
     543             : 
     544             : static fd_tile_private_cpu_config_t fd_tile_private_cpu_config_save[1];
     545             : 
     546             : void
     547             : fd_tile_private_map_boot( ushort * tile_to_cpu,
     548        2692 :                           ulong    tile_cnt ) {
     549        2692 :   fd_tile_private_id0 = fd_log_thread_id();
     550        2692 :   fd_tile_private_id1 = fd_tile_private_id0 + tile_cnt;
     551        2692 :   fd_tile_private_cnt = tile_cnt;
     552             : 
     553        2692 :   ulong app_id  = fd_log_app_id();
     554        2692 :   ulong host_id = fd_log_host_id();
     555        2692 :   FD_LOG_INFO(( "fd_tile: booting thread group %lu:%lu/%lu", app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     556             : 
     557             :   /* We create the tiles [1,tile_cnt) first so that any floating tiles
     558             :      in this inherit the appropriate scheduler priorities and affinities
     559             :      from the thread group launcher. */
     560             : 
     561        2728 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) {
     562             : 
     563          36 :     ulong cpu_idx = (ulong)tile_to_cpu[ tile_idx ];
     564          36 :     int   fixed   = (cpu_idx<65535UL);
     565             : 
     566          36 :     if( fixed ) FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:%lu",   tile_idx, host_id, cpu_idx ));
     567           0 :     else        FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:float", tile_idx, host_id ));
     568             : 
     569          36 :     pthread_attr_t attr[1];
     570          36 :     int err = pthread_attr_init( attr );
     571          36 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_attr_init failed (%i-%s) for tile %lu.\n\t",
     572          36 :                                           err, fd_io_strerror( err ), tile_idx ));
     573             : 
     574             :     /* Set affinity ahead of time.  This is a GNU-specific extension
     575             :        that is not available on musl.  On musl, we just skip this
     576             :        step as we call sched_setaffinity(2) later on regardless. */
     577             : 
     578          36 : #   if __GLIBC__
     579          36 :     if( fixed ) {
     580          36 :       FD_CPUSET_DECL( cpu_set );
     581          36 :       fd_cpuset_insert( cpu_set, cpu_idx );
     582          36 :       err = pthread_attr_setaffinity_np( attr, fd_cpuset_footprint(), (cpu_set_t const *)fd_type_pun_const( cpu_set ) );
     583          36 :       if( FD_UNLIKELY( err ) ) FD_LOG_WARNING(( "fd_tile: pthread_attr_setaffinity_failed (%i-%s)\n\t"
     584          36 :                                                 "Unable to set the thread affinity for tile %lu on cpu %lu.  Attempting to\n\t"
     585          36 :                                                 "continue without explicitly specifying this cpu's thread affinity but it\n\t"
     586          36 :                                                 "is likely this thread group's performance and stability are compromised\n\t"
     587          36 :                                                 "(possibly catastrophically so).  Update --tile-cpus to specify a set of\n\t"
     588          36 :                                                 "allowed cpus that have been reserved for this thread group on this host\n\t"
     589          36 :                                                 "to eliminate this warning.",
     590          36 :                                                 err, fd_io_strerror( err ), tile_idx, cpu_idx ));
     591          36 :     }
     592          36 : #   endif /* __GLIBC__ */
     593             : 
     594             :     /* Create an optimized stack with guard regions if the build target
     595             :        is x86 (e.g. supports huge pages necessary to optimize TLB usage)
     596             :        and the tile is assigned to a particular CPU (e.g. bind the stack
     597             :        memory to the NUMA node closest to the cpu).
     598             : 
     599             :        Otherwise (or if an optimized stack could not be created), create
     600             :        vanilla pthread-style stack with guard regions.  We DIY here
     601             :        because pthreads seems to be missing an API to determine the
     602             :        extents of the stacks it creates and we need to know the stack
     603             :        extents for run-time stack diagnostics.  Though we can use
     604             :        fd_log_private_stack_discover to determine stack extents after
     605             :        the thread is started, it is faster, more flexible, more reliable
     606             :        and more portable to use a user specified stack when possible.
     607             : 
     608             :        If neither can be done, we will let pthreads create the tile's
     609             :        stack and try to discover the stack extents after the thread is
     610             :        started. */
     611             : 
     612          36 :     int optimize = FD_HAS_X86 & fixed;
     613             : 
     614          36 :     void * stack = fd_tile_private_stack_new( optimize, cpu_idx );
     615          36 :     if( FD_LIKELY( stack ) ) {
     616          36 :       err = pthread_attr_setstack( attr, stack, FD_TILE_PRIVATE_STACK_SZ );
     617          36 :       if( FD_UNLIKELY( err ) ) {
     618           0 :         FD_LOG_WARNING(( "fd_tile: pthread_attr_setstack failed (%i-%s)\n\t", err, fd_io_strerror( err ) ));
     619           0 :         fd_tile_private_stack_delete( stack );
     620           0 :         stack = NULL;
     621           0 :       }
     622          36 :     }
     623             : 
     624          36 :     if( FD_UNLIKELY( !stack ) ) FD_LOG_WARNING(( "fd_tile: Unable to create a stack for tile %lu.\n\t"
     625          36 :                                                  "Attempting to continue with the default stack but it is likely this\n\t"
     626          36 :                                                  "thread group's performance and stability is compromised (possibly\n\t"
     627          36 :                                                  "catastrophically so).",
     628          36 :                                                  tile_idx ));
     629             : 
     630          36 :     ulong stack_sz;
     631          36 :     err = pthread_attr_getstacksize( attr, &stack_sz );
     632          36 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_attr_getstacksize failed (%i-%s) for tile %lu.\n\t",
     633          36 :                                           err, fd_io_strerror( err ), tile_idx ));
     634             : 
     635          36 :     FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = NULL;
     636             : 
     637          36 :     fd_tile_private_manager_args_t args[1];
     638             : 
     639          36 :     FD_VOLATILE( args->id       ) = fd_tile_private_id0 + tile_idx;
     640          36 :     FD_VOLATILE( args->idx      ) = tile_idx;
     641          36 :     FD_VOLATILE( args->cpu_idx  ) = cpu_idx;
     642          36 :     FD_VOLATILE( args->stack    ) = stack;
     643          36 :     FD_VOLATILE( args->stack_sz ) = stack_sz;
     644          36 :     FD_VOLATILE( args->tile     ) = NULL;
     645             : 
     646          36 :     FD_COMPILER_MFENCE();
     647             : 
     648          36 :     err = pthread_create( &fd_tile_private[tile_idx].pthread, attr, fd_tile_private_manager, args );
     649          36 :     if( FD_UNLIKELY( err ) ) {
     650           0 :       if( fixed ) FD_LOG_ERR(( "fd_tile: pthread_create failed (%i-%s)\n\t"
     651           0 :                                "Unable to start up the tile %lu on cpu %lu.  Likely causes for this include\n\t"
     652           0 :                                "this cpu is restricted from the user or does not exist on this host.\n\t"
     653           0 :                                "Update --tile-cpus to specify a set of allowed cpus that have been reserved\n\t"
     654           0 :                                "for this thread group on this host.",
     655           0 :                                err, fd_io_strerror( err ), tile_idx, cpu_idx ));
     656           0 :       FD_LOG_ERR(( "fd_tile: pthread_create failed (%i-%s)\n\tUnable to start up the tile %lu (floating).",
     657           0 :                    err, fd_io_strerror( err ), tile_idx ));
     658           0 :     }
     659             : 
     660             :     /* Wait for the tile to be ready to exec */
     661             : 
     662          36 :     fd_tile_private_t * tile;
     663        5697 :     for(;;) {
     664        5697 :       tile = FD_VOLATILE_CONST( args->tile );
     665        5697 :       if( FD_LIKELY( tile ) ) break;
     666        5661 :       FD_YIELD();
     667        5661 :     }
     668          36 :     FD_VOLATILE( fd_tile_private[ tile_idx ].tile ) = tile;
     669          36 :     FD_VOLATILE( fd_tile_private[ tile_idx ].lock ) = tile;
     670             : 
     671             :     /* Tile is running, args is safe to reuse */
     672             : 
     673          36 :     err = pthread_attr_destroy( attr );
     674          36 :     if( FD_UNLIKELY( err ) )
     675           0 :       FD_LOG_WARNING(( "fd_tile: pthread_attr_destroy failed (%i-%s) for tile %lu; attempting to continue",
     676          36 :                        err, fd_io_strerror( err ), tile_idx ));
     677          36 :   }
     678             : 
     679             :   /* And now we "boot" tile 0 */
     680             : 
     681        2692 :   ulong cpu_idx = (ulong)tile_to_cpu[ 0UL ];
     682        2692 :   int   fixed   = (cpu_idx<65535UL);
     683        2692 :   if( fixed ) FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:%lu",   0UL, host_id, cpu_idx ));
     684        2581 :   else        FD_LOG_INFO(( "fd tile: booting tile %lu on cpu %lu:float", 0UL, host_id ));
     685             : 
     686        2692 :   if( fixed ) {
     687             : 
     688         111 :     int good_taskset;
     689         111 :     FD_CPUSET_DECL( cpu_set );
     690         111 :     if( FD_UNLIKELY( fd_cpuset_getaffinity( (pid_t)0, cpu_set ) ) ) {
     691           0 :       FD_LOG_WARNING(( "fd_tile: fd_cpuset_getaffinity failed (%i-%s) for tile 0 on cpu %lu",
     692           0 :                        errno, fd_io_strerror( errno ), cpu_idx ));
     693           0 :       good_taskset = 0;
     694         111 :     } else {
     695         111 :       ulong cnt = fd_cpuset_cnt( cpu_set );
     696         111 :       ulong idx = fd_cpuset_first( cpu_set );
     697         111 :       good_taskset = (cnt==1UL) & (idx==cpu_idx);
     698         111 :     }
     699             : 
     700         111 :     if( FD_UNLIKELY( !good_taskset ) ) {
     701           9 :       FD_LOG_WARNING(( "fd_tile: --tile-cpus for tile 0 may not match initial kernel affinity\n\t"
     702           9 :                        "Tile 0 might not be fully optimized because of kernel first touch.\n\t"
     703           9 :                        "Overriding fd_log_cpu_id(), fd_log_cpu(), fd_log_thread() on tile 0 to\n\t"
     704           9 :                        "match --tile-cpus and attempting to continue.  Launch this thread\n\t"
     705           9 :                        "group via 'taskset -c %lu' or equivalent to eliminate this warning.", cpu_idx ));
     706           9 :       fd_cpuset_null( cpu_set );
     707           9 :       fd_cpuset_insert( cpu_set, cpu_idx );
     708           9 :       if( FD_UNLIKELY( fd_cpuset_setaffinity( (pid_t)0, cpu_set ) ) )
     709           0 :         FD_LOG_WARNING(( "fd_tile: fd_cpuset_setaffinity_failed (%i-%s)\n\t"
     710           9 :                          "Unable to set the thread affinity for tile 0 on cpu %lu.  Attempting to\n\t"
     711           9 :                          "continue without explicitly specifying this cpu's thread affinity but it\n\t"
     712           9 :                          "is likely this thread group's performance and stability are compromised\n\t"
     713           9 :                          "(possibly catastrophically so).  Update --tile-cpus to specify a set of\n\t"
     714           9 :                          "allowed cpus that have been reserved for this thread group on this host\n\t"
     715           9 :                          "to eliminate this warning.",
     716           9 :                          errno, fd_io_strerror( errno ), cpu_idx ));
     717           9 :       fd_log_private_cpu_id_set( cpu_idx );
     718           9 :       fd_log_cpu_set   ( NULL );
     719           9 :       fd_log_thread_set( NULL );
     720           9 :     }
     721         111 :   }
     722             : 
     723             :   /* Tile 0 "pthread_create" */
     724        2692 :   fd_tile_private[0].pthread = pthread_self();
     725             :   /* FIXME: ON X86, DETECT IF TILE 0 STACK ISN'T HUGE PAGE AND WARN AS NECESSARY? */
     726             : 
     727             :   /* Tile 0 "thread manager init" */
     728        2692 :   fd_tile_private_id  = fd_tile_private_id0;
     729        2692 :   fd_tile_private_idx = 0UL;
     730             : 
     731        2692 : # if !FD_HAS_ASAN
     732        2692 :   fd_log_private_stack_discover( fd_log_private_main_stack_sz(),
     733        2692 :                                  &fd_tile_private_stack0, &fd_tile_private_stack1 ); /* logs details */
     734        2692 :   if( FD_UNLIKELY( !fd_tile_private_stack0 ) )
     735           0 :     FD_LOG_WARNING(( "stack diagnostics not available on this tile; attempting to continue" ));
     736        2692 : # endif /* FD_HAS_ASAN */
     737             : 
     738        2692 :   fd_tile_private_cpu_config( fd_tile_private_cpu_config_save, cpu_idx );
     739        2692 :   fd_tile_private[0].lock = NULL; /* Can't dispatch to tile 0 */
     740        2692 :   fd_tile_private[0].tile = NULL; /* " */
     741             : 
     742        2692 :   FD_LOG_INFO(( "fd_tile: boot tile %lu success (thread %lu:%lu in thread group %lu:%lu/%lu)",
     743        2692 :                 fd_tile_private_idx, app_id, fd_tile_private_id, app_id, fd_tile_private_id0, fd_tile_private_cnt ));
     744             : 
     745        2692 :   fd_memcpy( fd_tile_private_cpu_id, tile_to_cpu, fd_tile_private_cnt*sizeof(ushort) );
     746             : 
     747        2692 :   FD_LOG_INFO(( "fd_tile: boot success" ));
     748        2692 : }
     749             : 
     750             : void
     751        2692 : fd_tile_private_boot_str( char const * cpus ) {
     752        2692 :   ushort tile_to_cpu[ FD_TILE_MAX ];
     753        2692 :   ulong  tile_cnt = fd_tile_private_cpus_parse( cpus, tile_to_cpu );
     754             : 
     755        2692 :   if( FD_UNLIKELY( !tile_cnt ) ) {
     756        2581 :     FD_LOG_INFO(( "fd_tile: no cpus specified; treating thread group as single tile running on O/S assigned cpu(s)" ));
     757        2581 :     tile_to_cpu[0] = (ushort)65535;
     758        2581 :     tile_cnt       = 1UL;
     759        2581 :   }
     760             : 
     761        2692 :   fd_tile_private_map_boot( tile_to_cpu, tile_cnt );
     762        2692 : }
     763             : 
     764             : void
     765             : fd_tile_private_boot( int *    pargc,
     766        2692 :                       char *** pargv ) {
     767             :   /* Extract the tile configuration from the command line */
     768             : 
     769        2692 :   char const * cpus = fd_env_strip_cmdline_cstr( pargc, pargv, "--tile-cpus", "FD_TILE_CPUS", NULL );
     770             : 
     771        2692 :   if( !cpus ) FD_LOG_INFO(( "fd_tile: --tile-cpus not specified" ));
     772         111 :   else        FD_LOG_INFO(( "fd_tile: --tile-cpus \"%s\"", cpus ));
     773             : 
     774        2692 :   fd_tile_private_boot_str( cpus );
     775        2692 : }
     776             : 
     777             : void
     778        1549 : fd_tile_private_halt( void ) {
     779        1549 :   FD_LOG_INFO(( "fd_tile: halt" ));
     780             : 
     781        1549 :   fd_memset( fd_tile_private_cpu_id, 0, fd_tile_private_cnt*sizeof(ushort) );
     782             : 
     783        1549 :   ulong tile_cnt = fd_tile_private_cnt;
     784             : 
     785        1549 :   fd_tile_private_t * tile[ FD_TILE_MAX ]; /* FIXME: ALLOCA TO TILE_CNT? */
     786             : 
     787        1549 :   FD_LOG_INFO(( "fd_tile: disabling dispatch" ));
     788        1585 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) tile[ tile_idx ] = fd_tile_private_lock( tile_idx );
     789             :   /* All tile to tile dispatches will fail at this point */
     790             : 
     791        1549 :   FD_LOG_INFO(( "fd_tile: waiting for all tasks to complete" ));
     792        1585 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ )
     793          36 :     while( FD_VOLATILE_CONST( tile[ tile_idx ]->state )!=FD_TILE_PRIVATE_STATE_IDLE ) FD_YIELD();
     794             :   /* All halt transitions will be valid at this point */
     795             : 
     796        1549 :   FD_LOG_INFO(( "fd_tile: signaling all tiles to halt" ));
     797        1585 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) FD_VOLATILE( tile[ tile_idx ]->state ) = FD_TILE_PRIVATE_STATE_HALT;
     798             :   /* All tiles are halting at this point.  tile[*] is no longer safe */
     799             : 
     800        1549 :   FD_LOG_INFO(( "fd_tile: waiting for all tiles to halt" ));
     801        1585 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) {
     802          36 :     void * stack;
     803          36 :     int err = pthread_join( fd_tile_private[ tile_idx ].pthread, &stack );
     804          36 :     if( FD_UNLIKELY( err ) ) FD_LOG_ERR(( "fd_tile: pthread_join failed (%i-%s)", err, fd_io_strerror( err ) ));
     805          36 :     fd_tile_private_stack_delete( stack );
     806          36 :     FD_LOG_INFO(( "fd_tile: halt tile %lu success", tile_idx ));
     807          36 :   }
     808             : 
     809             :   /* All tiles but this one are halted at this point */
     810             : 
     811        1549 :   fd_tile_private_cpu_restore( fd_tile_private_cpu_config_save );
     812             : 
     813        1549 :   FD_LOG_INFO(( "fd_tile: halt tile 0 success" ));
     814             : 
     815        1549 :   FD_LOG_INFO(( "fd_tile: cleaning up" ));
     816             : 
     817        1585 :   for( ulong tile_idx=1UL; tile_idx<tile_cnt; tile_idx++ ) fd_tile_private_unlock( tile_idx, NULL );
     818             : 
     819        1549 :   fd_memset( fd_tile_private_cpu_config_save, 0, sizeof(fd_tile_private_cpu_config_t) );
     820             : 
     821        1549 :   fd_tile_private_stack1 = 0UL;
     822        1549 :   fd_tile_private_stack0 = 0UL;
     823        1549 :   fd_tile_private_idx    = 0UL;
     824        1549 :   fd_tile_private_id     = 0UL;
     825             : 
     826        1549 :   fd_tile_private_cnt = 0UL;
     827        1549 :   fd_tile_private_id1 = 0UL;
     828        1549 :   fd_tile_private_id0 = 0UL;
     829             : 
     830        1549 :   FD_LOG_INFO(( "fd_tile: halt success" ));
     831        1549 : }

Generated by: LCOV version 1.14