diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-24 00:07:01 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-24 00:07:01 +0000 |
commit | 4858610b006860768562de6d08862f4dc973b103 (patch) | |
tree | 0738eca293d03b29e3261a1e02e6b186bb553ec7 | |
parent | 3843f734d198339837a604ac03e8c3df579bf4db (diff) | |
download | guile-4858610b006860768562de6d08862f4dc973b103.tar.gz |
(check_cont): Cast rewindable to long, to
avoid warning from gcc 3.4 on 64-bit systems about casting int
(32-bits) to pointer (64-bits).
-rw-r--r-- | test-suite/standalone/test-unwind.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/standalone/test-unwind.c b/test-suite/standalone/test-unwind.c index 460f07ba2..775a4fac5 100644 --- a/test-suite/standalone/test-unwind.c +++ b/test-suite/standalone/test-unwind.c @@ -124,7 +124,7 @@ check_cont (int rewindable) SCM res; res = scm_internal_catch (SCM_BOOL_T, - check_cont_body, (void *)rewindable, + check_cont_body, (void *)(long)rewindable, return_tag, NULL); /* RES is now either the created continuation, the value passed to |