mirror of
https://github.com/libretro/PUAE.git
synced 2024-11-27 01:50:51 +00:00
(Initial) Makefile, link.T file and libco - other files still need
to be copied over
This commit is contained in:
twinaphex
parent
f5591e60d1
commit
d1298471a1
186
Makefile.libretro
Normal file
186
Makefile.libretro
Normal file
@ -0,0 +1,186 @@
|
|||||||
|
EMU = src
|
||||||
|
LIBCOOBJ = src/td-retro/libco
|
||||||
|
LIBUTILS = src/utils
|
||||||
|
LIBRETRO = src/od-retro
|
||||||
|
GUI = src/gui-retro
|
||||||
|
|
||||||
|
CORE_SRCS2 := \
|
||||||
|
$(EMU)/main.o $(EMU)/newcpu.o $(EMU)/memory.o $(EMU)/rommgr.o $(EMU)/custom.o \
|
||||||
|
$(EMU)/serial.o $(EMU)/dongle.o $(EMU)/cia.o \
|
||||||
|
$(EMU)/blitter.o $(EMU)/blittable.o $(EMU)/blitfunc.o $(EMU)/autoconf.o $(EMU)/traps.o\
|
||||||
|
$(EMU)/keybuf.o $(EMU)/expansion.o $(EMU)/inputrecord.o $(EMU)/keymap/keymap.o\
|
||||||
|
$(EMU)/diskutil.o $(EMU)/zfile.o $(EMU)/zfile_archive.o $(EMU)/cfgfile.o $(EMU)/inputdevice.o \
|
||||||
|
$(EMU)/gfxutil.o $(EMU)/gfxlib.o $(EMU)/audio.o $(EMU)/sinctable.o $(EMU)/statusline.o $(EMU)/drawing.o $(EMU)/consolehook.o \
|
||||||
|
$(EMU)/native2amiga.o $(EMU)/disk.o $(EMU)/crc32.o $(EMU)/savestate.o $(EMU)/arcadia.o $(EMU)/cd32_fmv.o \
|
||||||
|
$(EMU)/uaeexe.o $(EMU)/uaelib.o $(EMU)/uaeresource.o $(EMU)/uaeserial.o $(EMU)/fdi2raw.o\
|
||||||
|
$(EMU)/hotkeys.o $(EMU)/amax.o \
|
||||||
|
$(EMU)/ar.o $(EMU)/driveclick.o $(EMU)/enforcer.o $(EMU)/misc.o $(EMU)/uaenet.o $(EMU)/a2065.o \
|
||||||
|
$(EMU)/missing.o $(EMU)/readcpu.o $(EMU)/hrtmon.rom.o $(EMU)/events.o $(EMU)/calc.o\
|
||||||
|
$(EMU)/aros.rom.o $(EMU)/specialmonitors.o $(EMU)/writelog.o $(EMU)/debug.o\
|
||||||
|
$(EMU)/identify.o $(EMU)/osdep/memory.o $(EMU)/osdep/parser.o $(EMU)/osdep/main.o
|
||||||
|
#$(EMU)/blkdev.o $(EMU)/blkdev_cdimage.o $(EMU)/picasso96.o $(EMU)/cdtv.o $(EMU)/akiko.o $(EMU)/a2091.o
|
||||||
|
# $(EMU)/scsi.o $(EMU)/ncr_scsi.o $(EMU)/gayle.o
|
||||||
|
|
||||||
|
CORE_SRCS2 += $(EMU)/archivers/dms/crc_csum.o $(EMU)/archivers/dms/getbits.o $(EMU)/archivers/dms/maketbl.o \
|
||||||
|
$(EMU)/archivers/dms/pfile.o $(EMU)/archivers/dms/tables.o \
|
||||||
|
$(EMU)/archivers/dms/u_deep.o $(EMU)/archivers/dms/u_heavy.o \
|
||||||
|
$(EMU)/archivers/dms/u_init.o $(EMU)/archivers/dms/u_medium.o $(EMU)/archivers/dms/u_quick.o \
|
||||||
|
$(EMU)/archivers/dms/u_rle.o
|
||||||
|
|
||||||
|
CORE_SRCS2 += \
|
||||||
|
$(EMU)/hardfile.o $(EMU)/hardfile_unix.o $(EMU)/scsi-none.o $(EMU)/fsusage.o \
|
||||||
|
$(EMU)/filesys.o $(EMU)/filesys_unix.o $(EMU)/fsdb.o $(EMU)/fsdb_unix.o $(EMU)/bsdsocket.o \
|
||||||
|
$(EMU)/cpuemu_0.o $(EMU)/cpuemu_11.o $(EMU)/cpuemu_12.o $(EMU)/cpuemu_20.o $(EMU)/cpuemu_21.o \
|
||||||
|
$(EMU)/cpuemu_22.o $(EMU)/cpustbl.o $(EMU)/cpudefs.o $(EMU)/cpuemu_31.o $(EMU)/cpuemu_32.o \
|
||||||
|
$(EMU)/cpuemu_33.o $(EMU)/cpummu.o $(EMU)/cpummu30.o $(EMU)/fpp.o
|
||||||
|
|
||||||
|
CORE_SRCS2 += $(EMU)/machdep/support.o $(EMU)/osdep/gui.o $(EMU)/osdep/retroglue.o $(EMU)/sounddep/sound.o \
|
||||||
|
$(EMU)/osdep/retromenu.o $(EMU)/threaddep/thread.o
|
||||||
|
|
||||||
|
DLG_SRCS = $(GUI)/dialog.o\
|
||||||
|
$(GUI)/paths.o \
|
||||||
|
$(GUI)/file.o \
|
||||||
|
$(GUI)/unzip.o \
|
||||||
|
$(GUI)/thumb.o \
|
||||||
|
$(GUI)/zip.o \
|
||||||
|
$(GUI)/str.o \
|
||||||
|
$(GUI)/dlgFloppy.o \
|
||||||
|
$(GUI)/dlgHardDisk.o \
|
||||||
|
$(GUI)/dlgFileSelect.o \
|
||||||
|
$(GUI)/dlgMemory.o \
|
||||||
|
$(GUI)/dlgJoystick.o \
|
||||||
|
$(GUI)/dlgAbout.o \
|
||||||
|
$(GUI)/dlgSound.o \
|
||||||
|
$(GUI)/dlgAlert.o \
|
||||||
|
$(GUI)/dlgMain.o \
|
||||||
|
$(GUI)/dlgMisc.o \
|
||||||
|
$(GUI)/dlgVideo.o \
|
||||||
|
$(GUI)/dlgRom.o \
|
||||||
|
$(GUI)/dlgSystem.o \
|
||||||
|
$(GUI)/sdlgui.o
|
||||||
|
|
||||||
|
LIBCO_SRCS = $(LIBCOOBJ)/libco.o
|
||||||
|
ifeq ($(platform),android)
|
||||||
|
LIBCO_SRCS += $(LIBCOOBJ)/armeabi_asm.o
|
||||||
|
else
|
||||||
|
UNAME_M := $(shell uname -m)
|
||||||
|
ifneq ($(filter arm%,$(UNAME_M)),)
|
||||||
|
LIBCO_SRCS += $(LIBCOOBJ)/armeabi_asm.o
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
BUILD_APP = $(CORE_SRCS2) $(LIBCO_SRCS)
|
||||||
|
|
||||||
|
HINCLUDES := -I./$(EMU) -I./$(EMU)/include -I$(LIBUTILS)
|
||||||
|
|
||||||
|
OBJECTS := $(BUILD_APP)
|
||||||
|
#OBJECTS := $(BUILD_APP) $(LIBRETRO)/libretro.o $(LIBRETRO)/euae-mapper.o $(LIBRETRO)/vkbd.o $(LIBRETRO)/graph.o $(LIBRETRO)/diskutils.o $(LIBRETRO)/fontmsx.o
|
||||||
|
|
||||||
|
PLATFLAGS :=
|
||||||
|
|
||||||
|
ifeq ($(platform),)
|
||||||
|
platform = unix
|
||||||
|
ifeq ($(shell uname -a),)
|
||||||
|
platform = win
|
||||||
|
else ifneq ($(findstring MINGW,$(shell uname -a)),)
|
||||||
|
platform = win
|
||||||
|
else ifneq ($(findstring Darwin,$(shell uname -a)),)
|
||||||
|
platform = osx
|
||||||
|
else ifneq ($(findstring win,$(shell uname -a)),)
|
||||||
|
platform = win
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
TARGET_NAME := puae
|
||||||
|
|
||||||
|
ifeq ($(platform), unix)
|
||||||
|
CC = gcc
|
||||||
|
TARGET := $(TARGET_NAME)_libretro.so
|
||||||
|
fpic := -fPIC
|
||||||
|
LDFLAGS := -lz -lpthread
|
||||||
|
SHARED := -shared -Wl,--version-script=$(LIBRETRO)/link.T
|
||||||
|
else ifeq ($(platform), osx)
|
||||||
|
TARGET := $(TARGET_NAME)_libretro.dylib
|
||||||
|
fpic := -fPIC -mmacosx-version-min=10.6
|
||||||
|
SHARED := -dynamiclib
|
||||||
|
PLATFLAGS += -DRETRO -DLSB_FIRST -DALIGN_DWORD -D__LIBRETRO__
|
||||||
|
else ifeq ($(platform), android)
|
||||||
|
CC = arm-linux-androideabi-gcc
|
||||||
|
AR = @arm-linux-androideabi-ar
|
||||||
|
LD = @arm-linux-androideabi-g++
|
||||||
|
TARGET := $(TARGET_NAME)_libretro_android.so
|
||||||
|
fpic := -fPIC
|
||||||
|
LDFLAGS := -lz
|
||||||
|
SHARED := -Wl,--fix-cortex-a8 -shared -Wl,--version-script=$(LIBRETRO)/link.T -Wl,--no-undefined
|
||||||
|
PLATFLAGS += -DANDROID -DRETRO -DAND -DLSB_FIRST -DALIGN_DWORD -D__LIBRETRO__ -DANDPORT -DARM_OPT_TEST=1
|
||||||
|
else ifeq ($(platform), wii)
|
||||||
|
TARGET := $(TARGET_NAME)_libretro_wii.a
|
||||||
|
CC = $(DEVKITPPC)/bin/powerpc-eabi-gcc$(EXE_EXT)
|
||||||
|
AR = $(DEVKITPPC)/bin/powerpc-eabi-ar$(EXE_EXT)
|
||||||
|
ZLIB_DIR = $(LIBUTILS)/zlib/
|
||||||
|
CFLAGS += -DSDL_BYTEORDER=SDL_BIG_ENDIAN -DMSB_FIRST -DBYTE_ORDER=BIG_ENDIAN -DBYTE_ORDER=BIG_ENDIAN \
|
||||||
|
-DWIIPORT=1 -DHAVE_MEMALIGN -DHAVE_ASPRINTF -I$(ZLIB_DIR) -I$(DEVKITPRO)/libogc/include \
|
||||||
|
-D__powerpc__ -D__POWERPC__ -DGEKKO -DHW_RVL -mrvl -mcpu=750 -meabi -mhard-float -D__ppc__
|
||||||
|
LDFLAGS := -lm -lpthread -lc
|
||||||
|
PLATFLAGS += -DRETRO -DALIGN_DWORD -DWIIPORT
|
||||||
|
else ifeq ($(platform), ps3)
|
||||||
|
TARGET := $(TARGET_NAME)_libretro_ps3.a
|
||||||
|
CC = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-gcc.exe
|
||||||
|
AR = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-ar.exe
|
||||||
|
ZLIB_DIR = $(LIBUTILS)/zlib/
|
||||||
|
LDFLAGS := -lm -lpthread -lc
|
||||||
|
CFLAGS += -DSDL_BYTEORDER=SDL_BIG_ENDIAN -DMSB_FIRST -DBYTE_ORDER=BIG_ENDIAN -DBYTE_ORDER=BIG_ENDIAN \
|
||||||
|
-D__CELLOS_LV2 -DPS3PORT=1 -DHAVE_MEMALIGN -DHAVE_ASPRINTF -I$(ZLIB_DIR)
|
||||||
|
PLATFLAGS += -DRETRO -DALIGN_DWORD
|
||||||
|
else
|
||||||
|
|
||||||
|
|
||||||
|
ifeq ($(subplatform), 32)
|
||||||
|
CC = i586-mingw32msvc-gcc
|
||||||
|
else
|
||||||
|
CC = x86_64-w64-mingw32-gcc
|
||||||
|
CFLAGS += -fno-aggressive-loop-optimizations
|
||||||
|
endif
|
||||||
|
PLATFLAGS += -DRETRO -DLSB_FIRST -DALIGN_DWORD -DWIN32PORT -DWIN32
|
||||||
|
TARGET := $(TARGET_NAME)_libretro.dll
|
||||||
|
fpic := -fPIC
|
||||||
|
SHARED := -shared -static-libgcc -s -Wl,--version-script=$(LIBRETRO)/link.T -Wl,--no-undefined
|
||||||
|
LDFLAGS := -lm -lz
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifeq ($(DEBUG), 1)
|
||||||
|
CFLAGS += -O0 -g
|
||||||
|
else
|
||||||
|
CFLAGS += -Ofast
|
||||||
|
endif
|
||||||
|
|
||||||
|
DEFINES += -DCPUEMU_0 -DCPUEMU_11 -DCPUEMU_12 -DCPUEMU_20 -DCPUEMU_21 -DCPUEMU_22 -DFPUEMU -DUNALIGNED_PROFITABLE -DAMAX -DAGA -DAUTOCONFIG -DFILESYS -DSUPPORT_THREADS -DFDI2RAW -DDEBUGGER -DSAVESTATE -DENFORCER -DACTION_REPLAY -DXARCADE -DCPUEMU_31 -DCPUEMU_32 -DCPUEMU_33 -DMMUEMU -DFULLMMU -DDRIVESOUND
|
||||||
|
#-DSCSIEMU -DSCSIEMU_LINUX_IOCTL -DUSE_SDL -DDRIVESOUND -DBSDSOCKET -DCDTV -DCD32 -DA2091 -DNCR -DGAYLE
|
||||||
|
CFLAGS += $(DEFINES) -DRETRO=1 -std=gnu99
|
||||||
|
|
||||||
|
all: $(TARGET)
|
||||||
|
|
||||||
|
ifeq ($(platform), wii)
|
||||||
|
$(TARGET): $(OBJECTS)
|
||||||
|
$(AR) rcs $@ $(OBJECTS)
|
||||||
|
else ifeq ($(platform), ps3)
|
||||||
|
$(TARGET): $(OBJECTS)
|
||||||
|
$(AR) rcs $@ $(OBJECTS)
|
||||||
|
|
||||||
|
else ifeq ($(platform), win)
|
||||||
|
$(TARGET): $(OBJECTS)
|
||||||
|
$(CC) $(fpic) $(SHARED) $(INCLUDES) -o $@ $(OBJECTS) $(LDFLAGS)
|
||||||
|
else
|
||||||
|
$(TARGET): $(OBJECTS)
|
||||||
|
$(CC) $(fpic) $(SHARED) $(INCLUDES) -o $@ $(OBJECTS)
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
%.o: %.c
|
||||||
|
$(CC) $(fpic) $(CFLAGS) $(PLATFLAGS) $(HINCLUDES) -c -o $@ $<
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f $(OBJECTS) $(TARGET)
|
||||||
|
|
||||||
|
.PHONY: clean
|
||||||
|
|
||||||
5
src/od-retro/link.T
Normal file
5
src/od-retro/link.T
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
{
|
||||||
|
global: retro_*;
|
||||||
|
local: *;
|
||||||
|
};
|
||||||
|
|
||||||
142
src/td-retro/libco/amd64.c
Normal file
142
src/td-retro/libco/amd64.c
Normal file
@ -0,0 +1,142 @@
|
|||||||
|
/*
|
||||||
|
libco.amd64 (2009-10-12)
|
||||||
|
author: byuu
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
// ASM co_swap.
|
||||||
|
void co_swap(cothread_t new_active, cothread_t old_active);
|
||||||
|
|
||||||
|
static thread_local long long co_active_buffer[64];
|
||||||
|
static thread_local cothread_t co_active_handle = 0;
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
asm (
|
||||||
|
".text\n"
|
||||||
|
".globl co_swap\n"
|
||||||
|
"co_swap:\n"
|
||||||
|
|
||||||
|
"movq %rsp, (%rdx) # Save stack pointer and pop old back\n"
|
||||||
|
"movq (%rcx), %rsp\n"
|
||||||
|
|
||||||
|
"popq %rax # Pop saved PC to %rax\n"
|
||||||
|
|
||||||
|
"movq %rbp, 0x8(%rdx) # Save non-volatile registers\n"
|
||||||
|
"movq %rsi, 0x10(%rdx)\n"
|
||||||
|
"movq %rdi, 0x18(%rdx)\n"
|
||||||
|
"movq %rbx, 0x20(%rdx)\n"
|
||||||
|
"movq %r12, 0x28(%rdx)\n"
|
||||||
|
"movq %r13, 0x30(%rdx)\n"
|
||||||
|
"movq %r14, 0x38(%rdx)\n"
|
||||||
|
"movq %r15, 0x40(%rdx)\n"
|
||||||
|
|
||||||
|
"addq $0x80, %rdx\n"
|
||||||
|
"andq $0xfffffffffffffff0, %rdx # Align buffer to 16 bytes (SSE).\n"
|
||||||
|
"movaps %xmm6, (%rdx) # Also save non-volatile vector registers.\n"
|
||||||
|
"movaps %xmm7, 0x10(%rdx)\n"
|
||||||
|
"movaps %xmm8, 0x20(%rdx)\n"
|
||||||
|
"movaps %xmm9, 0x30(%rdx)\n"
|
||||||
|
"movaps %xmm10, 0x40(%rdx)\n"
|
||||||
|
"movaps %xmm11, 0x50(%rdx)\n"
|
||||||
|
"movaps %xmm12, 0x60(%rdx)\n"
|
||||||
|
"movaps %xmm13, 0x70(%rdx)\n"
|
||||||
|
"movaps %xmm14, 0x80(%rdx)\n"
|
||||||
|
"movaps %xmm15, 0x90(%rdx)\n"
|
||||||
|
|
||||||
|
"movq 0x8(%rcx), %rbp # Pop back our saved registers and vector registers.\n"
|
||||||
|
"movq 0x10(%rcx), %rsi\n"
|
||||||
|
"movq 0x18(%rcx), %rdi\n"
|
||||||
|
"movq 0x20(%rcx), %rbx\n"
|
||||||
|
"movq 0x28(%rcx), %r12\n"
|
||||||
|
"movq 0x30(%rcx), %r13\n"
|
||||||
|
"movq 0x38(%rcx), %r14\n"
|
||||||
|
"movq 0x40(%rcx), %r15\n"
|
||||||
|
|
||||||
|
"addq $0x80, %rcx\n"
|
||||||
|
"andq $0xfffffffffffffff0, %rcx\n"
|
||||||
|
"movaps %xmm6, (%rcx)\n"
|
||||||
|
"movaps %xmm7, 0x10(%rcx)\n"
|
||||||
|
"movaps %xmm8, 0x20(%rcx)\n"
|
||||||
|
"movaps %xmm9, 0x30(%rcx)\n"
|
||||||
|
"movaps %xmm10, 0x40(%rcx)\n"
|
||||||
|
"movaps %xmm11, 0x50(%rcx)\n"
|
||||||
|
"movaps %xmm12, 0x60(%rcx)\n"
|
||||||
|
"movaps %xmm13, 0x70(%rcx)\n"
|
||||||
|
"movaps %xmm14, 0x80(%rcx)\n"
|
||||||
|
"movaps %xmm15, 0x90(%rcx)\n"
|
||||||
|
"jmpq *%rax # Jump back to old saved PC.\n"
|
||||||
|
);
|
||||||
|
#else
|
||||||
|
asm (
|
||||||
|
".text\n"
|
||||||
|
".globl co_swap\n"
|
||||||
|
".globl _co_swap\n"
|
||||||
|
"_co_swap:\n"
|
||||||
|
"co_swap:\n"
|
||||||
|
"movq %rsp, (%rsi) # Save stack pointer, and pop the old one back.\n"
|
||||||
|
"movq (%rdi), %rsp\n"
|
||||||
|
"popq %rax\n"
|
||||||
|
|
||||||
|
"movq %rbp, 0x8(%rsi) # Save our non-volatile registers to buffer.\n"
|
||||||
|
"movq %rbx, 0x10(%rsi)\n"
|
||||||
|
"movq %r12, 0x18(%rsi)\n"
|
||||||
|
"movq %r13, 0x20(%rsi)\n"
|
||||||
|
"movq %r14, 0x28(%rsi)\n"
|
||||||
|
"movq %r15, 0x30(%rsi)\n"
|
||||||
|
|
||||||
|
"movq 0x8(%rdi), %rbp # Pop back our saved registers.\n"
|
||||||
|
"movq 0x10(%rdi), %rbx\n"
|
||||||
|
"movq 0x18(%rdi), %r12\n"
|
||||||
|
"movq 0x20(%rdi), %r13\n"
|
||||||
|
"movq 0x28(%rdi), %r14\n"
|
||||||
|
"movq 0x30(%rdi), %r15\n"
|
||||||
|
"jmpq *%rax # Jump back to saved PC.\n"
|
||||||
|
);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static void crash() {
|
||||||
|
assert(0); /* called only if cothread_t entrypoint returns */
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*entrypoint)(void)) {
|
||||||
|
cothread_t handle;
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
size += 512; /* allocate additional space for storage */
|
||||||
|
size &= ~15; /* align stack to 16-byte boundary */
|
||||||
|
|
||||||
|
if((handle = (cothread_t)malloc(size))) {
|
||||||
|
long long *p = (long long*)((char*)handle + size); /* seek to top of stack */
|
||||||
|
*--p = (long long)crash; /* crash if entrypoint returns */
|
||||||
|
*--p = (long long)entrypoint; /* start of function */
|
||||||
|
*(long long*)handle = (long long)p; /* stack pointer */
|
||||||
|
}
|
||||||
|
|
||||||
|
return handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t handle) {
|
||||||
|
free(handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t handle) {
|
||||||
|
register cothread_t co_previous_handle = co_active_handle;
|
||||||
|
co_swap(co_active_handle = handle, co_previous_handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
84
src/td-retro/libco/amd64_msvc.c
Normal file
84
src/td-retro/libco/amd64_msvc.c
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
/*
|
||||||
|
libco.amd64 (2009-10-12)
|
||||||
|
author: byuu
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local long long co_active_buffer[64];
|
||||||
|
static thread_local cothread_t co_active_handle = 0;
|
||||||
|
static void (*co_swap)(cothread_t, cothread_t) = 0;
|
||||||
|
|
||||||
|
//ABI: Win64
|
||||||
|
static unsigned char co_swap_function[] = {
|
||||||
|
0x48, 0x89, 0x22, 0x48, 0x8B, 0x21, 0x58, 0x48, 0x89, 0x6A, 0x08, 0x48, 0x89, 0x72, 0x10, 0x48,
|
||||||
|
0x89, 0x7A, 0x18, 0x48, 0x89, 0x5A, 0x20, 0x4C, 0x89, 0x62, 0x28, 0x4C, 0x89, 0x6A, 0x30, 0x4C,
|
||||||
|
0x89, 0x72, 0x38, 0x4C, 0x89, 0x7A, 0x40, 0x48, 0x81, 0xC2, 0x80, 0x00, 0x00, 0x00, 0x48, 0x83,
|
||||||
|
0xE2, 0xF0, 0x0F, 0x29, 0x32, 0x0F, 0x29, 0x7A, 0x10, 0x44, 0x0F, 0x29, 0x42, 0x20, 0x44, 0x0F,
|
||||||
|
0x29, 0x4A, 0x30, 0x44, 0x0F, 0x29, 0x52, 0x40, 0x44, 0x0F, 0x29, 0x5A, 0x50, 0x44, 0x0F, 0x29,
|
||||||
|
0x62, 0x60, 0x44, 0x0F, 0x29, 0x6A, 0x70, 0x44, 0x0F, 0x29, 0xB2, 0x80, 0x00, 0x00, 0x00, 0x44,
|
||||||
|
0x0F, 0x29, 0xBA, 0x90, 0x00, 0x00, 0x00, 0x48, 0x8B, 0x69, 0x08, 0x48, 0x8B, 0x71, 0x10, 0x48,
|
||||||
|
0x8B, 0x79, 0x18, 0x48, 0x8B, 0x59, 0x20, 0x4C, 0x8B, 0x61, 0x28, 0x4C, 0x8B, 0x69, 0x30, 0x4C,
|
||||||
|
0x8B, 0x71, 0x38, 0x4C, 0x8B, 0x79, 0x40, 0x48, 0x81, 0xC1, 0x80, 0x00, 0x00, 0x00, 0x48, 0x83,
|
||||||
|
0xE1, 0xF0, 0x0F, 0x29, 0x31, 0x0F, 0x29, 0x79, 0x10, 0x44, 0x0F, 0x29, 0x41, 0x20, 0x44, 0x0F,
|
||||||
|
0x29, 0x49, 0x30, 0x44, 0x0F, 0x29, 0x51, 0x40, 0x44, 0x0F, 0x29, 0x59, 0x50, 0x44, 0x0F, 0x29,
|
||||||
|
0x61, 0x60, 0x44, 0x0F, 0x29, 0x69, 0x70, 0x44, 0x0F, 0x29, 0xB1, 0x80, 0x00, 0x00, 0x00, 0x44,
|
||||||
|
0x0F, 0x29, 0xB9, 0x90, 0x00, 0x00, 0x00, 0xFF, 0xE0,
|
||||||
|
};
|
||||||
|
|
||||||
|
#include <windows.h>
|
||||||
|
|
||||||
|
void co_init() {
|
||||||
|
DWORD old_privileges;
|
||||||
|
VirtualProtect(co_swap_function, sizeof co_swap_function, PAGE_EXECUTE_READWRITE, &old_privileges);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void crash() {
|
||||||
|
assert(0); /* called only if cothread_t entrypoint returns */
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*entrypoint)(void)) {
|
||||||
|
cothread_t handle;
|
||||||
|
if(!co_swap) {
|
||||||
|
co_init();
|
||||||
|
co_swap = (void (*)(cothread_t, cothread_t))co_swap_function;
|
||||||
|
}
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
size += 512; /* allocate additional space for storage */
|
||||||
|
size &= ~15; /* align stack to 16-byte boundary */
|
||||||
|
|
||||||
|
if(handle = (cothread_t)malloc(size)) {
|
||||||
|
long long *p = (long long*)((char*)handle + size); /* seek to top of stack */
|
||||||
|
*--p = (long long)crash; /* crash if entrypoint returns */
|
||||||
|
*--p = (long long)entrypoint; /* start of function */
|
||||||
|
*(long long*)handle = (long long)p; /* stack pointer */
|
||||||
|
}
|
||||||
|
|
||||||
|
return handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t handle) {
|
||||||
|
free(handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t handle) {
|
||||||
|
register cothread_t co_previous_handle = co_active_handle;
|
||||||
|
co_swap(co_active_handle = handle, co_previous_handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
75
src/td-retro/libco/armeabi.c
Normal file
75
src/td-retro/libco/armeabi.c
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
/*
|
||||||
|
libco.armeabi (2013-04-05)
|
||||||
|
author: Themaister
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local uint32_t co_active_buffer[64];
|
||||||
|
static thread_local cothread_t co_active_handle;
|
||||||
|
|
||||||
|
// ASM
|
||||||
|
void co_switch_arm(cothread_t handle, cothread_t current);
|
||||||
|
|
||||||
|
static void crash(void) {
|
||||||
|
assert(0); // Called only if cothread_t entrypoint returns.
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*entrypoint)(void)) {
|
||||||
|
size = (size + 1023) & ~1023;
|
||||||
|
cothread_t handle;
|
||||||
|
#if HAVE_POSIX_MEMALIGN
|
||||||
|
if (posix_memalign((void**)&handle, 1024, size + 256) < 0)
|
||||||
|
return 0;
|
||||||
|
#else
|
||||||
|
handle = memalign(1024, size + 256);
|
||||||
|
if (!handle)
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
uint32_t *ptr = (uint32_t*)handle;
|
||||||
|
// Non-volatiles
|
||||||
|
ptr[0] = 0; // r4
|
||||||
|
ptr[1] = 0; // r5
|
||||||
|
ptr[2] = 0; // r6
|
||||||
|
ptr[3] = 0; // r7
|
||||||
|
ptr[4] = 0; // r8
|
||||||
|
ptr[5] = 0; // r9
|
||||||
|
ptr[6] = 0; // r10
|
||||||
|
ptr[7] = 0; // r11
|
||||||
|
ptr[8] = 0; // r12
|
||||||
|
ptr[9] = (uintptr_t)ptr + size + 256 - 4; // r13, stack pointer
|
||||||
|
ptr[10] = (uintptr_t)entrypoint; // r15, PC (link register r14 gets saved here).
|
||||||
|
memcpy(handle, &ptr, sizeof(ptr));
|
||||||
|
return handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active(void) {
|
||||||
|
if (!co_active_handle)
|
||||||
|
co_active_handle = co_active_buffer;
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t handle) {
|
||||||
|
free(handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t handle) {
|
||||||
|
cothread_t co_previous_handle = co_active();
|
||||||
|
co_switch_arm(co_active_handle = handle, co_previous_handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
12
src/td-retro/libco/armeabi_asm.S
Normal file
12
src/td-retro/libco/armeabi_asm.S
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
.arm
|
||||||
|
.align 4
|
||||||
|
.globl co_switch_arm
|
||||||
|
.globl _co_switch_arm
|
||||||
|
# r0: cothread to switch to, r1: current cothread
|
||||||
|
co_switch_arm:
|
||||||
|
_co_switch_arm:
|
||||||
|
# Save state
|
||||||
|
stmia r1!, {r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14}
|
||||||
|
# Load state
|
||||||
|
ldmia r0!, {r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r15}
|
||||||
|
|
||||||
51
src/td-retro/libco/fiber.c
Normal file
51
src/td-retro/libco/fiber.c
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
/*
|
||||||
|
libco.win (2008-01-28)
|
||||||
|
authors: Nach, byuu
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#define WINVER 0x0400
|
||||||
|
#define _WIN32_WINNT 0x0400
|
||||||
|
#define WIN32_LEAN_AND_MEAN
|
||||||
|
#include <windows.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local cothread_t co_active_ = 0;
|
||||||
|
|
||||||
|
static void __stdcall co_thunk(void *coentry) {
|
||||||
|
((void (*)(void))coentry)();
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_active_) {
|
||||||
|
ConvertThreadToFiber(0);
|
||||||
|
co_active_ = GetCurrentFiber();
|
||||||
|
}
|
||||||
|
return co_active_;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int heapsize, void (*coentry)(void)) {
|
||||||
|
if(!co_active_) {
|
||||||
|
ConvertThreadToFiber(0);
|
||||||
|
co_active_ = GetCurrentFiber();
|
||||||
|
}
|
||||||
|
return (cothread_t)CreateFiber(heapsize, co_thunk, (void*)coentry);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t cothread) {
|
||||||
|
DeleteFiber(cothread);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t cothread) {
|
||||||
|
co_active_ = cothread;
|
||||||
|
SwitchToFiber(cothread);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
29
src/td-retro/libco/libco.c
Normal file
29
src/td-retro/libco/libco.c
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
/*
|
||||||
|
libco
|
||||||
|
auto-selection module
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#if defined(__GNUC__) && defined(__i386__)
|
||||||
|
#include "x86.c"
|
||||||
|
#elif defined(__GNUC__) && defined(__amd64__)
|
||||||
|
#include "amd64.c"
|
||||||
|
#elif defined(_MSC_VER) && defined(_WIN64)
|
||||||
|
#include "amd64_msvc.c"
|
||||||
|
#elif defined(_MSC_VER) && defined(_WIN32)
|
||||||
|
#include "x86_msvc.c"
|
||||||
|
#elif (defined(__GNUC__) && defined(__ARM_EABI__)) || (defined(__APPLE__) && __ARM_ARCH)
|
||||||
|
#include "armeabi.c"
|
||||||
|
#elif defined(__GNUC__) && (defined(__powerpc__) || defined(__POWERPC__) || defined(__ppc__)) // Seems to run fine on PPC G5 OSX even when no __ELF__ is defined.
|
||||||
|
#include "ppc.c"
|
||||||
|
#elif defined(__GNUC__)
|
||||||
|
#include "sjlj.c"
|
||||||
|
#elif defined(_MSC_VER) && defined(_M_IX86)
|
||||||
|
#include "x86.c"
|
||||||
|
#elif defined(_MSC_VER) && defined(_M_AMD64)
|
||||||
|
#include "amd64.c"
|
||||||
|
#elif defined(_MSC_VER)
|
||||||
|
#include "fiber.c"
|
||||||
|
#else
|
||||||
|
#error "libco: unsupported processor, compiler or operating system"
|
||||||
|
#endif
|
||||||
34
src/td-retro/libco/libco.h
Normal file
34
src/td-retro/libco/libco.h
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
/*
|
||||||
|
libco
|
||||||
|
version: 0.16 (2010-12-24)
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef LIBCO_H
|
||||||
|
#define LIBCO_H
|
||||||
|
|
||||||
|
#ifdef LIBCO_C
|
||||||
|
#ifdef LIBCO_MP
|
||||||
|
#define thread_local __thread
|
||||||
|
#else
|
||||||
|
#define thread_local
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
typedef void* cothread_t;
|
||||||
|
|
||||||
|
cothread_t co_active();
|
||||||
|
cothread_t co_create(unsigned int, void (*)(void));
|
||||||
|
void co_delete(cothread_t);
|
||||||
|
void co_switch(cothread_t);
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* ifndef LIBCO_H */
|
||||||
|
#endif
|
||||||
407
src/td-retro/libco/ppc.c
Normal file
407
src/td-retro/libco/ppc.c
Normal file
@ -0,0 +1,407 @@
|
|||||||
|
/*
|
||||||
|
libco.ppc (2010-10-17)
|
||||||
|
author: blargg
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* PowerPC 32/64 using embedded or external asm, with optional
|
||||||
|
floating-point and AltiVec save/restore */
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <stdint.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
#define LIBCO_MPROTECT (__unix__ && !LIBCO_PPC_ASM)
|
||||||
|
|
||||||
|
#if LIBCO_MPROTECT
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <sys/mman.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* State format (offsets in 32-bit words)
|
||||||
|
|
||||||
|
+0 Pointer to swap code
|
||||||
|
Rest of function descriptor for entry function
|
||||||
|
+8 PC
|
||||||
|
+10 SP
|
||||||
|
Special regs
|
||||||
|
GPRs
|
||||||
|
FPRs
|
||||||
|
VRs
|
||||||
|
stack
|
||||||
|
*/
|
||||||
|
|
||||||
|
enum { state_size = 1024 };
|
||||||
|
enum { above_stack = 2048 };
|
||||||
|
enum { stack_align = 256 };
|
||||||
|
|
||||||
|
static thread_local cothread_t co_active_handle = 0;
|
||||||
|
|
||||||
|
/**** Determine environment ****/
|
||||||
|
|
||||||
|
#define LIBCO_PPC64 (_ARCH_PPC64 || __PPC64__ || __ppc64__ || __powerpc64__)
|
||||||
|
|
||||||
|
/* Whether function calls are indirect through a descriptor,
|
||||||
|
or are directly to function */
|
||||||
|
#ifndef LIBCO_PPCDESC
|
||||||
|
#if !_CALL_SYSV && (_CALL_AIX || _CALL_AIXDESC || LIBCO_PPC64)
|
||||||
|
#define LIBCO_PPCDESC 1
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef LIBCO_PPC_ASM
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Swap code is in ppc.S */
|
||||||
|
void co_swap_asm( cothread_t, cothread_t );
|
||||||
|
#define CO_SWAP_ASM( x, y ) co_swap_asm( x, y )
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
|
/* Swap code is here in array. Please leave dieassembly comments,
|
||||||
|
as they make it easy to see what it does, and reorder instructions
|
||||||
|
if one wants to see whether that improves performance. */
|
||||||
|
static const uint32_t libco_ppc_code [] = {
|
||||||
|
#if LIBCO_PPC64
|
||||||
|
0x7d000026, /* mfcr r8 */
|
||||||
|
0xf8240028, /* std r1,40(r4) */
|
||||||
|
0x7d2802a6, /* mflr r9 */
|
||||||
|
0xf9c40048, /* std r14,72(r4) */
|
||||||
|
0xf9e40050, /* std r15,80(r4) */
|
||||||
|
0xfa040058, /* std r16,88(r4) */
|
||||||
|
0xfa240060, /* std r17,96(r4) */
|
||||||
|
0xfa440068, /* std r18,104(r4) */
|
||||||
|
0xfa640070, /* std r19,112(r4) */
|
||||||
|
0xfa840078, /* std r20,120(r4) */
|
||||||
|
0xfaa40080, /* std r21,128(r4) */
|
||||||
|
0xfac40088, /* std r22,136(r4) */
|
||||||
|
0xfae40090, /* std r23,144(r4) */
|
||||||
|
0xfb040098, /* std r24,152(r4) */
|
||||||
|
0xfb2400a0, /* std r25,160(r4) */
|
||||||
|
0xfb4400a8, /* std r26,168(r4) */
|
||||||
|
0xfb6400b0, /* std r27,176(r4) */
|
||||||
|
0xfb8400b8, /* std r28,184(r4) */
|
||||||
|
0xfba400c0, /* std r29,192(r4) */
|
||||||
|
0xfbc400c8, /* std r30,200(r4) */
|
||||||
|
0xfbe400d0, /* std r31,208(r4) */
|
||||||
|
0xf9240020, /* std r9,32(r4) */
|
||||||
|
0xe8e30020, /* ld r7,32(r3) */
|
||||||
|
0xe8230028, /* ld r1,40(r3) */
|
||||||
|
0x48000009, /* bl 1 */
|
||||||
|
0x7fe00008, /* trap */
|
||||||
|
0x91040030,/*1:stw r8,48(r4) */
|
||||||
|
0x80c30030, /* lwz r6,48(r3) */
|
||||||
|
0x7ce903a6, /* mtctr r7 */
|
||||||
|
0xe9c30048, /* ld r14,72(r3) */
|
||||||
|
0xe9e30050, /* ld r15,80(r3) */
|
||||||
|
0xea030058, /* ld r16,88(r3) */
|
||||||
|
0xea230060, /* ld r17,96(r3) */
|
||||||
|
0xea430068, /* ld r18,104(r3) */
|
||||||
|
0xea630070, /* ld r19,112(r3) */
|
||||||
|
0xea830078, /* ld r20,120(r3) */
|
||||||
|
0xeaa30080, /* ld r21,128(r3) */
|
||||||
|
0xeac30088, /* ld r22,136(r3) */
|
||||||
|
0xeae30090, /* ld r23,144(r3) */
|
||||||
|
0xeb030098, /* ld r24,152(r3) */
|
||||||
|
0xeb2300a0, /* ld r25,160(r3) */
|
||||||
|
0xeb4300a8, /* ld r26,168(r3) */
|
||||||
|
0xeb6300b0, /* ld r27,176(r3) */
|
||||||
|
0xeb8300b8, /* ld r28,184(r3) */
|
||||||
|
0xeba300c0, /* ld r29,192(r3) */
|
||||||
|
0xebc300c8, /* ld r30,200(r3) */
|
||||||
|
0xebe300d0, /* ld r31,208(r3) */
|
||||||
|
0x7ccff120, /* mtcr r6 */
|
||||||
|
#else
|
||||||
|
0x7d000026, /* mfcr r8 */
|
||||||
|
0x90240028, /* stw r1,40(r4) */
|
||||||
|
0x7d2802a6, /* mflr r9 */
|
||||||
|
0x91a4003c, /* stw r13,60(r4) */
|
||||||
|
0x91c40040, /* stw r14,64(r4) */
|
||||||
|
0x91e40044, /* stw r15,68(r4) */
|
||||||
|
0x92040048, /* stw r16,72(r4) */
|
||||||
|
0x9224004c, /* stw r17,76(r4) */
|
||||||
|
0x92440050, /* stw r18,80(r4) */
|
||||||
|
0x92640054, /* stw r19,84(r4) */
|
||||||
|
0x92840058, /* stw r20,88(r4) */
|
||||||
|
0x92a4005c, /* stw r21,92(r4) */
|
||||||
|
0x92c40060, /* stw r22,96(r4) */
|
||||||
|
0x92e40064, /* stw r23,100(r4) */
|
||||||
|
0x93040068, /* stw r24,104(r4) */
|
||||||
|
0x9324006c, /* stw r25,108(r4) */
|
||||||
|
0x93440070, /* stw r26,112(r4) */
|
||||||
|
0x93640074, /* stw r27,116(r4) */
|
||||||
|
0x93840078, /* stw r28,120(r4) */
|
||||||
|
0x93a4007c, /* stw r29,124(r4) */
|
||||||
|
0x93c40080, /* stw r30,128(r4) */
|
||||||
|
0x93e40084, /* stw r31,132(r4) */
|
||||||
|
0x91240020, /* stw r9,32(r4) */
|
||||||
|
0x80e30020, /* lwz r7,32(r3) */
|
||||||
|
0x80230028, /* lwz r1,40(r3) */
|
||||||
|
0x48000009, /* bl 1 */
|
||||||
|
0x7fe00008, /* trap */
|
||||||
|
0x91040030,/*1:stw r8,48(r4) */
|
||||||
|
0x80c30030, /* lwz r6,48(r3) */
|
||||||
|
0x7ce903a6, /* mtctr r7 */
|
||||||
|
0x81a3003c, /* lwz r13,60(r3) */
|
||||||
|
0x81c30040, /* lwz r14,64(r3) */
|
||||||
|
0x81e30044, /* lwz r15,68(r3) */
|
||||||
|
0x82030048, /* lwz r16,72(r3) */
|
||||||
|
0x8223004c, /* lwz r17,76(r3) */
|
||||||
|
0x82430050, /* lwz r18,80(r3) */
|
||||||
|
0x82630054, /* lwz r19,84(r3) */
|
||||||
|
0x82830058, /* lwz r20,88(r3) */
|
||||||
|
0x82a3005c, /* lwz r21,92(r3) */
|
||||||
|
0x82c30060, /* lwz r22,96(r3) */
|
||||||
|
0x82e30064, /* lwz r23,100(r3) */
|
||||||
|
0x83030068, /* lwz r24,104(r3) */
|
||||||
|
0x8323006c, /* lwz r25,108(r3) */
|
||||||
|
0x83430070, /* lwz r26,112(r3) */
|
||||||
|
0x83630074, /* lwz r27,116(r3) */
|
||||||
|
0x83830078, /* lwz r28,120(r3) */
|
||||||
|
0x83a3007c, /* lwz r29,124(r3) */
|
||||||
|
0x83c30080, /* lwz r30,128(r3) */
|
||||||
|
0x83e30084, /* lwz r31,132(r3) */
|
||||||
|
0x7ccff120, /* mtcr r6 */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef LIBCO_PPC_NOFP
|
||||||
|
0xd9c400e0, /* stfd f14,224(r4) */
|
||||||
|
0xd9e400e8, /* stfd f15,232(r4) */
|
||||||
|
0xda0400f0, /* stfd f16,240(r4) */
|
||||||
|
0xda2400f8, /* stfd f17,248(r4) */
|
||||||
|
0xda440100, /* stfd f18,256(r4) */
|
||||||
|
0xda640108, /* stfd f19,264(r4) */
|
||||||
|
0xda840110, /* stfd f20,272(r4) */
|
||||||
|
0xdaa40118, /* stfd f21,280(r4) */
|
||||||
|
0xdac40120, /* stfd f22,288(r4) */
|
||||||
|
0xdae40128, /* stfd f23,296(r4) */
|
||||||
|
0xdb040130, /* stfd f24,304(r4) */
|
||||||
|
0xdb240138, /* stfd f25,312(r4) */
|
||||||
|
0xdb440140, /* stfd f26,320(r4) */
|
||||||
|
0xdb640148, /* stfd f27,328(r4) */
|
||||||
|
0xdb840150, /* stfd f28,336(r4) */
|
||||||
|
0xdba40158, /* stfd f29,344(r4) */
|
||||||
|
0xdbc40160, /* stfd f30,352(r4) */
|
||||||
|
0xdbe40168, /* stfd f31,360(r4) */
|
||||||
|
0xc9c300e0, /* lfd f14,224(r3) */
|
||||||
|
0xc9e300e8, /* lfd f15,232(r3) */
|
||||||
|
0xca0300f0, /* lfd f16,240(r3) */
|
||||||
|
0xca2300f8, /* lfd f17,248(r3) */
|
||||||
|
0xca430100, /* lfd f18,256(r3) */
|
||||||
|
0xca630108, /* lfd f19,264(r3) */
|
||||||
|
0xca830110, /* lfd f20,272(r3) */
|
||||||
|
0xcaa30118, /* lfd f21,280(r3) */
|
||||||
|
0xcac30120, /* lfd f22,288(r3) */
|
||||||
|
0xcae30128, /* lfd f23,296(r3) */
|
||||||
|
0xcb030130, /* lfd f24,304(r3) */
|
||||||
|
0xcb230138, /* lfd f25,312(r3) */
|
||||||
|
0xcb430140, /* lfd f26,320(r3) */
|
||||||
|
0xcb630148, /* lfd f27,328(r3) */
|
||||||
|
0xcb830150, /* lfd f28,336(r3) */
|
||||||
|
0xcba30158, /* lfd f29,344(r3) */
|
||||||
|
0xcbc30160, /* lfd f30,352(r3) */
|
||||||
|
0xcbe30168, /* lfd f31,360(r3) */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef __ALTIVEC__
|
||||||
|
0x7ca042a6, /* mfvrsave r5 */
|
||||||
|
0x39040180, /* addi r8,r4,384 */
|
||||||
|
0x39240190, /* addi r9,r4,400 */
|
||||||
|
0x70a00fff, /* andi. r0,r5,4095 */
|
||||||
|
0x90a40034, /* stw r5,52(r4) */
|
||||||
|
0x4182005c, /* beq- 2 */
|
||||||
|
0x7e8041ce, /* stvx v20,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7ea049ce, /* stvx v21,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7ec041ce, /* stvx v22,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7ee049ce, /* stvx v23,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f0041ce, /* stvx v24,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7f2049ce, /* stvx v25,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f4041ce, /* stvx v26,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7f6049ce, /* stvx v27,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f8041ce, /* stvx v28,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7fa049ce, /* stvx v29,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7fc041ce, /* stvx v30,r0,r8 */
|
||||||
|
0x7fe049ce, /* stvx v31,r0,r9 */
|
||||||
|
0x80a30034,/*2:lwz r5,52(r3) */
|
||||||
|
0x39030180, /* addi r8,r3,384 */
|
||||||
|
0x39230190, /* addi r9,r3,400 */
|
||||||
|
0x70a00fff, /* andi. r0,r5,4095 */
|
||||||
|
0x7ca043a6, /* mtvrsave r5 */
|
||||||
|
0x4d820420, /* beqctr */
|
||||||
|
0x7e8040ce, /* lvx v20,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7ea048ce, /* lvx v21,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7ec040ce, /* lvx v22,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7ee048ce, /* lvx v23,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f0040ce, /* lvx v24,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7f2048ce, /* lvx v25,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f4040ce, /* lvx v26,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7f6048ce, /* lvx v27,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7f8040ce, /* lvx v28,r0,r8 */
|
||||||
|
0x39080020, /* addi r8,r8,32 */
|
||||||
|
0x7fa048ce, /* lvx v29,r0,r9 */
|
||||||
|
0x39290020, /* addi r9,r9,32 */
|
||||||
|
0x7fc040ce, /* lvx v30,r0,r8 */
|
||||||
|
0x7fe048ce, /* lvx v31,r0,r9 */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
0x4e800420, /* bctr */
|
||||||
|
};
|
||||||
|
|
||||||
|
#if LIBCO_PPCDESC
|
||||||
|
/* Function call goes through indirect descriptor */
|
||||||
|
#define CO_SWAP_ASM( x, y ) \
|
||||||
|
((void (*)( cothread_t, cothread_t )) (uintptr_t) x)( x, y )
|
||||||
|
#else
|
||||||
|
/* Function call goes directly to code */
|
||||||
|
#define CO_SWAP_ASM( x, y ) \
|
||||||
|
((void (*)( cothread_t, cothread_t )) (uintptr_t) libco_ppc_code)( x, y )
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static uint32_t* co_create_( unsigned size, uintptr_t entry )
|
||||||
|
{
|
||||||
|
uint32_t* t = (uint32_t*) malloc( size );
|
||||||
|
|
||||||
|
(void) entry;
|
||||||
|
|
||||||
|
#if LIBCO_PPCDESC
|
||||||
|
if ( t )
|
||||||
|
{
|
||||||
|
/* Copy entry's descriptor */
|
||||||
|
memcpy( t, (void*) entry, sizeof (void*) * 3 );
|
||||||
|
|
||||||
|
/* Set function pointer to swap routine */
|
||||||
|
#ifdef LIBCO_PPC_ASM
|
||||||
|
*(const void**) t = *(void**) &co_swap_asm;
|
||||||
|
#else
|
||||||
|
*(const void**) t = libco_ppc_code;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
return t;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create( unsigned int size, void (*entry_)( void ) )
|
||||||
|
{
|
||||||
|
uintptr_t entry = (uintptr_t) entry_;
|
||||||
|
uint32_t* t = NULL;
|
||||||
|
|
||||||
|
/* Be sure main thread was successfully allocated */
|
||||||
|
if ( co_active() )
|
||||||
|
{
|
||||||
|
size += state_size + above_stack + stack_align;
|
||||||
|
t = co_create_( size, entry );
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( t )
|
||||||
|
{
|
||||||
|
uintptr_t sp;
|
||||||
|
int shift;
|
||||||
|
|
||||||
|
/* Save current registers into new thread, so that any special ones will
|
||||||
|
have proper values when thread is begun */
|
||||||
|
CO_SWAP_ASM( t, t );
|
||||||
|
|
||||||
|
#if LIBCO_PPCDESC
|
||||||
|
/* Get real address */
|
||||||
|
entry = (uintptr_t) *(void**) entry;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Put stack near end of block, and align */
|
||||||
|
sp = (uintptr_t) t + size - above_stack;
|
||||||
|
sp -= sp % stack_align;
|
||||||
|
|
||||||
|
/* On PPC32, we save and restore GPRs as 32 bits. For PPC64, we
|
||||||
|
save and restore them as 64 bits, regardless of the size the ABI
|
||||||
|
uses. So, we manually write pointers at the proper size. We always
|
||||||
|
save and restore at the same address, and since PPC is big-endian,
|
||||||
|
we must put the low byte first on PPC32. */
|
||||||
|
|
||||||
|
/* If uintptr_t is 32 bits, >>32 is undefined behavior, so we do two shifts
|
||||||
|
and don't have to care how many bits uintptr_t is. */
|
||||||
|
#if LIBCO_PPC64
|
||||||
|
shift = 16;
|
||||||
|
#else
|
||||||
|
shift = 0;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Set up so entry will be called on next swap */
|
||||||
|
t [8] = (uint32_t) (entry >> shift >> shift);
|
||||||
|
t [9] = (uint32_t) entry;
|
||||||
|
|
||||||
|
t [10] = (uint32_t) (sp >> shift >> shift);
|
||||||
|
t [11] = (uint32_t) sp;
|
||||||
|
}
|
||||||
|
|
||||||
|
return t;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete( cothread_t t )
|
||||||
|
{
|
||||||
|
free( t );
|
||||||
|
}
|
||||||
|
|
||||||
|
static void co_init_( void )
|
||||||
|
{
|
||||||
|
#if LIBCO_MPROTECT
|
||||||
|
/* TODO: pre- and post-pad PPC code so that this doesn't make other
|
||||||
|
data executable and writable */
|
||||||
|
long page_size = sysconf( _SC_PAGESIZE );
|
||||||
|
if ( page_size > 0 )
|
||||||
|
{
|
||||||
|
uintptr_t align = page_size;
|
||||||
|
uintptr_t begin = (uintptr_t) libco_ppc_code;
|
||||||
|
uintptr_t end = begin + sizeof libco_ppc_code;
|
||||||
|
|
||||||
|
/* Align beginning and end */
|
||||||
|
end += align - 1;
|
||||||
|
end -= end % align;
|
||||||
|
begin -= begin % align;
|
||||||
|
|
||||||
|
mprotect( (void*) begin, end - begin, PROT_READ | PROT_WRITE | PROT_EXEC );
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
co_active_handle = co_create_( state_size, (uintptr_t) &co_switch );
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active()
|
||||||
|
{
|
||||||
|
if ( !co_active_handle )
|
||||||
|
co_init_();
|
||||||
|
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch( cothread_t t )
|
||||||
|
{
|
||||||
|
cothread_t old = co_active_handle;
|
||||||
|
co_active_handle = t;
|
||||||
|
|
||||||
|
CO_SWAP_ASM( t, old );
|
||||||
|
}
|
||||||
108
src/td-retro/libco/sjlj.c
Normal file
108
src/td-retro/libco/sjlj.c
Normal file
@ -0,0 +1,108 @@
|
|||||||
|
/*
|
||||||
|
libco.sjlj (2008-01-28)
|
||||||
|
author: Nach
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Note this was designed for UNIX systems. Based on ideas expressed in a paper
|
||||||
|
* by Ralf Engelschall.
|
||||||
|
* For SJLJ on other systems, one would want to rewrite springboard() and
|
||||||
|
* co_create() and hack the jmb_buf stack pointer.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <signal.h>
|
||||||
|
#include <setjmp.h>
|
||||||
|
|
||||||
|
#ifdef __LIBRETRO__ // Must NOT use SIGUSR1 on android, it is reserved to run JVM GC and segfaults here
|
||||||
|
# undef SIGUSR1
|
||||||
|
# define SIGUSR1 SIGUSR2
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
sigjmp_buf context;
|
||||||
|
void (*coentry)(void);
|
||||||
|
void *stack;
|
||||||
|
} cothread_struct;
|
||||||
|
|
||||||
|
static thread_local cothread_struct co_primary;
|
||||||
|
static thread_local cothread_struct *creating, *co_running = 0;
|
||||||
|
|
||||||
|
static void springboard(int ignored) {
|
||||||
|
if(sigsetjmp(creating->context, 0)) {
|
||||||
|
co_running->coentry();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_running) co_running = &co_primary;
|
||||||
|
return (cothread_t)co_running;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*coentry)(void)) {
|
||||||
|
if(!co_running) co_running = &co_primary;
|
||||||
|
|
||||||
|
cothread_struct *thread = (cothread_struct*)malloc(sizeof(cothread_struct));
|
||||||
|
if(thread) {
|
||||||
|
struct sigaction handler;
|
||||||
|
struct sigaction old_handler;
|
||||||
|
|
||||||
|
stack_t stack;
|
||||||
|
stack_t old_stack;
|
||||||
|
|
||||||
|
thread->coentry = 0;
|
||||||
|
thread->stack = 0;
|
||||||
|
|
||||||
|
stack.ss_flags = 0;
|
||||||
|
stack.ss_size = size;
|
||||||
|
thread->stack = stack.ss_sp = malloc(size);
|
||||||
|
if(stack.ss_sp && !sigaltstack(&stack, &old_stack)) {
|
||||||
|
handler.sa_handler = springboard;
|
||||||
|
handler.sa_flags = SA_ONSTACK;
|
||||||
|
sigemptyset(&handler.sa_mask);
|
||||||
|
creating = thread;
|
||||||
|
|
||||||
|
if(!sigaction(SIGUSR1, &handler, &old_handler)) {
|
||||||
|
if(!raise(SIGUSR1)) {
|
||||||
|
thread->coentry = coentry;
|
||||||
|
}
|
||||||
|
sigaltstack(&old_stack, 0);
|
||||||
|
sigaction(SIGUSR1, &old_handler, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(thread->coentry != coentry) {
|
||||||
|
co_delete(thread);
|
||||||
|
thread = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return (cothread_t)thread;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t cothread) {
|
||||||
|
if(cothread) {
|
||||||
|
if(((cothread_struct*)cothread)->stack) {
|
||||||
|
free(((cothread_struct*)cothread)->stack);
|
||||||
|
}
|
||||||
|
free(cothread);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t cothread) {
|
||||||
|
if(!sigsetjmp(co_running->context, 0)) {
|
||||||
|
co_running = (cothread_struct*)cothread;
|
||||||
|
siglongjmp(co_running->context, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
67
src/td-retro/libco/ucontext.c
Normal file
67
src/td-retro/libco/ucontext.c
Normal file
@ -0,0 +1,67 @@
|
|||||||
|
/*
|
||||||
|
libco.ucontext (2008-01-28)
|
||||||
|
author: Nach
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
/*
|
||||||
|
* WARNING: the overhead of POSIX ucontext is very high,
|
||||||
|
* assembly versions of libco or libco_sjlj should be much faster
|
||||||
|
*
|
||||||
|
* This library only exists for two reasons:
|
||||||
|
* 1 - as an initial test for the viability of a ucontext implementation
|
||||||
|
* 2 - to demonstrate the power and speed of libco over existing implementations,
|
||||||
|
* such as pth (which defaults to wrapping ucontext on unix targets)
|
||||||
|
*
|
||||||
|
* Use this library only as a *last resort*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <ucontext.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local ucontext_t co_primary;
|
||||||
|
static thread_local ucontext_t *co_running = 0;
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_running) co_running = &co_primary;
|
||||||
|
return (cothread_t)co_running;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int heapsize, void (*coentry)(void)) {
|
||||||
|
if(!co_running) co_running = &co_primary;
|
||||||
|
ucontext_t *thread = (ucontext_t*)malloc(sizeof(ucontext_t));
|
||||||
|
if(thread) {
|
||||||
|
if((!getcontext(thread) && !(thread->uc_stack.ss_sp = 0)) && (thread->uc_stack.ss_sp = malloc(heapsize))) {
|
||||||
|
thread->uc_link = co_running;
|
||||||
|
thread->uc_stack.ss_size = heapsize;
|
||||||
|
makecontext(thread, coentry, 0);
|
||||||
|
} else {
|
||||||
|
co_delete((cothread_t)thread);
|
||||||
|
thread = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return (cothread_t)thread;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t cothread) {
|
||||||
|
if(cothread) {
|
||||||
|
if(((ucontext_t*)cothread)->uc_stack.ss_sp) { free(((ucontext_t*)cothread)->uc_stack.ss_sp); }
|
||||||
|
free(cothread);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t cothread) {
|
||||||
|
ucontext_t *old_thread = co_running;
|
||||||
|
co_running = (ucontext_t*)cothread;
|
||||||
|
swapcontext(old_thread, co_running);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
100
src/td-retro/libco/x86.c
Normal file
100
src/td-retro/libco/x86.c
Normal file
@ -0,0 +1,100 @@
|
|||||||
|
/*
|
||||||
|
libco.x86 (2009-10-12)
|
||||||
|
author: byuu
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if defined(_MSC_VER)
|
||||||
|
#define fastcall __fastcall
|
||||||
|
#elif defined(__GNUC__)
|
||||||
|
#define fastcall __attribute__((fastcall))
|
||||||
|
#else
|
||||||
|
#error "libco: please define fastcall macro"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local long co_active_buffer[64];
|
||||||
|
static thread_local cothread_t co_active_handle = 0;
|
||||||
|
|
||||||
|
// ASM co_swap
|
||||||
|
void fastcall co_swap(cothread_t new_thread, cothread_t old_thread);
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
#define ASM_CO_SWAP_DEF \
|
||||||
|
".globl @co_swap@8\n" \
|
||||||
|
"@co_swap@8:\n"
|
||||||
|
#else
|
||||||
|
#define ASM_CO_SWAP_DEF \
|
||||||
|
".globl co_swap\n" \
|
||||||
|
".globl _co_swap\n" \
|
||||||
|
"_co_swap:\n" \
|
||||||
|
"co_swap:\n"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
// ABI: fastcall
|
||||||
|
__asm__(
|
||||||
|
//asm(
|
||||||
|
".text\n"
|
||||||
|
ASM_CO_SWAP_DEF
|
||||||
|
"movl %esp, (%edx) # Save stack pointer, and restore it again.\n"
|
||||||
|
"movl (%ecx), %esp\n"
|
||||||
|
"popl %eax\n"
|
||||||
|
|
||||||
|
"movl %ebp, 0x4(%edx) # Save non-volatile registers to buffer.\n"
|
||||||
|
"movl %esi, 0x8(%edx)\n"
|
||||||
|
"movl %edi, 0xc(%edx)\n"
|
||||||
|
"movl %ebx, 0x10(%edx)\n"
|
||||||
|
|
||||||
|
"movl 0x4(%ecx), %ebp # Restore non-volatile registers from buffer.\n"
|
||||||
|
"movl 0x8(%ecx), %esi\n"
|
||||||
|
"movl 0xc(%ecx), %edi\n"
|
||||||
|
"movl 0x10(%ecx), %ebx\n"
|
||||||
|
|
||||||
|
"jmp *%eax # Jump back to saved PC.\n"
|
||||||
|
);
|
||||||
|
|
||||||
|
static void crash() {
|
||||||
|
assert(0); /* called only if cothread_t entrypoint returns */
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*entrypoint)(void)) {
|
||||||
|
cothread_t handle;
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
size += 256; /* allocate additional space for storage */
|
||||||
|
size &= ~15; /* align stack to 16-byte boundary */
|
||||||
|
|
||||||
|
if(handle = (cothread_t)malloc(size)) {
|
||||||
|
long *p = (long*)((char*)handle + size); /* seek to top of stack */
|
||||||
|
*--p = (long)crash; /* crash if entrypoint returns */
|
||||||
|
*--p = (long)entrypoint; /* start of function */
|
||||||
|
*(long*)handle = (long)p; /* stack pointer */
|
||||||
|
}
|
||||||
|
|
||||||
|
return handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t handle) {
|
||||||
|
free(handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t handle) {
|
||||||
|
register cothread_t co_previous_handle = co_active_handle;
|
||||||
|
co_swap(co_active_handle = handle, co_previous_handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
73
src/td-retro/libco/x86_msvc.c
Normal file
73
src/td-retro/libco/x86_msvc.c
Normal file
@ -0,0 +1,73 @@
|
|||||||
|
/*
|
||||||
|
libco.x86 (2009-10-12)
|
||||||
|
author: byuu
|
||||||
|
license: public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define LIBCO_C
|
||||||
|
#include "libco.h"
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static thread_local long co_active_buffer[64];
|
||||||
|
static thread_local cothread_t co_active_handle = 0;
|
||||||
|
static void (__fastcall *co_swap)(cothread_t, cothread_t) = 0;
|
||||||
|
|
||||||
|
//ABI: fastcall
|
||||||
|
static unsigned char co_swap_function[] = {
|
||||||
|
0x89, 0x22, 0x8B, 0x21, 0x58, 0x89, 0x6A, 0x04, 0x89, 0x72, 0x08, 0x89, 0x7A, 0x0C, 0x89, 0x5A,
|
||||||
|
0x10, 0x8B, 0x69, 0x04, 0x8B, 0x71, 0x08, 0x8B, 0x79, 0x0C, 0x8B, 0x59, 0x10, 0xFF, 0xE0,
|
||||||
|
};
|
||||||
|
|
||||||
|
#include <windows.h>
|
||||||
|
|
||||||
|
void co_init() {
|
||||||
|
DWORD old_privileges;
|
||||||
|
VirtualProtect(co_swap_function, sizeof co_swap_function, PAGE_EXECUTE_READWRITE, &old_privileges);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void crash() {
|
||||||
|
assert(0); /* called only if cothread_t entrypoint returns */
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_active() {
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
return co_active_handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
cothread_t co_create(unsigned int size, void (*entrypoint)(void)) {
|
||||||
|
cothread_t handle;
|
||||||
|
if(!co_swap) {
|
||||||
|
co_init();
|
||||||
|
co_swap = (void (__fastcall*)(cothread_t, cothread_t))co_swap_function;
|
||||||
|
}
|
||||||
|
if(!co_active_handle) co_active_handle = &co_active_buffer;
|
||||||
|
size += 256; /* allocate additional space for storage */
|
||||||
|
size &= ~15; /* align stack to 16-byte boundary */
|
||||||
|
|
||||||
|
if(handle = (cothread_t)malloc(size)) {
|
||||||
|
long *p = (long*)((char*)handle + size); /* seek to top of stack */
|
||||||
|
*--p = (long)crash; /* crash if entrypoint returns */
|
||||||
|
*--p = (long)entrypoint; /* start of function */
|
||||||
|
*(long*)handle = (long)p; /* stack pointer */
|
||||||
|
}
|
||||||
|
|
||||||
|
return handle;
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_delete(cothread_t handle) {
|
||||||
|
free(handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
void co_switch(cothread_t handle) {
|
||||||
|
register cothread_t co_previous_handle = co_active_handle;
|
||||||
|
co_swap(co_active_handle = handle, co_previous_handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
Loading…
Reference in New Issue
Block a user