diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-19 16:02:07 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-19 16:02:07 +0000 |
| commit | 9de985cc704443aad590e9950833d8b90edf8dfc (patch) | |
| tree | d87d2d10e005a1237593d0d235be9dec29317e9d /byterun/extern.c | |
| parent | 31577069f820a9a324db354a9b54e5e523ae3a59 (diff) | |
Unused variables
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6422 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/extern.c')
| -rw-r--r-- | byterun/extern.c | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/byterun/extern.c b/byterun/extern.c index 85a549539..f19664a6f 100644 --- a/byterun/extern.c +++ b/byterun/extern.c @@ -618,19 +618,25 @@ CAMLexport void caml_serialize_block_8(void * data, long len) CAMLexport void caml_serialize_block_float_8(void * data, long len) { - unsigned char * p; - char * q; if (extern_ptr + 8 * len > extern_limit) resize_extern_block(8 * len); #if ARCH_FLOAT_ENDIANNESS == 0x01234567 memmove(extern_ptr, data, len * 8); extern_ptr += len * 8; #elif ARCH_FLOAT_ENDIANNESS == 0x76543210 - for (p = data, q = extern_ptr; len > 0; len--, p += 8, q += 8) - Reverse_64(q, p); - extern_ptr = q; + { + unsigned char * p; + char * q; + for (p = data, q = extern_ptr; len > 0; len--, p += 8, q += 8) + Reverse_64(q, p); + extern_ptr = q; + } #else - for (p = data, q = extern_ptr; len > 0; len--, p += 8, q += 8) - Permute_64(q, 0x01234567, p, ARCH_FLOAT_ENDIANNESS); - extern_ptr = q; + { + unsigned char * p; + char * q; + for (p = data, q = extern_ptr; len > 0; len--, p += 8, q += 8) + Permute_64(q, 0x01234567, p, ARCH_FLOAT_ENDIANNESS); + extern_ptr = q; + } #endif } |