view src/sheap.c @ 76022:e892213b9815

(w32_set_scroll_bar_thumb): Don't resize scroll-bar handle while dragging, except when we get close to eob. Fix position and size calculations so we don't scroll backwards just by clicking on the handle.

+
鐃緒申��申鐃緒申/* simulate `sbrk' with an array in .bss, for `unexec' support for Cygwin;
+
鐃緒申��申鐃緒申   complete rewrite of xemacs Cygwin `unexec' code
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申   Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This file is part of GNU Emacs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申GNU Emacs 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 2, or (at your option)
+
鐃緒申��申鐃緒申any later version.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申GNU Emacs 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.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申You should have received a copy of the GNU General Public License
+
鐃緒申��申鐃緒申along with GNU Emacs; see the file COPYING.  If not, write to
+
鐃緒申��申鐃緒申the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+
鐃緒申��申鐃緒申Boston, MA 02110-1301, USA.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#include <config.h>
+
鐃緒申��申鐃緒申#include <stdio.h>
+
鐃緒申��申鐃緒申#include "lisp.h"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#include <unistd.h>
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define STATIC_HEAP_SIZE	(12 * 1024 * 1024)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申int debug_sheap = 0;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define BLOCKSIZE 4096
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申char bss_sbrk_buffer[STATIC_HEAP_SIZE];
+
鐃緒申��申鐃緒申char *bss_sbrk_ptr;
+
鐃緒申��申鐃緒申int bss_sbrk_did_unexec;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申void *
+
鐃緒申��申鐃緒申bss_sbrk (ptrdiff_t request_size)
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  if (!bss_sbrk_ptr)
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      bss_sbrk_ptr = bss_sbrk_buffer;
+
鐃緒申��申鐃緒申#ifdef CYGWIN
+
鐃緒申��申鐃緒申      sbrk (BLOCKSIZE);		/* force space for fork to work */
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (!(int) request_size)
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      return (bss_sbrk_ptr);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申  else if (bss_sbrk_ptr + (int) request_size < bss_sbrk_buffer)
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      printf
+
鐃緒申��申鐃緒申	("attempt to free too much: avail %d used %d failed request %d\n",
+
鐃緒申��申鐃緒申	 STATIC_HEAP_SIZE, bss_sbrk_ptr - bss_sbrk_buffer,
+
鐃緒申��申鐃緒申	 (int) request_size);
+
鐃緒申��申鐃緒申      exit (-1);
+
鐃緒申��申鐃緒申      return 0;
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申  else if (bss_sbrk_ptr + (int) request_size >
+
鐃緒申��申鐃緒申	   bss_sbrk_buffer + STATIC_HEAP_SIZE)
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      printf ("static heap exhausted: avail %d used %d failed request %d\n",
+
鐃緒申��申鐃緒申	      STATIC_HEAP_SIZE,
+
鐃緒申��申鐃緒申	      bss_sbrk_ptr - bss_sbrk_buffer, (int) request_size);
+
鐃緒申��申鐃緒申      exit (-1);
+
鐃緒申��申鐃緒申      return 0;
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申  else if ((int) request_size < 0)
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      bss_sbrk_ptr += (int) request_size;
+
鐃緒申��申鐃緒申      if (debug_sheap)
+
鐃緒申��申鐃緒申	printf ("freed size %d\n", request_size);
+
鐃緒申��申鐃緒申      return bss_sbrk_ptr;
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申  else
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      char *ret = bss_sbrk_ptr;
+
鐃緒申��申鐃緒申      if (debug_sheap)
+
鐃緒申��申鐃緒申	printf ("allocated 0x%08x size %d\n", ret, request_size);
+
鐃緒申��申鐃緒申      bss_sbrk_ptr += (int) request_size;
+
鐃緒申��申鐃緒申      return ret;
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申void
+
鐃緒申��申鐃緒申report_sheap_usage (int die_if_pure_storage_exceeded)
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  char buf[200];
+
鐃緒申��申鐃緒申  sprintf (buf, "Static heap usage: %d of %d bytes",
+
鐃緒申��申鐃緒申	   bss_sbrk_ptr - bss_sbrk_buffer, STATIC_HEAP_SIZE);
+
鐃緒申��申鐃緒申  message ("%s", buf);
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* arch-tag: 1bc386e8-71c2-4da4-b8b5-c1674a9cf926
+
鐃緒申��申鐃緒申   (do not change this comment) */