| /dports/lang/gcc6-aux/gcc-6-20180516/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| H A D | transfer.c | 1409 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_read()
1640 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
1817 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
1835 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_write()
2635 find_option (&dtp->common, dtp->decimal, dtp->decimal_len, in data_transfer_init()
2645 find_option (&dtp->common, dtp->round, dtp->round_len, in data_transfer_init()
2664 find_option (&dtp->common, dtp->blank, dtp->blank_len, in data_transfer_init()
2674 find_option (&dtp->common, dtp->delim, dtp->delim_len, in data_transfer_init()
2688 find_option (&dtp->common, dtp->pad, dtp->pad_len, pad_opt, in data_transfer_init()
2727 dtp->rec = dtp->pos; in data_transfer_init()
[all …]
|
| /dports/lang/gnat_util/gcc-6-20180516/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| H A D | transfer.c | 1409 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_read()
1640 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
1817 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
1835 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_write()
2635 find_option (&dtp->common, dtp->decimal, dtp->decimal_len, in data_transfer_init()
2645 find_option (&dtp->common, dtp->round, dtp->round_len, in data_transfer_init()
2664 find_option (&dtp->common, dtp->blank, dtp->blank_len, in data_transfer_init()
2674 find_option (&dtp->common, dtp->delim, dtp->delim_len, in data_transfer_init()
2688 find_option (&dtp->common, dtp->pad, dtp->pad_len, pad_opt, in data_transfer_init()
2727 dtp->rec = dtp->pos; in data_transfer_init()
[all …]
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/libgfortran/io/ |
| H A D | list_read.c | 83 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char()
85 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char()
93 dtp->u.p.saved_length - dtp->u.p.saved_used); in push_char()
97 dtp->u.p.saved_string[dtp->u.p.saved_used++] = c; in push_char()
153 c = dtp->u.p.line_buffer[dtp->u.p.item_count]; in next_char()
156 dtp->u.p.line_buffer[dtp->u.p.item_count] = '\0'; in next_char()
178 record = next_array_record (dtp, dtp->u.p.current_unit->ls, in next_char()
642 dtp->u.p.line_buffer[dtp->u.p.item_count++] = c; in l_push_char()
2017 fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); in finish_list_read()
2846 nl = find_nml_node (dtp, dtp->u.p.saved_string); in nml_get_obj_data()
[all …]
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/libgfortran/io/ |
| H A D | list_read.c | 83 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char()
85 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char()
93 dtp->u.p.saved_length - dtp->u.p.saved_used); in push_char()
97 dtp->u.p.saved_string[dtp->u.p.saved_used++] = c; in push_char()
153 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in next_char()
156 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in next_char()
271 if (is_array_io (dtp) && (dtp->u.p.last_char == EOF - 1)) in eat_spaces()
677 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos++] = c; in l_push_char()
2092 fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); in finish_list_read()
2933 nl = find_nml_node (dtp, dtp->u.p.saved_string); in nml_get_obj_data()
[all …]
|
| /dports/lang/gcc12-devel/gcc-12-20211205/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc8/gcc-8.5.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| H A D | transfer.c | 1676 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_read()
1908 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
2140 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
2158 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_write()
3037 find_option (&dtp->common, dtp->decimal, dtp->decimal_len, in data_transfer_init()
3047 find_option (&dtp->common, dtp->round, dtp->round_len, in data_transfer_init()
3066 find_option (&dtp->common, dtp->blank, dtp->blank_len, in data_transfer_init()
3076 find_option (&dtp->common, dtp->delim, dtp->delim_len, in data_transfer_init()
3090 find_option (&dtp->common, dtp->pad, dtp->pad_len, pad_opt, in data_transfer_init()
3129 dtp->rec = dtp->pos; in data_transfer_init()
[all …]
|
| /dports/lang/gcc10/gcc-10.3.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc11-devel/gcc-11-20211009/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc9-devel/gcc-9-20211007/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/avr-gcc/gcc-10.2.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc11/gcc-11.2.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc10-devel/gcc-10-20211008/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp))
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c))
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length)
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length;
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length);
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c;
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length)
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length;
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos];
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0';
[all …]
|
| /dports/lang/gcc9/gcc-9.4.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| /dports/lang/gcc9-aux/gcc-9.1.0/libgfortran/io/ |
| H A D | list_read.c | 74 #define next_char(dtp) ((dtp)->u.p.current_unit->next_char_fn_ptr (dtp)) argument
75 #define push_char(dtp, c) ((dtp)->u.p.current_unit->push_char_fn_ptr (dtp, c)) argument
93 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char_default()
95 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char_default()
97 xrealloc (dtp->u.p.saved_string, dtp->u.p.saved_length); in push_char_default()
100 dtp->u.p.saved_string[dtp->u.p.saved_used++] = (char) c; in push_char_default()
119 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char4()
121 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char4()
187 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in check_buffers()
190 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in check_buffers()
[all …]
|
| H A D | transfer.c | 1684 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_read()
1916 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
2148 write_x (dtp, dtp->u.p.skips, dtp->u.p.pending_spaces); in formatted_transfer_scalar_write()
2166 dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; in formatted_transfer_scalar_write()
3106 find_option (&dtp->common, dtp->decimal, dtp->decimal_len, in data_transfer_init()
3116 find_option (&dtp->common, dtp->round, dtp->round_len, in data_transfer_init()
3135 find_option (&dtp->common, dtp->blank, dtp->blank_len, in data_transfer_init()
3145 find_option (&dtp->common, dtp->delim, dtp->delim_len, in data_transfer_init()
3159 find_option (&dtp->common, dtp->pad, dtp->pad_len, pad_opt, in data_transfer_init()
3249 dtp->rec = dtp->pos; in data_transfer_init_worker()
[all …]
|
| /dports/lang/gcc48/gcc-4.8.5/libgfortran/io/ |
| H A D | list_read.c | 83 if (dtp->u.p.saved_used >= dtp->u.p.saved_length) in push_char()
85 dtp->u.p.saved_length = 2 * dtp->u.p.saved_length; in push_char()
93 dtp->u.p.saved_length - dtp->u.p.saved_used); in push_char()
97 dtp->u.p.saved_string[dtp->u.p.saved_used++] = c; in push_char()
153 c = dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos]; in next_char()
156 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos] = '\0'; in next_char()
178 record = next_array_record (dtp, dtp->u.p.current_unit->ls, in next_char()
643 dtp->u.p.line_buffer[dtp->u.p.line_buffer_pos++] = c; in l_push_char()
2040 fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); in finish_list_read()
2882 nl = find_nml_node (dtp, dtp->u.p.saved_string); in nml_get_obj_data()
[all …]
|