git.pond.sub.org Git - empserver/blob - src/lib/lwp/arch.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1994-2007, Dave Pare, Jeff Bailey, Thomas Ruschak,
   4  *                           Ken Stevens, Steve McClure
   5  *  Copyright (C) 1991-3 Stephen Crane
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; either version 2 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with this program; if not, write to the Free Software
  19  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  *
  21  *  ---
  22  *
  23  *  See files README, COPYING and CREDITS in the root of the source
  24  *  tree for related information and legal notices.  It is expected
  25  *  that future projects/authors will amend these files as needed.
  26  *
  27  *  ---
  28  *
  29  *  arch.c: architecture-dependant process context code
  30  *
  31  *  Known contributors to this file:
  32  *     Dave Pare, 1994
  33  *     Steve McClure, 1994-2000
  34  *     Markus Armbruster, 2004-2007
  35  */
  36
  37 #include <config.h>
  38
  39 #include <stdlib.h>
  40 #include "lwp.h"
  41 #include "lwpint.h"
  42
  43 /*
  44  * Historically, this was implemented by abusing setjmp() and
  45  * longjump(), which required a fair amount of system-dependent and
  46  * fragile hackery.  We now use POSIX ucontext.h.
  47  */
  48
  49 int
  50 lwpNewContext(struct lwpProc *newp, int stacksz)
  51 {
  52     char *s;
  53     int size, redsize;
  54
  55     /* Make size a multiple of sizeof(long) to keep things aligned */
  56     stacksz = (stacksz + sizeof(long) - 1) & -sizeof(long);
  57     /* Add a red zone on each side of the stack for LWP_STACKCHECK */
  58     redsize = newp->flags & LWP_STACKCHECK ? LWP_REDZONE : 0;
  59     size = stacksz + 2 * redsize;
  60
  61     s = malloc(size);
  62     if (!s)
  63         return -1;
  64
  65     newp->sbtm = s;
  66     newp->size = size;
  67     newp->ustack = s + redsize;
  68     newp->usize = stacksz;
  69
  70     if (getcontext(&newp->context) < 0) {
  71         free(s);
  72         return -1;
  73     }
  74 #ifdef MAKECONTEXT_SP_HIGH
  75     /*
  76      * Known systems that are broken that way: Solaris prior to 10,
  77      * IRIX.
  78      */
  79     newp->context.uc_stack.ss_sp = newp->ustack + stacksz - 8;
  80 #else
  81     newp->context.uc_stack.ss_sp = newp->ustack;
  82 #endif
  83     newp->context.uc_stack.ss_size = newp->usize;
  84     newp->context.uc_stack.ss_flags = 0;
  85     newp->context.uc_link = NULL;
  86     makecontext(&newp->context, lwpEntryPoint, 0);
  87     return 0;
  88 }
  89
  90 void
  91 lwpSwitchContext(struct lwpProc *oldp, struct lwpProc *nextp)
  92 {
  93     if (!oldp) {
  94         setcontext(&nextp->context);
  95         abort();
  96     } else {
  97         if (swapcontext(&oldp->context, &nextp->context) < 0)
  98             abort();
  99     }
 100 }