From ee0b34a469b16bc98d7f1ffc6b0a43da527c8d4b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 30 Nov 2016 14:28:39 +0100 Subject: [PATCH] VM: don't need the data_roots here --- vm/io.cpp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/vm/io.cpp b/vm/io.cpp index ec3e2c0230..4132e28b0b 100644 --- a/vm/io.cpp +++ b/vm/io.cpp @@ -153,20 +153,20 @@ void factor_vm::safe_fflush(FILE* stream) { } void factor_vm::primitive_fopen() { - data_root mode(ctx->pop(), this); - data_root path(ctx->pop(), this); - check_tagged(mode); - check_tagged(path); + byte_array *mode = untag_check(ctx->pop()); + byte_array *path = untag_check(ctx->pop()); - FILE* file; - file = safe_fopen((char*)(path.untagged() + 1), - (char*)(mode.untagged() + 1)); + FILE* file = safe_fopen((char*)(path + 1), (char*)(mode + 1)); ctx->push(allot_alien((cell)file)); } -FILE* factor_vm::pop_file_handle() { return (FILE*)alien_offset(ctx->pop()); } +FILE* factor_vm::pop_file_handle() { + return (FILE*)alien_offset(ctx->pop()); +} -FILE* factor_vm::peek_file_handle() { return (FILE*)alien_offset(ctx->peek()); } +FILE* factor_vm::peek_file_handle() { + return (FILE*)alien_offset(ctx->peek()); +} void factor_vm::primitive_fgetc() { FILE* file = peek_file_handle();