source: longrun_tests/stack.cfa @ fa5e1aa5

#include <kernel.hfa>
#include <math.hfa>
#include <thread.hfa>
#include <time.hfa>

#define __kick_rate 5000000ul
#include "long_tests.hfa"

#ifndef PREEMPTION_RATE
#error PREEMPTION_RATE not defined in makefile
#endif

Duration default_preemption() {
        return PREEMPTION_RATE;
}

thread worker_t {};

void main(worker_t & this) {
        while(TEST(0)) {
                volatile long long p = 5_021_609ul;
                volatile long long a = 326_417ul;
                volatile long long n = 1l;
                for (volatile long long i = 0; i < p; i++) {
                        n *= a;
                        n %= p;
                        KICK_WATCHDOG;
                }

                if( !TEST(n == a) ) {
                        abort();
                }
        }
}

extern "C" {
static worker_t * workers;
}

int main(int argc, char* argv[]) {
        processor p;
        {
                worker_t w[7];
                workers = w;
        }
}