From ce5a04bc37f4dab394b4a4ff67c4e614cb30a922 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 19 Oct 2010 17:35:57 +0200 Subject: [PATCH] Fixed broken use of ecl_copy_subarray --- src/c/printer/float_to_string.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/printer/float_to_string.d b/src/c/printer/float_to_string.d index 467ab61cf..316893915 100644 --- a/src/c/printer/float_to_string.d +++ b/src/c/printer/float_to_string.d @@ -41,7 +41,7 @@ insert_char(cl_object buffer, cl_index where, cl_fixnum c) { cl_fixnum end = buffer->base_string.fillp; ecl_string_push_extend(buffer, '.'); - ecl_copy_subarray(buffer, where+1, buffer, where, end); + ecl_copy_subarray(buffer, where+1, buffer, where, end - where); ecl_char_set(buffer, where, c); }