max/uclisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Silence warnings for free()s

Browse Source
This commit is contained in:
Max Regan
2022-10-27 16:53:26 -04:00
parent d81d8c5156
commit fd91e66b8a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/memory.c
View File

@@ -57,11 +57,11 @@ void nl_object_delete(struct nl_object *obj) {
obj->cell.cdr = NULL; obj->cell.cdr = NULL;
break; break;
case NL_TYPE_SYMBOL: case NL_TYPE_SYMBOL:
free(obj->symbol); free((void *) obj->symbol);
obj->symbol = NULL; obj->symbol = NULL;
break; break;
case NL_TYPE_STRING: case NL_TYPE_STRING:
free(obj->string); free((void *) obj->string);
obj->string = NULL; obj->string = NULL;
case NL_TYPE_INT: case NL_TYPE_INT:
case NL_TYPE_COUNT: case NL_TYPE_COUNT: