vm: fix compile warnings on Windows and add /WX to Nmakefile to report warnings as errors so that mason can catch these in the future

db4
Slava Pestov 2010-06-17 01:48:39 -04:00
parent f29a1038eb
commit 4aa644a256
4 changed files with 10 additions and 10 deletions

View File

@ -5,7 +5,7 @@ BOOTIMAGE_VERSION = latest
!IF DEFINED(PLATFORM)
LINK_FLAGS = /nologo shell32.lib
CL_FLAGS = /nologo /O2 /W3 /D_CRT_SECURE_NO_WARNINGS
CL_FLAGS = /nologo /O2 /WX /W3 /D_CRT_SECURE_NO_WARNINGS
!IF DEFINED(DEBUG)
LINK_FLAGS = $(LINK_FLAGS) /DEBUG

View File

@ -62,14 +62,14 @@ void context::scrub_stacks(gc_info *info, cell index)
{
cell base = info->scrub_d_base(index);
for(cell loc = 0; loc < info->scrub_d_count; loc++)
for(int loc = 0; loc < info->scrub_d_count; loc++)
{
if(bitmap_p(bitmap,base + loc))
{
#ifdef DEBUG_GC_MAPS
std::cout << "scrubbing datastack location " << loc << std::endl;
#endif
((cell *)datastack)[-loc] = 0;
*((cell *)datastack - loc) = 0;
}
}
}
@ -77,14 +77,14 @@ void context::scrub_stacks(gc_info *info, cell index)
{
cell base = info->scrub_r_base(index);
for(cell loc = 0; loc < info->scrub_r_count; loc++)
for(int loc = 0; loc < info->scrub_r_count; loc++)
{
if(bitmap_p(bitmap,base + loc))
{
#ifdef DEBUG_GC_MAPS
std::cout << "scrubbing retainstack location " << loc << std::endl;
#endif
((cell *)retainstack)[-loc] = 0;
*((cell *)retainstack - loc) = 0;
}
}
}

View File

@ -7,7 +7,7 @@ int gc_info::return_address_index(cell return_address)
{
u32 *return_address_array = return_addresses();
for(cell i = 0; i < return_address_count; i++)
for(int i = 0; i < return_address_count; i++)
{
if(return_address == return_address_array[i])
return i;

View File

@ -2,10 +2,10 @@ namespace factor
{
struct gc_info {
u32 scrub_d_count;
u32 scrub_r_count;
u32 gc_root_count;
u32 return_address_count;
int scrub_d_count;
int scrub_r_count;
int gc_root_count;
int return_address_count;
cell total_bitmap_size()
{