From a30c355186a208867941ea1cebce2e8120aa2dd3 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 1 Sep 2009 10:39:04 +0200 Subject: [PATCH] Eliminate further uses of deprecated functions (K. Shakirov) --- src/c/file.d | 2 +- src/c/format.d | 2 +- src/c/read.d | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/c/file.d b/src/c/file.d index 0f179c1dd..b6d55f4d2 100644 --- a/src/c/file.d +++ b/src/c/file.d @@ -1465,7 +1465,7 @@ ecl_make_string_output_stream(cl_index line_length, int extended) ecl_alloc_adjustable_extended_string(line_length) : ecl_alloc_adjustable_base_string(line_length); #else - cl_object s = cl_alloc_adjustable_base_string(line_length); + cl_object s = ecl_alloc_adjustable_base_string(line_length); #endif return si_make_string_output_stream_from_string(s); } diff --git a/src/c/format.d b/src/c/format.d index 91c11052e..379c8c748 100644 --- a/src/c/format.d +++ b/src/c/format.d @@ -2108,7 +2108,7 @@ DIRECTIVE: #ifdef ECL_UNICODE strm = ecl_alloc_adjustable_extended_string(64); #else - strm = cl_alloc_adjustable_base_string(64); + strm = ecl_alloc_adjustable_base_string(64); #endif null_strm = 1; } else if (strm == Ct) { diff --git a/src/c/read.d b/src/c/read.d index a48d1b8d3..d882fbcb7 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -60,7 +60,7 @@ si_get_buffer_string() #ifdef ECL_UNICODE output = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE); #else - output = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE); + output = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE); #endif } else { output = CAR(pool); @@ -87,7 +87,7 @@ si_put_buffer_string(cl_object string) #ifdef ECL_UNICODE string = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE); #else - string = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE); + string = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE); #endif } TOKEN_STRING_FILLP(string) = l+1;