1 2014-05-17 Jerry DeLisle <jvdelisle@gcc.gnu>
4 * io/io.h (gfc_unit): New function pointers *next_char_fn_ptr
6 *io/list_read.c (next_char): Create macro with this name to call
7 the new function pointer. Split the original next_char function
8 into three new functions. (next_char_default, next_char_internal,
9 next_char_utf8): New functions. (push_char): Create macro with
10 this name to call new function pointer. Split the original
11 push_char into three new functions. (push_char_default,
12 push_char_internal, push_char4): New functions. (set_workers):
13 New function to initilize the function pointers depending on the
14 type of IO to be performed. (list_formatted_read_scalar): Use
15 set_workers function. (finish_list_read): Likewise.
16 (namelist_read): Likewise.
17 (nml_get_obj_data): Use push_char_default.
19 2014-05-16 Janne Blomqvist <jb@gcc.gnu.org>
22 * io/unix.c (raw_close): Check if s->fd is -1.
23 (fd_to_stream): Check return value of fstat(), handle error.
25 2014-05-12 Janne Blomqvist <jb@gcc.gnu.org>
28 * intrinsics/getcwd.c (getcwd_i4_sub): Avoid potentially large
29 stack allocation, avoid extra copying in the common case.
31 2014-05-12 Janne Blomqvist <jb@gcc.gnu.org>
33 * configure.ac (AM_CFLAGS): Use -std=gnu11.
35 * configure: Regenerated.
37 2014-05-11 Tobias Burnus <burnus@net-b.de>
39 * caf/libcaf.h (_gfortran_caf_num_images): Change type of
40 second argument to int.
41 * caf/mpi.c (_gfortran_caf_num_images): Ditto.
42 * caf/single.c (_gfortran_caf_num_images): Ditto.
44 2014-05-08 Tobias Burnus <burnus@net-b.de>
46 * caf/libcaf.h (caf_vector_t, _gfortran_caf_co_sum,
47 _gfortran_caf_co_min, _gfortran_caf_co_max): Declare
50 2014-05-06 Jerry DeLisle <jvdelisle@gcc.gnu>
53 * io/list_read.c (list_formatted_read_scalar): Use eat_separator
54 and delete extraneous code.
56 2014-04-30 Tobias Burnus <burnus@net-b.de>
58 * caf/libcaf.h (_gfortran_caf_this_image, _gfortran_caf_num_images):
60 (_gfortran_caf_init): Change prototype.
61 (mpi_token_t): New typedef.
63 * caf/mpi.c (_gfortran_caf_this_image, _gfortran_caf_num_images):
65 (_gfortran_caf_init): Update.
66 (_gfortran_caf_finalize, _gfortran_caf_register,
67 _gfortran_caf_deregister): Use mpi_token_t.
68 * caf/single.c (_gfortran_caf_this_image, _gfortran_caf_num_images):
70 (_gfortran_caf_init): Update.
71 (_gfortran_caf_finalize, _gfortran_caf_register,
72 _gfortran_caf_deregister): Use mpi_token_t, simplify.
74 2014-04-26 Jerry DeLisle <jvdelisle@gcc.gnu>
77 * io/list_read.c: Add uchar typedef. (push_char4): New function
78 to save kind=4 character. (next_char_utf8): New function to read
79 a single UTF-8 encoded character value. (read_chracter): Update
80 to use the new functions for reading UTF-8 strings.
81 (list_formatted_read_scalar): Update to handle list directed
82 reads of UTF-8 strings. (nml_read_obj): Likewise update for
83 UTF-8 strings in namelists.
84 * io/write.c (nml_write_obj): Add kind=4 character support for
87 2014-04-24 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
89 * configure.ac: Quote usage of ac_cv_func_clock_gettime in if test.
90 * configure: Regenerate.
92 2014-04-22 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
94 * config/fpu-387.h [__sun__ && __svr4__]: Remove SSE execution
97 2014-04-11 Jerry DeLisle <jvdelisle@gcc.gnu>
100 io/unit.c (is_trim_ok): If internal unit is array, do not trim.
102 2014-03-21 Jerry DeLisle <jvdelisle@gcc.gnu>
105 * io/transfer.c (data_transfer_init): If std= was specified, set
106 delim status to DELIM_NONE of no other was specified.
108 2014-03-18 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
110 * configure.ac: Check for presence of fcntl.
111 * configure: Regenerate.
112 * config.h.in: Regenerate.
113 * io/unix.c (set_close_on_exec): Check for HAVE_FCNTL.
115 2014-03-17 Jerry DeLisle <jvdelisle@gcc.gnu>
118 * io/list_read.c (list_formatted_read_scalar): Do not use
119 eat_separator. Explicitly set the comma and end-of-line flags.
120 Check for END condition from finish_separator.
122 2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
125 * io/list_read.c (finish_list_read): Read one character to check
126 for the end of the file. If it is the end, then issue the file
127 end error message. If not, use eat_line to reach the end
128 without giving error. The next attempt to read will then
129 issue the error as described above.
131 2014-03-12 Jerry DeLisle <jvdelisle@gcc.gnu>
134 * io/read.c (read_decimal): Quickly skip spaces to avoid calls
136 * io/unit.c (is_trim_ok): New helper function to check various
137 conditions to see if its OK to trim the internal unit string.
138 (get_internal_unit): Use LEN_TRIM to shorten selected internal
139 unit strings for optimizing READ. Enable this optimization for
141 * io/list_read.c (finish_list_read): Don't call eat_line for
144 2014-03-08 Jerry DeLisle <jvdelisle@gcc.gnu>
147 * io/list_read.c (next_char): Mark unlikely error checks.
148 (eat_spaces): For character array reading, skip ahead over
149 spaces rather than call next_char multiple times.
151 2014-03-08 Tobias Burnus <burnus@net-b.de>
153 * libgfortran.h (unlikely, likely): Add usage comment.
155 2014-03-08 Dominique d'Humieres <dominiq@lps.ens.fr>
158 * io/write_float.def (output_float): Remove unused variable
159 nzero_real. Replace a double space with a single one.
160 (determine_en_precision): Fix wrong handling of the EN format.
162 2014-03-03 Jerry DeLisle <jvdelisle@gcc.gnu>
165 * io/inquire.c (inquire_via_unit): In the case of
166 DELIM_UNSPECIFIED set inquire return string to "NONE".
167 * io/list_read.c (read_character): In the case of DELIM_NONE and
168 namelists, complete the character read using the namelist
170 * io/open.c (new_unit): Don't set delim status to none if not
171 specified so that DELIM_UNSPECIFIED can be used later.
172 * io/transfer.c (data_transfer_init): For namelist I/O, if the
173 unit delim status is unspecified set the current status to quote.
174 Otherwise, set current status to the unit status.
175 * io/unit.c (get_internel_unit, init_unit): Remember to set
176 flags_delim initially to DELIM_UNSPECIFIED so defaults come out
178 * io/write.c (write_character): Add a new function argument
179 "mode" to signify that raw output is to be used vs output with
180 delimiters. If the mode is set to DELIM (1) proceed with
181 delimiters. (list_formatted_write_scalar): Write the separator
182 only if a delimiter was previously specified. Update the call to
183 write_character with the mode argument given.
184 (namelist_write_newline): Use the mode argument. (nml_write_obj):
185 Use the mode argument. Remove use of tmp_delim. Write the
186 semi-colon or comma correctly only when needed with using
187 delimiters. Cleanup whitespace.
188 (namelist_write): If delim is not specified in namelist I/O,
189 default to using quotes. Get rid of the tmp_delim variable and
190 use the new mode argument in write_character.
192 2014-02-21 Tobias Burnus <burnus@net-b.de>
195 * libgfortran/io/inquire.c (yes, no): New static const char vars.
196 (inquire_via_unit): Use them. Use OPEN mode instead of using
197 POSIX's access to query about write=, read= and readwrite=.
199 2014-01-20 Jerry DeLisle <jvdelisle@gcc.gnu>
200 Dominique d'Humieres <dominiq@lps.ens.fr>
202 * io/write_float.def (output_float): Remove inadvertent test
203 code from previous patch.
205 2014-01-19 Jerry DeLisle <jvdelisle@gcc.gnu>
206 Dominique d'Humieres <dominiq@lps.ens.fr>
211 * io/write_float.def (output_float): Fix wrong handling of the
213 (output_float_FMT_G_): Fixes rounding issues with -m32.
215 2014-01-11 Jerry DeLisle <jvdelisle@gcc.gnu>
216 Dominique d'Humieres <dominiq@lps.ens.fr>
217 Steven G. Kargl <kargl@gcc.gnu.org>
221 * io/io.h (struct st_parameter_dt): Assign expanded_read flag to
222 unused bit. Define new variable line_buffer_pos.
223 * io/list_read.c (free_saved, next_char, l_push_char,
224 read_logical, read_real): Replace use of item_count with
225 line_buffer_pos for line_buffer look ahead.
226 (read_logical, read_integer, parse_real, read_real, check_type):
227 Adjust location of free_line to after generating error messages
228 to retain the correct item count for the message.
230 2014-01-02 Richard Sandiford <rdsandiford@googlemail.com>
232 Update copyright years
234 2013-12-18 Steven G. Kargl <kargl@gcc.gnu.org>
236 * io/read.c (read_f): Convert assert to runtime error.
238 2013-12-17 Andreas Tobler <andreast@gcc.gnu.org>
240 * io/unix.c (tempfile_open): Only use the needed flag O_CLOEXEC.
242 2013-12-16 Jerry DeLisle <jvdelisle@gcc.gnu>
245 * io/file_pos.c (st_rewind): Do proper return after
247 * io/open.c (edit_modes): Move action code inside block that
248 checks for library ok. (new_unit): Do cleanup after error.
249 (st_open): Do proper return after error.
250 * io/transfer.c (data_transfer_init): Likewise.
252 2013-12-11 Tobias Burnus <burnus@net-b.de>
254 * config/fpu-387.h (sigill_hdlr, get_fpu_rounding_mode): Emit SSE
255 instructions when __SSE_MATH__ is defined.
257 2013-12-06 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
259 * intrinsics/erfc_scaled.c (_M_2_SQRTPI): Define if missing.
261 2013-12-01 Uros Bizjak <ubizjak@gmail.com>
264 * intrinsics/erfc_scaled.c (erfc_scaled_r16): Also provide for
265 quadruple precision long double variant.
267 2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
269 * intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
270 __float128 is not available.
272 2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
275 * intrinsics/erfc_scaled.c (erfc_scaled_r16): New function.
276 * intrinsics/erfc_scaled_inc.c: Do not provide quadruple
279 2013-11-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
282 * intrinsics/unpack_generic.c (unpack_internal): Let the compiler
283 know that dim > 0 to avoid warnings.
285 2013-11-15 Janne Blomqvist <jb@gcc.gnu.org>
286 Jerry DeLisle <jvdelisle@gcc.gnu.org>
289 * io/unix.c (regular_file): Don't set O_CREAT when opening a file
290 read-only with unknown status. Mask out O_CREAT when falling back
291 to opening read-only if ACTION= is not set and read-write fails.
293 2013-11-15 Steve Ellcey <sellcey@mips.com>
295 * configure.ac: Do not define HAVE_STRTOLD.
296 * configure: Regenerate.
298 2013-11-10 Janne Blomqvist <jb@gcc.gnu.org>
300 * configure.ac: Check presence of mkostemp.
301 * io/unix.c (set_close_on_exec): New function.
302 (tempfile_open): Use mkostemp and O_CLOEXEC if available, fallback
303 to calling set_close_on_exec.
304 (regular_file): Add O_CLOEXEC to flags if defined.
305 (open_external): Call set_close_on_exec if O_CLOEXEC is not
307 * config.h.in: Regenerated.
308 * configure: Regenerated.
309 * Makefile.in: Regenerated.
310 * aclocal.m4: Regenerated.
312 2013-10-01 Tobias Burnus <burnus@net-b.de>
315 * io/list_read (parse_repeat, read_integer, read_character,
316 parse_real, read_real, check_type, list_formatted_read_scalar,
317 finish_list_read): Call list_free.
319 2013-09-20 Alan Modra <amodra@gmail.com>
321 * configure: Regenerate.
323 2013-07-23 Uros Bizjak <ubizjak@gmail.com>
325 * config/fpu-387.h (get_fpu_rounding_mode): Read rounding mode
326 from SSE mxcsr register on x86_64.
328 2013-07-21 OndÅ™ej BÃlka <neleai@seznam.cz>
330 * io/transfer.c: Fix comment typos.
332 2013-07-21 Tobias Burnus <burnus@net-b.de>
335 * config/fpu-387.h (set_fpu_rounding_mode,
336 get_fpu_rounding_mode): Add missing _ to fix build.
338 2013-07-21 Tobias Burnus <burnus@net-b.de>
339 Uros Bizjak <ubizjak@gmail.com>
342 * libgfortran.h (set_fpu_rounding_mode,
343 get_fpu_rounding_mode): New prototypes.
344 * config/fpu-387.h (set_fpu_rounding_mode,
345 get_fpu_rounding_mode): New functions.
346 * config/fpu-aix.h (set_fpu_rounding_mode,
347 get_fpu_rounding_mode): Ditto.
348 * config/fpu-generic.h (set_fpu_rounding_mode,
349 get_fpu_rounding_mode): Ditto.
350 * config/fpu-glibc.h (set_fpu_rounding_mode,
351 get_fpu_rounding_mode): Ditto.
352 * config/fpu-sysv.h (set_fpu_rounding_mode,
353 get_fpu_rounding_mode): Ditto.
354 * configure.ac: Check for fp_rnd and fp_rnd_t.
355 * io/io.h (enum unit_round): Use GFC_FPE_* for the value.
356 * io/read.c (convert_real): Set FP ronding mode.
357 * Makefile.in: Regenerate.
358 * aclocal.m4: Regenerate.
359 * config.h.in: Regenerate.
360 * configure: Regenerate.
362 2013-06-24 Tobias Burnus <burnus@net-b.de>
364 * configure.ac: Check for fp_except and fp_except_t.
365 * config/fpu-sysv.h: Conditionally use either type.
366 * configure: Regenerate.
367 * config.h.in: Regenerate.
369 2013-06-21 Eric Botcazou <ebotcazou@adacore.com>
371 * config/fpu-sysv.h (get_fpu_except_flags): Fix typo.
373 2013-06-20 Uros Bizjak <ubizjak@gmail.com>
375 * config/fpu-387.h (_FPU_MASK_ALL): New.
376 (_FPU_EX_ALL): Ditto.
377 (set_fpu): Use fstcw to store x87 FPU control word. Use fnclex to
378 clear stalled exception flags. Correctly clear stalled SSE
379 exception flags. Simplify code.
380 (get_fpu_except_flags): Simplify code.
382 2013-06-20 Tobias Burnus <burnus@net-b.de>
385 * io/list_read.c (next_char, eat_separator): Don't set EOL for \r.
387 2013-06-19 Uros Bizjak <ubizjak@gmail.com>
389 * config/fpu-387.h: Use __asm__ and __volatile__ consistently.
390 (get_fpu_except_flags): Initialize result.
392 2013-06-17 Tobias Burnus <burnus@net-b.de>
394 * libgfortran.h (compile_options_t) Add fpe_summary.
395 (get_fpu_except_flags): New prototype.
396 * runtime/compile_options.c (set_options, init_compile_options):
398 * runtime/stop.c (report_exception): New function.
399 (stop_numeric, stop_numeric_f08, stop_string, error_stop_string,
400 error_stop_numeric): Call it.
401 * config/fpu-387.h (get_fpu_except_flags): New function.
402 * config/fpu-aix.h (get_fpu_except_flags): New function.
403 * config/fpu-generic.h (get_fpu_except_flags): New function.
404 * config/fpu-glibc.h (get_fpu_except_flags): New function.
405 * config/fpu-sysv.h (get_fpu_except_flags): New function.
406 * configure.ac: Check for fpxcp.h.
407 * configure: Regenerate.
408 * config.h.in: Regenerate.
410 2013-06-01 Tobias Burnus <burnus@net-b.de>
413 * io/write_float.def (ISFINITE2Q, ISFINITE2, ISFINITE2L, ISFINITE,
414 SIGNBIT2Q, SIGNBIT2, SIGNBIT2L, SIGNBIT, ISNAN2Q, ISNAN2, ISNAN2L,
416 (output_float_FMT_G_,WRITE_FLOAT): Use them.
418 2013-05-24 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
420 * acinclude.m4 (libgfor_cv_have_as_needed): Check for -z ignore, too.
421 * configure: Regenerate.
423 2013-05-05 David Edelsohn <dje.gcc@gmail.com>
425 * caf/libcaf.h (_gfortran_caf_critical): Add a prototype.
426 (_gfortran_caf_end_critical): Same.
428 2013-05-04 David Edelsohn <dje.gcc@gmail.com>
430 * runtime/environ.c: Include unistd.h.
431 * runtime/pause.c: Test HAVE_UNISTD_H.
432 * runtime/stop.c: Same.
435 * io/read.c (si_max): Protect declaration of value.
437 2013-04-29 Janne Blomqvist <jb@gcc.gnu.org>
439 * intrinsics/system_clock (gf_gettime_mono): Use variable
440 resolution for fractional seconds argument.
441 (system_clock_4): Simplify, update for gf_gettime_mono change.
442 (system_clock_8): Likewise.
444 2013-04-29 Janne Blomqvist <jb@gcc.gnu.org>
447 * io/transfer.c (next_record_w_unf): First fix head marker, then
449 (next_record): Call flush_if_unbuffered.
450 * io/unix.c (struct unix_stream): Add field unbuffered.
451 (flush_if_unbuffered): New function.
452 (fd_to_stream): New argument.
453 (open_external): Fix fd_to_stream call.
454 (input_stream): Likewise.
455 (output_stream): Likewise.
456 (error_stream): Likewise.
457 * io/unix.h (flush_if_unbuffered): New prototype.
459 2013-04-28 Janne Blomqvist <jb@gcc.gnu.org>
461 * intrinsics/system_clock.c (system_clock_4): Fix sign error in
464 2013-04-15 Tobias Burnus <burnus@net-b.de>
466 * list_read.c (finish_separator): Initialize variable.
468 2013-04-15 Janne Blomqvist <jb@gcc.gnu.org>
471 * intrinsics/time_1.h: Check __CYGWIN__ in addition to
473 * intrinsics/system_clock.c (GF_CLOCK_MONOTONIC): Check
474 _POSIX_MONOTONIC_CLOCK as well.
475 (system_clock_4): Use GetTickCount on Windows.
476 (system_clock_8): Use QueryPerformanceCounter and
477 QueryPerformanceCounterFrequency on Windows.
479 2013-04-04 Tobias Burnus <burnus@net-b.de>
482 * io/list_read.c (check_type): Fix kind checking for COMPLEX.
484 2013-04-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
487 * io/list_read.c (nml_read_obj): Do not reset the read error flag
488 inside nml_read_obj. If the read error flag is found set just exit.
489 Fix some whitespace on comments.
490 (nml_read_obj_data): Reset the read error flag before the first call
493 2013-03-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
496 * io/list_read.c (nml_parse_qualifier): Remove spurious next_char call
497 when checking for EOF. Use error return mechanism when EOF detected.
498 Do not return false unless parse_err_msg and parse_err_msg_size have
499 been set. Use hit_eof.
500 (nml_get_obj_data): Likewise use the correct error mechanism.
501 * io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist
504 2013-03-29 Tobias Burnus <burnus@net-b.de>
507 * io/format.c (parse_format_list): Also cache FMT_STRING.
508 (parse_format): Update call.
510 2013-03-29 Tobias Burnus <burnus@net-b.de>
513 * io/format.c (parse_format): With caching, copy
515 (save_parsed_format): Use dtp->format directy without
518 2013-03-29 Tobias Burnus <burnus@net-b.de>
521 * io/list_read.c (nml_query): Only abort when
523 (namelist_read): Add goto instead of falling through.
525 2013-03-25 Tilo Schwarz <tilo@tilo-schwarz.de>
528 * io/list_read.c (nml_parse_qualifier): To check for a derived type
529 don't use the namelist head element type but the current element type.
530 (nml_get_obj_data): Add current namelist element type to
531 nml_parse_qualifier call.
533 2013-03-24 Tobias Burnus <burnus@net-b.de>
536 * io/list_read.c (read_real): Fix EOF diagnostic.
538 2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
541 * io/list_read.c (nml_read_obj): Don't end the component loop on a
542 nested derived type, but continue with the next loop iteration.
543 (nml_get_obj_data): Don't move the first_nl pointer further in the
544 list if a qualifier was found.
546 2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
549 * io/open.c (st_open): Raise error for unit number < 0 only if
550 unit number does not exist already.
552 2013-03-19 Janne Blomqvist <jb@gcc.gnu.org>
554 * libgfortran.h: Include stdbool.h.
556 (notify_std): Change return type to bool.
557 * intrinsics/chmod.c: Don't include stdbool.h.
558 * intrinsics/execute_command_line.c: Likewise.
559 * io/format.c: Likewise.
560 * io/list_read.c (nml_parse_qualifier): Change return type to bool.
561 (nml_read_obj): Likewise.
562 (nml_get_obj_data): Likewise.
563 * io/transfer.c (read_block_form): Fix comment.
564 (write_buf): Change return type to bool.
565 * io/write.c: Don't include stdbool.h.
566 * io/write_float.def (output_float): Change return type to bool.
567 (output_float_FMT_G_ ## x): Change type of result variable.
568 * runtime/error.c (notify_std): Change return type to bool.
570 2013-03-11 Tobias Burnus <burnus@net-b.de>
572 * io/transfer.c (read_block_direct): Correct condition.
573 * intrinsics/execute_command_line.c (execute_command_line):
574 Remove dead code for the HAVE_FORK case.
576 2013-02-21 Janne Blomqvist <jb@gcc.gnu.org>
579 * io/open.c (test_endfile): Call stell only if size != 0.
580 * io/unix.c (raw_tell): Revert r194679.
581 (raw_size): Return size field only for regular files, otherwise 0.
583 2013-02-19 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
586 * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): Remove check for
588 * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Likewise.
589 * intrinsics/c99_functions.c: Likewise.
590 * configure: Rebuilt.
591 * config.h.in: Rebuilt.
593 2013-02-06 Janus Weil <janus@gcc.gnu.org>
596 * runtime/in_pack_generic.c (internal_pack): Return if base_addr is
599 2013-01-23 Janne Blomqvist <jb@gcc.gnu.org>
601 * io/file_pos.c (unformatted_backspace): Use __builtin_bswapXX
602 instead of reverse_memcpy.
603 * io/io.h (reverse_memcpy): Remove prototype.
604 * io/transfer.c (reverse_memcpy): Make static, move towards
606 (bswap_array): New function.
607 (unformatted_read): Use bswap_array to byte swap the data
609 (unformatted_write): Use a larger temp buffer and bswap_array.
610 (us_read): Use __builtin_bswapXX instead of reverse_memcpy.
611 (write_us_marker): Likewise.
613 2013-01-14 Richard Sandiford <rdsandiford@googlemail.com>
615 Update copyright years.
617 2013-01-06 Tobias Burnus <burnus@net-b.de>
620 * intrinsics/env.c (get_environment_variable_i8): Don't use
621 uninitialized variable.
623 2013-01-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
626 * io/list_read.c (read_real): Do not call hit_eof when EOF can be
627 treated as a value separator.
628 (parse_real): Likewise.
629 (read_logical): Likewise.
630 (read_character): Likewise.
631 (read_complex): Likewise.
633 Copyright (C) 2013-2014 Free Software Foundation, Inc.
635 Copying and distribution of this file, with or without modification,
636 are permitted in any medium without royalty provided the copyright
637 notice and this notice are preserved.