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

Added check of invariance of objects' topology before and after compaction

Browse source
This commit is contained in:
Egor Sheremetov 2023-06-20 16:22:35 +02:00
parent 11d496405b
commit 31551e73fd
5 changed files with 112 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
runtime/runtime.c
View file

@ -503,7 +503,7 @@ extern void *Lsubstring (void *subj, int p, int l) {
extern struct re_pattern_buffer *Lregexp (char *regexp) {
regex_t *b = (regex_t *)malloc(sizeof(regex_t));
/* printf ("regexp: %s,\test_small_tree_compaction%x\n", regexp, b); */
/* printf ("regexp: %s,\t%x\n", regexp, b); */
memset(b, 0, sizeof(regex_t));
@ -1020,7 +1020,7 @@ extern int Btag (void *d, int t, int n) {
&& LEN(r->data_header) == UNBOX(n));
#else
return BOX(TAG(r->data_header) == SEXP_TAG
&& GET_SEXP_TAG(TO_SEXP(d)->data_header) == UNBOX(test_small_tree_compaction)
&& GET_SEXP_TAG(TO_SEXP(d)->data_header) == UNBOX(t)
&& LEN(r->data_header) == UNBOX(n));
#endif
}