summaryrefslogtreecommitdiffstats
path: root/setjump.h
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:24 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:24 -0800
commit1edcb9b62a1a520eddae8403c19d841c9b18737f (patch)
treebc0a43d9b3905726a76ed6f0528b54275f23d082 /setjump.h
parent5ca6e8e6a4e5c022a6fb5d28f30219c22c99eda8 (diff)
downloadscm-1edcb9b62a1a520eddae8403c19d841c9b18737f.tar.gz
scm-1edcb9b62a1a520eddae8403c19d841c9b18737f.zip
Import Upstream version 5b3upstream/5b3
Diffstat (limited to 'setjump.h')
-rw-r--r--setjump.h34
1 files changed, 17 insertions, 17 deletions
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)