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

fix Li__Infix_4343; also fixes stdlib/regression/test12

Browse source
This commit is contained in:
danyabeerzun 2020-02-07 20:10:16 +03:00
parent 5e0db0a144
commit e8675153c2
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
runtime/runtime.c
View file

@ -20,9 +20,9 @@
/* # define DEBUG_PRINT 1 */ /* # define DEBUG_PRINT 1 */
#ifdef DEBUG_PRINT 1 #ifdef DEBUG_PRINT
int indent = 0; int indent = 0;
inline void print_indent (void) { void print_indent (void) {
for (int i = 0; i < indent; i++) printf (" "); for (int i = 0; i < indent; i++) printf (" ");
printf("| "); printf("| ");
} }
@ -1127,6 +1127,9 @@ extern void* /*Lstrcat*/ Li__Infix_4343 (void *a, void *b) {
pop_extra_root (&b); pop_extra_root (&b);
pop_extra_root (&a); pop_extra_root (&a);
da = TO_DATA(a);
db = TO_DATA(b);
d->tag = STRING_TAG | ((LEN(da->tag) + LEN(db->tag)) << 3); d->tag = STRING_TAG | ((LEN(da->tag) + LEN(db->tag)) << 3);
strncpy (d->contents , da->contents, LEN(da->tag)); strncpy (d->contents , da->contents, LEN(da->tag));