OSDN Git Service

PR libfortran/23802
[pf3gnuchains/gcc-fork.git] / libgfortran / ChangeLog
index 8cc1a03..9dd5da2 100644 (file)
@@ -1,3 +1,154 @@
+2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/23802
+       * intrinsics/sleep.c: Add correct sleep macro for MinGW.
+
+2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/23380
+       * intrinsics/cpu_time.c (__cpu_time_1): Provide a MS Windows
+       version.
+
+2005-09-14  Jerry DeLisle  <jvdelisle@verizon.net
+
+       PR fortran/21875 Internal Unit Array I/O, NIST
+       * libgfortran.h: Add run time error code for array stride.
+       * runtime/error.c (translate_error): Add error message for
+       array stride.
+       * io/io.h: Add array descriptor pointer to IOPARM structure.
+       Add prtotypes for two new functions.
+       * io/transfer.c (data_transfer_init): Removed initialization and
+       moved to unit.c (get_unit)
+       * io/transfer.c (next_record_r): Include internal unit read
+       functionality.
+       * io/transfer.c (next_record_w): Include internal unit write
+       functionality, including padding of character array records.
+       * io/unit.c (get_array_unit_len): New function to return the number
+       of records in the character array 'file' from the array descriptor.
+       * io/unit.c (get_unit): Gathered initialization code from
+       init_data_transfer for internal units and added initialization of
+       character array unit.
+       * io/unit.c (is_array_io): New function to determine if internal unit
+       is an array.
+       * io/unix.c (mem_alloc_w_at): Add error checks for bad record length
+       and end of file.
+
+2005-09-13  Richard Sandiford  <richard@codesourcery.com>
+
+       PR target/19269
+       * intrinsics/cshift0.c (cshift0): Add an extra size argument.
+       (cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
+       implementations with...
+       (DEFINE_CSHIFT): ...this new macro.  Define character versions too.
+       * intrinsics/eoshift0.c (zeros): Delete.
+       (eoshift0): Add extra size and filler arguments.  Use memset if no
+       bound is provided.
+       (eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
+       implementations with...
+       (DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
+       * intrinsics/eoshift2.c (zeros): Delete.
+       (eoshift2): Add extra size and filler arguments.  Use memset if no
+       bound is provided.
+       (eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
+       implementations with...
+       (DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
+       * intrinsics/pack.c (pack_internal): New static function, reusing
+       the contents of pack and adding an extra size argument.  Change
+       "mptr" rather than "m" when calculating the array size.
+       (pack): Redefine as a forwarder to pack_internal.
+       (pack_s_internal): New static function, reusing the contents of
+       pack_s and adding an extra size argument.
+       (pack_s): Redefine as a forwarder to pack_s_internal.
+       (pack_char, pack_s_char): New functions.
+       * intrinsics/reshape.c (reshape_internal): New static function,
+       reusing the contents of reshape and adding an extra size argument.
+       (reshape): Redefine as a forwarder to reshape_internal.
+       (reshape_char): New function.
+       * intrinsics/spread.c (spread_internal): New static function,
+       reusing the contents of spread and adding an extra size argument.
+       (spread): Redefine as a forwarder to spread_internal.
+       (spread_char): New function.
+       * intrinsics/transpose.c (transpose_internal): New static function,
+       reusing the contents of transpose and adding an extra size argument.
+       (transpose): Redefine as a forwarder to transpose_internal.
+       (transpose_char): New function.
+       * intrinsics/unpack.c (unpack_internal): New static function, reusing
+       the contents of unpack1 and adding extra size and fsize arguments.
+       (unpack1): Redefine as a forwarder to unpack_internal.
+       (unpack0): Call unpack_internal instead of unpack1.
+       (unpack1_char, unpack0_char): New functions.
+       * m4/cshift1.m4 (cshift1): New static function, reusing the contents
+       of cshift1_<kind> and adding an extra size argument.
+       (cshift1_<kind>): Redefine as a forwarder to cshift1.
+       (cshift1_<kind>_char): New function.
+       * m4/eoshift1.m4 (zeros): Delete.
+       (eoshift1): New static function, reusing the contents of
+       eoshift1_<kind> and adding extra size and filler arguments.
+       Fix calculation of hstride.  Use memset if no bound is provided.
+       (eoshift1_<kind>): Redefine as a forwarder to eoshift1.
+       (eoshift1_<kind>_char): New function.
+       * m4/eoshift3.m4 (zeros): Delete.
+       (eoshift3): New static function, reusing the contents of
+       eoshift3_<kind> and adding extra size and filler arguments.
+       Use memset if no bound is provided.
+       (eoshift3_<kind>): Redefine as a forwarder to eoshift3.
+       (eoshift3_<kind>_char): New function.
+       * generated/cshift1_4.c, generated/cshift1_8.c,
+       * generated/eoshift1_4.c, generated/eoshift1_8.c,
+       * generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.
+
+2005-09-11  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/20179
+       * io/unix.c (is_preconnected): Add function to test if a stream
+       corresponds to a preconnected unit.
+       * io/io.h: Add prototype for is_preconnected.
+       * io/transfer.c (data_transfer_init): Do not truncate
+       preconnected units.
+
+2005-09-10  Janne Blomqvist  <jblomqvi@cc.hut.fi>
+
+       * io/unix.c: Remove mmap code.
+
+2005-09-09  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/23784
+       * io/close.c (st_close): Call library_end even in case of error.
+
+2005-09-09  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * io/io.h:  Add iomsg as last field of st_parameter.
+       * runtime/error.c (generate_error):  If iomsg is present, copy
+       the message there.
+
+2005-09-09  Richard Sandiford  <richard@codesourcery.com>
+
+       PR fortran/12840
+       * runtime/memory.c (internal_malloc_size): Return a null pointer
+       if the size is zero.
+       (internal_free): Do nothing if the pointer is null.
+       (internal_realloc_size, internal_realloc, internal_realloc64): New.
+
+2005-09-07  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/23262
+       * acinclude.m4 (LIBGFOR_CHECK_CRLF): New check.
+       * configure.ac: Use new check.
+       * configure.in: Regenerate.
+       * config.h.in: Regenerate.
+       * configure: Regenerate.
+       * io/transfer.c (next_record_w): Add case for CRLF as line
+       terminator.
+       * io/unix.c (tempfile, regular_file): Open files with
+       O_BINARY on systems with CRLF.
+
+2005-09-07  Steve Ellcey  <sje@cup.hp.com>
+
+       PR libfortran/23419
+       * io/write.c (extract_int): Use memcpy to access buffer.
+       (extract_uint): Ditto.
+       (extract_real): Ditto.
+
 2005-09-05  Thomas Koenig  <Thomas.Koenig@online.de>
 
        * io/list_read.c:  Adjust size of of value to 32 (to hold