suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiler Warning Fixes

Browse Source 
svn: r18695
This commit is contained in:
Kevin Tew 2010-03-31 16:10:29 +00:00
parent a9096f2e07
commit d34db39be1
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/module.c
View File

@ -3767,7 +3767,7 @@ static void lock_registry(Scheme_Env *env)
{ {
Scheme_Object *lock; Scheme_Object *lock;
lock = scheme_make_pair(scheme_make_sema(0), lock = scheme_make_pair(scheme_make_sema(0),
scheme_current_thread); (Scheme_Object *) scheme_current_thread);
scheme_hash_set(env->module_registry, scheme_false, lock); scheme_hash_set(env->module_registry, scheme_false, lock);
} }

3
src/mzscheme/src/thread.c
View File

@ -7903,7 +7903,8 @@ int scheme_is_in_frozen_stack()
static unsigned long get_deeper_base() static unsigned long get_deeper_base()
{ {
long here; long here;
return (unsigned long)&here; unsigned long here_addr = (unsigned long)&here;
return here_addr;
} }
#ifdef _MSC_VER #ifdef _MSC_VER