aboutsummaryrefslogtreecommitdiff
path: root/editors/emacs19/files/patch-ad
diff options
context:
space:
mode:
Diffstat (limited to 'editors/emacs19/files/patch-ad')
-rw-r--r--editors/emacs19/files/patch-ad695
1 files changed, 0 insertions, 695 deletions
diff --git a/editors/emacs19/files/patch-ad b/editors/emacs19/files/patch-ad
deleted file mode 100644
index f2013a374044..000000000000
--- a/editors/emacs19/files/patch-ad
+++ /dev/null
@@ -1,695 +0,0 @@
---- src/unexfreebsd.c.orig Wed Dec 3 17:28:14 1997
-+++ src/unexfreebsd.c Wed Dec 3 17:34:02 1997
-@@ -0,0 +1,692 @@
-+/* Code to do an unexec for FreeBSD for a temacs linked -Bdynamic.
-+ Derived from unexnetbsd.c, which was derived from unexsunos4.c
-+ Copyright (C) 1992, 1993 Free Software Foundation, Inc.
-+
-+This file is part of XEmacs.
-+
-+XEmacs 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.
-+
-+XEmacs 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 XEmacs; see the file COPYING. If not, write to
-+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-+Boston, MA 02111-1307, USA. */
-+
-+/* Synched up with: Not in FSF? */
-+
-+/*
-+Created 29-Oct-92 by Harlan Sexton
-+Tweaked 06-Aug-93 by Dean Michaels to work with sun3.
-+Converted 01-Dec-93 by Paul Mackerras to work with NetBSD shared libraries.
-+Tweaked 26-Feb-94 by Shawn Carey for use with FreeBSD-1.1 shared libraries.
-+*/
-+
-+/********************** Included .h Files **************************/
-+
-+#include <config.h>
-+
-+#include <stdarg.h>
-+#include <sys/param.h>
-+#include <sys/mman.h>
-+#include <sys/file.h>
-+#include <sys/stat.h>
-+#include <sys/types.h>
-+#include <string.h>
-+#include <stdio.h>
-+#include <a.out.h>
-+#include <unistd.h>
-+#include <ctype.h>
-+#include <stab.h>
-+#include <dirent.h>
-+#include <link.h>
-+
-+/********************** Macros *************************************/
-+
-+#define SYS_ERR strerror(errno)
-+
-+#define MASK_UP(x,p_of_two) \
-+ ((((unsigned long) (x)) + ((p_of_two) - 1)) & (~((p_of_two) - 1)))
-+
-+#define MASK_DOWN(x,p_of_two) (((unsigned long) (x)) & (~((p_of_two) - 1)))
-+
-+/********************** Typedefs and Structs ***********************/
-+
-+struct translation_struct
-+{
-+ long txtaddr;
-+ long txtoff;
-+ long dataddr;
-+ long datoff;
-+ long bssaddr;
-+ long endaddr;
-+};
-+
-+/********************** Function Prototypes/Declarations ***********/
-+
-+static void unexec_error (const char *m, int use_errno, ...);
-+static int unexec_open (char *filename, int flag, int mode);
-+static caddr_t unexec_mmap (int fd, size_t len, int prot, int flags);
-+static long unexec_seek (int fd, long position);
-+static void unexec_read (int fd, long position, char *buf, int bytes);
-+static void unexec_write (int fd, long position, char *buf, int bytes);
-+static void unexec_pad (int fd, int bytes);
-+static void unexec_fstat (int fd, struct stat *statptr);
-+static void unexec_fchmod (int fd, int mode);
-+static long unexec_addr_to_offset (long addr, struct translation_struct *ts);
-+static void copy_relocation_site (struct relocation_info *ri,
-+ caddr_t from_base_addr,
-+ caddr_t to_base_addr,
-+ struct translation_struct *ts);
-+static void reset_symtab (struct nlist *start, struct nlist *end,
-+ char *strtab, long edata_value, long end_value,
-+ int shlib_image);
-+static void reset_ldso_symtab (struct nzlist *start, struct nzlist *end,
-+ char *strtab, long edata_value, long end_value,
-+ int shlib_image);
-+int run_time_remap (char *dummy);
-+
-+/********************** Variables **********************************/
-+
-+/* for reporting error messages from system calls */
-+extern int errno;
-+extern int _DYNAMIC;
-+extern char **environ;
-+
-+static unsigned long sbrk_of_0_at_unexec;
-+
-+/*******************************************************************/
-+
-+static void
-+unexec_error (const char *fmt, int use_errno, ...)
-+{
-+ const char *err_msg = SYS_ERR;
-+ va_list args;
-+
-+ fprintf (stderr, "unexec - ");
-+ va_start (args, use_errno);
-+ vfprintf (stderr, fmt, args);
-+ va_end (args);
-+
-+ if (use_errno)
-+ fprintf (stderr, ": %s", err_msg);
-+ fprintf (stderr, "\n");
-+ exit (1);
-+ return;
-+}
-+
-+static int
-+unexec_open (char *filename, int flag, int mode)
-+{
-+ int fd;
-+
-+ errno = 0;
-+
-+ fd = open (filename, flag, mode);
-+
-+ if (fd < 0)
-+ unexec_error ("Failure opening file %s", 1, filename);
-+ return fd;
-+}
-+
-+static caddr_t
-+unexec_mmap (int fd, size_t len, int prot, int flags)
-+{
-+ caddr_t return_val;
-+
-+ unexec_seek (fd, 0);
-+ errno = 0;
-+ return_val = mmap (0, len, prot, flags, fd, 0);
-+
-+ if (return_val == (caddr_t) -1)
-+ unexec_error ("Failure mmap'ing file", 1);
-+ return return_val;
-+}
-+
-+
-+static long
-+unexec_seek (int fd, long position)
-+{
-+ long seek_value;
-+
-+ if (fd <= 0)
-+ unexec_error ("No file open in which to seek", 0);
-+
-+ errno = 0;
-+
-+ if (position < 0)
-+ seek_value = (long) lseek (fd, 0, L_INCR);
-+ else
-+ seek_value = (long) lseek (fd, position, L_SET);
-+
-+ if (seek_value < 0)
-+ unexec_error ("Failed to do a seek to 0x%x in %s", 1,
-+ position, "unexec() output file");
-+
-+ return seek_value;
-+}
-+
-+static void
-+unexec_read (int fd, long position, char *buf, int bytes)
-+{
-+ int n_read;
-+ int remains = bytes;
-+ position = unexec_seek (fd, position);
-+
-+ if (bytes < 0)
-+ unexec_error ("Attempted read of %d bytes", 0, bytes);
-+
-+ errno = 0;
-+
-+ while (remains > 0)
-+ {
-+ n_read = read (fd, buf, remains);
-+ if (n_read <= 0)
-+ unexec_error ("Read failed for 0x%x bytes at offset 0x%x in %s",
-+ 1, bytes, position, "unexec() output file");
-+ buf += n_read;
-+ remains -= n_read;
-+ }
-+
-+ return;
-+}
-+
-+static void
-+unexec_write (int fd, long position, char *buf, int bytes)
-+{
-+ int n_written;
-+ int remains = bytes;
-+ position = unexec_seek (fd, position);
-+
-+ if (bytes < 0)
-+ unexec_error ("Attempted write of %d bytes in %s",
-+ 0, bytes, "unexec() output file");
-+
-+ errno = 0;
-+
-+ while (remains > 0)
-+ {
-+ n_written = write (fd, buf, remains);
-+ if (n_written <= 0)
-+ unexec_error ("Write failed for 0x%x bytes at offset 0x%x in %s",
-+ 1, bytes, position, "unexec() output file");
-+ buf += n_written;
-+ remains -= n_written;
-+ }
-+
-+ return;
-+}
-+
-+static void
-+unexec_pad (int fd, int bytes)
-+{
-+ if (bytes > 0)
-+ {
-+ char buf[1024];
-+ int remaining = bytes;
-+
-+ memset (buf, 0, sizeof (buf));
-+
-+ while (remaining > 0)
-+ {
-+ int this_write = (remaining > sizeof(buf))?sizeof(buf):remaining;
-+ unexec_write (fd, -1, buf, this_write);
-+ remaining -= this_write;
-+ }
-+ }
-+}
-+
-+static void
-+unexec_fstat (int fd, struct stat *statptr)
-+{
-+ errno = 0;
-+ if (-1 == fstat (fd, statptr))
-+ unexec_error ("fstat() failed for descriptor %d", 1, fd);
-+ return;
-+}
-+
-+static void
-+unexec_fchmod (int fd, int mode)
-+{
-+ errno = 0;
-+ if (-1 == fchmod (fd, mode))
-+ unexec_error ("fchmod() failed for descriptor %d", 1, fd);
-+ return;
-+}
-+
-+static long
-+unexec_addr_to_offset (long addr, struct translation_struct *ts)
-+
-+{
-+ if ((addr < ts->txtaddr) || (addr >= ts->bssaddr))
-+ return -1;
-+ else if (addr >= ts->dataddr)
-+ return ((long) ((addr - ts->dataddr) + ts->datoff));
-+ else
-+ return ((long) ((addr - ts->txtaddr) + ts->txtoff));
-+}
-+
-+
-+/*
-+ * "LD.SO" DATA AND SYMBOL TABLE OPERATIONS
-+ */
-+
-+static void
-+copy_relocation_site (struct relocation_info *ri,
-+ caddr_t from_base_addr,
-+ caddr_t to_base_addr,
-+ struct translation_struct *ts)
-+{
-+ long offset;
-+ caddr_t from, to;
-+
-+ /* We can get relocation sites in the bss region, for objects whose
-+ contents are copied from a shared library. We don't need or want
-+ to restore these at present. */
-+#ifndef sparc
-+ if (ri->r_copy)
-+ return;
-+#else
-+ /* Struct relocation_info_sparc doesn't have member r_copy.
-+ Instead, we use the address to check if this is run-time-copied. */
-+ if (ri->r_address >= ts->bssaddr && ri->r_address < ts->endaddr)
-+ return;
-+#endif
-+
-+ offset = unexec_addr_to_offset (ri->r_address, ts);
-+ if (offset == -1)
-+ unexec_error ("bad relocation address 0x%x (0x%x)", 0, ri->r_address,
-+ ((long *)ri)[1]);
-+
-+ from = from_base_addr + offset;
-+ to = to_base_addr + offset;
-+ /* This stuff should be in a md_ file somewhere... */
-+#ifndef sparc
-+ switch (ri->r_length)
-+ {
-+ case 0:
-+ *((char *) to) = *((char *) from);
-+ break;
-+ case 1:
-+ *((short *) to) = *((short *) from);
-+ break;
-+ case 2:
-+ *((long *) to) = *((long *) from);
-+ break;
-+ default:
-+ unexec_error ("unknown reloc length %d seen during unexec()",
-+ 0, ri->r_length);
-+ break;
-+ }
-+#else /* sparc */
-+ switch (ri->r_type)
-+ {
-+ case RELOC_8:
-+ case RELOC_DISP8:
-+ *((char *) to) = *((char *) from);
-+ break;
-+ case RELOC_16:
-+ case RELOC_DISP16:
-+ *((short *) to) = *((short *) from);
-+ break;
-+ case RELOC_LO10:
-+ case RELOC_13:
-+ case RELOC_22:
-+ case RELOC_HI22:
-+ case RELOC_WDISP22:
-+ case RELOC_WDISP30:
-+ case RELOC_32:
-+ case RELOC_DISP32:
-+ case RELOC_GLOB_DAT:
-+ *((long *) to) = *((long *) from);
-+ break;
-+ case RELOC_JMP_SLOT:
-+ {
-+ long *target = (long *) to;
-+ long *source = (long *) from;
-+ *target = *source;
-+ target++;
-+ source++;
-+ *target = *source;
-+ target++;
-+ source++;
-+ *target = *source;
-+ }
-+ break;
-+ default:
-+ unexec_error ("unknown reloc type %d seen during unexec()",
-+ 0, ri->r_type);
-+ break;
-+ }
-+#endif /* sparc */
-+}
-+
-+static void
-+reset_symtab (struct nlist *start, struct nlist *end, char *strtab,
-+ long edata_value, long end_value, int shlib_image)
-+{
-+ struct nlist *tmp = start;
-+ int found_edata = 0;
-+ int found_end = 0;
-+
-+ while (tmp < end)
-+ {
-+ int type = tmp->n_type;
-+
-+ if ((type == (N_UNDF | N_EXT)) &&
-+ (tmp->n_value != 0))
-+ unexec_error ("unexec'ing image has COMMON symbols in it -- we quit!",
-+ 0);
-+
-+ if (!(type & N_STAB))
-+ {
-+ if (!found_edata &&
-+ (type == (N_EXT | N_DATA)) &&
-+ tmp->n_un.n_strx &&
-+ !strcmp ("_edata", strtab + tmp->n_un.n_strx))
-+ {
-+ tmp->n_value = edata_value;
-+ found_edata = 1;
-+ }
-+
-+
-+ if ((type & N_TYPE) == N_BSS)
-+ {
-+ if (!found_end &&
-+ (type == (N_EXT | N_BSS)) &&
-+ tmp->n_un.n_strx &&
-+ !strcmp ("_end", strtab + tmp->n_un.n_strx))
-+ {
-+ tmp->n_value = end_value;
-+ found_end = 1;
-+ }
-+ else if (type & N_EXT)
-+ tmp->n_type = N_DATA | N_EXT;
-+ else
-+ tmp->n_type = N_DATA;
-+ }
-+
-+ /* the way things are being handled here, having sbrk() in the
-+ image is fatal for an image linked with shared lib's (although
-+ the code could be modified to support it), but this should
-+ never happen anyway */
-+ if (shlib_image &&
-+ (type == (N_EXT | N_TEXT)) &&
-+ tmp->n_un.n_strx &&
-+ !strcmp ("_sbrk", strtab + tmp->n_un.n_strx))
-+ unexec_error ("unexec'd shlib image has sbrk() in it -- we quit!",
-+ 0);
-+ }
-+
-+ tmp++;
-+ }
-+}
-+
-+static void
-+reset_ldso_symtab (struct nzlist *start, struct nzlist *end, char *strtab,
-+ long edata_value, long end_value, int shlib_image)
-+{
-+ struct nzlist *tmp = start;
-+ int found_edata = 0;
-+ int found_end = 0;
-+
-+ while (tmp < end) {
-+ int type = tmp->nz_type;
-+/*
-+ * the following code breaks under FreeBSD-1.1-BETA, but everything
-+ * seems to work perfectly if it's commented out. This did not break
-+ * anything until the changes to ld.so were made.
-+ */
-+/*
-+ if ((type == (N_UNDF | N_EXT)) && (tmp->nz_value != 0))
-+ unexec_error("unexec'ing image has COMMON symbols in rel -- we quit!",0);
-+*/
-+ if (!(type & N_STAB)) {
-+ if (!found_edata &&
-+ (type == (N_EXT | N_DATA)) &&
-+ !strcmp ("_edata", strtab + tmp->nz_strx)) {
-+ tmp->nz_value = edata_value;
-+ found_edata = 1;
-+ }
-+
-+ if ((type & N_TYPE) == N_BSS) {
-+ if (!found_end &&
-+ (type == (N_EXT | N_BSS)) &&
-+ !strcmp ("_end", strtab + tmp->nz_strx)) {
-+ tmp->nz_value = end_value;
-+ found_end = 1;
-+ } else if (type & N_EXT)
-+ tmp->nz_type = N_DATA | N_EXT;
-+ else
-+ tmp->nz_type = N_DATA;
-+ }
-+
-+ /* the way things are being handled here, having sbrk() in the
-+ image is fatal for an image linked with shared lib's (although
-+ the code could be modified to support it), but this should
-+ never happen anyway */
-+ if (shlib_image &&
-+ (type == (N_EXT | N_TEXT)) &&
-+ !strcmp ("_sbrk", strtab + tmp->nz_strx))
-+ unexec_error("unexec'd shlib image has sbrk() ref -- we quit!", 0);
-+ }
-+ tmp++;
-+ }
-+}
-+
-+extern int getpagesize (void);
-+
-+/*
-+ * EXPORTED FUNCTIONS
-+ */
-+
-+/* this has to be a global variable to prevent the optimizers from
-+ * assuming that it can not be 0.
-+*/
-+static void *dynamic_addr = (void *) &_DYNAMIC;
-+
-+int
-+unexec (char *new_name, char *old_name,
-+ unsigned int emacs_edata, unsigned int dummy1, unsigned int dummy2)
-+{
-+ /* ld.so data */
-+ struct _dynamic *ld = 0;
-+ struct section_dispatch_table *ld2 = 0;
-+ /* old and new state */
-+ int old_fd;
-+ int new_fd;
-+ caddr_t old_base_addr;
-+ caddr_t new_base_addr;
-+ struct exec old_hdr;
-+ struct exec new_hdr;
-+ struct stat old_buf;
-+ struct stat new_buf;
-+ /* some process specific "constants" */
-+ unsigned long n_pagsiz, new_edata;
-+ long page_size = getpagesize ();
-+ caddr_t plt_end;
-+ caddr_t current_break = (caddr_t) sbrk (0);
-+
-+ if (!page_size)
-+ unexec_error ("unexec() failed because we can't get the size of a page!",
-+ 0);
-+
-+ /* see if this is a -Bdynamic image -- if so, find ld.so structures */
-+ if (dynamic_addr)
-+ {
-+ ld = (struct _dynamic *) dynamic_addr;
-+ ld2 = ld->d_un.d_sdt;
-+ if (ld->d_version < LD_VERSION_BSD)
-+ unexec_error ("%s linked with obsolete version of ld -- we quit!",
-+ 0, old_name);
-+ }
-+
-+ /* open the old and new files, figuring out how big the old one is
-+ so that we can map it in */
-+ old_fd = unexec_open (old_name, O_RDONLY, 0);
-+ new_fd = unexec_open (new_name, O_RDWR | O_CREAT | O_TRUNC, 0666);
-+
-+ /* setup the header and the statbuf for old_fd */
-+ unexec_read (old_fd, 0, (char *) &old_hdr, sizeof (old_hdr));
-+ unexec_fstat (old_fd, &old_buf);
-+
-+
-+ /* set up some important constants */
-+ n_pagsiz = __LDPGSZ;
-+ if (dynamic_addr)
-+ plt_end = (caddr_t) MASK_UP (ld2->sdt_plt + ld2->sdt_plt_sz, sizeof (double));
-+ else
-+ plt_end = (caddr_t) N_DATADDR (old_hdr);
-+
-+#if 0
-+ /* never write protect the variable "environ", defined in /lib/crt0.o, and
-+ set in process.c and callproc.c */
-+ mprotect_bottom_addr = ((unsigned long) &environ) + sizeof (char **);
-+ /* never protect ABOVE the end of data emacs_edata specified */
-+ mprotect_top_addr = MIN (emacs_edata, N_DATADDR (old_hdr) + old_hdr.a_data);
-+#endif
-+
-+ /* Set up the image of the old file */
-+ old_base_addr = unexec_mmap (old_fd, old_buf.st_size, PROT_READ,
-+ MAP_FILE | MAP_PRIVATE);
-+ close (old_fd);
-+
-+ /* set up the new exec */
-+ new_hdr = old_hdr;
-+ new_edata = (unsigned long) MASK_UP (current_break, n_pagsiz);
-+ new_hdr.a_data = new_edata - ((unsigned long) N_DATADDR (old_hdr));
-+ new_hdr.a_bss = 0;
-+
-+ /* set up this variable, in case we want to reset "the break"
-+ when restarting */
-+ sbrk_of_0_at_unexec = ((unsigned long) MASK_UP (current_break, n_pagsiz));
-+
-+ /* Write out the first approximation to the new file. The sizes of
-+ each section will be correct, but there will be a number of
-+ corrections that will need to be made. */
-+ {
-+ long old_datoff = N_DATOFF (old_hdr);
-+ long old_dataddr = N_DATADDR (old_hdr);
-+ long new_treloff = N_RELOFF (new_hdr);
-+ long old_treloff = N_RELOFF (old_hdr);
-+ long ld_so_size = ((unsigned long) plt_end) - old_dataddr;
-+ long real_data_size = current_break - plt_end;
-+ long pad_size =
-+ MASK_UP (current_break, n_pagsiz) - ((unsigned long) current_break);
-+
-+
-+ /* First, write the text segment with new header -- copy everything until
-+ the start of the data segment from the old file, and then go back and
-+ write the new header. */
-+ unexec_write (new_fd, 0, old_base_addr, old_datoff + ld_so_size);
-+ unexec_write (new_fd, 0, (char *) &new_hdr, sizeof (new_hdr));
-+
-+ /* Copy the rest of the data segment from the running image. */
-+ unexec_write (new_fd, old_datoff + ld_so_size,
-+ plt_end, real_data_size);
-+
-+ /* pad out the data segment */
-+ unexec_pad (new_fd, pad_size);
-+
-+ /* Finally, copy the symbol table information from the old file. */
-+ unexec_write (new_fd, new_treloff,
-+ old_base_addr + old_treloff,
-+ old_buf.st_size - old_treloff);
-+ }
-+
-+
-+ /* Next, map in the output file so that we can jump around fixing it
-+ up. We retain the old file so that we can refer to it. */
-+ unexec_fstat (new_fd, &new_buf);
-+ new_base_addr = unexec_mmap (new_fd,
-+ MASK_UP (new_buf.st_size, page_size),
-+ PROT_READ | PROT_WRITE,
-+ MAP_FILE | MAP_SHARED);
-+
-+
-+
-+ /* We need to do 2 things. First, make sure that _edata and _end (and
-+ hence, curbrk) are set to the correct values. At the same time, for
-+ neatness and to help with debugging, mark all the types of all ld.so
-+ and nm BSS symbols in the new file to be DATA, and make sure that
-+ there are no COMMON symbols in the output file, as any references to
-+ these can lose really big. Second, reset all of the ld.so "relocation
-+ sites" in the new file to have the values that appear in the old file
-+ -- the failure to do this was the biggest loser in the old version of
-+ this code. */
-+
-+ /* STEP 1 */
-+ /* Reset the regular symbol table first. */
-+ reset_symtab ((struct nlist *) (new_base_addr + N_SYMOFF(new_hdr)),
-+ (struct nlist *) (new_base_addr + N_SYMOFF(new_hdr) +
-+ new_hdr.a_syms),
-+ (char *) (new_base_addr + N_STROFF(new_hdr)),
-+ new_edata, new_edata,
-+ !!dynamic_addr);
-+
-+ /* Now reset the ld.so symbol table. */
-+ if (dynamic_addr)
-+ {
-+ struct translation_struct ts;
-+ struct relocation_info *tmp, *end;
-+ caddr_t syms, strings;
-+
-+ /* set up the structure that we use to translate addresses in the
-+ old file into file offsets */
-+ ts.txtaddr = N_TXTADDR (old_hdr);
-+ ts.txtoff = N_TXTOFF (old_hdr);
-+ ts.dataddr = N_DATADDR (old_hdr);
-+ ts.datoff = N_DATOFF (old_hdr);
-+ ts.bssaddr = N_DATADDR (old_hdr) + old_hdr.a_data;
-+ ts.endaddr = ts.bssaddr + old_hdr.a_bss;
-+
-+ syms = new_base_addr + unexec_addr_to_offset(ld2->sdt_nzlist, &ts);
-+ strings = new_base_addr + unexec_addr_to_offset(ld2->sdt_strings, &ts);
-+ reset_ldso_symtab ((struct nzlist *) syms, (struct nzlist *) strings,
-+ (char *) strings,
-+ new_edata, new_edata,
-+ !!dynamic_addr);
-+
-+ /* STEP 2 */
-+ tmp = (struct relocation_info *)
-+ (old_base_addr + unexec_addr_to_offset(ld2->sdt_rel, &ts));
-+ end = (struct relocation_info *)
-+ (old_base_addr + unexec_addr_to_offset(ld2->sdt_hash, &ts));
-+ while (tmp < end)
-+ {
-+ copy_relocation_site (tmp, old_base_addr, new_base_addr, &ts);
-+ tmp++;
-+ }
-+ }
-+
-+ /* get rid of the mmap-ed file space and make the output file
-+ executable -- then quit */
-+ munmap (new_base_addr, MASK_UP (new_buf.st_size, page_size));
-+ munmap (old_base_addr, MASK_UP (old_buf.st_size, page_size));
-+ unexec_fchmod (new_fd, 0755);
-+ close (new_fd);
-+ return 0;
-+}
-+
-+
-+int
-+run_time_remap (char *dummy)
-+{
-+ unsigned long current_sbrk = (unsigned long) sbrk (0);
-+
-+ if (sbrk_of_0_at_unexec > current_sbrk)
-+ {
-+ errno = 0;
-+ if (brk ((caddr_t) sbrk_of_0_at_unexec))
-+ fprintf (stderr, "failed to change brk addr to 0x%lx: %s\n",
-+ sbrk_of_0_at_unexec, SYS_ERR);
-+ }
-+
-+ return 0;
-+}