From 1afed493aae886d34d033e63dcae80bb1b506e4b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 17 Dec 1986 06:35:06 +0000 Subject: [PATCH] Changes to make FIXNUM_LENGTH_AS_BIGNUM visible to cpp. --- v7/src/microcode/bignum.h | 4 +- v7/src/microcode/config.h | 77 +++++++++++++++++---------------------- v7/src/microcode/object.h | 11 ++++-- v8/src/microcode/object.h | 11 ++++-- 4 files changed, 50 insertions(+), 53 deletions(-) diff --git a/v7/src/microcode/bignum.h b/v7/src/microcode/bignum.h index aedf261a8..e2bf1a71e 100644 --- a/v7/src/microcode/bignum.h +++ b/v7/src/microcode/bignum.h @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.h,v 5.2 1986/12/17 06:00:03 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.h,v 5.3 1986/12/17 06:34:23 cph Exp $ Head file for bignums. This is shared by bignum.c and generic.c. */ @@ -65,7 +65,7 @@ typedef long bigdouble; #if ((USHORT_SIZE * 2) <= ULONG_SIZE) #define bigdigit unsigned short #define bigdouble long /* Should be unsigned */ -#define SHIFT (CHAR_SIZE*sizeof(bigdigit)) +#define SHIFT USHORT_SIZE #define factor (sizeof(Pointer)/sizeof(bigdigit)) #else #if ((CHAR_SIZE * 2) <= ULONG_SIZE) diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h index b67f22c09..ca4852f22 100644 --- a/v7/src/microcode/config.h +++ b/v7/src/microcode/config.h @@ -1,51 +1,42 @@ -/* Hey EMACS, this is -*- C -*- code! */ - -/**************************************************************** -* * -* Copyright (c) 1986 * -* Massachusetts Institute of Technology * -* * -* This material was developed by the Scheme project at the * -* Massachusetts Institute of Technology, Department of * -* Electrical Engineering and Computer Science. Permission to * -* copy this software, to redistribute it, and to use it for any * -* purpose is granted, subject to the following restrictions and * -* understandings. * -* * -* 1. Any copy made of this software must include this copyright * -* notice in full. * -* * -* 2. Users of this software agree to make their best efforts (a)* -* to return to the MIT Scheme project any improvements or * -* extensions that they make, so that these may be included in * -* future releases; and (b) to inform MIT of noteworthy uses of * -* this software. * -* * -* 3. All materials developed as a consequence of the use of * -* this software shall duly acknowledge such use, in accordance * -* with the usual standards of acknowledging credit in academic * -* research. * -* * -* 4. MIT has made no warrantee or representation that the * -* operation of this software will be error-free, and MIT is * -* under no obligation to provide any services, by way of * -* maintenance, update, or otherwise. * -* * -* 5. In conjunction with products arising from the use of this * -* material, there shall be no use of the name of the * -* Massachusetts Institute of Technology nor of any adaptation * -* thereof in any advertising, promotional, or sales literature * -* without prior written consent from MIT in each case. * -* * -****************************************************************/ - -/* File: CONFIG.H +/* -*-C-*- + +Copyright (c) 1986 Massachusetts Institute of Technology + +This material was developed by the Scheme project at the Massachusetts +Institute of Technology, Department of Electrical Engineering and +Computer Science. Permission to copy this software, to redistribute +it, and to use it for any purpose is granted, subject to the following +restrictions and understandings. + +1. Any copy made of this software must include this copyright notice +in full. + +2. Users of this software agree to make their best efforts (a) to +return to the MIT Scheme project any improvements or extensions that +they make, so that these may be included in future releases; and (b) +to inform MIT of noteworthy uses of this software. + +3. All materials developed as a consequence of the use of this +software shall duly acknowledge such use, in accordance with the usual +standards of acknowledging credit in academic research. + +4. MIT has made no warrantee or representation that the operation of +this software will be error-free, and MIT is under no obligation to +provide any services, by way of maintenance, update, or otherwise. + +5. In conjunction with products arising from the use of this material, +there shall be no use of the name of the Massachusetts Institute of +Technology nor of any adaptation thereof in any advertising, +promotional, or sales literature without prior written consent from +MIT in each case. */ + +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 5.2 1986/12/17 06:34:57 cph Exp $ * * This file contains the configuration information and the information * given on the command line on Unix. * */ - + /* Default pathnames. */ #ifndef DEFAULT_BAND_NAME diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h index 582c59e6c..02b8fbd22 100644 --- a/v7/src/microcode/object.h +++ b/v7/src/microcode/object.h @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* File: object.h +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 5.2 1986/12/17 06:35:06 cph Exp $ * * This file contains definitions pertaining to the C view of * Scheme pointers: widths of fields, extraction macros, pre-computed @@ -38,8 +38,13 @@ MIT in each case. */ * */ -/* The C type Pointer is defined at the end of CONFIG.H */ +/* The C type Pointer is defined at the end of CONFIG.H + The definition of POINTER_LENGTH here assumes that Pointer is the same + as unsigned long. If that ever changes, this definition must also. + POINTER_LENGTH is defined this way to make it available to + the preprocessor. */ +#define POINTER_LENGTH ULONG_SIZE #define TYPE_CODE_LENGTH 8 /* Not CHAR_SIZE!! */ #define MAX_TYPE_CODE 0xFF /* ((1<