mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-07-06 20:04:21 +00:00
Code Issues 1 Releases Wiki Activity

Update garbage collection for sysir abstract type.

Browse Source
This commit is contained in:
Calvin Rose 2023-08-12 13:47:23 -05:00
parent 91e459e4a5
commit 1e1e7a5cfd
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/core/sysir.c
View File

@ -1067,7 +1067,7 @@ void janet_sys_ir_lower_to_c(JanetSysIR *ir, JanetBuffer *buffer) {
#define EMITBINOP(OP) \ #define EMITBINOP(OP) \
janet_formatb(buffer, "_r%u = _r%u " OP " _r%u;\n", instruction.three.dest, instruction.three.lhs, instruction.three.rhs) janet_formatb(buffer, "_r%u = _r%u " OP " _r%u;\n", instruction.three.dest, instruction.three.lhs, instruction.three.rhs)
janet_formatb(buffer, "#include <stdint.h>\n#include <tgmath.h>\n\n"); janet_formatb(buffer, "#include <stdint.h>\n\n");
/* Emit type defs */ /* Emit type defs */
for (uint32_t i = 0; i < ir->instruction_count; i++) { for (uint32_t i = 0; i < ir->instruction_count; i++) {
@ -1276,14 +1276,24 @@ static int sysir_gc(void *p, size_t s) {
janet_free(ir->instructions); janet_free(ir->instructions);
janet_free(ir->type_defs); janet_free(ir->type_defs);
janet_free(ir->field_defs); janet_free(ir->field_defs);
janet_free(ir->register_names);
janet_free(ir->type_names);
return 0; return 0;
} }
static int sysir_gcmark(void *p, size_t s) { static int sysir_gcmark(void *p, size_t s) {
JanetSysIR *ir = (JanetSysIR *)p; JanetSysIR *ir = (JanetSysIR *)p;
(void) s; (void) s;
janet_mark(janet_wrap_table(ir->register_names)); for (uint32_t i = 0; i < ir->register_count; i++) {
janet_mark(janet_wrap_table(ir->type_names)); if (ir->register_names[i] != NULL) {
janet_mark(janet_wrap_string(ir->register_names[i]));
}
}
for (uint32_t i = 0; i < ir->type_def_count; i++) {
if (ir->type_names[i] != NULL) {
janet_mark(janet_wrap_string(ir->type_names[i]));
}
}
for (uint32_t i = 0; i < ir->constant_count; i++) { for (uint32_t i = 0; i < ir->constant_count; i++) {
janet_mark(ir->constants[i]); janet_mark(ir->constants[i]);
} }