`\

`\

typedef struct {
    unsigned int no_read : 1; /* All read operations instead get rand() when this is set */
} memory_flag;

char *memory;
size_t pipeline_size;
uint16_t *pipeline; /* This is a queue. */
size_t pipequeue_pos = 0;
memory_flag *memflag = calloc(memory_size, sizeof(*memflag));

#define MEMREAD(index)  (memflag[index].no_read ? rand() : memory[index])
#define MEMREWR(index)  (memory[index] = MEMREAD(index))
#define PIPELINE(index) (pipeline[((index) + pipequeue_pos) % pipeline_size])
#define XPNTREAD(var, mem_p, index) do {\
MEMREWR((mem_p) + (index) + 1); MEMREWR((mem_p) + (index) + 2); /* Corrupt memory if it can't be read. */ \
for ((var) = *(uint16_t *)(&memory[(mem_p) + (index) + 1]), \
     char indirection = (mem_p)[index]                    ; indirection; MEMREWR(var), MEMREWR((var) + 1), \

#define XPNTREAD(var, mem_p, index) do {\
MEMREWR((mem_p) + (index) + 1); MEMREWR((mem_p) + (index) + 2); /* Corrupt memory if it can't be read. */ \
for ((var) = *(uint16_t *)(&memory[(mem_p) + (index) + 1]), \
     char indirection = (mem_p)[index]; \
     \
     indirection; \
     \
     MEMREWR(var), MEMREWR((var) + 1), \
     (var) = *(uint16_t *)(&memory[var]), \
     indirection -= 1); \
} while (1)