steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: don't need the data_roots here

char-rename
Björn Lindqvist 2016-11-30 14:28:39 +01:00
parent a9ac763912
commit ee0b34a469
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
vm/io.cpp
View File

@ -153,20 +153,20 @@ void factor_vm::safe_fflush(FILE* stream) {
} }
void factor_vm::primitive_fopen() { void factor_vm::primitive_fopen() {
data_root<byte_array> mode(ctx->pop(), this); byte_array *mode = untag_check<byte_array>(ctx->pop());
data_root<byte_array> path(ctx->pop(), this); byte_array *path = untag_check<byte_array>(ctx->pop());
check_tagged(mode);
check_tagged(path);
FILE* file; FILE* file = safe_fopen((char*)(path + 1), (char*)(mode + 1));
file = safe_fopen((char*)(path.untagged() + 1),
(char*)(mode.untagged() + 1));
ctx->push(allot_alien((cell)file)); 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() { void factor_vm::primitive_fgetc() {
FILE* file = peek_file_handle(); FILE* file = peek_file_handle();