* See COPYING file in the top-level directory.
*/
+#ifdef PSP
+#define NO_MMAP
+#endif
+
#define _GNU_SOURCE 1 // mremap
#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#ifndef _WIN32
+#ifndef NO_MMAP
#include <sys/mman.h>
+#endif
#else
#include <io.h>
#include <windows.h>
#include "common/version.h"
#include "libretro.h"
+static retro_log_printf_t log_cb;
static retro_video_refresh_t video_cb;
static retro_input_poll_t input_poll_cb;
static retro_input_state_t input_state_cb;
static retro_environment_t environ_cb;
static retro_audio_sample_batch_t audio_batch_cb;
-static FILE *emu_log;
-
#define VOUT_MAX_WIDTH 320
#define VOUT_MAX_HEIGHT 240
static void *vout_buf;
-static int vout_width, vout_height;
+static int vout_width, vout_height, vout_offset;
static short __attribute__((aligned(4))) sndBuffer[2*44100/50];
UnmapViewOfFile(addr);
/* ruh-ro, we leaked handle from CreateFileMapping() ... */
}
+#elif defined(NO_MMAP)
+#define PROT_EXEC 0x04
+#define MAP_FAILED 0
+#define PROT_READ 0
+#define PROT_WRITE 0
+#define MAP_PRIVATE 0
+#define MAP_ANONYMOUS 0
+
+void* mmap(void *desired_addr, size_t len, int mmap_prot, int mmap_flags, int fildes, size_t off)
+{
+ return malloc(len);
+}
+
+void munmap(void *base_addr, size_t len)
+{
+ free(base_addr);
+}
+
+int mprotect(void *addr, size_t len, int prot)
+{
+ /* stub - not really needed at this point since this codepath has no dynarecs */
+ return 0;
+}
+
#endif
#ifndef MAP_ANONYMOUS
req = (void *)addr;
ret = mmap(req, size, PROT_READ | PROT_WRITE, flags, -1, 0);
if (ret == MAP_FAILED) {
- lprintf("mmap(%08lx, %zd) failed: %d\n", addr, size, errno);
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "mmap(%08lx, %zd) failed: %d\n", addr, size, errno);
return NULL;
}
if (addr != 0 && ret != (void *)addr) {
- lprintf("warning: wanted to map @%08lx, got %p\n",
- addr, ret);
+ if (log_cb)
+ log_cb(RETRO_LOG_WARN, "warning: wanted to map @%08lx, got %p\n",
+ addr, ret);
if (is_fixed) {
munmap(ret, size);
{
#ifdef _WIN32
int ret = VirtualProtect(ptr,size,PAGE_EXECUTE_READWRITE,0);
- if (ret == 0)
- lprintf("mprotect(%p, %zd) failed: %d\n", ptr, size, 0);
+ if (ret == 0 && log_cb)
+ log_cb(RETRO_LOG_ERROR, "mprotect(%p, %zd) failed: %d\n", ptr, size, 0);
#else
int ret = mprotect(ptr, size, PROT_READ | PROT_WRITE | PROT_EXEC);
- if (ret != 0)
- lprintf("mprotect(%p, %zd) failed: %d\n", ptr, size, errno);
+ if (ret != 0 && log_cb)
+ log_cb(RETRO_LOG_ERROR, "mprotect(%p, %zd) failed: %d\n", ptr, size, errno);
#endif
return ret;
}
memset(vout_buf, 0, 320 * 240 * 2);
vout_width = is_32cols ? 256 : 320;
PicoDrawSetOutBuf(vout_buf, vout_width * 2);
+
+ vout_height = line_count;
+ vout_offset = vout_width * start_line;
}
void emu_32x_startup(void)
{
}
-#ifndef ANDROID
-
void lprintf(const char *fmt, ...)
{
- va_list list;
-
- va_start(list, fmt);
- fprintf(emu_log, "PicoDrive: ");
- vfprintf(emu_log, fmt, list);
- va_end(list);
- fflush(emu_log);
+ char buffer[256];
+ va_list ap;
+ va_start(ap, fmt);
+ vsprintf(buffer, fmt, ap);
+ /* TODO - add 'level' param for warning/error messages? */
+ if (log_cb)
+ log_cb(RETRO_LOG_INFO, "%s\n", fmt);
}
-#else
-
-#include <android/log.h>
-
-void lprintf(const char *fmt, ...)
-{
- va_list list;
-
- va_start(list, fmt);
- __android_log_vprint(ANDROID_LOG_INFO, "PicoDrive", fmt, list);
- va_end(list);
-}
-
-#endif
-
/* libretro */
void retro_set_environment(retro_environment_t cb)
{
//{ "region", "Region; Auto|NTSC|PAL" },
{ "picodrive_input1", "Input device 1; 3 button pad|6 button pad|None" },
{ "picodrive_input2", "Input device 2; 3 button pad|6 button pad|None" },
+ { "picodrive_sprlim", "No sprite limit; disabled|enabled" },
+ { "picodrive_ramcart", "MegaCD RAM cart; disabled|enabled" },
#ifdef DRC_SH2
{ "picodrive_drc", "Dynamic recompilers; enabled|disabled" },
#endif
info->timing.fps = Pico.m.pal ? 50 : 60;
info->timing.sample_rate = 44100;
info->geometry.base_width = 320;
- info->geometry.base_height = 240;
+ info->geometry.base_height = vout_height;
info->geometry.max_width = VOUT_MAX_WIDTH;
info->geometry.max_height = VOUT_MAX_HEIGHT;
- info->geometry.aspect_ratio = 4.0 / 3.0;
+ info->geometry.aspect_ratio = 0.0f;
}
/* savestates */
size_t bsize = size * nmemb;
if (state->pos + bsize > state->size) {
- lprintf("savestate error: %u/%u\n",
- state->pos + bsize, state->size);
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "savestate error: %u/%u\n",
+ state->pos + bsize, state->size);
bsize = state->size - state->pos;
if ((int)bsize <= 0)
return 0;
size_t bsize = size * nmemb;
if (state->pos + bsize > state->size) {
- lprintf("savestate error: %u/%u\n",
- state->pos + bsize, state->size);
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "savestate error: %u/%u\n",
+ state->pos + bsize, state->size);
bsize = state->size - state->pos;
if ((int)bsize <= 0)
return 0;
static bool disk_set_image_index(unsigned int index)
{
- cd_img_type cd_type;
+ enum cd_img_type cd_type;
int ret;
if (index >= sizeof(disks) / sizeof(disks[0]))
return false;
if (disks[index].fname == NULL) {
- lprintf("missing disk #%u\n", index);
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "missing disk #%u\n", index);
// RetroArch specifies "no disk" with index == count,
// so don't fail here..
return true;
}
- lprintf("switching to disk %u: \"%s\"\n", index,
- disks[index].fname);
+ if (log_cb)
+ log_cb(RETRO_LOG_INFO, "switching to disk %u: \"%s\"\n", index,
+ disks[index].fname);
ret = -1;
cd_type = PicoCdCheck(disks[index].fname, NULL);
if (cd_type != CIT_NOT_CD)
- ret = Insert_CD(disks[index].fname, cd_type);
+ ret = cdd_load(disks[index].fname, cd_type);
if (ret != 0) {
- lprintf("Load failed, invalid CD image?\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "Load failed, invalid CD image?\n");
return 0;
}
static void disk_tray_open(void)
{
- lprintf("cd tray open\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_INFO, "cd tray open\n");
disk_ejected = 1;
}
static void disk_tray_close(void)
{
- lprintf("cd tray close\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_INFO, "cd tray close\n");
disk_ejected = 0;
}
static const char * const biosfiles_us[] = {
- "us_scd1_9210", "us_scd2_9306", "SegaCDBIOS9303", "bios_CD_U"
+ "us_scd2_9306", "SegaCDBIOS9303", "us_scd1_9210", "bios_CD_U"
};
static const char * const biosfiles_eu[] = {
- "eu_mcd1_9210", "eu_mcd2_9306", "eu_mcd2_9303", "bios_CD_E"
+ "eu_mcd2_9306", "eu_mcd2_9303", "eu_mcd1_9210", "bios_CD_E"
};
static const char * const biosfiles_jp[] = {
- "jp_mcd1_9112", "jp_mcd1_9111", "bios_CD_J"
+ "jp_mcd2_921222", "jp_mcd1_9112", "jp_mcd1_9111", "bios_CD_J"
};
static void make_system_path(char *buf, size_t buf_size,
}
if (f != NULL) {
- lprintf("using bios: %s\n", path);
+ if (log_cb)
+ log_cb(RETRO_LOG_INFO, "using bios: %s\n", path);
fclose(f);
return path;
}
enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_RGB565;
if (!environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt)) {
- lprintf("RGB565 support required, sorry\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "RGB565 support required, sorry\n");
return false;
}
if (info == NULL || info->path == NULL) {
- lprintf("info->path required\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "info->path required\n");
return false;
}
switch (media_type) {
case PM_BAD_DETECT:
- lprintf("Failed to detect ROM/CD image type.\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "Failed to detect ROM/CD image type.\n");
return false;
case PM_BAD_CD:
- lprintf("Invalid CD image\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "Invalid CD image\n");
return false;
case PM_BAD_CD_NO_BIOS:
- lprintf("Missing BIOS\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "Missing BIOS\n");
return false;
case PM_ERROR:
- lprintf("Load error\n");
+ if (log_cb)
+ log_cb(RETRO_LOG_ERROR, "Load error\n");
return false;
default:
break;
PicoWriteSound = snd_write;
memset(sndBuffer, 0, sizeof(sndBuffer));
PsndOut = sndBuffer;
- PsndRerate(1);
+ PsndRerate(0);
return true;
}
size_t retro_get_memory_size(unsigned id)
{
+ unsigned int i;
+ int sum;
+
if (id != RETRO_MEMORY_SAVE_RAM)
return 0;
if (PicoAHW & PAHW_MCD)
// bram
return 0x2000;
- else
+
+ if (Pico.m.frame_count == 0)
return SRam.size;
+
+ // if game doesn't write to sram, don't report it to
+ // libretro so that RA doesn't write out zeroed .srm
+ for (i = 0, sum = 0; i < SRam.size; i++)
+ sum |= SRam.data[i];
+
+ return (sum != 0) ? SRam.size : 0;
}
void retro_reset(void)
if (strcmp(name, "None") == 0)
return PICO_INPUT_NOTHING;
- lprintf("invalid picodrive_input: '%s'\n", name);
+ if (log_cb)
+ log_cb(RETRO_LOG_WARN, "invalid picodrive_input: '%s'\n", name);
return PICO_INPUT_PAD_3BTN;
}
if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
PicoSetInputDevice(1, input_name_to_val(var.value));
+ var.value = NULL;
+ var.key = "picodrive_sprlim";
+ if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value) {
+ if (strcmp(var.value, "enabled") == 0)
+ PicoOpt |= POPT_DIS_SPRITE_LIM;
+ else
+ PicoOpt &= ~POPT_DIS_SPRITE_LIM;
+ }
+
+ var.value = NULL;
+ var.key = "picodrive_ramcart";
+ if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value) {
+ if (strcmp(var.value, "enabled") == 0)
+ PicoOpt |= POPT_EN_MCD_RAMCART;
+ else
+ PicoOpt &= ~POPT_EN_MCD_RAMCART;
+ }
+
#ifdef DRC_SH2
var.value = NULL;
var.key = "picodrive_drc";
PicoFrame();
- video_cb(vout_buf, vout_width, vout_height, vout_width * 2);
+ video_cb((short *)vout_buf + vout_offset,
+ vout_width, vout_height, vout_width * 2);
}
void retro_init(void)
{
+ struct retro_log_callback log;
int level;
-#ifdef IOS
- emu_log = fopen("/User/Documents/PicoDrive.log", "w");
- if (emu_log == NULL)
- emu_log = fopen("PicoDrive.log", "w");
- if (emu_log == NULL)
-#endif
- emu_log = stdout;
-
level = 0;
environ_cb(RETRO_ENVIRONMENT_SET_PERFORMANCE_LEVEL, &level);
+ if (environ_cb(RETRO_ENVIRONMENT_GET_LOG_INTERFACE, &log))
+ log_cb = log.log;
+ else
+ log_cb = NULL;
+
environ_cb(RETRO_ENVIRONMENT_SET_DISK_CONTROL_INTERFACE, &disk_control);
PicoOpt = POPT_EN_STEREO|POPT_EN_FM|POPT_EN_PSG|POPT_EN_Z80
| POPT_EN_32X|POPT_EN_PWM
| POPT_ACC_SPRITES|POPT_DIS_32C_BORDER;
#ifdef __arm__
- PicoOpt |= POPT_EN_SVP_DRC;
+ PicoOpt |= POPT_EN_DRC;
#endif
PsndRate = 44100;
PicoAutoRgnOrder = 0x184; // US, EU, JP
- PicoCDBuffers = 0;
vout_width = 320;
vout_height = 240;