MightyPork/forth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixes

Browse Source
This commit is contained in:
MightyPork
2021-11-17 01:10:26 +01:00
parent 569536ae86
commit 651fe65ae2
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/fh_runtime.c
+1 -3
View File
@@ -356,10 +356,8 @@ enum fh_error w_user_word(struct fh_thread_s *fh, const struct fh_word_s *w0)
case FH_INSTR_TYPESTR: case FH_INSTR_TYPESTR:
strl = instr->data; strl = instr->data;
if (instr->kind == FH_INSTR_ALLOCSTR) { if (instr->kind == FH_INSTR_ALLOCSTR) {
TRY(fh_heap_reserve(fh, strl, &addr));
LOG("Exec: alloc-str \"%.*s\"", strl, fh_str_at(fh, fh->execptr)); LOG("Exec: alloc-str \"%.*s\"", strl, fh_str_at(fh, fh->execptr));
fh_heap_copy(fh, addr, fh->execptr, strl); TRY(ds_push(fh, fh->execptr)); // give pointer directly into the definition
TRY(ds_push(fh, addr));
TRY(ds_push(fh, strl)); TRY(ds_push(fh, strl));
} else { } else {
LOG("Exec: type-str \"%.*s\"", strl, fh_str_at(fh, fh->execptr)); LOG("Exec: type-str \"%.*s\"", strl, fh_str_at(fh, fh->execptr));