diff options
author | Craig Burley <burley@gnu.org> | 1998-02-22 14:31:54 -0500 |
---|---|---|
committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:31:54 -0700 |
commit | 86fc7a6c5d2fc7f9a5daa5e48f94cbfb87ca6db1 (patch) | |
tree | eac853048bea7ba61606cdf284b85763ea4e7828 /libf2c/libI77/rsli.c | |
parent | 99ce4a11118e146e3a09cf06899c4d2935e4d5bc (diff) | |
download | gcc-86fc7a6c5d2fc7f9a5daa5e48f94cbfb87ca6db1.zip gcc-86fc7a6c5d2fc7f9a5daa5e48f94cbfb87ca6db1.tar.gz gcc-86fc7a6c5d2fc7f9a5daa5e48f94cbfb87ca6db1.tar.bz2 |
Improve run-time diagnostic for "PRINT '(I1', 42":
* com.c (ffecom_char_args_x_): Renamed from ffecom_char_args_,
which is now a macro (to avoid lots of changes to other code)
with new arg, ffecom_char_args_with_null_ being another new
macro to call same function with different value for new arg.
This function now appends a null byte to opCONTER expression
if the new arg is TRUE.
(ffecom_arg_ptr_to_expr): Support NULL length pointer.
* ste.c (ffeste_io_cilist_):
(ffeste_io_icilist_): Pass NULL length ptr for
FORMAT expression, so null byte gets appended where
feasible.
* target.c (ffetarget_character1):
(ffetarget_concatenate_character1):
(ffetarget_substr_character1):
(ffetarget_convert_character1_character1):
(ffetarget_convert_character1_hollerith):
(ffetarget_convert_character1_integer4):
(ffetarget_convert_character1_logical4):
(ffetarget_convert_character1_typeless):
(ffetarget_hollerith): Append extra phantom null byte as
part of FFETARGET-NULL-BYTE kludge.
Yes, even more patches from Craig :-)
From-SVN: r18187
Diffstat (limited to 'libf2c/libI77/rsli.c')
0 files changed, 0 insertions, 0 deletions