From 4b267817ff0af3f2d5ec219e57a5db5ddb345543 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 14 May 2008 21:51:27 +0000 Subject: libgfortran.h (gfc_char4_t): New type. 2008-05-14 Francois-Xavier Coudert * libgfortran.h (gfc_char4_t): New type. (GFC_SIZE_OF_CHAR_KIND): New macro. (compare_string): Adjust prototype. (compare_string_char4): New prototype. * gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4, _gfortran_adjustr_char4, _gfortran_compare_string_char4, _gfortran_concat_string_char4, _gfortran_string_index_char4, _gfortran_string_len_trim_char4, _gfortran_string_minmax_char4, _gfortran_string_scan_char4, _gfortran_string_trim_char4 and _gfortran_string_verify_char4. * intrinsics/string_intrinsics_inc.c: New file from content of string_intrinsics.c with types replaced by macros. * intrinsics/string_intrinsics.c: Move content to string_intrinsics_inc.c. From-SVN: r135313 --- libgfortran/gfortran.map | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'libgfortran/gfortran.map') diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index 0c6b7b1..bd51d80 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1039,6 +1039,16 @@ GFORTRAN_1.1 { _gfortran_erfc_scaled_r16; _gfortran_selected_char_kind; _gfortran_st_wait; + _gfortran_adjustl_char4; + _gfortran_adjustr_char4; + _gfortran_compare_string_char4; + _gfortran_concat_string_char4; + _gfortran_string_index_char4; + _gfortran_string_len_trim_char4; + _gfortran_string_minmax_char4; + _gfortran_string_scan_char4; + _gfortran_string_trim_char4; + _gfortran_string_verify_char4; } GFORTRAN_1.0; F2C_1.0 { -- cgit v1.1