diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-09-08 15:23:16 +0000 |
|---|---|---|
| committer | Dave Love <d.love@dl.ac.uk> | 1998-09-08 15:23:16 +0000 |
| commit | 1ebaa73b42a8614428a245d9cdfabbf26ff48f17 (patch) | |
| tree | 7d9e3815350c75617348770ce78966c8e84a4c22 | |
| parent | 46b89311362af18a08de64699362144584df6d08 (diff) | |
Netlib:
Mon Sep 7 19:48:51 EDT 1998
libi77: move e_wdfe from sfe.c to dfe.c, where it was originally.
Why did it ever move to sfe.c?
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/Netlib_branch@22334 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libf2c/libI77/Version.c | 4 | ||||
| -rw-r--r-- | libf2c/libI77/dfe.c | 4 | ||||
| -rw-r--r-- | libf2c/libI77/sfe.c | 5 |
3 files changed, 7 insertions, 6 deletions
diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index cce58d5b04e..031c975708f 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -1,4 +1,4 @@ -static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n"; +static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980907\n"; /* 2.01 $ format added @@ -288,3 +288,5 @@ wrtfmt.c: floating-point numbers (containing either a decimal point or an exponent field) as errors when they appear as list input for integer data. */ +/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally. + Why did it ever move to sfe.c? */ diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index 0199e1ae1a4..6963d5a011a 100644 --- a/libf2c/libI77/dfe.c +++ b/libf2c/libI77/dfe.c @@ -135,3 +135,7 @@ integer e_rdfe(Void) en_fio(); return 0; } +integer e_wdfe(Void) +{ + return en_fio(); +} diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index 5656aa169bf..cade56a4882 100644 --- a/libf2c/libI77/sfe.c +++ b/libf2c/libI77/sfe.c @@ -29,8 +29,3 @@ integer e_wsfe(Void) f__fmtbuf = NULL; return n; } - -integer e_wdfe(Void) -{ - return en_fio(); -} |