jordan@unix.cis.pitt.edu (Kenneth D Jordan) (05/04/91)
I'm trying to get GNU Emacs running on an FPS Model 500EA, and I'm having a
bit of trouble creating a preloaded version with the builtin "unexec".
It doesn't seem to know enough about the exec structure (specifically,
vendor and magic number fields), and the various offsets (text, data, etc.)
are wrong. The system is running BSD 4.3. Any help would be greatly
appreciated.
-------------------------------------------------------------------------------
Nick Nystrom
Chemistry Department
University of Pittsburgh
nystrom@a.psc.edu
-------------------------------------------------------------------------------scp@acl.lanl.gov (Stephen C. Pope) (05/06/91)
18.55 builds using the following m-fps500.h file and s-bsd4-3.h. You
can undoubtably get 18.57 to work also...
stephen pope
advanced computing lab, lanl
scp@acl.lanl.gov
m-fps500.h ---8<---------------------------------------------------------
/* m- file for Celerity.
Copyright (C) 1985, 1986 Free Software Foundation, Inc.
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. */
/* 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
/* I dont know about this, so lets be safe */
/* XINT must explicitly sign extend */
#define EXPLICIT_SIGN_EXTEND
/* 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) ((int) c)
/* celerity preprocessor defines "accel", however the following is clearer */
#define celerity
/* #define NO_UNION_TYPE would be preferable,
but it does not work, and the reason is not yet known. */
#define NO_UNION_TYPE
/* Data type of load average, as read out of kmem. */
#define LOAD_AVE_TYPE double
/* Convert that into an integer that is 100 for a load average of 1.0 */
#define LOAD_AVE_CVT(x) ((int) ((x) * 100.0))
/* alloca is provided by the system. */
#define HAVE_ALLOCA
/* I dont think this is needed... */
/* (short) negative-int doesn't sign-extend correctly */
/* #define SHORT_CAST_BUG */
/* Cant do this as we pass args in regs */
#define NO_ARG_ARRAY
/* for now, we don't remap, since new a.out format uses virtual bases */
/* anyone care to figure this out? */
#define NO_REMAP
/* Our header is inside text segment if we're a new styled a.out */
#define A_TEXT_OFFSET(HDR) (((HDR).a_vendor == VENDOR_FPS) ? OBJECT_CHUNK_SIZE : 0)
/* A_TEXT_OFFSET might take care of this, but lets be safe */
#define A_TEXT_SEEK(HDR) OBJECT_CHUNK_SIZE
/* here we munge so we can get at cel_exec_config structure also */
/* Note this this currently generates lots of compiler warning
messages, as the celerity compiler doesn't like anonymus unions.
Code works, though! */
#define EXEC_HDR_TYPE union { struct exec; \
struct { char dummy[sizeof(struct exec)]; \
struct cel_exec_config cec; }; }
/* right now, just copy in cec struct */
#define ADJUST_EXEC_HEADER hdr.cec = ohdr.cec
-----------------------------------------------------------------------------