Retro68/libretro/Retro68Runtime.h
2019-08-18 13:21:00 +02:00

97 lines
3.4 KiB
C
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
Copyright 2017 Wolfgang Thaller.
This file is part of Retro68.
Retro68 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Retro68 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>.
*/
#include <stdint.h>
#include <Types.h>
#define _RETRO68_GET_DISPLACEMENT(DISPLACEMENT, STRIP) \
do { \
char *virtualstart, *realstart; \
__asm__( "1:\n" \
"\tmove.l #1b, %0\n" \
"\tlea (1b:w,%%pc), %1" \
: "=r"(virtualstart) , "=a"(realstart) ); \
DISPLACEMENT = STRIP(realstart) - virtualstart; \
} while(0)
#define RETRO68_GET_DISPLACEMENT(DISPLACEMENT) \
_RETRO68_GET_DISPLACEMENT(DISPLACEMENT, )
// Calls to the StripAddress() trap are supposed to make sure addresses are 32-bit clean.
// But this trap doesnt exist on old ROMs and old system versions,
// so programs built with StripAddress will mysteriously crash.
// Those systems always run in 24-bit mode, so we can just take the lower 24
// bits of the 32 bit address.
// StripAddress24 must not be used on 32-bit systems, or the resulting crashes
// will be even more mysterious.
#define StripAddress24(x) ((char*) ((unsigned long)(x) & 0x00FFFFFF))
#define RETRO68_GET_DISPLACEMENT_STRIP24(DISPLACEMENT) \
_RETRO68_GET_DISPLACEMENT(DISPLACEMENT, StripAddress24)
// original StripAddress
#define RETRO68_GET_DISPLACEMENT_STRIP(DISPLACEMENT) \
_RETRO68_GET_DISPLACEMENT(DISPLACEMENT, StripAddress)
#define RETRO68_CALL_UNRELOCATED(FUN,ARGS) \
do { \
long displacement; \
RETRO68_GET_DISPLACEMENT(displacement); \
(*(typeof(&FUN)) ((char*)(&FUN) + displacement)) ARGS; \
} while(0)
void Retro68Relocate();
void Retro68CallConstructors();
void Retro68CallDestructors();
void Retro68FreeGlobals();
void Retro68InitMultisegApp();
void Retro68ApplyRelocations(uint8_t *base, uint32_t size, void *relocations, uint32_t displacements[]);
#define RETRO68_RELOCATE() RETRO68_CALL_UNRELOCATED(Retro68Relocate,())
/*
struct object is an internal data structure in libgcc.
Comments in unwind-dw2-fde.h imply that it will not
increase in size.
*/
struct object { long space[8]; };
extern void __register_frame_info (const void *, struct object *)
__attribute__ ((weak));
extern void *__deregister_frame_info (const void *)
__attribute__ ((weak));
typedef struct Retro68RelocState
{
Ptr bssPtr;
Handle codeHandle;
char hasStripAddr;
char hasFlushCodeCache;
} Retro68RelocState;
extern Retro68RelocState relocState;