-rw-r--r-- 459 libcpucycles-20260105/cpucycles/s390x-stckf.c raw
// version 20251226
// public domain
// djb

// 20251226 djb: add ticks_close()
// 20230106 djb: adapted from sparc64-rdtick.c

#include "cpucycles_internal.h"

long long ticks(void)
{
  long long result;
  asm volatile("stckf 0(%0)" :: "a"(&result) : "memory","cc");
  return result;
}

void ticks_close(void)
{
}

long long ticks_setup(void)
{
  if (!cpucycles_works(ticks)) return cpucycles_SKIP;
  return 4096000000; // manual says 2^12 per microsecond
}