From 1edcb9b62a1a520eddae8403c19d841c9b18737f Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:24 -0800 Subject: Import Upstream version 5b3 --- setjump.h | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) (limited to 'setjump.h') diff --git a/setjump.h b/setjump.h index eb7e90b..17caa49 100644 --- a/setjump.h +++ b/setjump.h @@ -1,4 +1,4 @@ -/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. +/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1997 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -47,16 +47,16 @@ #ifdef PROT386 /*in 386 protected mode we must only adjust the offset */ -#define CELL_UP(p) MK_FP(FP_SEG(p), ~7&(FP_OFF(p)+7)) -#define CELL_DN(p) MK_FP(FP_SEG(p), ~7&FP_OFF(p)) +# define CELL_UP(p) MK_FP(FP_SEG(p), ~7&(FP_OFF(p)+7)) +# define CELL_DN(p) MK_FP(FP_SEG(p), ~7&FP_OFF(p)) #else -#ifdef _UNICOS -#define CELL_UP(p) (CELLPTR)(~1L & ((long)(p)+1L)) -#define CELL_DN(p) (CELLPTR)(~1L & (long)(p)) -#else -#define CELL_UP(p) (CELLPTR)(~(sizeof(cell)-1L) & ((long)(p)+sizeof(cell)-1L)) -#define CELL_DN(p) (CELLPTR)(~(sizeof(cell)-1L) & (long)(p)) -#endif /* UNICOS */ +# ifdef _UNICOS +# define CELL_UP(p) (CELLPTR)(~1L & ((long)(p)+1L)) +# define CELL_DN(p) (CELLPTR)(~1L & (long)(p)) +# else +# define CELL_UP(p) (CELLPTR)(~(sizeof(cell)-1L) & ((long)(p)+sizeof(cell)-1L)) +# define CELL_DN(p) (CELLPTR)(~(sizeof(cell)-1L) & (long)(p)) +# endif /* UNICOS */ #endif /* PROT386 */ /* These are parameters for controlling memory allocation. The heap @@ -85,13 +85,13 @@ #define INIT_HEAP_SIZE (25000L*sizeof(cell)) #define MIN_HEAP_SEG_SIZE (2000L*sizeof(cell)) #ifdef _QC -#define HEAP_SEG_SIZE 32400L -#else -#ifdef sequent -#define HEAP_SEG_SIZE (7000L*sizeof(cell)) +# define HEAP_SEG_SIZE 32400L #else -#define HEAP_SEG_SIZE (8100L*sizeof(cell)) -#endif +# ifdef sequent +# define HEAP_SEG_SIZE (7000L*sizeof(cell)) +# else +# define HEAP_SEG_SIZE (8100L*sizeof(cell)) +# endif #endif #define EXPHEAP(heap_size) (heap_size*2) #define INIT_MALLOC_LIMIT 100000 @@ -117,6 +117,6 @@ void dowinds P((SCM to, long delta)); #include "continue.h" /* See scm.h for definition of P */ -void mark_locations P((STACKITEM x [], sizet n )); +void mark_locations P((STACKITEM x[], sizet n )); void scm_dynthrow P((CONTINUATION *cont, SCM val)); #define s_cont (ISYMCHARS(IM_CONT)+20) -- cgit v1.2.3