Comecando a ficar mais com a cara de Yacc.
[myPerl.git] / heap.c
blob4e721179f496902500b15c3b483c0124ce5e5c37
1 #define SEG_SIZE 4096
3 static int data[SEG_SIZE];
4 static int data_offset = 0;
6 int
7 data_location(void)
9 return data_offset++;
12 int
13 data_get(int addr)
15 return data[addr];
18 void
19 data_put(int addr, int val)
21 data[addr] = val;