diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-07-14 17:12:04 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-07-14 17:12:04 +0200 |
commit | d10c572e38a888e4f999c7f3229781e53b9a74ec (patch) | |
tree | 61a0bbb69cd8cb6814759cde2a22c9b1f308b976 /libguile/vm-i-scheme.c | |
parent | 44362a1086b778efb47b7c64a8ed38db5f82d0ae (diff) | |
download | guile-d10c572e38a888e4f999c7f3229781e53b9a74ec.tar.gz |
Remove potential "uninitialized variable" GCC warnings.
* libguile/vm-i-scheme.c (vector_ref, vector_set, BV_FIXABLE_INT_REF,
BV_INT_REF, BV_FLOAT_REF, BV_FIXABLE_INT_SET, BV_INT_SET,
BV_FLOAT_SET): Explicitly initialize all locals, to make some versions
of GCC happier. Patch by Dale P. Smith <dsmich@roadrunner.com>.
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r-- | libguile/vm-i-scheme.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 5de39a23d..7fd35e7b2 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -281,7 +281,7 @@ VM_DEFINE_INSTRUCTION (108, slot_set, "slot-set", 0, 3, 0) VM_DEFINE_FUNCTION (109, vector_ref, "vector-ref", 2) { - long i; + long i = 0; ARGS2 (vect, idx); if (SCM_LIKELY (SCM_I_IS_VECTOR (vect) && SCM_I_INUMP (idx) @@ -294,7 +294,7 @@ VM_DEFINE_FUNCTION (109, vector_ref, "vector-ref", 2) VM_DEFINE_INSTRUCTION (110, vector_set, "vector-set", 0, 3, 0) { - long i; + long i = 0; SCM vect, idx, val; POP (val); POP (idx); POP (vect); if (SCM_LIKELY (SCM_I_IS_VECTOR (vect) @@ -346,7 +346,7 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) #define BV_FIXABLE_INT_REF(stem, fn_stem, type, size) \ { \ - long i; \ + long i = 0; \ ARGS2 (bv, idx); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ @@ -361,7 +361,7 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) #define BV_INT_REF(stem, type, size) \ { \ - long i; \ + long i = 0; \ ARGS2 (bv, idx); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ @@ -380,7 +380,7 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) #define BV_FLOAT_REF(stem, fn_stem, type, size) \ { \ - long i; \ + long i = 0; \ ARGS2 (bv, idx); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ @@ -454,7 +454,7 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) #define BV_FIXABLE_INT_SET(stem, fn_stem, type, min, max, size) \ { \ - long i, j; \ + long i = 0, j = 0; \ SCM bv, idx, val; POP (val); POP (idx); POP (bv); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ @@ -472,7 +472,7 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) #define BV_INT_SET(stem, type, size) \ { \ - long i; \ + long i = 0; \ SCM bv, idx, val; POP (val); POP (idx); POP (bv); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ @@ -487,7 +487,7 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) #define BV_FLOAT_SET(stem, fn_stem, type, size) \ { \ - long i; \ + long i = 0; \ SCM bv, idx, val; POP (val); POP (idx); POP (bv); \ VM_VALIDATE_BYTEVECTOR (bv); \ if (SCM_LIKELY (SCM_I_INUMP (idx) \ |