/* This wrapper is a little different, as it's called indirectly from
__mf_fini also to clean up pending allocations. */
void *
__mf_wrap_alloca_indirect (size_t c)
{
DECLARE (void *, malloc, size_t);
DECLARE (void, free, void *);
/* This struct, a linked list, tracks alloca'd objects. The newest
object is at the head of the list. If we detect that we've
popped a few levels of stack, then the listed objects are freed
as needed. NB: The tracking struct is allocated with
real_malloc; the user data with wrap_malloc.
*/
struct alloca_tracking { void *ptr; void *stack; struct alloca_tracking* next; };
static struct alloca_tracking *alloca_history = NULL;
void *stack = __builtin_frame_address (0);
void *result;
struct alloca_tracking *track;
TRACE ("%s\n", __PRETTY_FUNCTION__);
VERBOSE_TRACE ("alloca stack level %p\n", (void *) stack);
/* XXX: thread locking! */
/* Free any previously alloca'd blocks that belong to deeper-nested functions,
which must therefore have exited by now. */
#define DEEPER_THAN < /* XXX: for x86; steal find_stack_direction() from libiberty/alloca.c */
while (alloca_history &&
((uintptr_t) alloca_history->stack DEEPER_THAN (uintptr_t) stack))
{
struct alloca_tracking *next = alloca_history->next;
__mf_unregister (alloca_history->ptr, 0, __MF_TYPE_HEAP);
BEGIN_MALLOC_PROTECT ();
CALL_REAL (free, alloca_history->ptr);
CALL_REAL (free, alloca_history);
END_MALLOC_PROTECT ();
alloca_history = next;
}
/* Allocate new block. */
result = NULL;
if (LIKELY (c > 0)) /* alloca(0) causes no allocation. */
{
BEGIN_MALLOC_PROTECT ();
track = (struct alloca_tracking *) CALL_REAL (malloc,
sizeof (struct alloca_tracking));
END_MALLOC_PROTECT ();
if (LIKELY (track != NULL))
{
BEGIN_MALLOC_PROTECT ();
result = CALL_REAL (malloc, c);
END_MALLOC_PROTECT ();
if (UNLIKELY (result == NULL))
{
BEGIN_MALLOC_PROTECT ();
CALL_REAL (free, track);
END_MALLOC_PROTECT ();
/* Too bad. XXX: What about errno? */
}
else
{
__mf_register (result, c, __MF_TYPE_HEAP, "alloca region");
track->ptr = result;
track->stack = stack;
track->next = alloca_history;
alloca_history = track;
}
}
}
return result;
}
void HostScreen_setWindowSize(int width, int height, int bpp)
{
const bool keep = ConfigureParams.Screen.bKeepResolution;
int screenwidth, screenheight, maxw, maxh;
int scalex, scaley, sbarheight;
if (bpp == 24)
bpp = 32;
/* constrain size request to user's desktop size */
Resolution_GetDesktopSize(&maxw, &maxh);
scalex = scaley = 1;
while (width > maxw*scalex) {
scalex *= 2;
}
while (height > maxh*scalex) {
scalex *= 2;
}
if (scalex * scaley > 1) {
fprintf(stderr, "WARNING: too large screen size %dx%d -> divided by %dx%d!\n",
width, height, scalex, scaley);
width /= scalex;
height /= scaley;
}
Resolution_GetLimits(&maxw, &maxh, &bpp, keep);
nScreenZoomX = nScreenZoomY = 1;
if (ConfigureParams.Screen.bAspectCorrect) {
/* Falcon (and TT) pixel scaling factors seem to 2^x
* (quarter/half pixel, interlace/double line), so
* do aspect correction as 2's exponent.
*/
while (nScreenZoomX*width < height &&
2*nScreenZoomX*width < maxw) {
nScreenZoomX *= 2;
}
while (2*nScreenZoomY*height < width &&
2*nScreenZoomY*height < maxh) {
nScreenZoomY *= 2;
}
if (nScreenZoomX*nScreenZoomY > 2) {
fprintf(stderr, "WARNING: strange screen size %dx%d -> aspect corrected by %dx%d!\n",
width, height, nScreenZoomX, nScreenZoomY);
}
}
/* then select scale as close to target size as possible
* without having larger size than it
*/
scalex = maxw/(nScreenZoomX*width);
scaley = maxh/(nScreenZoomY*height);
if (scalex > 1 && scaley > 1) {
/* keep aspect ratio */
if (scalex < scaley) {
nScreenZoomX *= scalex;
nScreenZoomY *= scalex;
} else {
nScreenZoomX *= scaley;
nScreenZoomY *= scaley;
}
}
hs_width_req = width;
hs_height_req = height;
width *= nScreenZoomX;
height *= nScreenZoomY;
/* get statusbar size for this screen size */
sbarheight = Statusbar_GetHeightForSize(width, height);
screenheight = height + sbarheight;
screenwidth = width;
/* get resolution corresponding to these */
Resolution_Search(&screenwidth, &screenheight, &bpp, keep);
/* re-calculate statusbar height for this resolution */
sbarheight = Statusbar_SetHeight(screenwidth, screenheight-sbarheight);
hs_bpp = bpp;
/* videl.c might scale things differently in fullscreen than
* in windowed mode because this uses screensize instead of using
* the aspect scaled sizes directly, but it works better this way.
*/
hs_width = screenwidth;
hs_height = screenheight - sbarheight;
if (sdlscrn && (!bpp || sdlscrn->format->BitsPerPixel == bpp) &&
sdlscrn->w == (signed)screenwidth && sdlscrn->h == (signed)screenheight &&
(sdlscrn->flags&SDL_FULLSCREEN) == (sdl_videoparams&SDL_FULLSCREEN))
{
/* same host screen size despite Atari resolution change,
* -> no time consuming host video mode change needed
*/
if (screenwidth > width || screenheight > height+sbarheight) {
/* Atari screen smaller than host -> clear screen */
SDL_Rect rect;
rect.x = 0;
rect.y = 0;
rect.w = sdlscrn->w;
rect.h = sdlscrn->h - sbarheight;
SDL_FillRect(sdlscrn, &rect, SDL_MapRGB(sdlscrn->format, 0, 0, 0));
/* re-calculate variables in case height + statusbar height
* don't anymore match SDL surface size (there's an assert
* for that)
*/
Statusbar_Init(sdlscrn);
}
// check in case switched from VDI to Hostscreen
doUpdate = ( sdlscrn->flags & SDL_HWSURFACE ) == 0;
return;
}
if (bInFullScreen) {
/* un-embed the Hatari WM window for fullscreen */
Control_ReparentWindow(screenwidth, screenheight, bInFullScreen);
sdl_videoparams = SDL_SWSURFACE|SDL_HWPALETTE|SDL_FULLSCREEN;
} else {
sdl_videoparams = SDL_SWSURFACE|SDL_HWPALETTE;
}
#ifdef _MUDFLAP
if (sdlscrn) {
__mf_unregister(sdlscrn->pixels, sdlscrn->pitch*sdlscrn->h, __MF_TYPE_GUESS);
}
#endif
sdlscrn = SDL_SetVideoMode(screenwidth, screenheight, bpp, sdl_videoparams);
#ifdef _MUDFLAP
__mf_register(sdlscrn->pixels, sdlscrn->pitch*sdlscrn->h, __MF_TYPE_GUESS, "SDL pixels");
#endif
if (!bInFullScreen) {
/* re-embed the new Hatari SDL window */
Control_ReparentWindow(screenwidth, screenheight, bInFullScreen);
}
// In case surface format changed, update SDL palette & remap the native palette
HostScreen_updatePalette(256);
HostScreen_remapPalette();
// redraw statusbar
Statusbar_Init(sdlscrn);
Dprintf(("Surface Pitch = %d, width = %d, height = %d\n", sdlscrn->pitch, sdlscrn->w, sdlscrn->h));
Dprintf(("Must Lock? %s\n", SDL_MUSTLOCK(sdlscrn) ? "YES" : "NO"));
// is the SDL_update needed?
doUpdate = ( sdlscrn->flags & SDL_HWSURFACE ) == 0;
Dprintf(("Pixel format:bitspp=%d, tmasks r=%04x g=%04x b=%04x"
", tshifts r=%d g=%d b=%d"
", tlosses r=%d g=%d b=%d\n",
sdlscrn->format->BitsPerPixel,
sdlscrn->format->Rmask, sdlscrn->format->Gmask, sdlscrn->format->Bmask,
sdlscrn->format->Rshift, sdlscrn->format->Gshift, sdlscrn->format->Bshift,
sdlscrn->format->Rloss, sdlscrn->format->Gloss, sdlscrn->format->Bloss));
Main_WarpMouse(sdlscrn->w/2,sdlscrn->h/2);
}
