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

Avoid warning for unused variable.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-12-01 14:21:57 -05:00
parent 345b1a8187
commit a6eb00a41c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/src/thread.c
View File

@ -8330,7 +8330,10 @@ static Scheme_Object *make_phantom_bytes(int argc, Scheme_Object *argv[])
static Scheme_Object *set_phantom_bytes(int argc, Scheme_Object *argv[]) static Scheme_Object *set_phantom_bytes(int argc, Scheme_Object *argv[])
{ {
Scheme_Phantom_Bytes *pb; Scheme_Phantom_Bytes *pb;
intptr_t old_size, amt; intptr_t amt;
# ifdef MZ_PRECISE_GC
intptr_t old_size;
# endif
if (!SAME_TYPE(SCHEME_TYPE(argv[0]), scheme_phantom_bytes_type)) if (!SAME_TYPE(SCHEME_TYPE(argv[0]), scheme_phantom_bytes_type))
scheme_wrong_contract("set-phantom-bytes!", "phantom-bytes?", 0, argc, argv); scheme_wrong_contract("set-phantom-bytes!", "phantom-bytes?", 0, argc, argv);
@ -8340,7 +8343,10 @@ static Scheme_Object *set_phantom_bytes(int argc, Scheme_Object *argv[])
pb = (Scheme_Phantom_Bytes *)argv[0]; pb = (Scheme_Phantom_Bytes *)argv[0];
amt = SCHEME_INT_VAL(argv[1]); amt = SCHEME_INT_VAL(argv[1]);
# ifdef MZ_PRECISE_GC
old_size = pb->size; old_size = pb->size;
#endif
pb->size = amt; pb->size = amt;
# ifdef MZ_PRECISE_GC # ifdef MZ_PRECISE_GC