kuroko-lang/kuroko
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fileio gc fixups

Browse Source
This commit is contained in:
K. Lange 2021-01-05 07:51:42 +09:00
parent 0f6e823095
commit f771c8a428
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/fileio.c
View File

@ -234,12 +234,16 @@ static KrkValue krk_file_reject_init(int argc, KrkValue argv[]) {
static void makeFileInstance(KrkInstance * module, const char name[], FILE * file) {
KrkInstance * fileObject = krk_newInstance(FileClass);
krk_push(OBJECT_VAL(fileObject));
KrkValue filename = OBJECT_VAL(krk_copyString(name,strlen(name)));
krk_push(filename);
krk_attachNamedObject(&fileObject->fields, "filename", (KrkObj*)krk_copyString(name,strlen(name)));
krk_attachNamedValue(&fileObject->fields, "filename", filename);
krk_attachNamedValue(&fileObject->fields, "_fileptr", INTEGER_VAL((long)(file)));
krk_attachNamedObject(&module->fields, name, (KrkObj*)fileObject);
krk_pop();
krk_pop(); /* filename */
krk_pop(); /* fileObject */
}
KrkValue krk_module_onload_fileio(void) {