Hex Artifact Content
Not logged in

Artifact f23cc1644bd2134b36a5f9a5b80640f36095e3d7:


0000: 2f 2a 20 43 6f 70 79 72 69 67 68 74 20 28 63 29  /* Copyright (c)
0010: 20 32 30 30 35 20 52 75 73 73 20 43 6f 78 2c 20   2005 Russ Cox, 
0020: 4d 49 54 3b 20 73 65 65 20 43 4f 50 59 52 49 47  MIT; see COPYRIG
0030: 48 54 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20  HT */..#include 
0040: 3c 65 72 72 6e 6f 2e 68 3e 0a 23 69 6e 63 6c 75  <errno.h>.#inclu
0050: 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69  de <stdlib.h>.#i
0060: 6e 63 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e 68  nclude <unistd.h
0070: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69  >.#include <stri
0080: 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  ng.h>.#include <
0090: 61 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75  assert.h>.#inclu
00a0: 64 65 20 3c 73 79 73 2f 74 69 6d 65 2e 68 3e 0a  de <sys/time.h>.
00b0: 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79  #include <sys/ty
00c0: 70 65 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  pes.h>.#include 
00d0: 3c 73 79 73 2f 77 61 69 74 2e 68 3e 0a 23 69 6e  <sys/wait.h>.#in
00e0: 63 6c 75 64 65 20 3c 73 63 68 65 64 2e 68 3e 0a  clude <sched.h>.
00f0: 23 69 6e 63 6c 75 64 65 20 3c 73 69 67 6e 61 6c  #include <signal
0100: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75 63  .h>.#include <uc
0110: 6f 6e 74 65 78 74 2e 68 3e 0a 23 69 6e 63 6c 75  ontext.h>.#inclu
0120: 64 65 20 3c 73 79 73 2f 75 74 73 6e 61 6d 65 2e  de <sys/utsname.
0130: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22 74 61 73  h>.#include "tas
0140: 6b 2e 68 22 0a 0a 23 64 65 66 69 6e 65 20 6e 69  k.h"..#define ni
0150: 6c 20 28 28 76 6f 69 64 2a 29 30 29 0a 23 64 65  l ((void*)0).#de
0160: 66 69 6e 65 20 6e 65 6c 65 6d 28 78 29 20 28 73  fine nelem(x) (s
0170: 69 7a 65 6f 66 28 78 29 2f 73 69 7a 65 6f 66 28  izeof(x)/sizeof(
0180: 28 78 29 5b 30 5d 29 29 0a 0a 23 64 65 66 69 6e  (x)[0]))..#defin
0190: 65 20 75 6c 6f 6e 67 20 74 61 73 6b 5f 75 6c 6f  e ulong task_ulo
01a0: 6e 67 0a 23 64 65 66 69 6e 65 20 75 69 6e 74 20  ng.#define uint 
01b0: 74 61 73 6b 5f 75 69 6e 74 0a 23 64 65 66 69 6e  task_uint.#defin
01c0: 65 20 75 63 68 61 72 20 74 61 73 6b 5f 75 63 68  e uchar task_uch
01d0: 61 72 0a 23 64 65 66 69 6e 65 20 75 73 68 6f 72  ar.#define ushor
01e0: 74 20 74 61 73 6b 5f 75 73 68 6f 72 74 0a 23 64  t task_ushort.#d
01f0: 65 66 69 6e 65 20 75 76 6c 6f 6e 67 20 74 61 73  efine uvlong tas
0200: 6b 5f 75 76 6c 6f 6e 67 0a 23 64 65 66 69 6e 65  k_uvlong.#define
0210: 20 76 6c 6f 6e 67 20 74 61 73 6b 5f 76 6c 6f 6e   vlong task_vlon
0220: 67 0a 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67  g..typedef unsig
0230: 6e 65 64 20 6c 6f 6e 67 20 75 6c 6f 6e 67 3b 0a  ned long ulong;.
0240: 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64  typedef unsigned
0250: 20 69 6e 74 20 75 69 6e 74 3b 0a 74 79 70 65 64   int uint;.typed
0260: 65 66 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  ef unsigned char
0270: 20 75 63 68 61 72 3b 0a 74 79 70 65 64 65 66 20   uchar;.typedef 
0280: 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 20 75  unsigned short u
0290: 73 68 6f 72 74 3b 0a 74 79 70 65 64 65 66 20 75  short;.typedef u
02a0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e  nsigned long lon
02b0: 67 20 75 76 6c 6f 6e 67 3b 0a 74 79 70 65 64 65  g uvlong;.typede
02c0: 66 20 6c 6f 6e 67 20 6c 6f 6e 67 20 76 6c 6f 6e  f long long vlon
02d0: 67 3b 0a 0a 23 64 65 66 69 6e 65 20 70 72 69 6e  g;..#define prin
02e0: 74 20 74 61 73 6b 5f 70 72 69 6e 74 0a 23 64 65  t task_print.#de
02f0: 66 69 6e 65 20 66 70 72 69 6e 74 20 74 61 73 6b  fine fprint task
0300: 5f 66 70 72 69 6e 74 0a 23 64 65 66 69 6e 65 20  _fprint.#define 
0310: 73 6e 70 72 69 6e 74 20 74 61 73 6b 5f 73 6e 70  snprint task_snp
0320: 72 69 6e 74 0a 23 64 65 66 69 6e 65 20 73 65 70  rint.#define sep
0330: 72 69 6e 74 20 74 61 73 6b 5f 73 65 70 72 69 6e  rint task_seprin
0340: 74 0a 23 64 65 66 69 6e 65 20 76 70 72 69 6e 74  t.#define vprint
0350: 20 74 61 73 6b 5f 76 70 72 69 6e 74 0a 23 64 65   task_vprint.#de
0360: 66 69 6e 65 20 76 66 70 72 69 6e 74 20 74 61 73  fine vfprint tas
0370: 6b 5f 76 66 70 72 69 6e 74 0a 23 64 65 66 69 6e  k_vfprint.#defin
0380: 65 20 76 73 6e 70 72 69 6e 74 20 74 61 73 6b 5f  e vsnprint task_
0390: 76 73 6e 70 72 69 6e 74 0a 23 64 65 66 69 6e 65  vsnprint.#define
03a0: 20 76 73 65 70 72 69 6e 74 20 74 61 73 6b 5f 76   vseprint task_v
03b0: 73 65 70 72 69 6e 74 0a 23 64 65 66 69 6e 65 20  seprint.#define 
03c0: 73 74 72 65 63 70 79 20 74 61 73 6b 5f 73 74 72  strecpy task_str
03d0: 65 63 70 79 0a 0a 69 6e 74 20 70 72 69 6e 74 28  ecpy..int print(
03e0: 63 68 61 72 2a 2c 20 2e 2e 2e 29 3b 0a 69 6e 74  char*, ...);.int
03f0: 20 66 70 72 69 6e 74 28 69 6e 74 2c 20 63 68 61   fprint(int, cha
0400: 72 2a 2c 20 2e 2e 2e 29 3b 0a 63 68 61 72 20 2a  r*, ...);.char *
0410: 73 6e 70 72 69 6e 74 28 63 68 61 72 2a 2c 20 75  snprint(char*, u
0420: 69 6e 74 2c 20 63 68 61 72 2a 2c 20 2e 2e 2e 29  int, char*, ...)
0430: 3b 0a 63 68 61 72 20 2a 73 65 70 72 69 6e 74 28  ;.char *seprint(
0440: 63 68 61 72 2a 2c 20 63 68 61 72 2a 2c 20 63 68  char*, char*, ch
0450: 61 72 2a 2c 20 2e 2e 2e 29 3b 0a 69 6e 74 20 76  ar*, ...);.int v
0460: 70 72 69 6e 74 28 63 68 61 72 2a 2c 20 76 61 5f  print(char*, va_
0470: 6c 69 73 74 29 3b 0a 69 6e 74 20 76 66 70 72 69  list);.int vfpri
0480: 6e 74 28 69 6e 74 2c 20 63 68 61 72 2a 2c 20 76  nt(int, char*, v
0490: 61 5f 6c 69 73 74 29 3b 0a 63 68 61 72 20 2a 76  a_list);.char *v
04a0: 73 6e 70 72 69 6e 74 28 63 68 61 72 2a 2c 20 75  snprint(char*, u
04b0: 69 6e 74 2c 20 63 68 61 72 2a 2c 20 76 61 5f 6c  int, char*, va_l
04c0: 69 73 74 29 3b 0a 63 68 61 72 20 2a 76 73 65 70  ist);.char *vsep
04d0: 72 69 6e 74 28 63 68 61 72 2a 2c 20 63 68 61 72  rint(char*, char
04e0: 2a 2c 20 63 68 61 72 2a 2c 20 76 61 5f 6c 69 73  *, char*, va_lis
04f0: 74 29 3b 0a 63 68 61 72 20 2a 73 74 72 65 63 70  t);.char *strecp
0500: 79 28 63 68 61 72 2a 2c 20 63 68 61 72 2a 2c 20  y(char*, char*, 
0510: 63 68 61 72 2a 29 3b 0a 0a 23 69 66 20 64 65 66  char*);..#if def
0520: 69 6e 65 64 28 5f 5f 46 72 65 65 42 53 44 5f 5f  ined(__FreeBSD__
0530: 29 20 26 26 20 5f 5f 46 72 65 65 42 53 44 5f 76  ) && __FreeBSD_v
0540: 65 72 73 69 6f 6e 20 3c 20 35 30 30 30 30 30 0a  ersion < 500000.
0550: 65 78 74 65 72 6e 09 69 6e 74 09 09 67 65 74 63  extern.int..getc
0560: 6f 6e 74 65 78 74 28 75 63 6f 6e 74 65 78 74 5f  ontext(ucontext_
0570: 74 2a 29 3b 0a 65 78 74 65 72 6e 09 76 6f 69 64  t*);.extern.void
0580: 09 09 73 65 74 63 6f 6e 74 65 78 74 28 75 63 6f  ..setcontext(uco
0590: 6e 74 65 78 74 5f 74 2a 29 3b 0a 65 78 74 65 72  ntext_t*);.exter
05a0: 6e 09 69 6e 74 09 09 73 77 61 70 63 6f 6e 74 65  n.int..swapconte
05b0: 78 74 28 75 63 6f 6e 74 65 78 74 5f 74 2a 2c 20  xt(ucontext_t*, 
05c0: 75 63 6f 6e 74 65 78 74 5f 74 2a 29 3b 0a 65 78  ucontext_t*);.ex
05d0: 74 65 72 6e 09 76 6f 69 64 09 09 6d 61 6b 65 63  tern.void..makec
05e0: 6f 6e 74 65 78 74 28 75 63 6f 6e 74 65 78 74 5f  ontext(ucontext_
05f0: 74 2a 2c 20 76 6f 69 64 28 2a 29 28 29 2c 20 69  t*, void(*)(), i
0600: 6e 74 2c 20 2e 2e 2e 29 3b 0a 23 65 6e 64 69 66  nt, ...);.#endif
0610: 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 5f  ..#if defined(__
0620: 41 50 50 4c 45 5f 5f 29 0a 23 09 64 65 66 69 6e  APPLE__).#.defin
0630: 65 20 6d 63 6f 6e 74 65 78 74 20 6c 69 62 74 68  e mcontext libth
0640: 72 65 61 64 5f 6d 63 6f 6e 74 65 78 74 0a 23 09  read_mcontext.#.
0650: 64 65 66 69 6e 65 20 6d 63 6f 6e 74 65 78 74 5f  define mcontext_
0660: 74 20 6c 69 62 74 68 72 65 61 64 5f 6d 63 6f 6e  t libthread_mcon
0670: 74 65 78 74 5f 74 0a 23 09 64 65 66 69 6e 65 20  text_t.#.define 
0680: 75 63 6f 6e 74 65 78 74 20 6c 69 62 74 68 72 65  ucontext libthre
0690: 61 64 5f 75 63 6f 6e 74 65 78 74 0a 23 09 64 65  ad_ucontext.#.de
06a0: 66 69 6e 65 20 75 63 6f 6e 74 65 78 74 5f 74 20  fine ucontext_t 
06b0: 6c 69 62 74 68 72 65 61 64 5f 75 63 6f 6e 74 65  libthread_uconte
06c0: 78 74 5f 74 0a 09 74 79 70 65 64 65 66 20 73 74  xt_t..typedef st
06d0: 72 75 63 74 20 6d 63 6f 6e 74 65 78 74 20 6d 63  ruct mcontext mc
06e0: 6f 6e 74 65 78 74 5f 74 3b 0a 09 74 79 70 65 64  ontext_t;..typed
06f0: 65 66 20 73 74 72 75 63 74 20 75 63 6f 6e 74 65  ef struct uconte
0700: 78 74 20 75 63 6f 6e 74 65 78 74 5f 74 3b 0a 09  xt ucontext_t;..
0710: 73 74 72 75 63 74 20 6d 63 6f 6e 74 65 78 74 0a  struct mcontext.
0720: 09 7b 0a 09 09 75 6c 6f 6e 67 09 70 63 3b 09 09  .{...ulong.pc;..
0730: 2f 2a 20 6c 72 20 2a 2f 0a 09 09 75 6c 6f 6e 67  /* lr */...ulong
0740: 09 63 72 3b 09 09 2f 2a 20 6d 66 63 72 20 2a 2f  .cr;../* mfcr */
0750: 0a 09 09 75 6c 6f 6e 67 09 63 74 72 3b 09 09 2f  ...ulong.ctr;../
0760: 2a 20 6d 66 63 72 20 2a 2f 0a 09 09 75 6c 6f 6e  * mfcr */...ulon
0770: 67 09 78 65 72 3b 09 09 2f 2a 20 6d 66 63 72 20  g.xer;../* mfcr 
0780: 2a 2f 0a 09 09 75 6c 6f 6e 67 09 73 70 3b 09 09  */...ulong.sp;..
0790: 2f 2a 20 63 61 6c 6c 65 65 20 73 61 76 65 64 3a  /* callee saved:
07a0: 20 72 31 20 2a 2f 0a 09 09 75 6c 6f 6e 67 09 74   r1 */...ulong.t
07b0: 6f 63 3b 09 09 2f 2a 20 63 61 6c 6c 65 65 20 73  oc;../* callee s
07c0: 61 76 65 64 3a 20 72 32 20 2a 2f 0a 09 09 75 6c  aved: r2 */...ul
07d0: 6f 6e 67 09 72 33 3b 09 09 2f 2a 20 66 69 72 73  ong.r3;../* firs
07e0: 74 20 61 72 67 20 74 6f 20 66 75 6e 63 74 69 6f  t arg to functio
07f0: 6e 2c 20 72 65 74 75 72 6e 20 72 65 67 69 73 74  n, return regist
0800: 65 72 3a 20 72 33 20 2a 2f 0a 09 09 75 6c 6f 6e  er: r3 */...ulon
0810: 67 09 67 70 72 5b 31 39 5d 3b 09 2f 2a 20 63 61  g.gpr[19];./* ca
0820: 6c 6c 65 65 20 73 61 76 65 64 3a 20 72 31 33 2d  llee saved: r13-
0830: 72 33 31 20 2a 2f 0a 09 2f 2f 20 58 58 58 3a 20  r31 */..// XXX: 
0840: 63 75 72 72 65 6e 74 6c 79 20 64 6f 20 6e 6f 74  currently do not
0850: 20 73 61 76 65 20 76 65 63 74 6f 72 20 72 65 67   save vector reg
0860: 69 73 74 65 72 73 20 6f 72 20 66 6c 6f 61 74 69  isters or floati
0870: 6e 67 2d 70 6f 69 6e 74 20 73 74 61 74 65 0a 09  ng-point state..
0880: 2f 2f 09 75 6c 6f 6e 67 09 70 61 64 3b 0a 09 2f  //.ulong.pad;../
0890: 2f 09 75 76 6c 6f 6e 67 09 66 70 72 5b 31 38 5d  /.uvlong.fpr[18]
08a0: 3b 09 2f 2a 20 63 61 6c 6c 65 65 20 73 61 76 65  ;./* callee save
08b0: 64 3a 20 66 31 34 2d 66 33 31 20 2a 2f 0a 09 2f  d: f14-f31 */../
08c0: 2f 09 75 6c 6f 6e 67 09 76 72 5b 34 2a 31 32 5d  /.ulong.vr[4*12]
08d0: 3b 09 2f 2a 20 63 61 6c 6c 65 65 20 73 61 76 65  ;./* callee save
08e0: 64 3a 20 76 32 30 2d 76 33 31 2c 20 32 35 36 2d  d: v20-v31, 256-
08f0: 62 69 74 73 20 65 61 63 68 20 2a 2f 0a 09 7d 3b  bits each */..};
0900: 0a 09 0a 09 73 74 72 75 63 74 20 75 63 6f 6e 74  ....struct ucont
0910: 65 78 74 0a 09 7b 0a 09 09 73 74 72 75 63 74 20  ext..{...struct 
0920: 7b 0a 09 09 09 76 6f 69 64 20 2a 73 73 5f 73 70  {....void *ss_sp
0930: 3b 0a 09 09 09 75 69 6e 74 20 73 73 5f 73 69 7a  ;....uint ss_siz
0940: 65 3b 0a 09 09 7d 20 75 63 5f 73 74 61 63 6b 3b  e;...} uc_stack;
0950: 0a 09 09 73 69 67 73 65 74 5f 74 20 75 63 5f 73  ...sigset_t uc_s
0960: 69 67 6d 61 73 6b 3b 0a 09 09 6d 63 6f 6e 74 65  igmask;...mconte
0970: 78 74 5f 74 20 6d 63 3b 0a 09 7d 3b 0a 09 0a 09  xt_t mc;..};....
0980: 76 6f 69 64 20 6d 61 6b 65 63 6f 6e 74 65 78 74  void makecontext
0990: 28 75 63 6f 6e 74 65 78 74 5f 74 2a 2c 20 76 6f  (ucontext_t*, vo
09a0: 69 64 28 2a 29 28 76 6f 69 64 29 2c 20 69 6e 74  id(*)(void), int
09b0: 2c 20 2e 2e 2e 29 3b 0a 09 69 6e 74 20 67 65 74  , ...);..int get
09c0: 63 6f 6e 74 65 78 74 28 75 63 6f 6e 74 65 78 74  context(ucontext
09d0: 5f 74 2a 29 3b 0a 09 69 6e 74 20 73 65 74 63 6f  _t*);..int setco
09e0: 6e 74 65 78 74 28 75 63 6f 6e 74 65 78 74 5f 74  ntext(ucontext_t
09f0: 2a 29 3b 0a 09 69 6e 74 20 73 77 61 70 63 6f 6e  *);..int swapcon
0a00: 74 65 78 74 28 75 63 6f 6e 74 65 78 74 5f 74 2a  text(ucontext_t*
0a10: 2c 20 75 63 6f 6e 74 65 78 74 5f 74 2a 29 3b 0a  , ucontext_t*);.
0a20: 09 69 6e 74 20 5f 67 65 74 6d 63 6f 6e 74 65 78  .int _getmcontex
0a30: 74 28 6d 63 6f 6e 74 65 78 74 5f 74 2a 29 3b 0a  t(mcontext_t*);.
0a40: 09 76 6f 69 64 20 5f 73 65 74 6d 63 6f 6e 74 65  .void _setmconte
0a50: 78 74 28 6d 63 6f 6e 74 65 78 74 5f 74 2a 29 3b  xt(mcontext_t*);
0a60: 0a 09 0a 23 65 6e 64 69 66 0a 0a 74 79 70 65 64  ...#endif..typed
0a70: 65 66 20 73 74 72 75 63 74 20 43 6f 6e 74 65 78  ef struct Contex
0a80: 74 20 43 6f 6e 74 65 78 74 3b 0a 0a 65 6e 75 6d  t Context;..enum
0a90: 0a 7b 0a 09 53 54 41 43 4b 20 3d 20 38 31 39 32  .{..STACK = 8192
0aa0: 0a 7d 3b 0a 0a 73 74 72 75 63 74 20 43 6f 6e 74  .};..struct Cont
0ab0: 65 78 74 0a 7b 0a 09 75 63 6f 6e 74 65 78 74 5f  ext.{..ucontext_
0ac0: 74 09 75 63 3b 0a 7d 3b 0a 0a 73 74 72 75 63 74  t.uc;.};..struct
0ad0: 20 54 61 73 6b 0a 7b 0a 09 54 61 73 6b 09 2a 6e   Task.{..Task.*n
0ae0: 65 78 74 3b 0a 09 54 61 73 6b 09 2a 70 72 65 76  ext;..Task.*prev
0af0: 3b 0a 09 54 61 73 6b 09 2a 61 6c 6c 6e 65 78 74  ;..Task.*allnext
0b00: 3b 0a 09 54 61 73 6b 09 2a 61 6c 6c 70 72 65 76  ;..Task.*allprev
0b10: 3b 0a 09 43 6f 6e 74 65 78 74 09 63 6f 6e 74 65  ;..Context.conte
0b20: 78 74 3b 0a 09 75 69 6e 74 09 69 64 3b 0a 09 75  xt;..uint.id;..u
0b30: 63 68 61 72 09 2a 73 74 6b 3b 0a 09 75 69 6e 74  char.*stk;..uint
0b40: 09 73 74 6b 73 69 7a 65 3b 0a 09 69 6e 74 09 09  .stksize;..int..
0b50: 65 78 69 74 69 6e 67 3b 0a 09 76 6f 69 64 09 28  exiting;..void.(
0b60: 2a 73 74 61 72 74 66 6e 29 28 76 6f 69 64 2a 29  *startfn)(void*)
0b70: 3b 0a 09 76 6f 69 64 09 2a 73 74 61 72 74 61 72  ;..void.*startar
0b80: 67 3b 0a 09 63 68 61 72 09 6e 61 6d 65 5b 32 35  g;..char.name[25
0b90: 36 5d 3b 0a 09 63 68 61 72 09 73 74 61 74 65 5b  6];..char.state[
0ba0: 32 35 36 5d 3b 0a 09 76 6f 69 64 20 2a 75 64 61  256];..void *uda
0bb0: 74 61 3b 0a 7d 3b 0a 0a 76 6f 69 64 09 74 61 73  ta;.};..void.tas
0bc0: 6b 72 65 61 64 79 28 54 61 73 6b 2a 29 3b 0a 76  kready(Task*);.v
0bd0: 6f 69 64 09 74 61 73 6b 73 77 69 74 63 68 28 76  oid.taskswitch(v
0be0: 6f 69 64 29 3b 0a 0a 65 78 74 65 72 6e 20 54 61  oid);..extern Ta
0bf0: 73 6b 20 2a 74 61 73 6b 72 75 6e 6e 69 6e 67 3b  sk *taskrunning;
0c00: 0a 0a                                            ..