else implementado.
[myPerl.git] / heap.c
blob967d0b4e1028560f6ace7fda211224a84b5a7d1e
1 #define SEG_SIZE 4096
3 static int data[SEG_SIZE];
4 static int data_offset = 0;
6 int
7 data_location(int size)
9 int bak = data_offset;
10 data_offset += size;
11 return bak;
14 int
15 data_get(int addr, int off)
17 return data[addr+off-1];
20 void
21 data_put(int addr, int off, int val)
23 data[addr+off-1] = val;