diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:24 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:24 -0800 |
| commit | 1edcb9b62a1a520eddae8403c19d841c9b18737f (patch) | |
| tree | bc0a43d9b3905726a76ed6f0528b54275f23d082 /setjump.h | |
| parent | 5ca6e8e6a4e5c022a6fb5d28f30219c22c99eda8 (diff) | |
| download | scm-1edcb9b62a1a520eddae8403c19d841c9b18737f.tar.gz scm-1edcb9b62a1a520eddae8403c19d841c9b18737f.zip | |
Import Upstream version 5b3upstream/5b3
Diffstat (limited to 'setjump.h')
| -rw-r--r-- | setjump.h | 34 |
1 files changed, 17 insertions, 17 deletions
@@ -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) |