llvm-6502/lib/System/Interix/Memory.cpp
Reid Spencer cbad701d0b Provide initial implementations of Memory and Process concepts for various
platforms.
Implement GetLLVMSuffix function for the Path concept.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@16292 91177308-0d34-0410-b5e6-96231b3b80d8
2004-09-11 04:59:30 +00:00

54 lines
1.8 KiB
C++

//===- Interix/Memory.cpp - Interix Memory Implementation -------*- C++ -*-===//
//
// The LLVM Compiler Infrastructure
//
// This file was developed by Reid Spencer and is distributed under the
// University of Illinois Open Source License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//
//
// This file provides the Interix specific implementation of various Memory
// management utilities
//
//===----------------------------------------------------------------------===//
// Include the generic unix implementation
#include "../Unix/Memory.cpp"
#include "llvm/System/Process.h"
#include <sys/mman.h>
namespace llvm {
using namespace sys;
//===----------------------------------------------------------------------===//
//=== WARNING: Implementation here must contain only Interix specific code
//=== and must not be generic UNIX code (see ../Unix/Memory.cpp)
//===----------------------------------------------------------------------===//
void* Memory::AllocateRWX(Memory& M, unsigned NumBytes) {
if (NumBytes == 0) return 0;
static const long pageSize = Process::GetPageSize();
unsigned NumPages = (NumBytes+pageSize-1)/pageSize;
void *pa = mmap(0, pageSize*NumPages, PROT_READ|PROT_WRITE|PROT_EXEC,
MAP_PRIVATE|MAP_ANON|MAP_NOCORE, -1, 0);
if (pa == (void*)-1) {
throw std::string("Can't allocate RWX Memory: ") + strerror(errno);
}
M.Address = pa;
M.AllocSize = NumPages*pageSize;
return pa;
}
void Memory::ReleaseRWX(Memory& M) {
if (M.Address == 0 || M.AllocSize == 0) return;
if (0 != munmap(M.Address, M.AllocSize)) {
throw std::string("Can't release RWX Memory: ") + sterror(errno);
}
}
}
// vim: sw=2 smartindent smarttab tw=80 autoindent expandtab