st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-30 02:28:27 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Hash table

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-16 06:59:34 +03:00
parent 46dfd58bda
commit 149984f5c0
14 changed files with 258 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

18
runtime/runtime.c
View file

@ -650,6 +650,24 @@ extern void* Belem (void *p, int i) {
return (void*) ((int*) a->contents)[i];
}
extern void* LmakeArray (int length) {
data *r;
int n;
ASSERT_UNBOXED("makeArray:1", length);
__pre_gc ();
n = UNBOX(length);
r = (data*) alloc (sizeof(int) * (n+1));
r->tag = ARRAY_TAG | (n << 3);
__post_gc ();
return r->contents;
}
extern void* LmakeString (int length) {
int n = UNBOX(length);
data *r;