/ Hex Artifact Content
Login

Artifact dbdfaff8580071f2212a0deae3325a93a737819c:


0000: 2f 2a 0a 2a 2a 20 32 30 30 38 20 4a 75 6e 65 20  /*.** 2008 June 
0010: 31 38 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74  18.**.** The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f  hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20  pyright to this 
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e  source code.  In
0050: 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c   place of.** a l
0060: 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72  egal notice, her
0070: 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a  e is a blessing:
0080: 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f  .**.**    May yo
0090: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f  u do good and no
00a0: 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61  t evil..**    Ma
00b0: 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69  y you find forgi
00c0: 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73  veness for yours
00d0: 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20  elf and forgive 
00e0: 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61  others..**    Ma
00f0: 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65  y you share free
0100: 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67  ly, never taking
0110: 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67   more than you g
0120: 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a  ive..**.********
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 20 63  *.** This file c
0180: 6f 6e 74 61 69 6e 73 20 74 65 73 74 20 6c 6f 67  ontains test log
0190: 69 63 20 66 6f 72 20 74 68 65 20 73 71 6c 69 74  ic for the sqlit
01a0: 65 33 5f 6d 75 74 65 78 20 69 6e 74 65 72 66 61  e3_mutex interfa
01b0: 63 65 73 2e 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 64  ces..*/..#includ
01c0: 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75  e "tcl.h".#inclu
01d0: 64 65 20 22 73 71 6c 69 74 65 33 2e 68 22 0a 23  de "sqlite3.h".#
01e0: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49  include "sqliteI
01f0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c  nt.h".#include <
0200: 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75  stdlib.h>.#inclu
0210: 64 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a 23 69  de <assert.h>.#i
0220: 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68  nclude <string.h
0230: 3e 0a 0a 23 64 65 66 69 6e 65 20 4d 41 58 5f 4d  >..#define MAX_M
0240: 55 54 45 58 45 53 20 20 20 20 20 20 20 20 28 53  UTEXES        (S
0250: 51 4c 49 54 45 5f 4d 55 54 45 58 5f 53 54 41 54  QLITE_MUTEX_STAT
0260: 49 43 5f 56 46 53 33 2b 31 29 0a 23 64 65 66 69  IC_VFS3+1).#defi
0270: 6e 65 20 53 54 41 54 49 43 5f 4d 55 54 45 58 45  ne STATIC_MUTEXE
0280: 53 20 20 20 20 20 28 4d 41 58 5f 4d 55 54 45 58  S     (MAX_MUTEX
0290: 45 53 2d 28 53 51 4c 49 54 45 5f 4d 55 54 45 58  ES-(SQLITE_MUTEX
02a0: 5f 52 45 43 55 52 53 49 56 45 2b 31 29 29 0a 0a  _RECURSIVE+1))..
02b0: 2f 2a 20 64 65 66 69 6e 65 64 20 69 6e 20 6d 61  /* defined in ma
02c0: 69 6e 2e 63 20 2a 2f 0a 65 78 74 65 72 6e 20 63  in.c */.extern c
02d0: 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 69 74  onst char *sqlit
02e0: 65 33 45 72 72 4e 61 6d 65 28 69 6e 74 29 3b 0a  e3ErrName(int);.
02f0: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68  .static const ch
0300: 61 72 20 2a 61 4e 61 6d 65 5b 4d 41 58 5f 4d 55  ar *aName[MAX_MU
0310: 54 45 58 45 53 2b 31 5d 20 3d 20 7b 0a 20 20 22  TEXES+1] = {.  "
0320: 66 61 73 74 22 2c 20 20 20 20 20 20 20 20 22 72  fast",        "r
0330: 65 63 75 72 73 69 76 65 22 2c 20 20 20 22 73 74  ecursive",   "st
0340: 61 74 69 63 5f 6d 61 73 74 65 72 22 2c 20 22 73  atic_master", "s
0350: 74 61 74 69 63 5f 6d 65 6d 22 2c 0a 20 20 22 73  tatic_mem",.  "s
0360: 74 61 74 69 63 5f 6f 70 65 6e 22 2c 20 22 73 74  tatic_open", "st
0370: 61 74 69 63 5f 70 72 6e 67 22 2c 20 22 73 74 61  atic_prng", "sta
0380: 74 69 63 5f 6c 72 75 22 2c 20 20 20 20 22 73 74  tic_lru",    "st
0390: 61 74 69 63 5f 70 6d 65 6d 22 2c 0a 20 20 22 73  atic_pmem",.  "s
03a0: 74 61 74 69 63 5f 61 70 70 31 22 2c 20 22 73 74  tatic_app1", "st
03b0: 61 74 69 63 5f 61 70 70 32 22 2c 20 22 73 74 61  atic_app2", "sta
03c0: 74 69 63 5f 61 70 70 33 22 2c 20 20 20 22 73 74  tic_app3",   "st
03d0: 61 74 69 63 5f 76 66 73 31 22 2c 0a 20 20 22 73  atic_vfs1",.  "s
03e0: 74 61 74 69 63 5f 76 66 73 32 22 2c 20 22 73 74  tatic_vfs2", "st
03f0: 61 74 69 63 5f 76 66 73 33 22 2c 20 30 0a 7d 3b  atic_vfs3", 0.};
0400: 0a 0a 2f 2a 20 41 20 63 6f 75 6e 74 61 62 6c 65  ../* A countable
0410: 20 6d 75 74 65 78 20 2a 2f 0a 73 74 72 75 63 74   mutex */.struct
0420: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 20 7b   sqlite3_mutex {
0430: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78  .  sqlite3_mutex
0440: 20 2a 70 52 65 61 6c 3b 0a 20 20 69 6e 74 20 65   *pReal;.  int e
0450: 54 79 70 65 3b 0a 7d 3b 0a 0a 2f 2a 20 53 74 61  Type;.};../* Sta
0460: 74 65 20 76 61 72 69 61 62 6c 65 73 20 2a 2f 0a  te variables */.
0470: 73 74 61 74 69 63 20 73 74 72 75 63 74 20 74 65  static struct te
0480: 73 74 5f 6d 75 74 65 78 5f 67 6c 6f 62 61 6c 73  st_mutex_globals
0490: 20 7b 0a 20 20 69 6e 74 20 69 73 49 6e 73 74 61   {.  int isInsta
04a0: 6c 6c 65 64 3b 20 20 20 20 20 20 20 20 20 20 20  lled;           
04b0: 2f 2a 20 54 72 75 65 20 69 66 20 69 6e 73 74 61  /* True if insta
04c0: 6c 6c 65 64 20 2a 2f 0a 20 20 69 6e 74 20 64 69  lled */.  int di
04d0: 73 61 62 6c 65 49 6e 69 74 3b 20 20 20 20 20 20  sableInit;      
04e0: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20       /* True to 
04f0: 63 61 75 73 65 20 73 71 6c 69 74 65 33 5f 69 6e  cause sqlite3_in
0500: 69 74 61 6c 69 7a 65 28 29 20 74 6f 20 66 61 69  italize() to fai
0510: 6c 20 2a 2f 0a 20 20 69 6e 74 20 64 69 73 61 62  l */.  int disab
0520: 6c 65 54 72 79 3b 20 20 20 20 20 20 20 20 20 20  leTry;          
0530: 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 66 6f 72    /* True to for
0540: 63 65 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78  ce sqlite3_mutex
0550: 5f 74 72 79 28 29 20 74 6f 20 66 61 69 6c 20 2a  _try() to fail *
0560: 2f 0a 20 20 69 6e 74 20 69 73 49 6e 69 74 3b 20  /.  int isInit; 
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0580: 2a 20 54 72 75 65 20 69 66 20 69 6e 69 74 69 61  * True if initia
0590: 6c 69 7a 65 64 20 2a 2f 0a 20 20 73 71 6c 69 74  lized */.  sqlit
05a0: 65 33 5f 6d 75 74 65 78 5f 6d 65 74 68 6f 64 73  e3_mutex_methods
05b0: 20 6d 3b 20 20 20 2f 2a 20 49 6e 74 65 72 66 61   m;   /* Interfa
05c0: 63 65 20 74 6f 20 22 72 65 61 6c 22 20 6d 75 74  ce to "real" mut
05d0: 65 78 20 73 79 73 74 65 6d 20 2a 2f 0a 20 20 69  ex system */.  i
05e0: 6e 74 20 61 43 6f 75 6e 74 65 72 5b 4d 41 58 5f  nt aCounter[MAX_
05f0: 4d 55 54 45 58 45 53 5d 3b 20 2f 2a 20 4e 75 6d  MUTEXES]; /* Num
0600: 62 65 72 20 6f 66 20 67 72 61 62 73 20 6f 66 20  ber of grabs of 
0610: 65 61 63 68 20 74 79 70 65 20 6f 66 20 6d 75 74  each type of mut
0620: 65 78 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  ex */.  sqlite3_
0630: 6d 75 74 65 78 20 61 53 74 61 74 69 63 5b 53 54  mutex aStatic[ST
0640: 41 54 49 43 5f 4d 55 54 45 58 45 53 5d 3b 20 2f  ATIC_MUTEXES]; /
0650: 2a 20 54 68 65 20 73 74 61 74 69 63 20 6d 75 74  * The static mut
0660: 65 78 65 73 20 2a 2f 0a 7d 20 67 20 3d 20 7b 30  exes */.} g = {0
0670: 7d 3b 0a 0a 2f 2a 20 52 65 74 75 72 6e 20 74 72  };../* Return tr
0680: 75 65 20 69 66 20 74 68 65 20 63 6f 75 6e 74 61  ue if the counta
0690: 62 6c 65 20 6d 75 74 65 78 20 69 73 20 63 75 72  ble mutex is cur
06a0: 72 65 6e 74 6c 79 20 68 65 6c 64 20 2a 2f 0a 73  rently held */.s
06b0: 74 61 74 69 63 20 69 6e 74 20 63 6f 75 6e 74 65  tatic int counte
06c0: 72 4d 75 74 65 78 48 65 6c 64 28 73 71 6c 69 74  rMutexHeld(sqlit
06d0: 65 33 5f 6d 75 74 65 78 20 2a 70 29 7b 0a 20 20  e3_mutex *p){.  
06e0: 72 65 74 75 72 6e 20 67 2e 6d 2e 78 4d 75 74 65  return g.m.xMute
06f0: 78 48 65 6c 64 28 70 2d 3e 70 52 65 61 6c 29 3b  xHeld(p->pReal);
0700: 0a 7d 0a 0a 2f 2a 20 52 65 74 75 72 6e 20 74 72  .}../* Return tr
0710: 75 65 20 69 66 20 74 68 65 20 63 6f 75 6e 74 61  ue if the counta
0720: 62 6c 65 20 6d 75 74 65 78 20 69 73 20 6e 6f 74  ble mutex is not
0730: 20 63 75 72 72 65 6e 74 6c 79 20 68 65 6c 64 20   currently held 
0740: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 6f  */.static int co
0750: 75 6e 74 65 72 4d 75 74 65 78 4e 6f 74 68 65 6c  unterMutexNothel
0760: 64 28 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 20  d(sqlite3_mutex 
0770: 2a 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 67 2e  *p){.  return g.
0780: 6d 2e 78 4d 75 74 65 78 4e 6f 74 68 65 6c 64 28  m.xMutexNotheld(
0790: 70 2d 3e 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a  p->pReal);.}../*
07a0: 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20   Initialize the 
07b0: 63 6f 75 6e 74 61 62 6c 65 20 6d 75 74 65 78 20  countable mutex 
07c0: 69 6e 74 65 72 66 61 63 65 0a 2a 2a 20 4f 72 2c  interface.** Or,
07d0: 20 69 66 20 67 2e 64 69 73 61 62 6c 65 49 6e 69   if g.disableIni
07e0: 74 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74  t is non-zero, t
07f0: 68 65 6e 20 64 6f 20 6e 6f 74 20 69 6e 69 74 69  hen do not initi
0800: 61 6c 69 7a 65 20 62 75 74 20 69 6e 73 74 65 61  alize but instea
0810: 64 0a 2a 2a 20 72 65 74 75 72 6e 20 74 68 65 20  d.** return the 
0820: 76 61 6c 75 65 20 6f 66 20 67 2e 64 69 73 61 62  value of g.disab
0830: 6c 65 49 6e 69 74 20 61 73 20 74 68 65 20 72 65  leInit as the re
0840: 73 75 6c 74 20 63 6f 64 65 2e 20 20 54 68 69 73  sult code.  This
0850: 20 63 61 6e 20 62 65 20 75 73 65 64 0a 2a 2a 20   can be used.** 
0860: 74 6f 20 73 69 6d 75 6c 61 74 65 20 61 6e 20 69  to simulate an i
0870: 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 61  nitialization fa
0880: 69 6c 75 72 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  ilure..*/.static
0890: 20 69 6e 74 20 63 6f 75 6e 74 65 72 4d 75 74 65   int counterMute
08a0: 78 49 6e 69 74 28 76 6f 69 64 29 7b 20 0a 20 20  xInit(void){ .  
08b0: 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 67 2e  int rc;.  if( g.
08c0: 64 69 73 61 62 6c 65 49 6e 69 74 20 29 20 72 65  disableInit ) re
08d0: 74 75 72 6e 20 67 2e 64 69 73 61 62 6c 65 49 6e  turn g.disableIn
08e0: 69 74 3b 0a 20 20 72 63 20 3d 20 67 2e 6d 2e 78  it;.  rc = g.m.x
08f0: 4d 75 74 65 78 49 6e 69 74 28 29 3b 0a 20 20 67  MutexInit();.  g
0900: 2e 69 73 49 6e 69 74 20 3d 20 31 3b 0a 20 20 72  .isInit = 1;.  r
0910: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
0920: 2a 2a 20 55 6e 69 6e 69 74 69 61 6c 69 7a 65 20  ** Uninitialize 
0930: 74 68 65 20 6d 75 74 65 78 20 73 75 62 73 79 73  the mutex subsys
0940: 74 65 6d 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  tem.*/.static in
0950: 74 20 63 6f 75 6e 74 65 72 4d 75 74 65 78 45 6e  t counterMutexEn
0960: 64 28 76 6f 69 64 29 7b 20 0a 20 20 67 2e 69 73  d(void){ .  g.is
0970: 49 6e 69 74 20 3d 20 30 3b 0a 20 20 72 65 74 75  Init = 0;.  retu
0980: 72 6e 20 67 2e 6d 2e 78 4d 75 74 65 78 45 6e 64  rn g.m.xMutexEnd
0990: 28 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c  ();.}../*.** All
09a0: 6f 63 61 74 65 20 61 20 63 6f 75 6e 74 61 62 6c  ocate a countabl
09b0: 65 20 6d 75 74 65 78 0a 2a 2f 0a 73 74 61 74 69  e mutex.*/.stati
09c0: 63 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 20  c sqlite3_mutex 
09d0: 2a 63 6f 75 6e 74 65 72 4d 75 74 65 78 41 6c 6c  *counterMutexAll
09e0: 6f 63 28 69 6e 74 20 65 54 79 70 65 29 7b 0a 20  oc(int eType){. 
09f0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 20 2a   sqlite3_mutex *
0a00: 70 52 65 61 6c 3b 0a 20 20 73 71 6c 69 74 65 33  pReal;.  sqlite3
0a10: 5f 6d 75 74 65 78 20 2a 70 52 65 74 20 3d 20 30  _mutex *pRet = 0
0a20: 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 67 2e 69  ;..  assert( g.i
0a30: 73 49 6e 69 74 20 29 3b 0a 20 20 61 73 73 65 72  sInit );.  asser
0a40: 74 28 20 65 54 79 70 65 3e 3d 53 51 4c 49 54 45  t( eType>=SQLITE
0a50: 5f 4d 55 54 45 58 5f 46 41 53 54 20 29 3b 0a 20  _MUTEX_FAST );. 
0a60: 20 61 73 73 65 72 74 28 20 65 54 79 70 65 3c 3d   assert( eType<=
0a70: 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 53 54 41  SQLITE_MUTEX_STA
0a80: 54 49 43 5f 56 46 53 33 20 29 3b 0a 0a 20 20 70  TIC_VFS3 );..  p
0a90: 52 65 61 6c 20 3d 20 67 2e 6d 2e 78 4d 75 74 65  Real = g.m.xMute
0aa0: 78 41 6c 6c 6f 63 28 65 54 79 70 65 29 3b 0a 20  xAlloc(eType);. 
0ab0: 20 69 66 28 20 21 70 52 65 61 6c 20 29 20 72 65   if( !pReal ) re
0ac0: 74 75 72 6e 20 30 3b 0a 0a 20 20 69 66 28 20 65  turn 0;..  if( e
0ad0: 54 79 70 65 3d 3d 53 51 4c 49 54 45 5f 4d 55 54  Type==SQLITE_MUT
0ae0: 45 58 5f 46 41 53 54 20 7c 7c 20 65 54 79 70 65  EX_FAST || eType
0af0: 3d 3d 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 52  ==SQLITE_MUTEX_R
0b00: 45 43 55 52 53 49 56 45 20 29 7b 0a 20 20 20 20  ECURSIVE ){.    
0b10: 70 52 65 74 20 3d 20 28 73 71 6c 69 74 65 33 5f  pRet = (sqlite3_
0b20: 6d 75 74 65 78 20 2a 29 6d 61 6c 6c 6f 63 28 73  mutex *)malloc(s
0b30: 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 6d 75  izeof(sqlite3_mu
0b40: 74 65 78 29 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  tex));.  }else{.
0b50: 20 20 20 20 69 6e 74 20 65 53 74 61 74 69 63 54      int eStaticT
0b60: 79 70 65 20 3d 20 65 54 79 70 65 20 2d 20 28 4d  ype = eType - (M
0b70: 41 58 5f 4d 55 54 45 58 45 53 20 2d 20 53 54 41  AX_MUTEXES - STA
0b80: 54 49 43 5f 4d 55 54 45 58 45 53 29 3b 0a 20 20  TIC_MUTEXES);.  
0b90: 20 20 61 73 73 65 72 74 28 20 65 53 74 61 74 69    assert( eStati
0ba0: 63 54 79 70 65 3e 3d 30 20 29 3b 0a 20 20 20 20  cType>=0 );.    
0bb0: 61 73 73 65 72 74 28 20 65 53 74 61 74 69 63 54  assert( eStaticT
0bc0: 79 70 65 3c 53 54 41 54 49 43 5f 4d 55 54 45 58  ype<STATIC_MUTEX
0bd0: 45 53 20 29 3b 0a 20 20 20 20 70 52 65 74 20 3d  ES );.    pRet =
0be0: 20 26 67 2e 61 53 74 61 74 69 63 5b 65 53 74 61   &g.aStatic[eSta
0bf0: 74 69 63 54 79 70 65 5d 3b 0a 20 20 7d 0a 0a 20  ticType];.  }.. 
0c00: 20 70 52 65 74 2d 3e 65 54 79 70 65 20 3d 20 65   pRet->eType = e
0c10: 54 79 70 65 3b 0a 20 20 70 52 65 74 2d 3e 70 52  Type;.  pRet->pR
0c20: 65 61 6c 20 3d 20 70 52 65 61 6c 3b 0a 20 20 72  eal = pReal;.  r
0c30: 65 74 75 72 6e 20 70 52 65 74 3b 0a 7d 0a 0a 2f  eturn pRet;.}../
0c40: 2a 0a 2a 2a 20 46 72 65 65 20 61 20 63 6f 75 6e  *.** Free a coun
0c50: 74 61 62 6c 65 20 6d 75 74 65 78 0a 2a 2f 0a 73  table mutex.*/.s
0c60: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 75 6e 74  tatic void count
0c70: 65 72 4d 75 74 65 78 46 72 65 65 28 73 71 6c 69  erMutexFree(sqli
0c80: 74 65 33 5f 6d 75 74 65 78 20 2a 70 29 7b 0a 20  te3_mutex *p){. 
0c90: 20 61 73 73 65 72 74 28 20 67 2e 69 73 49 6e 69   assert( g.isIni
0ca0: 74 20 29 3b 0a 20 20 67 2e 6d 2e 78 4d 75 74 65  t );.  g.m.xMute
0cb0: 78 46 72 65 65 28 70 2d 3e 70 52 65 61 6c 29 3b  xFree(p->pReal);
0cc0: 0a 20 20 69 66 28 20 70 2d 3e 65 54 79 70 65 3d  .  if( p->eType=
0cd0: 3d 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 46 41  =SQLITE_MUTEX_FA
0ce0: 53 54 20 7c 7c 20 70 2d 3e 65 54 79 70 65 3d 3d  ST || p->eType==
0cf0: 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 52 45 43  SQLITE_MUTEX_REC
0d00: 55 52 53 49 56 45 20 29 7b 0a 20 20 20 20 66 72  URSIVE ){.    fr
0d10: 65 65 28 70 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a  ee(p);.  }.}../*
0d20: 0a 2a 2a 20 45 6e 74 65 72 20 61 20 63 6f 75 6e  .** Enter a coun
0d30: 74 61 62 6c 65 20 6d 75 74 65 78 2e 20 20 42 6c  table mutex.  Bl
0d40: 6f 63 6b 20 75 6e 74 69 6c 20 65 6e 74 72 79 20  ock until entry 
0d50: 69 73 20 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74  is safe..*/.stat
0d60: 69 63 20 76 6f 69 64 20 63 6f 75 6e 74 65 72 4d  ic void counterM
0d70: 75 74 65 78 45 6e 74 65 72 28 73 71 6c 69 74 65  utexEnter(sqlite
0d80: 33 5f 6d 75 74 65 78 20 2a 70 29 7b 0a 20 20 61  3_mutex *p){.  a
0d90: 73 73 65 72 74 28 20 67 2e 69 73 49 6e 69 74 20  ssert( g.isInit 
0da0: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 2d 3e  );.  assert( p->
0db0: 65 54 79 70 65 3e 3d 30 20 29 3b 0a 20 20 61 73  eType>=0 );.  as
0dc0: 73 65 72 74 28 20 70 2d 3e 65 54 79 70 65 3c 4d  sert( p->eType<M
0dd0: 41 58 5f 4d 55 54 45 58 45 53 20 29 3b 0a 20 20  AX_MUTEXES );.  
0de0: 67 2e 61 43 6f 75 6e 74 65 72 5b 70 2d 3e 65 54  g.aCounter[p->eT
0df0: 79 70 65 5d 2b 2b 3b 0a 20 20 67 2e 6d 2e 78 4d  ype]++;.  g.m.xM
0e00: 75 74 65 78 45 6e 74 65 72 28 70 2d 3e 70 52 65  utexEnter(p->pRe
0e10: 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72  al);.}../*.** Tr
0e20: 79 20 74 6f 20 65 6e 74 65 72 20 61 20 6d 75 74  y to enter a mut
0e30: 65 78 2e 20 20 52 65 74 75 72 6e 20 74 72 75 65  ex.  Return true
0e40: 20 6f 6e 20 73 75 63 63 65 73 73 2e 0a 2a 2f 0a   on success..*/.
0e50: 73 74 61 74 69 63 20 69 6e 74 20 63 6f 75 6e 74  static int count
0e60: 65 72 4d 75 74 65 78 54 72 79 28 73 71 6c 69 74  erMutexTry(sqlit
0e70: 65 33 5f 6d 75 74 65 78 20 2a 70 29 7b 0a 20 20  e3_mutex *p){.  
0e80: 61 73 73 65 72 74 28 20 67 2e 69 73 49 6e 69 74  assert( g.isInit
0e90: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 2d   );.  assert( p-
0ea0: 3e 65 54 79 70 65 3e 3d 30 20 29 3b 0a 20 20 61  >eType>=0 );.  a
0eb0: 73 73 65 72 74 28 20 70 2d 3e 65 54 79 70 65 3c  ssert( p->eType<
0ec0: 4d 41 58 5f 4d 55 54 45 58 45 53 20 29 3b 0a 20  MAX_MUTEXES );. 
0ed0: 20 67 2e 61 43 6f 75 6e 74 65 72 5b 70 2d 3e 65   g.aCounter[p->e
0ee0: 54 79 70 65 5d 2b 2b 3b 0a 20 20 69 66 28 20 67  Type]++;.  if( g
0ef0: 2e 64 69 73 61 62 6c 65 54 72 79 20 29 20 72 65  .disableTry ) re
0f00: 74 75 72 6e 20 53 51 4c 49 54 45 5f 42 55 53 59  turn SQLITE_BUSY
0f10: 3b 0a 20 20 72 65 74 75 72 6e 20 67 2e 6d 2e 78  ;.  return g.m.x
0f20: 4d 75 74 65 78 54 72 79 28 70 2d 3e 70 52 65 61  MutexTry(p->pRea
0f30: 6c 29 3b 0a 7d 0a 0a 2f 2a 20 4c 65 61 76 65 20  l);.}../* Leave 
0f40: 61 20 6d 75 74 65 78 0a 2a 2f 0a 73 74 61 74 69  a mutex.*/.stati
0f50: 63 20 76 6f 69 64 20 63 6f 75 6e 74 65 72 4d 75  c void counterMu
0f60: 74 65 78 4c 65 61 76 65 28 73 71 6c 69 74 65 33  texLeave(sqlite3
0f70: 5f 6d 75 74 65 78 20 2a 70 29 7b 0a 20 20 61 73  _mutex *p){.  as
0f80: 73 65 72 74 28 20 67 2e 69 73 49 6e 69 74 20 29  sert( g.isInit )
0f90: 3b 0a 20 20 67 2e 6d 2e 78 4d 75 74 65 78 4c 65  ;.  g.m.xMutexLe
0fa0: 61 76 65 28 70 2d 3e 70 52 65 61 6c 29 3b 0a 7d  ave(p->pReal);.}
0fb0: 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f  ../*.** sqlite3_
0fc0: 73 68 75 74 64 6f 77 6e 0a 2a 2f 0a 73 74 61 74  shutdown.*/.stat
0fd0: 69 63 20 69 6e 74 20 74 65 73 74 5f 73 68 75 74  ic int test_shut
0fe0: 64 6f 77 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63  down(.  void * c
0ff0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
1000: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
1010: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
1020: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
1030: 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63  jv[].){.  int rc
1040: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31  ;..  if( objc!=1
1050: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e   ){.    Tcl_Wron
1060: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
1070: 20 31 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20   1, objv, "");. 
1080: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1090: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d  ROR;.  }..  rc =
10a0: 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77   sqlite3_shutdow
10b0: 6e 28 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65  n();.  Tcl_SetRe
10c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68  sult(interp, (ch
10d0: 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e  ar *)sqlite3ErrN
10e0: 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c  ame(rc), TCL_VOL
10f0: 41 54 49 4c 45 29 3b 0a 20 20 72 65 74 75 72 6e  ATILE);.  return
1100: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
1110: 2a 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61  * sqlite3_initia
1120: 6c 69 7a 65 0a 2a 2f 0a 73 74 61 74 69 63 20 69  lize.*/.static i
1130: 6e 74 20 74 65 73 74 5f 69 6e 69 74 69 61 6c 69  nt test_initiali
1140: 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69  ze(.  void * cli
1150: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49  entData,.  Tcl_I
1160: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
1170: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
1180: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
1190: 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a  [].){.  int rc;.
11a0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29  .  if( objc!=1 )
11b0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
11c0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
11d0: 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20  , objv, "");.   
11e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
11f0: 52 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d 20 73  R;.  }..  rc = s
1200: 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a  qlite3_initializ
1210: 65 28 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65  e();.  Tcl_SetRe
1220: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68  sult(interp, (ch
1230: 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e  ar *)sqlite3ErrN
1240: 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c  ame(rc), TCL_VOL
1250: 41 54 49 4c 45 29 3b 0a 20 20 72 65 74 75 72 6e  ATILE);.  return
1260: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
1270: 2a 20 69 6e 73 74 61 6c 6c 5f 6d 75 74 65 78 5f  * install_mutex_
1280: 63 6f 75 6e 74 65 72 73 20 42 4f 4f 4c 45 41 4e  counters BOOLEAN
1290: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
12a0: 65 73 74 5f 69 6e 73 74 61 6c 6c 5f 6d 75 74 65  est_install_mute
12b0: 78 5f 63 6f 75 6e 74 65 72 73 28 0a 20 20 76 6f  x_counters(.  vo
12c0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
12d0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
12e0: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
12f0: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
1300: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
1310: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
1320: 4f 4b 3b 0a 20 20 69 6e 74 20 69 73 49 6e 73 74  OK;.  int isInst
1330: 61 6c 6c 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f  all;..  sqlite3_
1340: 6d 75 74 65 78 5f 6d 65 74 68 6f 64 73 20 63 6f  mutex_methods co
1350: 75 6e 74 65 72 5f 6d 65 74 68 6f 64 73 20 3d 20  unter_methods = 
1360: 7b 0a 20 20 20 20 63 6f 75 6e 74 65 72 4d 75 74  {.    counterMut
1370: 65 78 49 6e 69 74 2c 0a 20 20 20 20 63 6f 75 6e  exInit,.    coun
1380: 74 65 72 4d 75 74 65 78 45 6e 64 2c 0a 20 20 20  terMutexEnd,.   
1390: 20 63 6f 75 6e 74 65 72 4d 75 74 65 78 41 6c 6c   counterMutexAll
13a0: 6f 63 2c 0a 20 20 20 20 63 6f 75 6e 74 65 72 4d  oc,.    counterM
13b0: 75 74 65 78 46 72 65 65 2c 0a 20 20 20 20 63 6f  utexFree,.    co
13c0: 75 6e 74 65 72 4d 75 74 65 78 45 6e 74 65 72 2c  unterMutexEnter,
13d0: 0a 20 20 20 20 63 6f 75 6e 74 65 72 4d 75 74 65  .    counterMute
13e0: 78 54 72 79 2c 0a 20 20 20 20 63 6f 75 6e 74 65  xTry,.    counte
13f0: 72 4d 75 74 65 78 4c 65 61 76 65 2c 0a 20 20 20  rMutexLeave,.   
1400: 20 63 6f 75 6e 74 65 72 4d 75 74 65 78 48 65 6c   counterMutexHel
1410: 64 2c 0a 20 20 20 20 63 6f 75 6e 74 65 72 4d 75  d,.    counterMu
1420: 74 65 78 4e 6f 74 68 65 6c 64 0a 20 20 7d 3b 0a  texNotheld.  };.
1430: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29  .  if( objc!=2 )
1440: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
1450: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
1460: 2c 20 6f 62 6a 76 2c 20 22 42 4f 4f 4c 45 41 4e  , objv, "BOOLEAN
1470: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
1480: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
1490: 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f  if( TCL_OK!=Tcl_
14a0: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62  GetBooleanFromOb
14b0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31  j(interp, objv[1
14c0: 5d 2c 20 26 69 73 49 6e 73 74 61 6c 6c 29 20 29  ], &isInstall) )
14d0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
14e0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 61  _ERROR;.  }..  a
14f0: 73 73 65 72 74 28 69 73 49 6e 73 74 61 6c 6c 3d  ssert(isInstall=
1500: 3d 30 20 7c 7c 20 69 73 49 6e 73 74 61 6c 6c 3d  =0 || isInstall=
1510: 3d 31 29 3b 0a 20 20 61 73 73 65 72 74 28 67 2e  =1);.  assert(g.
1520: 69 73 49 6e 73 74 61 6c 6c 65 64 3d 3d 30 20 7c  isInstalled==0 |
1530: 7c 20 67 2e 69 73 49 6e 73 74 61 6c 6c 65 64 3d  | g.isInstalled=
1540: 3d 31 29 3b 0a 20 20 69 66 28 20 69 73 49 6e 73  =1);.  if( isIns
1550: 74 61 6c 6c 3d 3d 67 2e 69 73 49 6e 73 74 61 6c  tall==g.isInstal
1560: 6c 65 64 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  led ){.    Tcl_A
1570: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
1580: 72 70 2c 20 22 6d 75 74 65 78 20 63 6f 75 6e 74  rp, "mutex count
1590: 65 72 73 20 61 72 65 20 22 2c 20 30 29 3b 0a 20  ers are ", 0);. 
15a0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
15b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 69 73 49 6e  ult(interp, isIn
15c0: 73 74 61 6c 6c 3f 22 61 6c 72 65 61 64 79 20 69  stall?"already i
15d0: 6e 73 74 61 6c 6c 65 64 22 3a 22 6e 6f 74 20 69  nstalled":"not i
15e0: 6e 73 74 61 6c 6c 65 64 22 2c 20 30 29 3b 0a 20  nstalled", 0);. 
15f0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1600: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20  ROR;.  }..  if( 
1610: 69 73 49 6e 73 74 61 6c 6c 20 29 7b 0a 20 20 20  isInstall ){.   
1620: 20 61 73 73 65 72 74 28 20 67 2e 6d 2e 78 4d 75   assert( g.m.xMu
1630: 74 65 78 41 6c 6c 6f 63 3d 3d 30 20 29 3b 0a 20  texAlloc==0 );. 
1640: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
1650: 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f  config(SQLITE_CO
1660: 4e 46 49 47 5f 47 45 54 4d 55 54 45 58 2c 20 26  NFIG_GETMUTEX, &
1670: 67 2e 6d 29 3b 0a 20 20 20 20 69 66 28 20 72 63  g.m);.    if( rc
1680: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  ==SQLITE_OK ){. 
1690: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e       sqlite3_con
16a0: 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49  fig(SQLITE_CONFI
16b0: 47 5f 4d 55 54 45 58 2c 20 26 63 6f 75 6e 74 65  G_MUTEX, &counte
16c0: 72 5f 6d 65 74 68 6f 64 73 29 3b 0a 20 20 20 20  r_methods);.    
16d0: 7d 0a 20 20 20 20 67 2e 64 69 73 61 62 6c 65 54  }.    g.disableT
16e0: 72 79 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b  ry = 0;.  }else{
16f0: 0a 20 20 20 20 61 73 73 65 72 74 28 20 67 2e 6d  .    assert( g.m
1700: 2e 78 4d 75 74 65 78 41 6c 6c 6f 63 20 29 3b 0a  .xMutexAlloc );.
1710: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
1720: 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43  _config(SQLITE_C
1730: 4f 4e 46 49 47 5f 4d 55 54 45 58 2c 20 26 67 2e  ONFIG_MUTEX, &g.
1740: 6d 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 26  m);.    memset(&
1750: 67 2e 6d 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73  g.m, 0, sizeof(s
1760: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6d 65 74  qlite3_mutex_met
1770: 68 6f 64 73 29 29 3b 0a 20 20 7d 0a 0a 20 20 69  hods));.  }..  i
1780: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
1790: 20 29 7b 0a 20 20 20 20 67 2e 69 73 49 6e 73 74   ){.    g.isInst
17a0: 61 6c 6c 65 64 20 3d 20 69 73 49 6e 73 74 61 6c  alled = isInstal
17b0: 6c 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 53 65  l;.  }..  Tcl_Se
17c0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
17d0: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 45  (char *)sqlite3E
17e0: 72 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f  rrName(rc), TCL_
17f0: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 72 65 74  VOLATILE);.  ret
1800: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
1810: 2a 0a 2a 2a 20 72 65 61 64 5f 6d 75 74 65 78 5f  *.** read_mutex_
1820: 63 6f 75 6e 74 65 72 73 0a 2a 2f 0a 73 74 61 74  counters.*/.stat
1830: 69 63 20 69 6e 74 20 74 65 73 74 5f 72 65 61 64  ic int test_read
1840: 5f 6d 75 74 65 78 5f 63 6f 75 6e 74 65 72 73 28  _mutex_counters(
1850: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
1860: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
1870: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
1880: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
1890: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
18a0: 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52  ){.  Tcl_Obj *pR
18b0: 65 74 3b 0a 20 20 69 6e 74 20 69 69 3b 0a 0a 20  et;.  int ii;.. 
18c0: 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29 7b 0a   if( objc!=1 ){.
18d0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
18e0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
18f0: 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 72  objv, "");.    r
1900: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1910: 0a 20 20 7d 0a 0a 20 20 70 52 65 74 20 3d 20 54  .  }..  pRet = T
1920: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 54  cl_NewObj();.  T
1930: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
1940: 70 52 65 74 29 3b 0a 20 20 66 6f 72 28 69 69 3d  pRet);.  for(ii=
1950: 30 3b 20 69 69 3c 4d 41 58 5f 4d 55 54 45 58 45  0; ii<MAX_MUTEXE
1960: 53 3b 20 69 69 2b 2b 29 7b 0a 20 20 20 20 54 63  S; ii++){.    Tc
1970: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
1980: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70  lement(interp, p
1990: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Ret, Tcl_NewStri
19a0: 6e 67 4f 62 6a 28 61 4e 61 6d 65 5b 69 69 5d 2c  ngObj(aName[ii],
19b0: 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c   -1));.    Tcl_L
19c0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
19d0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74  ent(interp, pRet
19e0: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
19f0: 67 2e 61 43 6f 75 6e 74 65 72 5b 69 69 5d 29 29  g.aCounter[ii]))
1a00: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f  ;.  }.  Tcl_SetO
1a10: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
1a20: 20 70 52 65 74 29 3b 0a 20 20 54 63 6c 5f 44 65   pRet);.  Tcl_De
1a30: 63 72 52 65 66 43 6f 75 6e 74 28 70 52 65 74 29  crRefCount(pRet)
1a40: 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  ;..  return TCL_
1a50: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 6c 65  OK;.}../*.** cle
1a60: 61 72 5f 6d 75 74 65 78 5f 63 6f 75 6e 74 65 72  ar_mutex_counter
1a70: 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  s.*/.static int 
1a80: 74 65 73 74 5f 63 6c 65 61 72 5f 6d 75 74 65 78  test_clear_mutex
1a90: 5f 63 6f 75 6e 74 65 72 73 28 0a 20 20 76 6f 69  _counters(.  voi
1aa0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  d * clientData,.
1ab0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
1ac0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
1ad0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
1ae0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69  ST objv[].){.  i
1af0: 6e 74 20 69 69 3b 0a 0a 20 20 69 66 28 20 6f 62  nt ii;..  if( ob
1b00: 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c  jc!=1 ){.    Tcl
1b10: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
1b20: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
1b30: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
1b40: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20  CL_ERROR;.  }.. 
1b50: 20 66 6f 72 28 69 69 3d 30 3b 20 69 69 3c 4d 41   for(ii=0; ii<MA
1b60: 58 5f 4d 55 54 45 58 45 53 3b 20 69 69 2b 2b 29  X_MUTEXES; ii++)
1b70: 7b 0a 20 20 20 20 67 2e 61 43 6f 75 6e 74 65 72  {.    g.aCounter
1b80: 5b 69 69 5d 20 3d 20 30 3b 0a 20 20 7d 0a 20 20  [ii] = 0;.  }.  
1b90: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
1ba0: 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61  ../*.** Create a
1bb0: 6e 64 20 66 72 65 65 20 61 20 6d 75 74 65 78 2e  nd free a mutex.
1bc0: 20 20 52 65 74 75 72 6e 20 74 68 65 20 6d 75 74    Return the mut
1bd0: 65 78 20 70 6f 69 6e 74 65 72 2e 20 20 54 68 65  ex pointer.  The
1be0: 20 70 6f 69 6e 74 65 72 0a 2a 2a 20 77 69 6c 6c   pointer.** will
1bf0: 20 62 65 20 69 6e 76 61 6c 69 64 20 73 69 6e 63   be invalid sinc
1c00: 65 20 74 68 65 20 6d 75 74 65 78 20 68 61 73 20  e the mutex has 
1c10: 61 6c 72 65 61 64 79 20 62 65 65 6e 20 66 72 65  already been fre
1c20: 65 64 2e 20 20 54 68 65 0a 2a 2a 20 72 65 74 75  ed.  The.** retu
1c30: 72 6e 20 70 6f 69 6e 74 65 72 20 6a 75 73 74 20  rn pointer just 
1c40: 63 68 65 63 6b 73 20 74 6f 20 73 65 65 20 69 66  checks to see if
1c50: 20 74 68 65 20 6d 75 74 65 78 20 72 65 61 6c 6c   the mutex reall
1c60: 79 20 77 61 73 20 61 6c 6c 6f 63 61 74 65 64 2e  y was allocated.
1c70: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
1c80: 65 73 74 5f 61 6c 6c 6f 63 5f 6d 75 74 65 78 28  est_alloc_mutex(
1c90: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
1ca0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
1cb0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
1cc0: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
1cd0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
1ce0: 29 7b 0a 23 69 66 20 53 51 4c 49 54 45 5f 54 48  ){.#if SQLITE_TH
1cf0: 52 45 41 44 53 41 46 45 0a 20 20 73 71 6c 69 74  READSAFE.  sqlit
1d00: 65 33 5f 6d 75 74 65 78 20 2a 70 20 3d 20 73 71  e3_mutex *p = sq
1d10: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 61 6c 6c 6f  lite3_mutex_allo
1d20: 63 28 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 46  c(SQLITE_MUTEX_F
1d30: 41 53 54 29 3b 0a 20 20 63 68 61 72 20 7a 42 75  AST);.  char zBu
1d40: 66 5b 31 30 30 5d 3b 0a 20 20 73 71 6c 69 74 65  f[100];.  sqlite
1d50: 33 5f 6d 75 74 65 78 5f 66 72 65 65 28 70 29 3b  3_mutex_free(p);
1d60: 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69  .  sqlite3_snpri
1d70: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66 29  ntf(sizeof(zBuf)
1d80: 2c 20 7a 42 75 66 2c 20 22 25 70 22 2c 20 70 29  , zBuf, "%p", p)
1d90: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65  ;.  Tcl_AppendRe
1da0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75  sult(interp, zBu
1db0: 66 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 23 65  f, (char*)0);.#e
1dc0: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43  ndif.  return TC
1dd0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73  L_OK;.}../*.** s
1de0: 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 20 4f 50  qlite3_config OP
1df0: 54 49 4f 4e 0a 2a 2a 0a 2a 2a 20 4f 50 54 49 4f  TION.**.** OPTIO
1e00: 4e 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20  N can be either 
1e10: 6f 6e 65 20 6f 66 20 74 68 65 20 6b 65 79 77 6f  one of the keywo
1e20: 72 64 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  rds:.**.**      
1e30: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 43 4f 4e        SQLITE_CON
1e40: 46 49 47 5f 53 49 4e 47 4c 45 54 48 52 45 41 44  FIG_SINGLETHREAD
1e50: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 53  .**            S
1e60: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4d 55 4c  QLITE_CONFIG_MUL
1e70: 54 49 54 48 52 45 41 44 0a 2a 2a 20 20 20 20 20  TITHREAD.**     
1e80: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 43 4f         SQLITE_CO
1e90: 4e 46 49 47 5f 53 45 52 49 41 4c 49 5a 45 44 0a  NFIG_SERIALIZED.
1ea0: 2a 2a 0a 2a 2a 20 4f 72 20 4f 50 54 49 4f 4e 20  **.** Or OPTION 
1eb0: 63 61 6e 20 62 65 20 61 6e 20 72 61 77 20 69 6e  can be an raw in
1ec0: 74 65 67 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63  teger..*/.static
1ed0: 20 69 6e 74 20 74 65 73 74 5f 63 6f 6e 66 69 67   int test_config
1ee0: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
1ef0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
1f00: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
1f10: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
1f20: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
1f30: 0a 29 7b 0a 20 20 73 74 72 75 63 74 20 43 6f 6e  .){.  struct Con
1f40: 66 69 67 4f 70 74 69 6f 6e 20 7b 0a 20 20 20 20  figOption {.    
1f50: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d  const char *zNam
1f60: 65 3b 0a 20 20 20 20 69 6e 74 20 69 56 61 6c 75  e;.    int iValu
1f70: 65 3b 0a 20 20 7d 20 61 4f 70 74 5b 5d 20 3d 20  e;.  } aOpt[] = 
1f80: 7b 0a 20 20 20 20 7b 22 73 69 6e 67 6c 65 74 68  {.    {"singleth
1f90: 72 65 61 64 22 2c 20 53 51 4c 49 54 45 5f 43 4f  read", SQLITE_CO
1fa0: 4e 46 49 47 5f 53 49 4e 47 4c 45 54 48 52 45 41  NFIG_SINGLETHREA
1fb0: 44 7d 2c 0a 20 20 20 20 7b 22 6d 75 6c 74 69 74  D},.    {"multit
1fc0: 68 72 65 61 64 22 2c 20 20 53 51 4c 49 54 45 5f  hread",  SQLITE_
1fd0: 43 4f 4e 46 49 47 5f 4d 55 4c 54 49 54 48 52 45  CONFIG_MULTITHRE
1fe0: 41 44 7d 2c 0a 20 20 20 20 7b 22 73 65 72 69 61  AD},.    {"seria
1ff0: 6c 69 7a 65 64 22 2c 20 20 20 53 51 4c 49 54 45  lized",   SQLITE
2000: 5f 43 4f 4e 46 49 47 5f 53 45 52 49 41 4c 49 5a  _CONFIG_SERIALIZ
2010: 45 44 7d 2c 0a 20 20 20 20 7b 30 2c 20 30 7d 0a  ED},.    {0, 0}.
2020: 20 20 7d 3b 0a 20 20 69 6e 74 20 73 20 3d 20 73    };.  int s = s
2030: 69 7a 65 6f 66 28 73 74 72 75 63 74 20 43 6f 6e  izeof(struct Con
2040: 66 69 67 4f 70 74 69 6f 6e 29 3b 0a 20 20 69 6e  figOption);.  in
2050: 74 20 69 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a  t i;.  int rc;..
2060: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b    if( objc!=2 ){
2070: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
2080: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
2090: 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20   objv, "");.    
20a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
20b0: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 54 63 6c  ;.  }..  if( Tcl
20c0: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a  _GetIndexFromObj
20d0: 53 74 72 75 63 74 28 69 6e 74 65 72 70 2c 20 6f  Struct(interp, o
20e0: 62 6a 76 5b 31 5d 2c 20 61 4f 70 74 2c 20 73 2c  bjv[1], aOpt, s,
20f0: 20 22 66 6c 61 67 22 2c 20 30 2c 20 26 69 29 20   "flag", 0, &i) 
2100: 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47  ){.    if( Tcl_G
2110: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
2120: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 69  erp, objv[1], &i
2130: 29 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72  ) ){.      retur
2140: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
2150: 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20   }.  }else{.    
2160: 69 20 3d 20 61 4f 70 74 5b 69 5d 2e 69 56 61 6c  i = aOpt[i].iVal
2170: 75 65 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d 20  ue;.  }..  rc = 
2180: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 69  sqlite3_config(i
2190: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75  );.  Tcl_SetResu
21a0: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72  lt(interp, (char
21b0: 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e 61 6d   *)sqlite3ErrNam
21c0: 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 54  e(rc), TCL_VOLAT
21d0: 49 4c 45 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  ILE);.  return T
21e0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63  CL_OK;.}..static
21f0: 20 73 71 6c 69 74 65 33 20 2a 67 65 74 44 62 50   sqlite3 *getDbP
2200: 6f 69 6e 74 65 72 28 54 63 6c 5f 49 6e 74 65 72  ointer(Tcl_Inter
2210: 70 20 2a 70 49 6e 74 65 72 70 2c 20 54 63 6c 5f  p *pInterp, Tcl_
2220: 4f 62 6a 20 2a 70 4f 62 6a 29 7b 0a 20 20 73 71  Obj *pObj){.  sq
2230: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 54 63 6c  lite3 *db;.  Tcl
2240: 5f 43 6d 64 49 6e 66 6f 20 69 6e 66 6f 3b 0a 20  _CmdInfo info;. 
2250: 20 63 68 61 72 20 2a 7a 43 6d 64 20 3d 20 54 63   char *zCmd = Tc
2260: 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 4f 62 6a  l_GetString(pObj
2270: 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74  );.  if( Tcl_Get
2280: 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 70 49 6e 74  CommandInfo(pInt
2290: 65 72 70 2c 20 7a 43 6d 64 2c 20 26 69 6e 66 6f  erp, zCmd, &info
22a0: 29 20 29 7b 0a 20 20 20 20 64 62 20 3d 20 2a 28  ) ){.    db = *(
22b0: 28 73 71 6c 69 74 65 33 20 2a 2a 29 69 6e 66 6f  (sqlite3 **)info
22c0: 2e 6f 62 6a 43 6c 69 65 6e 74 44 61 74 61 29 3b  .objClientData);
22d0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 64 62  .  }else{.    db
22e0: 20 3d 20 28 73 71 6c 69 74 65 33 2a 29 73 71 6c   = (sqlite3*)sql
22f0: 69 74 65 33 54 65 73 74 54 65 78 74 54 6f 50 74  ite3TestTextToPt
2300: 72 28 7a 43 6d 64 29 3b 0a 20 20 7d 0a 20 20 61  r(zCmd);.  }.  a
2310: 73 73 65 72 74 28 20 64 62 20 29 3b 0a 20 20 72  ssert( db );.  r
2320: 65 74 75 72 6e 20 64 62 3b 0a 7d 0a 0a 73 74 61  eturn db;.}..sta
2330: 74 69 63 20 73 71 6c 69 74 65 33 5f 6d 75 74 65  tic sqlite3_mute
2340: 78 20 2a 67 65 74 53 74 61 74 69 63 4d 75 74 65  x *getStaticMute
2350: 78 50 6f 69 6e 74 65 72 28 0a 20 20 54 63 6c 5f  xPointer(.  Tcl_
2360: 49 6e 74 65 72 70 20 2a 70 49 6e 74 65 72 70 2c  Interp *pInterp,
2370: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a  .  Tcl_Obj *pObj
2380: 0a 29 7b 0a 20 20 69 6e 74 20 69 4d 75 74 65 78  .){.  int iMutex
2390: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49  ;.  if( Tcl_GetI
23a0: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 70 49 6e 74  ndexFromObj(pInt
23b0: 65 72 70 2c 20 70 4f 62 6a 2c 20 61 4e 61 6d 65  erp, pObj, aName
23c0: 2c 20 22 6d 75 74 65 78 20 6e 61 6d 65 22 2c 20  , "mutex name", 
23d0: 30 2c 20 26 69 4d 75 74 65 78 29 20 29 7b 0a 20  0, &iMutex) ){. 
23e0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d     return 0;.  }
23f0: 0a 20 20 61 73 73 65 72 74 28 20 69 4d 75 74 65  .  assert( iMute
2400: 78 21 3d 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f  x!=SQLITE_MUTEX_
2410: 46 41 53 54 20 26 26 20 69 4d 75 74 65 78 21 3d  FAST && iMutex!=
2420: 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 52 45 43  SQLITE_MUTEX_REC
2430: 55 52 53 49 56 45 20 29 3b 0a 20 20 72 65 74 75  URSIVE );.  retu
2440: 72 6e 20 63 6f 75 6e 74 65 72 4d 75 74 65 78 41  rn counterMutexA
2450: 6c 6c 6f 63 28 69 4d 75 74 65 78 29 3b 0a 7d 0a  lloc(iMutex);.}.
2460: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
2470: 5f 65 6e 74 65 72 5f 73 74 61 74 69 63 5f 6d 75  _enter_static_mu
2480: 74 65 78 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c  tex(.  void * cl
2490: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f  ientData,.  Tcl_
24a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
24b0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
24c0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
24d0: 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33  v[].){.  sqlite3
24e0: 5f 6d 75 74 65 78 20 2a 70 4d 75 74 65 78 3b 0a  _mutex *pMutex;.
24f0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b    if( objc!=2 ){
2500: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
2510: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
2520: 20 6f 62 6a 76 2c 20 22 4e 41 4d 45 22 29 3b 0a   objv, "NAME");.
2530: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
2540: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 4d 75 74  RROR;.  }.  pMut
2550: 65 78 20 3d 20 67 65 74 53 74 61 74 69 63 4d 75  ex = getStaticMu
2560: 74 65 78 50 6f 69 6e 74 65 72 28 69 6e 74 65 72  texPointer(inter
2570: 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 69  p, objv[1]);.  i
2580: 66 28 20 21 70 4d 75 74 65 78 20 29 7b 0a 20 20  f( !pMutex ){.  
2590: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
25a0: 4f 52 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65  OR;.  }.  sqlite
25b0: 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 70 4d  3_mutex_enter(pM
25c0: 75 74 65 78 29 3b 0a 20 20 72 65 74 75 72 6e 20  utex);.  return 
25d0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  TCL_OK;.}..stati
25e0: 63 20 69 6e 74 20 74 65 73 74 5f 6c 65 61 76 65  c int test_leave
25f0: 5f 73 74 61 74 69 63 5f 6d 75 74 65 78 28 0a 20  _static_mutex(. 
2600: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
2610: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
2620: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
2630: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
2640: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
2650: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78  .  sqlite3_mutex
2660: 20 2a 70 4d 75 74 65 78 3b 0a 20 20 69 66 28 20   *pMutex;.  if( 
2670: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54  objc!=2 ){.    T
2680: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
2690: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
26a0: 20 22 4e 41 4d 45 22 29 3b 0a 20 20 20 20 72 65   "NAME");.    re
26b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
26c0: 20 20 7d 0a 20 20 70 4d 75 74 65 78 20 3d 20 67    }.  pMutex = g
26d0: 65 74 53 74 61 74 69 63 4d 75 74 65 78 50 6f 69  etStaticMutexPoi
26e0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 6f 62 6a  nter(interp, obj
26f0: 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 21 70 4d  v[1]);.  if( !pM
2700: 75 74 65 78 20 29 7b 0a 20 20 20 20 72 65 74 75  utex ){.    retu
2710: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
2720: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65  }.  sqlite3_mute
2730: 78 5f 6c 65 61 76 65 28 70 4d 75 74 65 78 29 3b  x_leave(pMutex);
2740: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
2750: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
2760: 74 65 73 74 5f 65 6e 74 65 72 5f 64 62 5f 6d 75  test_enter_db_mu
2770: 74 65 78 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c  tex(.  void * cl
2780: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f  ientData,.  Tcl_
2790: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
27a0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
27b0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
27c0: 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33  v[].){.  sqlite3
27d0: 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f 62 6a 63   *db;.  if( objc
27e0: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57  !=2 ){.    Tcl_W
27f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
2800: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42  rp, 1, objv, "DB
2810: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
2820: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
2830: 64 62 20 3d 20 67 65 74 44 62 50 6f 69 6e 74 65  db = getDbPointe
2840: 72 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31  r(interp, objv[1
2850: 5d 29 3b 0a 20 20 69 66 28 20 21 64 62 20 29 7b  ]);.  if( !db ){
2860: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
2870: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 71 6c  ERROR;.  }.  sql
2880: 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72  ite3_mutex_enter
2890: 28 73 71 6c 69 74 65 33 5f 64 62 5f 6d 75 74 65  (sqlite3_db_mute
28a0: 78 28 64 62 29 29 3b 0a 20 20 72 65 74 75 72 6e  x(db));.  return
28b0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74   TCL_OK;.}..stat
28c0: 69 63 20 69 6e 74 20 74 65 73 74 5f 6c 65 61 76  ic int test_leav
28d0: 65 5f 64 62 5f 6d 75 74 65 78 28 0a 20 20 76 6f  e_db_mutex(.  vo
28e0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
28f0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
2900: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
2910: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
2920: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
2930: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69  sqlite3 *db;.  i
2940: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20  f( objc!=2 ){.  
2950: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
2960: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
2970: 6a 76 2c 20 22 44 42 22 29 3b 0a 20 20 20 20 72  jv, "DB");.    r
2980: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
2990: 0a 20 20 7d 0a 20 20 64 62 20 3d 20 67 65 74 44  .  }.  db = getD
29a0: 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c  bPointer(interp,
29b0: 20 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 69 66 28   objv[1]);.  if(
29c0: 20 21 64 62 20 29 7b 0a 20 20 20 20 72 65 74 75   !db ){.    retu
29d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
29e0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65  }.  sqlite3_mute
29f0: 78 5f 6c 65 61 76 65 28 73 71 6c 69 74 65 33 5f  x_leave(sqlite3_
2a00: 64 62 5f 6d 75 74 65 78 28 64 62 29 29 3b 0a 20  db_mutex(db));. 
2a10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
2a20: 7d 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73  }..int Sqlitetes
2a30: 74 5f 6d 75 74 65 78 5f 49 6e 69 74 28 54 63 6c  t_mutex_Init(Tcl
2a40: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
2a50: 7b 0a 20 20 73 74 61 74 69 63 20 73 74 72 75 63  {.  static struc
2a60: 74 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e  t {.    char *zN
2a70: 61 6d 65 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  ame;.    Tcl_Obj
2a80: 43 6d 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a  CmdProc *xProc;.
2a90: 20 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a 20    } aCmd[] = {. 
2aa0: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 68     { "sqlite3_sh
2ab0: 75 74 64 6f 77 6e 22 2c 20 20 20 20 20 20 20 20  utdown",        
2ac0: 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a  (Tcl_ObjCmdProc*
2ad0: 29 74 65 73 74 5f 73 68 75 74 64 6f 77 6e 20 7d  )test_shutdown }
2ae0: 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33  ,.    { "sqlite3
2af0: 5f 69 6e 69 74 69 61 6c 69 7a 65 22 2c 20 20 20  _initialize",   
2b00: 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72     (Tcl_ObjCmdPr
2b10: 6f 63 2a 29 74 65 73 74 5f 69 6e 69 74 69 61 6c  oc*)test_initial
2b20: 69 7a 65 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71  ize },.    { "sq
2b30: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 22 2c 20 20  lite3_config",  
2b40: 20 20 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a          (Tcl_Obj
2b50: 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 63 6f  CmdProc*)test_co
2b60: 6e 66 69 67 20 7d 2c 0a 0a 20 20 20 20 7b 20 22  nfig },..    { "
2b70: 65 6e 74 65 72 5f 73 74 61 74 69 63 5f 6d 75 74  enter_static_mut
2b80: 65 78 22 2c 20 20 20 20 20 20 28 54 63 6c 5f 4f  ex",      (Tcl_O
2b90: 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f  bjCmdProc*)test_
2ba0: 65 6e 74 65 72 5f 73 74 61 74 69 63 5f 6d 75 74  enter_static_mut
2bb0: 65 78 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 65 61  ex },.    { "lea
2bc0: 76 65 5f 73 74 61 74 69 63 5f 6d 75 74 65 78 22  ve_static_mutex"
2bd0: 2c 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43  ,      (Tcl_ObjC
2be0: 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 6c 65 61  mdProc*)test_lea
2bf0: 76 65 5f 73 74 61 74 69 63 5f 6d 75 74 65 78 20  ve_static_mutex 
2c00: 7d 2c 0a 0a 20 20 20 20 7b 20 22 65 6e 74 65 72  },..    { "enter
2c10: 5f 64 62 5f 6d 75 74 65 78 22 2c 20 20 20 20 20  _db_mutex",     
2c20: 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64       (Tcl_ObjCmd
2c30: 50 72 6f 63 2a 29 74 65 73 74 5f 65 6e 74 65 72  Proc*)test_enter
2c40: 5f 64 62 5f 6d 75 74 65 78 20 7d 2c 0a 20 20 20  _db_mutex },.   
2c50: 20 7b 20 22 6c 65 61 76 65 5f 64 62 5f 6d 75 74   { "leave_db_mut
2c60: 65 78 22 2c 20 20 20 20 20 20 20 20 20 20 28 54  ex",          (T
2c70: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74  cl_ObjCmdProc*)t
2c80: 65 73 74 5f 6c 65 61 76 65 5f 64 62 5f 6d 75 74  est_leave_db_mut
2c90: 65 78 20 7d 2c 0a 0a 20 20 20 20 7b 20 22 61 6c  ex },..    { "al
2ca0: 6c 6f 63 5f 64 65 61 6c 6c 6f 63 5f 6d 75 74 65  loc_dealloc_mute
2cb0: 78 22 2c 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a  x",     (Tcl_Obj
2cc0: 43 6d 64 50 72 6f 63 2a 29 74 65 73 74 5f 61 6c  CmdProc*)test_al
2cd0: 6c 6f 63 5f 6d 75 74 65 78 20 7d 2c 0a 20 20 20  loc_mutex },.   
2ce0: 20 7b 20 22 69 6e 73 74 61 6c 6c 5f 6d 75 74 65   { "install_mute
2cf0: 78 5f 63 6f 75 6e 74 65 72 73 22 2c 20 20 28 54  x_counters",  (T
2d00: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74  cl_ObjCmdProc*)t
2d10: 65 73 74 5f 69 6e 73 74 61 6c 6c 5f 6d 75 74 65  est_install_mute
2d20: 78 5f 63 6f 75 6e 74 65 72 73 20 7d 2c 0a 20 20  x_counters },.  
2d30: 20 20 7b 20 22 72 65 61 64 5f 6d 75 74 65 78 5f    { "read_mutex_
2d40: 63 6f 75 6e 74 65 72 73 22 2c 20 20 20 20 20 28  counters",     (
2d50: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29  Tcl_ObjCmdProc*)
2d60: 74 65 73 74 5f 72 65 61 64 5f 6d 75 74 65 78 5f  test_read_mutex_
2d70: 63 6f 75 6e 74 65 72 73 20 7d 2c 0a 20 20 20 20  counters },.    
2d80: 7b 20 22 63 6c 65 61 72 5f 6d 75 74 65 78 5f 63  { "clear_mutex_c
2d90: 6f 75 6e 74 65 72 73 22 2c 20 20 20 20 28 54 63  ounters",    (Tc
2da0: 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65  l_ObjCmdProc*)te
2db0: 73 74 5f 63 6c 65 61 72 5f 6d 75 74 65 78 5f 63  st_clear_mutex_c
2dc0: 6f 75 6e 74 65 72 73 20 7d 2c 0a 20 20 7d 3b 0a  ounters },.  };.
2dd0: 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69    int i;.  for(i
2de0: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d  =0; i<sizeof(aCm
2df0: 64 29 2f 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30  d)/sizeof(aCmd[0
2e00: 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63  ]); i++){.    Tc
2e10: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
2e20: 6e 64 28 69 6e 74 65 72 70 2c 20 61 43 6d 64 5b  nd(interp, aCmd[
2e30: 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d 64 5b 69  i].zName, aCmd[i
2e40: 5d 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a  ].xProc, 0, 0);.
2e50: 20 20 7d 0a 0a 20 20 54 63 6c 5f 4c 69 6e 6b 56    }..  Tcl_LinkV
2e60: 61 72 28 69 6e 74 65 72 70 2c 20 22 64 69 73 61  ar(interp, "disa
2e70: 62 6c 65 5f 6d 75 74 65 78 5f 69 6e 69 74 22 2c  ble_mutex_init",
2e80: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
2e90: 28 63 68 61 72 2a 29 26 67 2e 64 69 73 61 62 6c  (char*)&g.disabl
2ea0: 65 49 6e 69 74 2c 20 54 43 4c 5f 4c 49 4e 4b 5f  eInit, TCL_LINK_
2eb0: 49 4e 54 29 3b 0a 20 20 54 63 6c 5f 4c 69 6e 6b  INT);.  Tcl_Link
2ec0: 56 61 72 28 69 6e 74 65 72 70 2c 20 22 64 69 73  Var(interp, "dis
2ed0: 61 62 6c 65 5f 6d 75 74 65 78 5f 74 72 79 22 2c  able_mutex_try",
2ee0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
2ef0: 28 63 68 61 72 2a 29 26 67 2e 64 69 73 61 62 6c  (char*)&g.disabl
2f00: 65 54 72 79 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 49  eTry, TCL_LINK_I
2f10: 4e 54 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51  NT);.  return SQ
2f20: 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a                 LITE_OK;.}.