compiler/cbits/genSym.c


1
2
3
4
5
6
7
8
9
10
11
12
13


#include "Rts.h"

static HsInt GenSymCounter = 0;

HsInt genSym(void) {
    if (n_capabilities == 1) {
        return GenSymCounter++;
    } else {
        return atomic_inc((StgWord *)&GenSymCounter);
    }
}