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
diff --git a/lib/System/AIX/Memory.cpp b/lib/System/AIX/Memory.cpp
new file mode 100644
index 0000000..b4e9a9f
--- /dev/null
+++ b/lib/System/AIX/Memory.cpp
@@ -0,0 +1,54 @@
+//===- AIX/Memory.cpp - AIX 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 AIX specific implementation of various Memory
+// management utilities
+//
+//===----------------------------------------------------------------------===//
+
+// Include the generic unix implementation
+#include "../Unix/Memory.cpp"
+#include "llvm/System/Process.h"
+#include <sys/types.h>
+#include <sys/mman.h>
+
+namespace llvm {
+using namespace sys;
+
+//===----------------------------------------------------------------------===//
+//=== WARNING: Implementation here must contain only AIX 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_ANONYMOUS, -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
diff --git a/lib/System/AIX/Path.cpp b/lib/System/AIX/Path.cpp
index e49a593..aef8e03 100644
--- a/lib/System/AIX/Path.cpp
+++ b/lib/System/AIX/Path.cpp
@@ -43,6 +43,11 @@
   return result;
 }
 
+std::string
+Path::GetDLLSuffix() {
+  return "so";
+}
+
 }
 
 // vim: sw=2 smartindent smarttab tw=80 autoindent expandtab
diff --git a/lib/System/AIX/Process.cpp b/lib/System/AIX/Process.cpp
new file mode 100644
index 0000000..53b724a
--- /dev/null
+++ b/lib/System/AIX/Process.cpp
@@ -0,0 +1,22 @@
+//===- AIX/Process.cpp - AIX Process 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 AIX specific implementation of the Process class.
+//
+//===----------------------------------------------------------------------===//
+
+// Include the generic Unix implementation
+#include "../Unix/Process.cpp"
+
+//===----------------------------------------------------------------------===//
+//=== WARNING: Implementation here must contain only AIX specific code 
+//===          and must not be generic UNIX code (see ../Unix/Process.cpp)
+//===----------------------------------------------------------------------===//
+
+// vim: sw=2 smartindent smarttab tw=80 autoindent expandtab