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

silence more msvc warnings

db4
Joe Groff 2010-05-05 22:32:45 -07:00
parent 52e01d93b2
commit ec6c2ccc3e
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/gc.cpp
View File

@ -180,7 +180,7 @@ void factor_vm::gc(gc_op op, cell requested_bytes, bool trace_contexts_p)
break; break;
} }
catch(const must_start_gc_again e) catch(const must_start_gc_again &)
{ {
/* We come back here if a generation is full */ /* We come back here if a generation is full */
start_gc_again(); start_gc_again();

8
vm/io.cpp
View File

@ -208,7 +208,7 @@ void factor_vm::primitive_fread()
data_root<byte_array> buf(allot_uninitialized_array<byte_array>(size),this); data_root<byte_array> buf(allot_uninitialized_array<byte_array>(size),this);
int c = safe_fread(buf.untagged() + 1,1,size,file); size_t c = safe_fread(buf.untagged() + 1,1,size,file);
if(c == 0) if(c == 0)
ctx->push(false_object); ctx->push(false_object);
else else
@ -228,7 +228,7 @@ void factor_vm::primitive_fputc()
{ {
FILE *file = pop_file_handle(); FILE *file = pop_file_handle();
fixnum ch = to_fixnum(ctx->pop()); fixnum ch = to_fixnum(ctx->pop());
safe_fputc(ch, file); safe_fputc((int)ch, file);
} }
void factor_vm::primitive_fwrite() void factor_vm::primitive_fwrite()
@ -254,8 +254,8 @@ void factor_vm::primitive_ftell()
void factor_vm::primitive_fseek() void factor_vm::primitive_fseek()
{ {
FILE *file = pop_file_handle(); FILE *file = pop_file_handle();
int whence = to_fixnum(ctx->pop()); int whence = (int)to_fixnum(ctx->pop());
off_t offset = to_signed_8(ctx->pop()); off_t offset = (off_t)to_signed_8(ctx->pop());
safe_fseek(file,offset,whence); safe_fseek(file,offset,whence);
} }