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

vm: use ctx->push since unbox_array_size needs to peek at the stack.

db4
John Benediktsson 2013-03-22 09:19:36 -07:00
parent 5be15d7e3f
commit 17945addfe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vm/io.cpp
View File

@ -205,19 +205,19 @@ void factor_vm::primitive_fgetc()
void factor_vm::primitive_fread()
{
FILE *file = pop_file_handle();
void *buf = (void*)alien_offset(ctx->peek());
void *buf = (void*)alien_offset(ctx->pop());
fixnum size = unbox_array_size();
if(size == 0)
{
ctx->replace(from_unsigned_cell(0));
ctx->push(from_unsigned_cell(0));
return;
}
size_t c = safe_fread(buf,1,size,file);
if(c == 0 || feof(file))
clearerr(file);
ctx->replace(from_unsigned_cell(c));
ctx->push(from_unsigned_cell(c));
}
void factor_vm::primitive_fputc()