github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 15:36:34 +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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 3 additions and 5 deletions
Show Stats 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 */
#define NOETHER 1
#define UNALIGNED_FETCH_OK
#define HAS_GETHOSTID
#define UNSIGNED unsigned long
#define INT long
@ -264,7 +263,6 @@ typedef unsigned char u_char;
typedef unsigned long u_int;
typedef unsigned short u_short;
#undef UNALIGNED_FETCH_OK
#undef HAS_GETHOSTID
#define USHORT unsigned
#else
#define USHORT unsigned short

6
src/initsout.c
View File

@ -139,10 +139,10 @@ void init_ifpage(int sysout_size) {
*LASTVMEMFILEPAGE_word = InterfacePage->dllastvmempage;
#endif /* BIGVM */
/* unfortunately, Lisp only looks at a 16 bit serial number */
#ifdef HAS_GETHOSTID
/* unfortunately, Lisp only looks at a 16 bit serial number */
#ifndef DOS
InterfacePage->serialnumber = 0xffff & gethostid();
#endif /* HAS_GETHOSTID */
#endif /* DOS */
/* 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