repo.or.cz
/
myPerl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
else implementado.
[myPerl.git]
/
heap.c
blob
967d0b4e1028560f6ace7fda211224a84b5a7d1e
1
#define SEG_SIZE 4096
2
3
static int
data
[
SEG_SIZE
];
4
static int
data_offset
=
0
;
5
6
int
7
data_location
(
int
size
)
8
{
9
int
bak
=
data_offset
;
10
data_offset
+=
size
;
11
return
bak
;
12
}
13
14
int
15
data_get
(
int
addr
,
int
off
)
16
{
17
return
data
[
addr
+
off
-
1
];
18
}
19
20
void
21
data_put
(
int
addr
,
int
off
,
int
val
)
22
{
23
data
[
addr
+
off
-
1
] =
val
;
24
}
25