info-sequent-request@im4u.UUCP (02/07/86)
From: jsq@zotz.UTEXAS.EDU (John Quarterman) [ This is long but should be of use to many. It looks rather like the mods were done by Stallman Himself. -mod ] Date: Thu, 6 Feb 86 18:55:24 pst >From: ut-sally!sequent!phil (GSP) To: ut-sally!im4u!info-sequent-request Subject: Mods for GNU emacs 17.45 for BALANCE 8000 (DYNIX 2.0) --Phil Hochstetler, Sequent Computer Systems, Inc. diff -r -c virgin/dist/etc/loadst.c gnu.emacs/dist/etc/loadst.c *** virgin/dist/etc/loadst.c Wed Jan 29 22:11:08 1986 --- gnu.emacs/dist/etc/loadst.c Wed Feb 5 17:56:37 1986 *************** *** 28,33 #endif /* not HPUX */ #else /* not USG */ #define LDAV_SYMBOL "_avenrun" #define KERNEL_FILE "/vmunix" #define NLIST_STRUCT #endif /* not USG */ --- 28,36 ----- #endif /* not HPUX */ #else /* not USG */ #define LDAV_SYMBOL "_avenrun" + #ifdef sequent + #define KERNEL_FILE "/dynix" + #else /* not sequent */ #define KERNEL_FILE "/vmunix" #endif /* not sequent */ #define NLIST_STRUCT *************** *** 29,34 #else /* not USG */ #define LDAV_SYMBOL "_avenrun" #define KERNEL_FILE "/vmunix" #define NLIST_STRUCT #endif /* not USG */ --- 32,38 ----- #define KERNEL_FILE "/dynix" #else /* not sequent */ #define KERNEL_FILE "/vmunix" + #endif /* not sequent */ #define NLIST_STRUCT #endif /* not USG */ *************** *** 71,76 struct nlist nl[] = { { LDAV_SYMBOL }, #define X_CPTIME 1 { "_cp_time" }, #define X_DKXFER 2 --- 75,81 ----- struct nlist nl[] = { { LDAV_SYMBOL }, + #if defined(BSD) && !defined(sequent) #define X_CPTIME 1 { "_cp_time" }, #define X_DKXFER 2 *************** *** 75,80 { "_cp_time" }, #define X_DKXFER 2 { "_dk_xfer" }, { 0 }, }; #endif /* NLIST_STRUCT */ --- 80,86 ----- { "_cp_time" }, #define X_DKXFER 2 { "_dk_xfer" }, + #endif /* defined(BSD) && !defined(sequent) */ { 0 }, }; #endif /* NLIST_STRUCT */ *************** *** 79,85 }; #endif /* NLIST_STRUCT */ ! #ifdef BSD struct { --- 85,91 ----- }; #endif /* NLIST_STRUCT */ ! #if defined(BSD) && !defined(sequent) struct { *************** *** 89,95 double etime; ! #endif /* BSD */ int nflag; /* -n flag -- no newline */ int uflag; /* -u flag -- user current user ID rather --- 95,101 ----- double etime; ! #endif /* defined(BSD) && !defined(sequent) */ int nflag; /* -n flag -- no newline */ int uflag; /* -u flag -- user current user ID rather *************** *** 168,174 printf ("%s", (stat (mail, &st) >= 0 && st.st_size) ? " Mail" : ""); ! #ifdef BSD if (kmem >= 0) { lseek (kmem, (long) nl[X_CPTIME].n_value, 0); --- 174,180 ----- printf ("%s", (stat (mail, &st) >= 0 && st.st_size) ? " Mail" : ""); ! #if defined(BSD) && !defined(sequent) if (kmem >= 0) { lseek (kmem, (long) nl[X_CPTIME].n_value, 0); *************** *** 200,206 printf ("[%d]", (int) (max / etime + 0.5)); } } ! #endif /* BSD */ if (!nflag) putchar ('\n'); fflush (stdout); --- 206,212 ----- printf ("[%d]", (int) (max / etime + 0.5)); } } ! #endif /* defined(BSD) && !defined(sequent) */ if (!nflag) putchar ('\n'); fflush (stdout); diff -r -c virgin/dist/src/crt0.c gnu.emacs/dist/src/crt0.c *** virgin/dist/src/crt0.c Wed Jan 29 22:09:49 1986 --- gnu.emacs/dist/src/crt0.c Wed Feb 5 20:02:27 1986 *************** *** 107,112 #endif /* orion */ #ifdef ns16000 _start () --- 107,140 ----- #endif /* orion */ + #if defined(ns32000) && defined(sequent) + + /* Identical to VAX 4.2 BSD except fp linkage */ + asm(" .text ") + asm(" .globl start "); /* ld wants 'start' not '__start' */ + asm(" start: "); + _start () + { + /* On DYNIX, bogus fp is pushed here */ + start1 (); + } + + static + start1 (oldfp, argc, xargv) + int oldfp; + int argc; + char *xargv; + { + register char **argv = &xargv; + environ = argv + argc + 1; + + if ((char *)environ == xargv) + environ--; + exit (main (argc, argv, environ)); + } + + #endif /* defined(ns32000) && defined(sequent) */ + #ifdef ns16000 _start () diff -r -c virgin/dist/src/unexec.c gnu.emacs/dist/src/unexec.c *** virgin/dist/src/unexec.c Tue Jan 28 14:28:26 1986 --- gnu.emacs/dist/src/unexec.c Thu Feb 6 00:55:10 1986 *************** *** 440,445 if (hdr.a_bss < 0) hdr.a_bss = 0; hdr.a_data = bss_start - data_start; hdr.a_text = data_start - (long) start_of_text (); if (write (new, &hdr, sizeof hdr) != sizeof hdr) --- 440,448 ----- if (hdr.a_bss < 0) hdr.a_bss = 0; hdr.a_data = bss_start - data_start; + #if defined(sequent) + hdr.a_text = data_start - (long) start_of_text () + sizeof(hdr) + N_ADDRADJ(ohdr); + #else hdr.a_text = data_start - (long) start_of_text (); #endif *************** *** 441,446 hdr.a_bss = 0; hdr.a_data = bss_start - data_start; hdr.a_text = data_start - (long) start_of_text (); if (write (new, &hdr, sizeof hdr) != sizeof hdr) { --- 444,450 ----- hdr.a_text = data_start - (long) start_of_text () + sizeof(hdr) + N_ADDRADJ(ohdr); #else hdr.a_text = data_start - (long) start_of_text (); + #endif if (write (new, &hdr, sizeof hdr) != sizeof hdr) { *************** *** 488,494 #else /* if not COFF */ ! #ifdef sun3 lseek (new, (long) (N_TXTOFF (hdr) + sizeof (hdr)), 0); #else lseek (new, (long) N_TXTOFF (hdr), 0); --- 492,498 ----- #else /* if not COFF */ ! #if defined(sun3) || defined(sequent) lseek (new, (long) (N_TXTOFF (hdr) + sizeof (hdr)), 0); #else lseek (new, (long) N_TXTOFF (hdr), 0); *************** *** 496,501 ptr = start_of_text (); end = ptr + hdr.a_text + hdr.a_data; for (i = 0; ptr < end;) { nwrite = 128; --- 500,508 ----- ptr = start_of_text (); end = ptr + hdr.a_text + hdr.a_data; + #if defined(sequent) + end -= (sizeof(hdr) + N_ADDRADJ(hdr)); + #endif for (i = 0; ptr < end;) { nwrite = 128; *************** *** 504,510 if (ret == -1 && errno == EFAULT) { /* BZS - again, see above about N_TXTOFF on a SUN */ ! #ifdef sun3 lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite + sizeof (hdr)), 0); #else lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite), 0); --- 511,517 ----- if (ret == -1 && errno == EFAULT) { /* BZS - again, see above about N_TXTOFF on a SUN */ ! #if defined(sun3) || defined(sequent) lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite + sizeof (hdr)), 0); #else lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite), 0); diff -r -c virgin/dist/src/ymakefile gnu.emacs/dist/src/ymakefile *** virgin/dist/src/ymakefile Thu Jan 30 00:17:01 1986 --- gnu.emacs/dist/src/ymakefile Thu Feb 6 10:27:05 1986 *************** *** 170,176 ../etc/make-docfile: cd ../etc; make ${MFLAGS} make-docfile ! temacs: $(LOCALCPP) $(SHORTNAME) crt0.o ${obj} ${otherobj} ld ${STARTFLAGS} ${LDFLAGS} -o temacs crt0.o ${obj} ${otherobj} ${LIBES} /* These are needed for C compilation, on the systems that need them */ --- 170,179 ----- ../etc/make-docfile: cd ../etc; make ${MFLAGS} make-docfile ! #if defined(sequent) /* for parallel make */ ! PARALLEL=& ! #endif ! temacs: $(PARALLEL) $(LOCALCPP) $(SHORTNAME) crt0.o ${obj} ${otherobj} ld ${STARTFLAGS} ${LDFLAGS} -o temacs crt0.o ${obj} ${otherobj} ${LIBES} /* These are needed for C compilation, on the systems that need them */ ---------------------------------------- Plus a new file, "src/m-sequent.h" ---------------------------------------- /* m- file for SEQUENT BALANCE machines Copyright (C) 1985 Richard M. Stallman. This file is part of GNU Emacs. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY. No author or distributor accepts responsibility to anyone for the consequences of using it or for whether it serves any particular purpose or works at all, unless he says so in writing. Refer to the GNU Emacs General Public License for full details. Everyone is granted permission to copy, modify and redistribute GNU Emacs, but only under the conditions described in the GNU Emacs General Public License. A copy of this license is supposed to have been given to you along with GNU Emacs so you can know your rights and responsibilities. It should be in a file named COPYING. Among other things, the copyright notice and this notice must be preserved on all copies. */ /* NOTE: this file works for DYNIX release 2.0 (not tested on 1.3) on NS32000's */ /* The following three symbols give information on the size of various data types. */ #define SHORTBITS 16 /* Number of bits in a short */ #define INTBITS 32 /* Number of bits in an int */ #define LONGBITS 32 /* Number of bits in a long */ /* Define BIG_ENDIAN iff lowest-numbered byte in a word is the most significant byte. */ /* #define BIG_ENDIAN */ /* Define NO_ARG_ARRAY if you cannot take the address of the first of a * group of arguments and treat it as an array of the arguments. */ /* #define NO_ARG_ARRAY */ /* Define WORD_MACHINE if addresses and such have * to be corrected before they can be used as byte counts. */ /* #define WORD_MACHINE */ /* Define how to take a char and sign-extend into an int. On machines where char is signed, this is a no-op. */ #define SIGN_EXTEND_CHAR(c) (c) /* Now define a symbol for the cpu type, if your compiler does not define it automatically: vax, m68000, ns16000, pyramid, orion, tahoe and APOLLO are the ones defined so far. */ /* BTW: DYNIX defines sequent, ns32000, and ns16000 (GENIX compatibility) */ #ifdef ns16000 /* don't want this to confuse crt0.c */ # undef ns16000 #endif #ifndef sequent /* pre DYNIX 2.1 releases */ # define sequent #endif /* Use type int rather than a union, to represent Lisp_Object */ /* This is desirable for most machines. */ #define NO_UNION_TYPE /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend the 24-bit bit field into an int. In other words, if bit fields are always unsigned. If you use NO_UNION_TYPE, this flag does not matter. */ #define EXPLICIT_SIGN_EXTEND /* Data type of load average, as read out of kmem. */ #define LOAD_AVE_TYPE unsigned long /* Convert that into an integer that is 100 for a load average of 1.0 */ #define FSCALE 1000.0 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) /* Define CANNOT_DUMP on machines where unexec does not work. Then the function dump-emacs will not be defined and temacs will do (load "loadup") automatically unless told otherwise. */ /* #define CANNOT_DUMP */ /* Define VIRT_ADDR_VARIES if the virtual addresses of pure and impure space as loaded can vary, and even their relative order cannot be relied on. Otherwise Emacs assumes that data space precedes text space, numerically. */ /* #define VIRT_ADDR_VARIES */ /* Define C_ALLOCA if this machine does not support a true alloca and the one written in C should be used instead. Define HAVE_ALLOCA to say that the system provides a properly working alloca function and it should be used. Define neither one if an assembler-language alloca in the file alloca.s should be used. */ /* NOTE: not possible to do this PROPERLY on 32032 (with our C compiler) because on frame entry local storage is allocated before saved registers. This means you must move saved registers around. Better to emulate. */ #define C_ALLOCA /* #define HAVE_ALLOCA */ ----------------------------------------