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

Compiled program segfault bugfix

Browse source
This commit is contained in:
IntelliJ User 2019-08-21 18:47:25 +03:00
parent a24866cc6f
commit 99f6357ccd
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
runtime/runtime.c
View file

@ -316,6 +316,8 @@ extern void* Bsexp (int n, ...) {
extern int Btag (void *d, int t, int n) { extern int Btag (void *d, int t, int n) {
data *r = (data *) BOX (NULL); data *r = (data *) BOX (NULL);
if (UNBOXED(d)) return BOX(0);
else {
r = TO_DATA(d); r = TO_DATA(d);
#ifndef DEBUG_PRINT #ifndef DEBUG_PRINT
return BOX(TAG(r->tag) == SEXP_TAG && TO_SEXP(d)->tag == t && LEN(r->tag) == n); return BOX(TAG(r->tag) == SEXP_TAG && TO_SEXP(d)->tag == t && LEN(r->tag) == n);
@ -323,6 +325,7 @@ extern int Btag (void *d, int t, int n) {
return BOX(TAG(r->tag) == SEXP_TAG && return BOX(TAG(r->tag) == SEXP_TAG &&
GET_SEXP_TAG(TO_SEXP(d)->tag) == t && LEN(r->tag) == n); GET_SEXP_TAG(TO_SEXP(d)->tag) == t && LEN(r->tag) == n);
#endif #endif
}
} }
extern int Barray_patt (void *d, int n) { extern int Barray_patt (void *d, int n) {