From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 11 Apr 1987 14:44:10 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~13643
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ffc9ca97f231b72ff32fbfcec68bc8ed0f46c73;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/microcode/pagesize.h b/v7/src/microcode/pagesize.h
new file mode 100644
index 000000000..32adae61e
--- /dev/null
+++ b/v7/src/microcode/pagesize.h
@@ -0,0 +1,25 @@
+#ifdef BSD
+#ifndef BSD4_1
+#define HAVE_GETPAGESIZE
+#endif
+#endif
+
+#ifndef HAVE_GETPAGESIZE
+
+#include <sys/param.h>
+
+#ifdef EXEC_PAGESIZE
+#define getpagesize() EXEC_PAGESIZE
+#else
+#ifdef NBPG
+#define getpagesize() NBPG * CLSIZE
+#ifndef CLSIZE
+#define CLSIZE 1
+#endif /* no CLSIZE */
+#else /* no NBPG */
+#define getpagesize() NBPC
+#endif /* no NBPG */
+#endif /* no EXEC_PAGESIZE */
+
+#endif /* not HAVE_GETPAGESIZE */
+