Skip to content
Snippets Groups Projects
Commit 1e078503 authored by cshapiro's avatar cshapiro
Browse files

Remove no-op compatibility macros.

parent 4baabc4d
No related branches found
No related tags found
No related merge requests found
...@@ -14,7 +14,7 @@ ...@@ -14,7 +14,7 @@
* Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for OpenBSD by Pierre R. Mai, 2001.
* Frobbed for Darwin by Pierre R. Mai, 2003. * Frobbed for Darwin by Pierre R. Mai, 2003.
* *
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.7 2006/01/31 03:16:39 rtoy Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.8 2007/06/12 03:21:46 cshapiro Exp $
* *
*/ */
...@@ -223,12 +223,10 @@ os_set_context(void) ...@@ -223,12 +223,10 @@ os_set_context(void)
os_vm_address_t os_vm_address_t
os_validate(os_vm_address_t addr, os_vm_size_t len) os_validate(os_vm_address_t addr, os_vm_size_t len)
{ {
int flags = MAP_PRIVATE | MAP_ANONYMOUS; int flags = MAP_PRIVATE | MAP_ANON;
if (addr) if (addr)
flags |= MAP_FIXED; flags |= MAP_FIXED;
else
flags |= MAP_VARIABLE;
DPRINTF(0, (stderr, "os_validate %x %d => ", addr, len)); DPRINTF(0, (stderr, "os_validate %x %d => ", addr, len));
......
/* /*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.h,v 1.4 2007/01/01 11:53:02 cshapiro Exp $ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.h,v 1.5 2007/06/12 03:21:46 cshapiro Exp $
This code was written as part of the CMU Common Lisp project at This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain. Carnegie Mellon University, and has been placed in the public domain.
...@@ -17,9 +17,6 @@ ...@@ -17,9 +17,6 @@
#include <ucontext.h> #include <ucontext.h>
#include <mach/vm_types.h> #include <mach/vm_types.h>
#define MAP_ANONYMOUS MAP_ANON
#define MAP_VARIABLE 0
typedef caddr_t os_vm_address_t; typedef caddr_t os_vm_address_t;
typedef vm_size_t os_vm_size_t; typedef vm_size_t os_vm_size_t;
typedef off_t os_vm_offset_t; typedef off_t os_vm_offset_t;
......
...@@ -12,7 +12,7 @@ ...@@ -12,7 +12,7 @@
* Much hacked by Paul Werkowski * Much hacked by Paul Werkowski
* GENCGC support by Douglas Crosher, 1996, 1997. * GENCGC support by Douglas Crosher, 1996, 1997.
* *
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.14 2007/06/10 06:39:46 cshapiro Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.15 2007/06/12 03:21:46 cshapiro Exp $
* *
*/ */
...@@ -91,12 +91,10 @@ os_set_context(void) ...@@ -91,12 +91,10 @@ os_set_context(void)
os_vm_address_t os_validate(os_vm_address_t addr, os_vm_size_t len) os_vm_address_t os_validate(os_vm_address_t addr, os_vm_size_t len)
{ {
int flags = MAP_PRIVATE | MAP_ANONYMOUS; int flags = MAP_PRIVATE | MAP_ANON;
if (addr) if (addr)
flags |= MAP_FIXED; flags |= MAP_FIXED;
else
flags |= MAP_VARIABLE;
addr = mmap(addr, len, OS_VM_PROT_ALL, flags, -1, 0); addr = mmap(addr, len, OS_VM_PROT_ALL, flags, -1, 0);
......
/* /*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.h,v 1.12 2007/06/12 02:58:27 cshapiro Exp $ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.h,v 1.13 2007/06/12 03:21:46 cshapiro Exp $
This code was written as part of the CMU Common Lisp project at This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain. Carnegie Mellon University, and has been placed in the public domain.
...@@ -20,9 +20,6 @@ ...@@ -20,9 +20,6 @@
#include <string.h> #include <string.h>
#include <unistd.h> #include <unistd.h>
#define MAP_ANONYMOUS MAP_ANON
#define MAP_VARIABLE 0
typedef caddr_t os_vm_address_t; typedef caddr_t os_vm_address_t;
typedef vm_size_t os_vm_size_t; typedef vm_size_t os_vm_size_t;
typedef off_t os_vm_offset_t; typedef off_t os_vm_offset_t;
......
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.h,v 1.20 2007/01/01 11:53:02 cshapiro Exp $ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.h,v 1.21 2007/06/12 03:21:46 cshapiro Exp $
This code was written as part of the CMU Common Lisp project at This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain. Carnegie Mellon University, and has been placed in the public domain.
...@@ -25,7 +25,6 @@ ...@@ -25,7 +25,6 @@
#include <asm/unistd.h> #include <asm/unistd.h>
#include <errno.h> #include <errno.h>
#include <linux/version.h> #include <linux/version.h>
#define MAP_VARIABLE 0
#define linuxversion(a, b, c) (((a)<<16)+((b)<<8)+(c)) #define linuxversion(a, b, c) (((a)<<16)+((b)<<8)+(c))
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
* Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for OpenBSD by Pierre R. Mai, 2001.
* Frobbed for NetBSD by Pierre R. Mai, 2002. * Frobbed for NetBSD by Pierre R. Mai, 2002.
* *
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.c,v 1.4 2006/11/07 11:24:12 cshapiro Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.c,v 1.5 2007/06/12 03:21:46 cshapiro Exp $
* *
*/ */
...@@ -116,7 +116,7 @@ os_set_context(void) ...@@ -116,7 +116,7 @@ os_set_context(void)
os_vm_address_t os_vm_address_t
os_validate(os_vm_address_t addr, os_vm_size_t len) os_validate(os_vm_address_t addr, os_vm_size_t len)
{ {
int flags = MAP_PRIVATE | MAP_ANONYMOUS; int flags = MAP_PRIVATE | MAP_ANON;
/* /*
* NetBSD 1.5.2 seems to insist on each mmap being less than 128MB. * NetBSD 1.5.2 seems to insist on each mmap being less than 128MB.
...@@ -127,8 +127,6 @@ os_validate(os_vm_address_t addr, os_vm_size_t len) ...@@ -127,8 +127,6 @@ os_validate(os_vm_address_t addr, os_vm_size_t len)
if (addr) if (addr)
flags |= MAP_FIXED; flags |= MAP_FIXED;
else
flags |= MAP_VARIABLE;
DPRINTF(0, (stderr, "os_validate %p %d =>", addr, len)); DPRINTF(0, (stderr, "os_validate %p %d =>", addr, len));
......
/* /*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.h,v 1.6 2007/01/01 11:53:02 cshapiro Exp $ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.h,v 1.7 2007/06/12 03:21:46 cshapiro Exp $
This code was written as part of the CMU Common Lisp project at This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain. Carnegie Mellon University, and has been placed in the public domain.
...@@ -15,9 +15,6 @@ ...@@ -15,9 +15,6 @@
#include <sys/signal.h> #include <sys/signal.h>
#include <ucontext.h> #include <ucontext.h>
#define MAP_ANONYMOUS MAP_ANON
#define MAP_VARIABLE 0
typedef caddr_t os_vm_address_t; typedef caddr_t os_vm_address_t;
typedef size_t os_vm_size_t; typedef size_t os_vm_size_t;
typedef off_t os_vm_offset_t; typedef off_t os_vm_offset_t;
......
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
* GENCGC support by Douglas Crosher, 1996, 1997. * GENCGC support by Douglas Crosher, 1996, 1997.
* Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for OpenBSD by Pierre R. Mai, 2001.
* *
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.c,v 1.3 2006/11/07 11:24:12 cshapiro Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.c,v 1.4 2007/06/12 03:21:46 cshapiro Exp $
* *
*/ */
...@@ -89,12 +89,10 @@ os_set_context(void) ...@@ -89,12 +89,10 @@ os_set_context(void)
os_vm_address_t os_vm_address_t
os_validate(os_vm_address_t addr, os_vm_size_t len) os_validate(os_vm_address_t addr, os_vm_size_t len)
{ {
int flags = MAP_PRIVATE | MAP_ANONYMOUS; int flags = MAP_PRIVATE | MAP_ANON;
if (addr) if (addr)
flags |= MAP_FIXED; flags |= MAP_FIXED;
else
flags |= MAP_VARIABLE;
DPRINTF(0, (stderr, "os_validate %x %d => ", addr, len)); DPRINTF(0, (stderr, "os_validate %x %d => ", addr, len));
......
/* /*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.h,v 1.5 2007/01/01 11:53:02 cshapiro Exp $ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.h,v 1.6 2007/06/12 03:21:46 cshapiro Rel $
This code was written as part of the CMU Common Lisp project at This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain. Carnegie Mellon University, and has been placed in the public domain.
...@@ -15,9 +15,6 @@ ...@@ -15,9 +15,6 @@
#include <sys/mman.h> #include <sys/mman.h>
#include <sys/signal.h> #include <sys/signal.h>
#define MAP_ANONYMOUS MAP_ANON
#define MAP_VARIABLE 0
typedef caddr_t os_vm_address_t; typedef caddr_t os_vm_address_t;
typedef vm_size_t os_vm_size_t; typedef vm_size_t os_vm_size_t;
typedef off_t os_vm_offset_t; typedef off_t os_vm_offset_t;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment