summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libU77/getlog_.c
diff options
context:
space:
mode:
authorMarc Espie <espie@cvs.openbsd.org>2004-12-30 17:35:29 +0000
committerMarc Espie <espie@cvs.openbsd.org>2004-12-30 17:35:29 +0000
commit157d4bd650a3e421c5bac48da7e528af9a6a76e2 (patch)
tree0379fb2c85e183c3c5669d425b3e42ae4592791b /gnu/lib/libf2c/libU77/getlog_.c
parent791194721fec8918406191b62da6dc41f2d690e5 (diff)
Actual synch with 3.3.5.
Changes in Makefile.bsd-wrapper to avoid prereq. Fix in lib*/config.h.in to include the right ones and get the correct definitions. Bump of shlib_version accordingly.
Diffstat (limited to 'gnu/lib/libf2c/libU77/getlog_.c')
-rw-r--r--gnu/lib/libf2c/libU77/getlog_.c26
1 files changed, 12 insertions, 14 deletions
diff --git a/gnu/lib/libf2c/libU77/getlog_.c b/gnu/lib/libf2c/libU77/getlog_.c
index 82cb564a67a..94c5f416067 100644
--- a/gnu/lib/libf2c/libU77/getlog_.c
+++ b/gnu/lib/libf2c/libU77/getlog_.c
@@ -41,14 +41,9 @@ Boston, MA 02111-1307, USA. */
/* SGI also has character*(*) function getlog() */
-#ifdef KR_headers
-extern VOID s_copy ();
-/* Subroutine */ int G77_getlog_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr)
-#endif
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Subroutine */ int
+G77_getlog_0 (char *str, const ftnlen Lstr)
{
size_t i;
char *p;
@@ -56,12 +51,15 @@ extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
#if defined (HAVE_GETLOGIN)
p = getlogin ();
- if (p != NULL) {
- i = strlen (p);
- s_copy (str, p, Lstr, i);
- } else {
- s_copy (str, " ", Lstr, 1);
- }
+ if (p != NULL)
+ {
+ i = strlen (p);
+ s_copy (str, p, Lstr, i);
+ }
+ else
+ {
+ s_copy (str, " ", Lstr, 1);
+ }
status = 0;
#else
errno = ENOSYS;