github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-26 04:17:27 +00:00
Code Issues Projects Releases Wiki Activity

Remove HAS_GETHOSTID. (#218)

Browse Source 
This is only true on DOS now. It was previously true on older
unsupported platforms, but they are gone now.
This commit is contained in:
Bruce Mitchener
2021-01-13 11:10:21 +07:00
committed by GitHub
parent 7145f0d380
commit d3efbc3441
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inc/version.h
View File

@@ -208,7 +208,6 @@ error Must specify RELEASE to build Medley.
/* Set up defaults */ /* Set up defaults */
#define NOETHER 1 #define NOETHER 1
#define UNALIGNED_FETCH_OK #define UNALIGNED_FETCH_OK
#define HAS_GETHOSTID
#define UNSIGNED unsigned long #define UNSIGNED unsigned long
#define INT long #define INT long
@@ -264,7 +263,6 @@ typedef unsigned char u_char;
typedef unsigned long u_int; typedef unsigned long u_int;
typedef unsigned short u_short; typedef unsigned short u_short;
#undef UNALIGNED_FETCH_OK #undef UNALIGNED_FETCH_OK
#undef HAS_GETHOSTID
#define USHORT unsigned #define USHORT unsigned
#else #else
#define USHORT unsigned short #define USHORT unsigned short

6
src/initsout.c
View File

@@ -139,10 +139,10 @@ void init_ifpage(int sysout_size) {
*LASTVMEMFILEPAGE_word = InterfacePage->dllastvmempage; *LASTVMEMFILEPAGE_word = InterfacePage->dllastvmempage;
#endif /* BIGVM */ #endif /* BIGVM */
/* unfortunately, Lisp only looks at a 16 bit serial number */ /* unfortunately, Lisp only looks at a 16 bit serial number */
#ifdef HAS_GETHOSTID #ifndef DOS
InterfacePage->serialnumber = 0xffff & gethostid(); InterfacePage->serialnumber = 0xffff & gethostid();
#endif /* HAS_GETHOSTID */ #endif /* DOS */
/* get user name and stuff into vmem; this is the VMEM buffer; /* get user name and stuff into vmem; this is the VMEM buffer;
This is a BCPL string -- it starts with a length count. C strings This is a BCPL string -- it starts with a length count. C strings