git://gcc.gnu.org / gcc.git / blame
| Commit | Line | Data |
|---|---|---|
| 81f4be3c TS |
1 | 2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
| 2 | ||
| 3 | PR fortran/15235 | |
| 4 | * gfortran.h (offset_t): Rename to ... | |
| 5 | (gfc_offset): ... this. | |
| 6 | * io/backspace.c (formatted_backspace, unformatted_backspace), | |
| 7 | io/io.h (stream, gfc_unit, global_t, file_length, file_position), | |
| 8 | transfer.c (us_read, us_write, next_record_r, next_record_w), | |
| 9 | io/unit.c (init_units), unix.c (unix_stream, fd_alloc, | |
| 10 | fd_alloc_r_at, fd_alloc_w_at, fd_seek, mmap_alloc, | |
| 11 | mmap_alloc_r_at, mmap_alloc_w_at, mmap_seek, mem_alloc_r_at, | |
| 12 | mem_alloc_w_at, mem_seek, file_length, file_position): Replace all | |
| 13 | occurences of offset_t by gfc_offset. | |
| 14 | ||
| 6d3e9d84 PB |
15 | 2004-05-16 Paul Brook <paul@codesourcery.com> |
| 16 | ||
| 17 | * io/format.c (write_real): Don't include padding in format. | |
| 18 | ||
| 28963c8f PB |
19 | 2004-05-16 Paul Brook <paul@codesourcery.com> |
| 20 | ||
| 21 | * io/format.c (format_lex): Make c an int. | |
| 22 | ||
| d464f8e9 JB |
23 | 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> |
| 24 | Paul Brook <paul@codesourcery.com> | |
| 25 | ||
| 26 | * io/write.c (write_logical): Don't print extra blank. | |
| 27 | (write_integer): Base field width on kind. | |
| 28 | (list_formatted_write): Output initial blank. | |
| 29 | ||
| 000aa32a JB |
30 | 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> |
| 31 | ||
| 32 | * io/io.h (flush): Add prototype. | |
| 33 | * io/transfer.c (finalize_transfer): Flush partial records. | |
| 34 | * io/unix.c (flush): New function. | |
| 35 | ||
| 909087e0 TS |
36 | 2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
| 37 | ||
| 38 | PR fortran/15234 | |
| 39 | * io/io.h (unit_t): Rename to ... | |
| 40 | (gfc_unit) ... this. | |
| 41 | (unit_root, current_unit, find_file, find_unit, get_unit): Now | |
| 42 | of type gfc_unit. | |
| 43 | (delete_file, insert_unit, close_unit): Argument now of type | |
| 44 | gfc_unit. | |
| 45 | * backspace.c (st_backspace), close.c (st_close), endfile.c | |
| 46 | (st_endfile), inquire.c (inquire_via_unit, st_inquire), open.c | |
| 47 | (test_endfile, edit_modes, new_unit, already_open, st_open), | |
| 48 | rewind.c (st_rewind), transfer.c (current_unit), unit.c | |
| 49 | (internal_unit, unit_cache, rotate_left, rotate_right, insert, | |
| 50 | insert_unit, delete_root, delete_treap, delete_unit, find_unit, | |
| 51 | get_unit, init_units, close_unit), unix.c (find_file0, | |
| 52 | find_file, delete_file): Replace all occurences of unit_t by | |
| 53 | gfc_unit. | |
| 54 | ||
| 94161cec BD |
55 | 2004-05-15 Bud Davis <bdavis9659@comcast.net> |
| 56 | ||
| 57 | PR fortran/15311 | |
| 58 | * io/write.c (write_a): right justify A edit output. | |
| 59 | ||
| abdef811 BD |
60 | 2004-05-14 Bud Davis <bdavis9659@comcast.net> |
| 61 | ||
| 62 | PR fortran/15149 | |
| 63 | * libgfortan.h,intrinsics/random.c: Made random_seed visible. | |
| 64 | * runtime/main.c(init): Call random_seed as part of MAIN init. | |
| 65 | ||
| 187f0734 TS |
66 |