os_map.c revision 1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*-
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * See the file LICENSE for redistribution information.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Copyright (c) 1996, 1997, 1998
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Sleepycat Software. All rights reserved.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "config.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef lint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char sccsid[] = "@(#)os_map.c 10.24 (Sleepycat) 10/12/98";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* not lint */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef NO_SYSTEM_INCLUDES
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <sys/types.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <sys/mman.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <sys/ipc.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <sys/shm.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <errno.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <string.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "db_int.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "os_jump.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "common_ext.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int __os_map __P((char *, int, size_t, int, int, int, void **));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int __os_shmget __P((REGINFO *));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_mapanon_ok --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Return if this OS can support anonymous memory regions.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_mapanon_ok __P((int));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_mapanon_ok(need_names)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int need_names;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ret;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = EINVAL;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If we don't have spinlocks, we have to have a file descriptor
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * for fcntl(2) locking, which implies using mmap(2) to map in a
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * regular file. Theoretically, we could probably find ways to
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * get a file descriptor to lock other types of shared regions,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * but I don't see any reason to do so.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If need_names is set, the application wants to share anonymous
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * memory among multiple processes, so we have to have a way to
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * name it. This requires shmget(2), on UNIX systems.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SPINLOCKS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANON
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!need_names)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANONYMOUS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!need_names)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin COMPQUIET(need_names, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* HAVE_MMAP */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* HAVE_SPINLOCKS */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (ret);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_mapinit --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Return if shared regions need to be initialized.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_mapinit __P((void));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_mapinit()
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Historically, some systems required that all of the bytes of the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * region be written before it could be mmapped and accessed randomly.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * We have the option of setting REGION_INIT_NEEDED at configuration
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * time if we're running on one of those systems.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef REGION_INIT_NEEDED
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_mapregion --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Attach to a shared memory region.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_mapregion __P((char *, REGINFO *));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_mapregion(path, infop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *path;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin REGINFO *infop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int called, ret;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = EINVAL;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* If the user replaces the map call, call through their interface. */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__db_jump.j_map != NULL) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin F_SET(infop, REGION_HOLDINGSYS);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__db_jump.j_map(path, infop->fd, infop->size,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin 1, F_ISSET(infop, REGION_ANONYMOUS), 0, &infop->addr));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (F_ISSET(infop, REGION_ANONYMOUS)) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * !!!
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If we're creating anonymous regions:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If it's private, we use mmap(2). The problem with using
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * shmget(2) is that we may be creating a region of which the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * application isn't aware, and if the application crashes
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * we'll have no way to remove the system resources for the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * region.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If it's not private, we use the shmget(2) interface if it's
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * available, because it allows us to name anonymous memory.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If shmget(2) isn't available, use the mmap(2) calls.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * In the case of anonymous memory, using mmap(2) means the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * memory isn't named and only the single process and its
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * threads can access the region.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANON
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define HAVE_MMAP_ANONYMOUS 1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANONYMOUS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define HAVE_MMAP_ANONYMOUS 1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP_ANONYMOUS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called && F_ISSET(infop, REGION_PRIVATE)) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = __os_map(path,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin infop->fd, infop->size, 1, 1, 0, &infop->addr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = __os_shmget(infop);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If we're trying to join an unnamed anonymous region, fail --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * that's not possible.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!F_ISSET(infop, REGION_CREATED)) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin __db_err(infop->dbenv,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "cannot join region in unnamed anonymous memory");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (EINVAL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = __os_map(path,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin infop->fd, infop->size, 1, 1, 0, &infop->addr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } else {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * !!!
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If we're creating normal regions, we use the mmap(2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * interface if it's available because it's POSIX 1003.1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * standard and we trust it more than we do shmget(2).
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* Mmap(2) regions that aren't anonymous can grow. */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin F_SET(infop, REGION_CANGROW);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = __os_map(path,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin infop->fd, infop->size, 1, 0, 0, &infop->addr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = __os_shmget(infop);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (ret);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_unmapregion --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Detach from the shared memory region.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_unmapregion __P((REGINFO *));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_unmapregion(infop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin REGINFO *infop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int called, ret;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = EINVAL;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__db_jump.j_unmap != NULL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__db_jump.j_unmap(infop->addr, infop->size));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (infop->segid != INVALID_SEGID) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = shmdt(infop->addr) ? errno : 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = munmap(infop->addr, infop->size) ? errno : 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (ret);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_unlinkregion --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Remove the shared memory region.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_unlinkregion __P((char *, REGINFO *));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_unlinkregion(name, infop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *name;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin REGINFO *infop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int called, ret;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = EINVAL;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__db_jump.j_runlink != NULL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__db_jump.j_runlink(name));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (infop->segid != INVALID_SEGID) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = shmctl(infop->segid, IPC_RMID, NULL) ? errno : 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin COMPQUIET(infop, NULL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!called) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin called = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ret = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (ret);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_mapfile --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Map in a shared memory file.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_mapfile __P((char *, int, size_t, int, void **));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_mapfile(path, fd, len, is_rdonly, addr)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *path;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd, is_rdonly;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t len;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void **addr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__db_jump.j_map != NULL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__db_jump.j_map(path, fd, len, 0, 0, is_rdonly, addr));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__os_map(path, fd, len, 0, 0, is_rdonly, addr));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (EINVAL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __db_unmapfile --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Unmap the shared memory file.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * PUBLIC: int __db_unmapfile __P((void *, size_t));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__db_unmapfile(addr, len)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void *addr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t len;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__db_jump.j_unmap != NULL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (__db_jump.j_unmap(addr, len));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (munmap(addr, len) ? errno : 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (EINVAL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_MMAP
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __os_map --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Call the mmap(2) function.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__os_map(path, fd, len, is_region, is_anonymous, is_rdonly, addr)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *path;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd, is_region, is_anonymous, is_rdonly;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t len;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void **addr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin void *p;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int flags, prot;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin COMPQUIET(path, NULL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If it's read-only, it's private, and if it's not, it's shared.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Don't bother with an additional parameter.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = is_rdonly ? MAP_PRIVATE : MAP_SHARED;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (is_region && is_anonymous) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * BSD derived systems use MAP_ANON; Digital Unix and HP/UX
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * use MAP_ANONYMOUS.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANON
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= MAP_ANON;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_ANONYMOUS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= MAP_ANONYMOUS;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_FILE
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!is_region || !is_anonymous) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Historically, MAP_FILE was required for mapping regular
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * files, even though it was the default. Some systems have
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * it, some don't, some that have it set it to 0.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= MAP_FILE;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * I know of no systems that implement the flag to tell the system
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * that the region contains semaphores, but it's not an unreasonable
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * thing to do, and has been part of the design since forever. I
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * don't think anyone will object, but don't set it for read-only
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * files, it doesn't make sense.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef MAP_HASSEMAPHORE
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!is_rdonly)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= MAP_HASSEMAPHORE;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prot = PROT_READ | (is_rdonly ? 0 : PROT_WRITE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * XXX
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Work around a bug in the VMS V7.1 mmap() implementation. To map a file
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * into memory on VMS it needs to be opened in a certain way, originally.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * To get the file opened in that certain way, the VMS mmap() closes the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * file and re-opens it. When it does this, it doesn't flush any caches
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * out to disk before closing. The problem this causes us is that when the
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * memory cache doesn't get written out, the file isn't big enough to match
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * the memory chunk and the mmap() call fails. This call to fsync() fixes
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * the problem. DEC thinks this isn't a bug because of language in XPG5
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * discussing user responsibility for on-disk and in-memory synchronization.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef VMS
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (__os_fsync(fd) == -1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(errno);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* MAP_FAILED was not defined in early mmap implementations. */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef MAP_FAILED
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAP_FAILED -1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((p =
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mmap(NULL, len, prot, flags, fd, (off_t)0)) == (void *)MAP_FAILED)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (errno);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *addr = p;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef HAVE_SHMGET
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * __os_shmget --
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Call the shmget(2) family of functions.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin__os_shmget(infop)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin REGINFO *infop;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (F_ISSET(infop, REGION_CREATED) &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (infop->segid = shmget(0, infop->size, IPC_PRIVATE | 0600)) == -1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (errno);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((infop->addr = shmat(infop->segid, NULL, 0)) == (void *)-1) {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * If we're trying to join the region and failing, assume
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * that there was a reboot and the region no longer exists.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!F_ISSET(infop, REGION_CREATED))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EAGAIN;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (errno);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin F_SET(infop, REGION_HOLDINGSYS);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return (0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin