/*
- * (C) Gražvydas "notaz" Ignotas, 2008-2010
+ * (C) Gražvydas "notaz" Ignotas, 2008-2012
*
* This work is licensed under the terms of any of these licenses
* (at your option):
* - GNU GPL, version 2 or later.
* - GNU LGPL, version 2.1 or later.
+ * - MAME license.
* See the COPYING file in the top-level directory.
*/
#include <unistd.h>
#include <sys/mman.h>
#include <errno.h>
+#include <sys/stat.h>
#include "../plat.h"
return 0;
}
-int plat_get_root_dir(char *dst, int len)
+int plat_get_data_dir(char *dst, int len)
{
- int j, ret;
+ if (len > 1)
+ strcpy(dst, "/");
+ else *dst = 0;
+ return strlen(dst);
+}
- ret = readlink("/proc/self/exe", dst, len - 1);
+static int plat_get_exe_dir(char *dst, int len)
+{
+#ifdef PICO_DATA_DIR
+ memcpy(dst, PICO_DATA_DIR, sizeof PICO_DATA_DIR);
+ return sizeof(PICO_DATA_DIR) - 1;
+#else
+ int j, ret = readlink("/proc/self/exe", dst, len - 1);
if (ret < 0) {
perror("readlink");
ret = 0;
}
dst[ret] = 0;
- for (j = strlen(dst); j > 0; j--)
+ for (j = ret - 1; j > 0; j--)
if (dst[j] == '/') {
dst[++j] = 0;
break;
}
-
return j;
+#endif
+}
+
+int plat_get_skin_dir(char *dst, int len)
+{
+ int ret = plat_get_exe_dir(dst, len);
+ if (ret < 0)
+ return ret;
+
+ memcpy(dst + ret, "skin/", sizeof "skin/");
+ return ret + sizeof("skin/") - 1;
+}
+
+#ifndef PICO_HOME_DIR
+#define PICO_HOME_DIR "/.picodrive/"
+#endif
+int plat_get_root_dir(char *dst, int len)
+{
+#if !defined(NO_HOME_DIR) && !defined(__GP2X__) && !defined(PANDORA)
+ const char *home = getenv("HOME");
+ int ret;
+
+ if (home != NULL) {
+ ret = snprintf(dst, len, "%s%s", home, PICO_HOME_DIR);
+ if (ret >= len)
+ ret = len - 1;
+ mkdir(dst, 0755);
+ return ret;
+ }
+#endif
+ return plat_get_exe_dir(dst, len);
}
#ifdef __GP2X__
void *plat_mmap(unsigned long addr, size_t size, int need_exec, int is_fixed)
{
- static int hugetlb_disabled;
+ static int hugetlb_warned;
int prot = PROT_READ | PROT_WRITE;
int flags = MAP_PRIVATE | MAP_ANONYMOUS;
void *req, *ret;
req = (void *)addr;
if (need_exec)
prot |= PROT_EXEC;
+ /* avoid MAP_FIXED, it overrides existing mappings..
if (is_fixed)
flags |= MAP_FIXED;
- if (size >= HUGETLB_THRESHOLD && !hugetlb_disabled)
+ */
+ if (size >= HUGETLB_THRESHOLD)
flags |= MAP_HUGETLB;
ret = mmap(req, size, prot, flags, -1, 0);
if (ret == MAP_FAILED && (flags & MAP_HUGETLB)) {
- fprintf(stderr,
- "warning: failed to do hugetlb mmap (%p, %zu): %d\n",
- req, size, errno);
- hugetlb_disabled = 1;
+ if (!hugetlb_warned) {
+ fprintf(stderr,
+ "warning: failed to do hugetlb mmap (%p, %zu): %d\n",
+ req, size, errno);
+ hugetlb_warned = 1;
+ }
flags &= ~MAP_HUGETLB;
ret = mmap(req, size, prot, flags, -1, 0);
}
if (ret == MAP_FAILED)
return NULL;
- if (req != NULL && ret != req)
- fprintf(stderr,
- "warning: mmaped to %p, requested %p\n", ret, req);
+ if (req != NULL && ret != req) {
+ fprintf(stderr, "%s: mmaped to %p, requested %p\n",
+ is_fixed ? "error" : "warning", ret, req);
+ if (is_fixed) {
+ munmap(ret, size);
+ return NULL;
+ }
+ }
return ret;
}
void *ret;
ret = mremap(ptr, oldsize, newsize, MREMAP_MAYMOVE);
- if (ret == MAP_FAILED)
- return NULL;
+ if (ret == MAP_FAILED) {
+ fprintf(stderr, "mremap %p %zd %zd: ",
+ ptr, oldsize, newsize);
+ perror(NULL);
+ // might be because huge pages can't be remapped,
+ // just make a new mapping
+ ret = plat_mmap(0, newsize, 0, 0);
+ if (ret == MAP_FAILED)
+ return NULL;
+ memcpy(ret, ptr, oldsize);
+ munmap(ptr, oldsize);
+ }
if (ret != ptr)
printf("warning: mremap moved: %p -> %p\n", ptr, ret);
}
}
+int plat_mem_set_exec(void *ptr, size_t size)
+{
+ int ret = mprotect(ptr, size, PROT_READ | PROT_WRITE | PROT_EXEC);
+ if (ret != 0)
+ fprintf(stderr, "mprotect(%p, %zd) failed: %d\n",
+ ptr, size, errno);
+
+ return ret;
+}
+
/* lprintf */
void lprintf(const char *fmt, ...)
{