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

Fixed bug with unbox tag in Bsexp

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-09-01 20:31:34 +03:00
parent f16f695ed3
commit 6ed1b44439
3 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

21
runtime/runtime.c
View file

@ -171,6 +171,7 @@ typedef struct {
extern void* alloc (size_t);
extern void* Bsexp (int n, ...);
extern int LtagHash (char*);
void *global_sysargs;
@ -212,7 +213,7 @@ void* Ls__Infix_58 (void *p, void *q) {
push_extra_root(&p);
push_extra_root(&q);
res = Bsexp (BOX(3), p, q, 848787);
res = Bsexp (BOX(3), p, q, LtagHash ("cons")); //BOX(848787));
pop_extra_root(&q);
pop_extra_root(&p);
@ -336,16 +337,18 @@ extern int Blength (void *p) {
static char* chars = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'";
extern char* de_hash (int);
extern int LtagHash (char *s) {
char *p;
int h = 0, limit = 0, pos = 0;
ASSERT_STRING("tagHash: 1", s);
int h = 0, limit = 0;
p = s;
while (*p && limit++ < 4) {
char *q = chars;
int pos = 0;
for (; *q && *q != *p; q++, pos++);
if (*q) h = (h << 6) | pos;
@ -354,6 +357,10 @@ extern int LtagHash (char *s) {
p++;
}
if (strcmp (s, de_hash (h)) != 0) {
failure ("%s <-> %s\n", s, de_hash(h));
}
return BOX(h);
}
@ -1041,7 +1048,7 @@ extern void* Barray (int bn, ...) {
r->tag = ARRAY_TAG | (n << 3);
va_start(args, n);
va_start(args, bn);
for (i = 0; i<n; i++) {
ai = va_arg(args, int);
@ -1078,7 +1085,7 @@ extern void* Bsexp (int bn, ...) {
d->tag = SEXP_TAG | ((n-1) << 3);
va_start(args, n);
va_start(args, bn);
for (i=0; i<n-1; i++) {
ai = va_arg(args, int);
@ -1087,7 +1094,7 @@ extern void* Bsexp (int bn, ...) {
((int*)d->contents)[i] = ai;
}
r->tag = va_arg(args, int);
r->tag = UNBOX(va_arg(args, int));
#ifdef DEBUG_PRINT
r->tag = SEXP_TAG | ((r->tag) << 3);

2
src/X86.ml
View file

@ -452,7 +452,7 @@ let compile cmd env imports code =
| SEXP (t, n) ->
let s, env = env#allocate in
let env, code = call env ".sexp" (n+1) false in
env, [Mov (L env#hash t, s)] @ code
env, [Mov (L (box (env#hash t)), s)] @ code
| DROP ->
snd env#pop, []

2
src/version.ml
View file

@ -1 +1 @@
let version = "Version 1.00, 81be668d4, Tue Sep 1 06:20:39 2020 +0300"
let version = "Version 1.00, f16f695ed, Tue Sep 1 17:23:36 2020 +0300"