diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
commit | 710a97992705d67c3ded0d4b270c5978ce29b11f (patch) | |
tree | ddcb2f7a91cbb86ce582e74227768b7b898c29e1 /socket.c | |
parent | 50eb784bfcf15ee3c6b0b53d747db92673395040 (diff) | |
download | scm-710a97992705d67c3ded0d4b270c5978ce29b11f.tar.gz scm-710a97992705d67c3ded0d4b270c5978ce29b11f.zip |
Import Upstream version 5e4upstream/5e4
Diffstat (limited to 'socket.c')
-rw-r--r-- | socket.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,4 +1,4 @@ -/* Copyright (C) 1994, 1995 Free Software Foundation, Inc. +/* Copyright (C) 1994, 1995, 2006 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -173,7 +173,7 @@ SCM l_hostinfo(name) ve[ 3] = MAKINUM(entry->h_length + 0L); if (sizeof(struct in_addr) != entry->h_length) {ve[ 4] = BOOL_F; return ans;} - for(argv = entry->h_addr_list; argv[i]; i++); + for (argv = entry->h_addr_list; argv[i]; i++); while (i--) { inad = *(struct in_addr *)argv[i]; lst = cons(ulong2num(ntohl(inad.s_addr)), lst); @@ -535,11 +535,11 @@ int sknm_print(exp, port, writing) lputs("inet-addr ", port); lputs(inet_ntoa(((struct sockaddr_in *)CDR(exp))->sin_addr), port); lputc(':', port); - intprint(0L + ntohs(((struct sockaddr_in *)CDR(exp))->sin_port), 10, port); + scm_intprint(0L + ntohs(((struct sockaddr_in *)CDR(exp))->sin_port), 10, port); break; default: lputs(s_unkfam, port); lputc(' ', port); - intprint(0L+((struct sockaddr *)CDR(exp))->sa_family, 10, port); + scm_intprint(0L+((struct sockaddr *)CDR(exp))->sa_family, 10, port); } lputc('>', port); return !0; |