2015-07-17 19:07:03 +00:00
|
|
|
|
/*
|
|
|
|
|
|
Copyright 2015 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/>.
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
2015-07-20 00:02:28 +00:00
|
|
|
|
#define _RETRO68_GET_DISPLACEMENT(DISPLACEMENT, STRIP) \
|
2015-07-17 19:07:03 +00:00
|
|
|
|
do { \
|
2015-07-20 00:02:28 +00:00
|
|
|
|
char *virtualstart, *realstart; \
|
2015-07-17 19:07:03 +00:00
|
|
|
|
__asm__( "1:\n" \
|
|
|
|
|
|
"\tmove.l #1b, %0\n" \
|
|
|
|
|
|
"\tlea (1b:w,%%pc), %1" \
|
|
|
|
|
|
: "=r"(virtualstart) , "=a"(realstart) ); \
|
2015-07-20 00:02:28 +00:00
|
|
|
|
DISPLACEMENT = STRIP(realstart) - virtualstart; \
|
2015-07-17 19:07:03 +00:00
|
|
|
|
} while(0)
|
|
|
|
|
|
|
2015-07-20 00:02:28 +00:00
|
|
|
|
#define RETRO68_GET_DISPLACEMENT(DISPLACEMENT) \
|
|
|
|
|
|
_RETRO68_GET_DISPLACEMENT(DISPLACEMENT, )
|
|
|
|
|
|
|
2017-04-11 18:42:12 +00:00
|
|
|
|
// Calls to the StripAddress() trap are supposed to make sure addresses are 32-bit clean.
|
|
|
|
|
|
// But this trap doesn’t 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
|
2015-07-20 00:02:28 +00:00
|
|
|
|
#define RETRO68_GET_DISPLACEMENT_STRIP(DISPLACEMENT) \
|
|
|
|
|
|
_RETRO68_GET_DISPLACEMENT(DISPLACEMENT, StripAddress)
|
2017-04-11 18:42:12 +00:00
|
|
|
|
|
2015-07-17 19:07:03 +00:00
|
|
|
|
#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();
|
2015-08-29 18:11:53 +00:00
|
|
|
|
void Retro68CallDestructors();
|
2015-07-17 23:14:43 +00:00
|
|
|
|
void Retro68FreeGlobals();
|
2015-07-17 19:07:03 +00:00
|
|
|
|
|
|
|
|
|
|
#define RETRO68_RELOCATE() RETRO68_CALL_UNRELOCATED(Retro68Relocate,())
|
