0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 41 75 67 75 73 /*.** 2007 Augus
0010: 74 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 t 15.**.** The a
0020: 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 uthor disclaims
0030: 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 copyright to thi
0040: 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 s source code.
0050: 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 In place of.** a
0060: 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 legal notice, h
0070: 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e ere is a blessin
0080: 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 g:.**.** May
0090: 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 you do good and
00a0: 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 not evil..**
00b0: 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 May you find for
00c0: 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 giveness for you
00d0: 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 rself and forgiv
00e0: 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 e others..**
00f0: 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 May you share fr
0100: 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 eely, never taki
0110: 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 ng more than you
0120: 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a give..**.******
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 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 ***.**.** This f
0180: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 63 6f 64 ile contains cod
0190: 65 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d e used to implem
01a0: 65 6e 74 20 74 65 73 74 20 69 6e 74 65 72 66 61 ent test interfa
01b0: 63 65 73 20 74 6f 20 74 68 65 0a 2a 2a 20 6d 65 ces to the.** me
01c0: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
01d0: 73 75 62 73 79 73 74 65 6d 2e 0a 2a 2f 0a 23 69 subsystem..*/.#i
01e0: 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e nclude "sqliteIn
01f0: 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 t.h".#include "t
0200: 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c cl.h".#include <
0210: 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 stdlib.h>.#inclu
0220: 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 de <string.h>.#i
0230: 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 nclude <assert.h
0240: 3e 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 73 74 >../*.** This st
0250: 72 75 63 74 75 72 65 20 69 73 20 75 73 65 64 20 ructure is used
0260: 74 6f 20 65 6e 63 61 70 73 75 6c 61 74 65 20 74 to encapsulate t
0270: 68 65 20 67 6c 6f 62 61 6c 20 73 74 61 74 65 20 he global state
0280: 76 61 72 69 61 62 6c 65 73 20 75 73 65 64 20 0a variables used .
0290: 2a 2a 20 62 79 20 6d 61 6c 6c 6f 63 28 29 20 66 ** by malloc() f
02a0: 61 75 6c 74 20 73 69 6d 75 6c 61 74 69 6f 6e 2e ault simulation.
02b0: 0a 2a 2f 0a 73 74 61 74 69 63 20 73 74 72 75 63 .*/.static struc
02c0: 74 20 4d 65 6d 46 61 75 6c 74 20 7b 0a 20 20 69 t MemFault {. i
02d0: 6e 74 20 69 43 6f 75 6e 74 64 6f 77 6e 3b 20 20 nt iCountdown;
02e0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
02f0: 20 6f 66 20 70 65 6e 64 69 6e 67 20 73 75 63 63 of pending succ
0300: 65 73 73 65 73 20 62 65 66 6f 72 65 20 61 20 66 esses before a f
0310: 61 69 6c 75 72 65 20 2a 2f 0a 20 20 69 6e 74 20 ailure */. int
0320: 6e 52 65 70 65 61 74 3b 20 20 20 20 20 20 20 20 nRepeat;
0330: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
0340: 20 74 69 6d 65 73 20 74 6f 20 72 65 70 65 61 74 times to repeat
0350: 20 74 68 65 20 66 61 69 6c 75 72 65 20 2a 2f 0a the failure */.
0360: 20 20 69 6e 74 20 6e 42 65 6e 69 67 6e 3b 20 20 int nBenign;
0370: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
0380: 62 65 72 20 6f 66 20 62 65 6e 69 67 6e 20 66 61 ber of benign fa
0390: 69 6c 75 72 65 73 20 73 65 65 6e 20 73 69 6e 63 ilures seen sinc
03a0: 65 20 6c 61 73 74 20 63 6f 6e 66 69 67 20 2a 2f e last config */
03b0: 0a 20 20 69 6e 74 20 6e 46 61 69 6c 3b 20 20 20 . int nFail;
03c0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
03d0: 6d 62 65 72 20 6f 66 20 66 61 69 6c 75 72 65 73 mber of failures
03e0: 20 73 65 65 6e 20 73 69 6e 63 65 20 6c 61 73 74 seen since last
03f0: 20 63 6f 6e 66 69 67 20 2a 2f 0a 20 20 75 38 20 config */. u8
0400: 65 6e 61 62 6c 65 3b 20 20 20 20 20 20 20 20 20 enable;
0410: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 /* True if
0420: 65 6e 61 62 6c 65 64 20 2a 2f 0a 20 20 69 6e 74 enabled */. int
0430: 20 69 73 49 6e 73 74 61 6c 6c 65 64 3b 20 20 20 isInstalled;
0440: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 /* True if
0450: 74 68 65 20 66 61 75 6c 74 20 73 69 6d 75 6c 61 the fault simula
0460: 74 69 6f 6e 20 6c 61 79 65 72 20 69 73 20 69 6e tion layer is in
0470: 73 74 61 6c 6c 65 64 20 2a 2f 0a 20 20 69 6e 74 stalled */. int
0480: 20 69 73 42 65 6e 69 67 6e 4d 6f 64 65 3b 20 20 isBenignMode;
0490: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 /* True if
04a0: 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 73 20 malloc failures
04b0: 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 62 are considered b
04c0: 65 6e 69 67 6e 20 2a 2f 0a 20 20 73 71 6c 69 74 enign */. sqlit
04d0: 65 33 5f 6d 65 6d 5f 6d 65 74 68 6f 64 73 20 6d e3_mem_methods m
04e0: 3b 20 20 2f 2a 20 27 52 65 61 6c 27 20 6d 61 6c ; /* 'Real' mal
04f0: 6c 6f 63 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 loc implementati
0500: 6f 6e 20 2a 2f 0a 7d 20 6d 65 6d 66 61 75 6c 74 on */.} memfault
0510: 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f ;../*.** This ro
0520: 75 74 69 6e 65 20 65 78 69 73 74 73 20 61 73 20 utine exists as
0530: 61 20 70 6c 61 63 65 20 74 6f 20 73 65 74 20 61 a place to set a
0540: 20 62 72 65 61 6b 70 6f 69 6e 74 20 74 68 61 74 breakpoint that
0550: 20 77 69 6c 6c 0a 2a 2a 20 66 69 72 65 20 6f 6e will.** fire on
0560: 20 61 6e 79 20 73 69 6d 75 6c 61 74 65 64 20 6d any simulated m
0570: 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 2e alloc() failure.
0580: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
0590: 73 71 6c 69 74 65 33 46 61 75 6c 74 28 76 6f 69 sqlite3Fault(voi
05a0: 64 29 7b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 d){. static int
05b0: 20 63 6e 74 20 3d 20 30 3b 0a 20 20 63 6e 74 2b cnt = 0;. cnt+
05c0: 2b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 +;.}../*.** Chec
05d0: 6b 20 74 6f 20 73 65 65 20 69 66 20 61 20 66 61 k to see if a fa
05e0: 75 6c 74 20 73 68 6f 75 6c 64 20 62 65 20 73 69 ult should be si
05f0: 6d 75 6c 61 74 65 64 2e 20 20 52 65 74 75 72 6e mulated. Return
0600: 20 74 72 75 65 20 74 6f 20 73 69 6d 75 6c 61 74 true to simulat
0610: 65 0a 2a 2a 20 74 68 65 20 66 61 75 6c 74 2e 20 e.** the fault.
0620: 20 52 65 74 75 72 6e 20 66 61 6c 73 65 20 69 66 Return false if
0630: 20 74 68 65 20 66 61 75 6c 74 20 73 68 6f 75 6c the fault shoul
0640: 64 20 6e 6f 74 20 62 65 20 73 69 6d 75 6c 61 74 d not be simulat
0650: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ed..*/.static in
0660: 74 20 66 61 75 6c 74 73 69 6d 53 74 65 70 28 76 t faultsimStep(v
0670: 6f 69 64 29 7b 0a 20 20 69 66 28 20 6c 69 6b 65 oid){. if( like
0680: 6c 79 28 21 6d 65 6d 66 61 75 6c 74 2e 65 6e 61 ly(!memfault.ena
0690: 62 6c 65 29 20 29 7b 0a 20 20 20 20 72 65 74 75 ble) ){. retu
06a0: 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 rn 0;. }. if(
06b0: 6d 65 6d 66 61 75 6c 74 2e 69 43 6f 75 6e 74 64 memfault.iCountd
06c0: 6f 77 6e 3e 30 20 29 7b 0a 20 20 20 20 6d 65 6d own>0 ){. mem
06d0: 66 61 75 6c 74 2e 69 43 6f 75 6e 74 64 6f 77 6e fault.iCountdown
06e0: 2d 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 --;. return 0
06f0: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 46 ;. }. sqlite3F
0700: 61 75 6c 74 28 29 3b 0a 20 20 6d 65 6d 66 61 75 ault();. memfau
0710: 6c 74 2e 6e 46 61 69 6c 2b 2b 3b 0a 20 20 69 66 lt.nFail++;. if
0720: 28 20 6d 65 6d 66 61 75 6c 74 2e 69 73 42 65 6e ( memfault.isBen
0730: 69 67 6e 4d 6f 64 65 3e 30 20 29 7b 0a 20 20 20 ignMode>0 ){.
0740: 20 6d 65 6d 66 61 75 6c 74 2e 6e 42 65 6e 69 67 memfault.nBenig
0750: 6e 2b 2b 3b 0a 20 20 7d 0a 20 20 6d 65 6d 66 61 n++;. }. memfa
0760: 75 6c 74 2e 6e 52 65 70 65 61 74 2d 2d 3b 0a 20 ult.nRepeat--;.
0770: 20 69 66 28 20 6d 65 6d 66 61 75 6c 74 2e 6e 52 if( memfault.nR
0780: 65 70 65 61 74 3c 3d 30 20 29 7b 0a 20 20 20 20 epeat<=0 ){.
0790: 6d 65 6d 66 61 75 6c 74 2e 65 6e 61 62 6c 65 20 memfault.enable
07a0: 3d 20 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 = 0;. }. retur
07b0: 6e 20 31 3b 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 n 1; .}../*.**
07c0: 41 20 76 65 72 73 69 6f 6e 20 6f 66 20 73 71 6c A version of sql
07d0: 69 74 65 33 5f 6d 65 6d 5f 6d 65 74 68 6f 64 73 ite3_mem_methods
07e0: 2e 78 4d 61 6c 6c 6f 63 28 29 20 74 68 61 74 20 .xMalloc() that
07f0: 69 6e 63 6c 75 64 65 73 20 66 61 75 6c 74 20 73 includes fault s
0800: 69 6d 75 6c 61 74 69 6f 6e 0a 2a 2a 20 6c 6f 67 imulation.** log
0810: 69 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ic..*/.static vo
0820: 69 64 20 2a 66 61 75 6c 74 73 69 6d 4d 61 6c 6c id *faultsimMall
0830: 6f 63 28 69 6e 74 20 6e 29 7b 0a 20 20 76 6f 69 oc(int n){. voi
0840: 64 20 2a 70 20 3d 20 30 3b 0a 20 20 69 66 28 20 d *p = 0;. if(
0850: 21 66 61 75 6c 74 73 69 6d 53 74 65 70 28 29 20 !faultsimStep()
0860: 29 7b 0a 20 20 20 20 70 20 3d 20 6d 65 6d 66 61 ){. p = memfa
0870: 75 6c 74 2e 6d 2e 78 4d 61 6c 6c 6f 63 28 6e 29 ult.m.xMalloc(n)
0880: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 70 ;. }. return p
0890: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 41 20 76 65 ;.}.../*.** A ve
08a0: 72 73 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 33 rsion of sqlite3
08b0: 5f 6d 65 6d 5f 6d 65 74 68 6f 64 73 2e 78 52 65 _mem_methods.xRe
08c0: 61 6c 6c 6f 63 28 29 20 74 68 61 74 20 69 6e 63 alloc() that inc
08d0: 6c 75 64 65 73 20 66 61 75 6c 74 20 73 69 6d 75 ludes fault simu
08e0: 6c 61 74 69 6f 6e 0a 2a 2a 20 6c 6f 67 69 63 2e lation.** logic.
08f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
0900: 2a 66 61 75 6c 74 73 69 6d 52 65 61 6c 6c 6f 63 *faultsimRealloc
0910: 28 76 6f 69 64 20 2a 70 4f 6c 64 2c 20 69 6e 74 (void *pOld, int
0920: 20 6e 29 7b 0a 20 20 76 6f 69 64 20 2a 70 20 3d n){. void *p =
0930: 20 30 3b 0a 20 20 69 66 28 20 21 66 61 75 6c 74 0;. if( !fault
0940: 73 69 6d 53 74 65 70 28 29 20 29 7b 0a 20 20 20 simStep() ){.
0950: 20 70 20 3d 20 6d 65 6d 66 61 75 6c 74 2e 6d 2e p = memfault.m.
0960: 78 52 65 61 6c 6c 6f 63 28 70 4f 6c 64 2c 20 6e xRealloc(pOld, n
0970: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
0980: 70 3b 0a 7d 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 65 p;.}../* .** The
0990: 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 65 74 68 6f following metho
09a0: 64 20 63 61 6c 6c 73 20 61 72 65 20 70 61 73 73 d calls are pass
09b0: 65 64 20 64 69 72 65 63 74 6c 79 20 74 68 72 6f ed directly thro
09c0: 75 67 68 20 74 6f 20 74 68 65 20 75 6e 64 65 72 ugh to the under
09d0: 6c 79 69 6e 67 0a 2a 2a 20 6d 61 6c 6c 6f 63 20 lying.** malloc
09e0: 73 79 73 74 65 6d 3a 0a 2a 2a 0a 2a 2a 20 20 20 system:.**.**
09f0: 20 20 78 46 72 65 65 0a 2a 2a 20 20 20 20 20 78 xFree.** x
0a00: 53 69 7a 65 0a 2a 2a 20 20 20 20 20 78 52 6f 75 Size.** xRou
0a10: 6e 64 75 70 0a 2a 2a 20 20 20 20 20 78 49 6e 69 ndup.** xIni
0a20: 74 0a 2a 2a 20 20 20 20 20 78 53 68 75 74 64 6f t.** xShutdo
0a30: 77 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 wn.*/.static voi
0a40: 64 20 66 61 75 6c 74 73 69 6d 46 72 65 65 28 76 d faultsimFree(v
0a50: 6f 69 64 20 2a 70 29 7b 0a 20 20 6d 65 6d 66 61 oid *p){. memfa
0a60: 75 6c 74 2e 6d 2e 78 46 72 65 65 28 70 29 3b 0a ult.m.xFree(p);.
0a70: 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 66 61 75 }.static int fau
0a80: 6c 74 73 69 6d 53 69 7a 65 28 76 6f 69 64 20 2a ltsimSize(void *
0a90: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 6d 65 6d p){. return mem
0aa0: 66 61 75 6c 74 2e 6d 2e 78 53 69 7a 65 28 70 29 fault.m.xSize(p)
0ab0: 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 66 ;.}.static int f
0ac0: 61 75 6c 74 73 69 6d 52 6f 75 6e 64 75 70 28 69 aultsimRoundup(i
0ad0: 6e 74 20 6e 29 7b 0a 20 20 72 65 74 75 72 6e 20 nt n){. return
0ae0: 6d 65 6d 66 61 75 6c 74 2e 6d 2e 78 52 6f 75 6e memfault.m.xRoun
0af0: 64 75 70 28 6e 29 3b 0a 7d 0a 73 74 61 74 69 63 dup(n);.}.static
0b00: 20 69 6e 74 20 66 61 75 6c 74 73 69 6d 49 6e 69 int faultsimIni
0b10: 74 28 76 6f 69 64 20 2a 70 29 7b 0a 20 20 72 65 t(void *p){. re
0b20: 74 75 72 6e 20 6d 65 6d 66 61 75 6c 74 2e 6d 2e turn memfault.m.
0b30: 78 49 6e 69 74 28 6d 65 6d 66 61 75 6c 74 2e 6d xInit(memfault.m
0b40: 2e 70 41 70 70 44 61 74 61 29 3b 0a 7d 0a 73 74 .pAppData);.}.st
0b50: 61 74 69 63 20 76 6f 69 64 20 66 61 75 6c 74 73 atic void faults
0b60: 69 6d 53 68 75 74 64 6f 77 6e 28 76 6f 69 64 20 imShutdown(void
0b70: 2a 70 29 7b 0a 20 20 6d 65 6d 66 61 75 6c 74 2e *p){. memfault.
0b80: 6d 2e 78 53 68 75 74 64 6f 77 6e 28 6d 65 6d 66 m.xShutdown(memf
0b90: 61 75 6c 74 2e 6d 2e 70 41 70 70 44 61 74 61 29 ault.m.pAppData)
0ba0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 ;.}../*.** This
0bb0: 72 6f 75 74 69 6e 65 20 63 6f 6e 66 69 67 75 72 routine configur
0bc0: 65 73 20 74 68 65 20 6d 61 6c 6c 6f 63 20 66 61 es the malloc fa
0bd0: 69 6c 75 72 65 20 73 69 6d 75 6c 61 74 69 6f 6e ilure simulation
0be0: 2e 20 20 41 66 74 65 72 0a 2a 2a 20 63 61 6c 6c . After.** call
0bf0: 69 6e 67 20 74 68 69 73 20 72 6f 75 74 69 6e 65 ing this routine
0c00: 2c 20 74 68 65 20 6e 65 78 74 20 6e 44 65 6c 61 , the next nDela
0c10: 79 20 6d 61 6c 6c 6f 63 73 20 77 69 6c 6c 20 73 y mallocs will s
0c20: 75 63 63 65 65 64 2c 20 66 6f 6c 6c 6f 77 65 64 ucceed, followed
0c30: 0a 2a 2a 20 62 79 20 61 20 62 6c 6f 63 6b 20 6f .** by a block o
0c40: 66 20 6e 52 65 70 65 61 74 20 66 61 69 6c 75 72 f nRepeat failur
0c50: 65 73 2c 20 61 66 74 65 72 20 77 68 69 63 68 20 es, after which
0c60: 6d 61 6c 6c 6f 63 28 29 20 63 61 6c 6c 73 20 77 malloc() calls w
0c70: 69 6c 6c 20 62 65 67 69 6e 0a 2a 2a 20 74 6f 20 ill begin.** to
0c80: 73 75 63 63 65 65 64 20 61 67 61 69 6e 2e 0a 2a succeed again..*
0c90: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66 61 /.static void fa
0ca0: 75 6c 74 73 69 6d 43 6f 6e 66 69 67 28 69 6e 74 ultsimConfig(int
0cb0: 20 6e 44 65 6c 61 79 2c 20 69 6e 74 20 6e 52 65 nDelay, int nRe
0cc0: 70 65 61 74 29 7b 0a 20 20 6d 65 6d 66 61 75 6c peat){. memfaul
0cd0: 74 2e 69 43 6f 75 6e 74 64 6f 77 6e 20 3d 20 6e t.iCountdown = n
0ce0: 44 65 6c 61 79 3b 0a 20 20 6d 65 6d 66 61 75 6c Delay;. memfaul
0cf0: 74 2e 6e 52 65 70 65 61 74 20 3d 20 6e 52 65 70 t.nRepeat = nRep
0d00: 65 61 74 3b 0a 20 20 6d 65 6d 66 61 75 6c 74 2e eat;. memfault.
0d10: 6e 42 65 6e 69 67 6e 20 3d 20 30 3b 0a 20 20 6d nBenign = 0;. m
0d20: 65 6d 66 61 75 6c 74 2e 6e 46 61 69 6c 20 3d 20 emfault.nFail =
0d30: 30 3b 0a 20 20 6d 65 6d 66 61 75 6c 74 2e 65 6e 0;. memfault.en
0d40: 61 62 6c 65 20 3d 20 6e 44 65 6c 61 79 3e 3d 30 able = nDelay>=0
0d50: 3b 0a 0a 20 20 2f 2a 20 53 6f 6d 65 74 69 6d 65 ;.. /* Sometime
0d60: 73 2c 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67 20 s, when running
0d70: 6d 75 6c 74 69 2d 74 68 72 65 61 64 65 64 20 74 multi-threaded t
0d80: 65 73 74 73 2c 20 74 68 65 20 69 73 42 65 6e 69 ests, the isBeni
0d90: 67 6e 4d 6f 64 65 20 0a 20 20 2a 2a 20 76 61 72 gnMode . ** var
0da0: 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 70 72 6f iable is not pro
0db0: 70 65 72 6c 79 20 69 6e 63 72 65 6d 65 6e 74 65 perly incremente
0dc0: 64 2f 64 65 63 72 65 6d 65 6e 74 65 64 20 73 6f d/decremented so
0dd0: 20 74 68 61 74 20 69 74 20 69 73 0a 20 20 2a 2a that it is. **
0de0: 20 30 20 77 68 65 6e 20 6e 6f 74 20 69 6e 73 69 0 when not insi
0df0: 64 65 20 61 20 62 65 6e 69 67 6e 20 6d 61 6c 6c de a benign mall
0e00: 6f 63 20 62 6c 6f 63 6b 2e 20 54 68 69 73 20 64 oc block. This d
0e10: 6f 65 73 6e 27 74 20 61 66 66 65 63 74 0a 20 20 oesn't affect.
0e20: 2a 2a 20 74 68 65 20 6d 75 6c 74 69 2d 74 68 72 ** the multi-thr
0e30: 65 61 64 65 64 20 74 65 73 74 73 2c 20 61 73 20 eaded tests, as
0e40: 74 68 65 79 20 64 6f 20 6e 6f 74 20 75 73 65 20 they do not use
0e50: 74 68 69 73 20 73 79 73 74 65 6d 2e 20 42 75 74 this system. But
0e60: 0a 20 20 2a 2a 20 69 74 20 64 6f 65 73 20 61 66 . ** it does af
0e70: 66 65 63 74 20 4f 4f 4d 20 74 65 73 74 73 20 72 fect OOM tests r
0e80: 75 6e 20 6c 61 74 65 72 20 69 6e 20 74 68 65 20 un later in the
0e90: 73 61 6d 65 20 70 72 6f 63 65 73 73 2e 20 53 6f same process. So
0ea0: 0a 20 20 2a 2a 20 7a 65 72 6f 20 74 68 65 20 76 . ** zero the v
0eb0: 61 72 69 61 62 6c 65 20 68 65 72 65 2c 20 6a 75 ariable here, ju
0ec0: 73 74 20 74 6f 20 62 65 20 73 75 72 65 2e 0a 20 st to be sure..
0ed0: 20 2a 2f 0a 20 20 6d 65 6d 66 61 75 6c 74 2e 69 */. memfault.i
0ee0: 73 42 65 6e 69 67 6e 4d 6f 64 65 20 3d 20 30 3b sBenignMode = 0;
0ef0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e .}../*.** Return
0f00: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 the number of f
0f10: 61 75 6c 74 73 20 28 62 6f 74 68 20 68 61 72 64 aults (both hard
0f20: 20 61 6e 64 20 62 65 6e 69 67 6e 20 66 61 75 6c and benign faul
0f30: 74 73 29 20 74 68 61 74 20 68 61 76 65 0a 2a 2a ts) that have.**
0f40: 20 6f 63 63 75 72 72 65 64 20 73 69 6e 63 65 20 occurred since
0f50: 74 68 65 20 69 6e 6a 65 63 74 6f 72 20 77 61 73 the injector was
0f60: 20 6c 61 73 74 20 63 6f 6e 66 69 67 75 72 65 64 last configured
0f70: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
0f80: 66 61 75 6c 74 73 69 6d 46 61 69 6c 75 72 65 73 faultsimFailures
0f90: 28 76 6f 69 64 29 7b 0a 20 20 72 65 74 75 72 6e (void){. return
0fa0: 20 6d 65 6d 66 61 75 6c 74 2e 6e 46 61 69 6c 3b memfault.nFail;
0fb0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e .}../*.** Return
0fc0: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 the number of b
0fd0: 65 6e 69 67 6e 20 66 61 75 6c 74 73 20 74 68 61 enign faults tha
0fe0: 74 20 68 61 76 65 20 6f 63 63 75 72 72 65 64 20 t have occurred
0ff0: 73 69 6e 63 65 20 74 68 65 0a 2a 2a 20 69 6e 6a since the.** inj
1000: 65 63 74 6f 72 20 77 61 73 20 6c 61 73 74 20 63 ector was last c
1010: 6f 6e 66 69 67 75 72 65 64 2e 0a 2a 2f 0a 73 74 onfigured..*/.st
1020: 61 74 69 63 20 69 6e 74 20 66 61 75 6c 74 73 69 atic int faultsi
1030: 6d 42 65 6e 69 67 6e 46 61 69 6c 75 72 65 73 28 mBenignFailures(
1040: 76 6f 69 64 29 7b 0a 20 20 72 65 74 75 72 6e 20 void){. return
1050: 6d 65 6d 66 61 75 6c 74 2e 6e 42 65 6e 69 67 6e memfault.nBenign
1060: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 ;.}../*.** Retur
1070: 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 n the number of
1080: 73 75 63 63 65 73 73 65 73 20 74 68 61 74 20 77 successes that w
1090: 69 6c 6c 20 6f 63 63 75 72 20 62 65 66 6f 72 65 ill occur before
10a0: 20 74 68 65 20 6e 65 78 74 20 66 61 69 6c 75 72 the next failur
10b0: 65 2e 0a 2a 2a 20 49 66 20 6e 6f 20 66 61 69 6c e..** If no fail
10c0: 75 72 65 73 20 61 72 65 20 73 63 68 65 64 75 6c ures are schedul
10d0: 65 64 2c 20 72 65 74 75 72 6e 20 2d 31 2e 0a 2a ed, return -1..*
10e0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 61 75 /.static int fau
10f0: 6c 74 73 69 6d 50 65 6e 64 69 6e 67 28 76 6f 69 ltsimPending(voi
1100: 64 29 7b 0a 20 20 69 66 28 20 6d 65 6d 66 61 75 d){. if( memfau
1110: 6c 74 2e 65 6e 61 62 6c 65 20 29 7b 0a 20 20 20 lt.enable ){.
1120: 20 72 65 74 75 72 6e 20 6d 65 6d 66 61 75 6c 74 return memfault
1130: 2e 69 43 6f 75 6e 74 64 6f 77 6e 3b 0a 20 20 7d .iCountdown;. }
1140: 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e else{. return
1150: 20 2d 31 3b 0a 20 20 7d 0a 7d 0a 0a 0a 73 74 61 -1;. }.}...sta
1160: 74 69 63 20 76 6f 69 64 20 66 61 75 6c 74 73 69 tic void faultsi
1170: 6d 42 65 67 69 6e 42 65 6e 69 67 6e 28 76 6f 69 mBeginBenign(voi
1180: 64 29 7b 0a 20 20 6d 65 6d 66 61 75 6c 74 2e 69 d){. memfault.i
1190: 73 42 65 6e 69 67 6e 4d 6f 64 65 2b 2b 3b 0a 7d sBenignMode++;.}
11a0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66 61 75 .static void fau
11b0: 6c 74 73 69 6d 45 6e 64 42 65 6e 69 67 6e 28 76 ltsimEndBenign(v
11c0: 6f 69 64 29 7b 0a 20 20 6d 65 6d 66 61 75 6c 74 oid){. memfault
11d0: 2e 69 73 42 65 6e 69 67 6e 4d 6f 64 65 2d 2d 3b .isBenignMode--;
11e0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 64 64 20 6f 72 .}../*.** Add or
11f0: 20 72 65 6d 6f 76 65 20 74 68 65 20 66 61 75 6c remove the faul
1200: 74 2d 73 69 6d 75 6c 61 74 69 6f 6e 20 6c 61 79 t-simulation lay
1210: 65 72 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33 er using sqlite3
1220: 5f 63 6f 6e 66 69 67 28 29 2e 20 49 66 0a 2a 2a _config(). If.**
1230: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 the argument is
1240: 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 20 0a non-zero, the .
1250: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 61 */.static int fa
1260: 75 6c 74 73 69 6d 49 6e 73 74 61 6c 6c 28 69 6e ultsimInstall(in
1270: 74 20 69 6e 73 74 61 6c 6c 29 7b 0a 20 20 73 74 t install){. st
1280: 61 74 69 63 20 73 74 72 75 63 74 20 73 71 6c 69 atic struct sqli
1290: 74 65 33 5f 6d 65 6d 5f 6d 65 74 68 6f 64 73 20 te3_mem_methods
12a0: 6d 20 3d 20 7b 0a 20 20 20 20 66 61 75 6c 74 73 m = {. faults
12b0: 69 6d 4d 61 6c 6c 6f 63 2c 20 20 20 20 20 20 20 imMalloc,
12c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 /* x
12d0: 4d 61 6c 6c 6f 63 20 2a 2f 0a 20 20 20 20 66 61 Malloc */. fa
12e0: 75 6c 74 73 69 6d 46 72 65 65 2c 20 20 20 20 20 ultsimFree,
12f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1300: 2f 2a 20 78 46 72 65 65 20 2a 2f 0a 20 20 20 20 /* xFree */.
1310: 66 61 75 6c 74 73 69 6d 52 65 61 6c 6c 6f 63 2c faultsimRealloc,
1320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1330: 20 20 2f 2a 20 78 52 65 61 6c 6c 6f 63 20 2a 2f /* xRealloc */
1340: 0a 20 20 20 20 66 61 75 6c 74 73 69 6d 53 69 7a . faultsimSiz
1350: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e,
1360: 20 20 20 20 20 20 20 2f 2a 20 78 53 69 7a 65 20 /* xSize
1370: 2a 2f 0a 20 20 20 20 66 61 75 6c 74 73 69 6d 52 */. faultsimR
1380: 6f 75 6e 64 75 70 2c 20 20 20 20 20 20 20 20 20 oundup,
1390: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 75 /* xRou
13a0: 6e 64 75 70 20 2a 2f 0a 20 20 20 20 66 61 75 6c ndup */. faul
13b0: 74 73 69 6d 49 6e 69 74 2c 20 20 20 20 20 20 20 tsimInit,
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
13d0: 20 78 49 6e 69 74 20 2a 2f 0a 20 20 20 20 66 61 xInit */. fa
13e0: 75 6c 74 73 69 6d 53 68 75 74 64 6f 77 6e 2c 20 ultsimShutdown,
13f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1400: 2f 2a 20 78 53 68 75 74 64 6f 77 6e 20 2a 2f 0a /* xShutdown */.
1410: 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 0
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1430: 20 20 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74 /* pAppDat
1440: 61 20 2a 2f 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 a */. };. int
1450: 72 63 3b 0a 0a 20 20 69 6e 73 74 61 6c 6c 20 3d rc;.. install =
1460: 20 28 69 6e 73 74 61 6c 6c 20 3f 20 31 20 3a 20 (install ? 1 :
1470: 30 29 3b 0a 20 20 61 73 73 65 72 74 28 6d 65 6d 0);. assert(mem
1480: 66 61 75 6c 74 2e 69 73 49 6e 73 74 61 6c 6c 65 fault.isInstalle
1490: 64 3d 3d 31 20 7c 7c 20 6d 65 6d 66 61 75 6c 74 d==1 || memfault
14a0: 2e 69 73 49 6e 73 74 61 6c 6c 65 64 3d 3d 30 29 .isInstalled==0)
14b0: 3b 0a 0a 20 20 69 66 28 20 69 6e 73 74 61 6c 6c ;.. if( install
14c0: 3d 3d 6d 65 6d 66 61 75 6c 74 2e 69 73 49 6e 73 ==memfault.isIns
14d0: 74 61 6c 6c 65 64 20 29 7b 0a 20 20 20 20 72 65 talled ){. re
14e0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f turn SQLITE_ERRO
14f0: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 69 6e R;. }.. if( in
1500: 73 74 61 6c 6c 20 29 7b 0a 20 20 20 20 72 63 20 stall ){. rc
1510: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 = sqlite3_config
1520: 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 47 (SQLITE_CONFIG_G
1530: 45 54 4d 41 4c 4c 4f 43 2c 20 26 6d 65 6d 66 61 ETMALLOC, &memfa
1540: 75 6c 74 2e 6d 29 3b 0a 20 20 20 20 61 73 73 65 ult.m);. asse
1550: 72 74 28 6d 65 6d 66 61 75 6c 74 2e 6d 2e 78 4d rt(memfault.m.xM
1560: 61 6c 6c 6f 63 29 3b 0a 20 20 20 20 69 66 28 20 alloc);. if(
1570: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc==SQLITE_OK ){
1580: 0a 20 20 20 20 20 20 72 63 20 3d 20 73 71 6c 69 . rc = sqli
1590: 74 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 te3_config(SQLIT
15a0: 45 5f 43 4f 4e 46 49 47 5f 4d 41 4c 4c 4f 43 2c E_CONFIG_MALLOC,
15b0: 20 26 6d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 &m);. }.
15c0: 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e sqlite3_test_con
15d0: 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53 54 trol(SQLITE_TEST
15e0: 43 54 52 4c 5f 42 45 4e 49 47 4e 5f 4d 41 4c 4c CTRL_BENIGN_MALL
15f0: 4f 43 5f 48 4f 4f 4b 53 2c 20 0a 20 20 20 20 20 OC_HOOKS, .
1600: 20 20 20 66 61 75 6c 74 73 69 6d 42 65 67 69 6e faultsimBegin
1610: 42 65 6e 69 67 6e 2c 20 66 61 75 6c 74 73 69 6d Benign, faultsim
1620: 45 6e 64 42 65 6e 69 67 6e 0a 20 20 20 20 29 3b EndBenign. );
1630: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 . }else{. sq
1640: 6c 69 74 65 33 5f 6d 65 6d 5f 6d 65 74 68 6f 64 lite3_mem_method
1650: 73 20 6d 3b 0a 20 20 20 20 61 73 73 65 72 74 28 s m;. assert(
1660: 6d 65 6d 66 61 75 6c 74 2e 6d 2e 78 4d 61 6c 6c memfault.m.xMall
1670: 6f 63 29 3b 0a 0a 20 20 20 20 2f 2a 20 4f 6e 65 oc);.. /* One
1680: 20 73 68 6f 75 6c 64 20 62 65 20 61 62 6c 65 20 should be able
1690: 74 6f 20 72 65 73 65 74 20 74 68 65 20 64 65 66 to reset the def
16a0: 61 75 6c 74 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f ault memory allo
16b0: 63 61 74 6f 72 20 62 79 20 73 74 6f 72 69 6e 67 cator by storing
16c0: 0a 20 20 20 20 2a 2a 20 61 20 7a 65 72 6f 65 64 . ** a zeroed
16d0: 20 61 6c 6c 6f 63 61 74 6f 72 20 74 68 65 6e 20 allocator then
16e0: 63 61 6c 6c 69 6e 67 20 47 45 54 4d 41 4c 4c 4f calling GETMALLO
16f0: 43 2e 20 2a 2f 0a 20 20 20 20 6d 65 6d 73 65 74 C. */. memset
1700: 28 26 6d 2c 20 30 2c 20 73 69 7a 65 6f 66 28 6d (&m, 0, sizeof(m
1710: 29 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f ));. sqlite3_
1720: 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f config(SQLITE_CO
1730: 4e 46 49 47 5f 4d 41 4c 4c 4f 43 2c 20 26 6d 29 NFIG_MALLOC, &m)
1740: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f ;. sqlite3_co
1750: 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 nfig(SQLITE_CONF
1760: 49 47 5f 47 45 54 4d 41 4c 4c 4f 43 2c 20 26 6d IG_GETMALLOC, &m
1770: 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 6d );. assert( m
1780: 65 6d 63 6d 70 28 26 6d 2c 20 26 6d 65 6d 66 61 emcmp(&m, &memfa
1790: 75 6c 74 2e 6d 2c 20 73 69 7a 65 6f 66 28 6d 29 ult.m, sizeof(m)
17a0: 29 3d 3d 30 20 29 3b 0a 0a 20 20 20 20 72 63 20 )==0 );.. rc
17b0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 = sqlite3_config
17c0: 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4d (SQLITE_CONFIG_M
17d0: 41 4c 4c 4f 43 2c 20 26 6d 65 6d 66 61 75 6c 74 ALLOC, &memfault
17e0: 2e 6d 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 .m);. sqlite3
17f0: 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 53 51 _test_control(SQ
1800: 4c 49 54 45 5f 54 45 53 54 43 54 52 4c 5f 42 45 LITE_TESTCTRL_BE
1810: 4e 49 47 4e 5f 4d 41 4c 4c 4f 43 5f 48 4f 4f 4b NIGN_MALLOC_HOOK
1820: 53 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20 S, 0, 0);. }..
1830: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f if( rc==SQLITE_
1840: 4f 4b 20 29 7b 0a 20 20 20 20 6d 65 6d 66 61 75 OK ){. memfau
1850: 6c 74 2e 69 73 49 6e 73 74 61 6c 6c 65 64 20 3d lt.isInstalled =
1860: 20 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 1;. }. return
1870: 20 72 63 3b 0a 7d 0a 0a 23 69 66 64 65 66 20 53 rc;.}..#ifdef S
1880: 51 4c 49 54 45 5f 54 45 53 54 0a 0a 2f 2a 0a 2a QLITE_TEST../*.*
1890: 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * This function
18a0: 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 is implemented i
18b0: 6e 20 74 65 73 74 31 2e 63 2e 20 52 65 74 75 72 n test1.c. Retur
18c0: 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 ns a pointer to
18d0: 61 20 73 74 61 74 69 63 0a 2a 2a 20 62 75 66 66 a static.** buff
18e0: 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 er containing th
18f0: 65 20 73 79 6d 62 6f 6c 69 63 20 53 51 4c 69 74 e symbolic SQLit
1900: 65 20 65 72 72 6f 72 20 63 6f 64 65 20 74 68 61 e error code tha
1910: 74 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f t corresponds to
1920: 0a 2a 2a 20 74 68 65 20 6c 65 61 73 74 2d 73 69 .** the least-si
1930: 67 6e 69 66 69 63 61 6e 74 20 38 2d 62 69 74 73 gnificant 8-bits
1940: 20 6f 66 20 74 68 65 20 69 6e 74 65 67 65 72 20 of the integer
1950: 70 61 73 73 65 64 20 61 73 20 61 6e 20 61 72 67 passed as an arg
1960: 75 6d 65 6e 74 2e 0a 2a 2a 20 46 6f 72 20 65 78 ument..** For ex
1970: 61 6d 70 6c 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 73 ample:.**.** s
1980: 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e qlite3TestErrorN
1990: 61 6d 65 28 31 29 20 2d 3e 20 22 53 51 4c 49 54 ame(1) -> "SQLIT
19a0: 45 5f 45 52 52 4f 52 22 0a 2a 2f 0a 63 6f 6e 73 E_ERROR".*/.cons
19b0: 74 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33 54 t char *sqlite3T
19c0: 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 69 6e 74 estErrorName(int
19d0: 29 3b 0a 0a 2f 2a 0a 2a 2a 20 54 72 61 6e 73 66 );../*.** Transf
19e0: 6f 72 6d 20 70 6f 69 6e 74 65 72 73 20 74 6f 20 orm pointers to
19f0: 74 65 78 74 20 61 6e 64 20 62 61 63 6b 20 61 67 text and back ag
1a00: 61 69 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ain.*/.static vo
1a10: 69 64 20 70 6f 69 6e 74 65 72 54 6f 54 65 78 74 id pointerToText
1a20: 28 76 6f 69 64 20 2a 70 2c 20 63 68 61 72 20 2a (void *p, char *
1a30: 7a 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e z){. static con
1a40: 73 74 20 63 68 61 72 20 7a 48 65 78 5b 5d 20 3d st char zHex[] =
1a50: 20 22 30 31 32 33 34 35 36 37 38 39 61 62 63 64 "0123456789abcd
1a60: 65 66 22 3b 0a 20 20 69 6e 74 20 69 2c 20 6b 3b ef";. int i, k;
1a70: 0a 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 . unsigned int
1a80: 75 3b 0a 20 20 73 71 6c 69 74 65 33 5f 75 69 6e u;. sqlite3_uin
1a90: 74 36 34 20 6e 3b 0a 20 20 69 66 28 20 70 3d 3d t64 n;. if( p==
1aa0: 30 20 29 7b 0a 20 20 20 20 73 74 72 63 70 79 28 0 ){. strcpy(
1ab0: 7a 2c 20 22 30 22 29 3b 0a 20 20 20 20 72 65 74 z, "0");. ret
1ac0: 75 72 6e 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 urn;. }. if( s
1ad0: 69 7a 65 6f 66 28 6e 29 3d 3d 73 69 7a 65 6f 66 izeof(n)==sizeof
1ae0: 28 70 29 20 29 7b 0a 20 20 20 20 6d 65 6d 63 70 (p) ){. memcp
1af0: 79 28 26 6e 2c 20 26 70 2c 20 73 69 7a 65 6f 66 y(&n, &p, sizeof
1b00: 28 70 29 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 (p));. }else if
1b10: 28 20 73 69 7a 65 6f 66 28 75 29 3d 3d 73 69 7a ( sizeof(u)==siz
1b20: 65 6f 66 28 70 29 20 29 7b 0a 20 20 20 20 6d 65 eof(p) ){. me
1b30: 6d 63 70 79 28 26 75 2c 20 26 70 2c 20 73 69 7a mcpy(&u, &p, siz
1b40: 65 6f 66 28 75 29 29 3b 0a 20 20 20 20 6e 20 3d eof(u));. n =
1b50: 20 75 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 u;. }else{.
1b60: 20 61 73 73 65 72 74 28 20 30 20 29 3b 0a 20 20 assert( 0 );.
1b70: 7d 0a 20 20 66 6f 72 28 69 3d 30 2c 20 6b 3d 73 }. for(i=0, k=s
1b80: 69 7a 65 6f 66 28 70 29 2a 32 2d 31 3b 20 69 3c izeof(p)*2-1; i<
1b90: 73 69 7a 65 6f 66 28 70 29 2a 32 3b 20 69 2b 2b sizeof(p)*2; i++
1ba0: 2c 20 6b 2d 2d 29 7b 0a 20 20 20 20 7a 5b 6b 5d , k--){. z[k]
1bb0: 20 3d 20 7a 48 65 78 5b 6e 26 30 78 66 5d 3b 0a = zHex[n&0xf];.
1bc0: 20 20 20 20 6e 20 3e 3e 3d 20 34 3b 0a 20 20 7d n >>= 4;. }
1bd0: 0a 20 20 7a 5b 73 69 7a 65 6f 66 28 70 29 2a 32 . z[sizeof(p)*2
1be0: 5d 20 3d 20 30 3b 0a 7d 0a 73 74 61 74 69 63 20 ] = 0;.}.static
1bf0: 69 6e 74 20 68 65 78 54 6f 49 6e 74 28 69 6e 74 int hexToInt(int
1c00: 20 68 29 7b 0a 20 20 69 66 28 20 68 3e 3d 27 30 h){. if( h>='0
1c10: 27 20 26 26 20 68 3c 3d 27 39 27 20 29 7b 0a 20 ' && h<='9' ){.
1c20: 20 20 20 72 65 74 75 72 6e 20 68 20 2d 20 27 30 return h - '0
1c30: 27 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 68 ';. }else if( h
1c40: 3e 3d 27 61 27 20 26 26 20 68 3c 3d 27 66 27 20 >='a' && h<='f'
1c50: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 68 20 ){. return h
1c60: 2d 20 27 61 27 20 2b 20 31 30 3b 0a 20 20 7d 65 - 'a' + 10;. }e
1c70: 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 lse{. return
1c80: 2d 31 3b 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 -1;. }.}.static
1c90: 20 69 6e 74 20 74 65 78 74 54 6f 50 6f 69 6e 74 int textToPoint
1ca0: 65 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a er(const char *z
1cb0: 2c 20 76 6f 69 64 20 2a 2a 70 70 29 7b 0a 20 20 , void **pp){.
1cc0: 73 71 6c 69 74 65 33 5f 75 69 6e 74 36 34 20 6e sqlite3_uint64 n
1cd0: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 = 0;. int i;.
1ce0: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 75 3b unsigned int u;
1cf0: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 . for(i=0; i<si
1d00: 7a 65 6f 66 28 76 6f 69 64 2a 29 2a 32 20 26 26 zeof(void*)*2 &&
1d10: 20 7a 5b 30 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 z[0]; i++){.
1d20: 20 69 6e 74 20 76 3b 0a 20 20 20 20 76 20 3d 20 int v;. v =
1d30: 68 65 78 54 6f 49 6e 74 28 2a 7a 2b 2b 29 3b 0a hexToInt(*z++);.
1d40: 20 20 20 20 69 66 28 20 76 3c 30 20 29 20 72 65 if( v<0 ) re
1d50: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1d60: 20 20 20 20 6e 20 3d 20 6e 2a 31 36 20 2b 20 76 n = n*16 + v
1d70: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 2a 7a 21 3d ;. }. if( *z!=
1d80: 30 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 0 ) return TCL_E
1d90: 52 52 4f 52 3b 0a 20 20 69 66 28 20 73 69 7a 65 RROR;. if( size
1da0: 6f 66 28 6e 29 3d 3d 73 69 7a 65 6f 66 28 2a 70 of(n)==sizeof(*p
1db0: 70 29 20 29 7b 0a 20 20 20 20 6d 65 6d 63 70 79 p) ){. memcpy
1dc0: 28 70 70 2c 20 26 6e 2c 20 73 69 7a 65 6f 66 28 (pp, &n, sizeof(
1dd0: 6e 29 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 n));. }else if(
1de0: 20 73 69 7a 65 6f 66 28 75 29 3d 3d 73 69 7a 65 sizeof(u)==size
1df0: 6f 66 28 2a 70 70 29 20 29 7b 0a 20 20 20 20 75 of(*pp) ){. u
1e00: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 = (unsigned int
1e10: 29 6e 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 )n;. memcpy(p
1e20: 70 2c 20 26 75 2c 20 73 69 7a 65 6f 66 28 75 29 p, &u, sizeof(u)
1e30: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 );. }else{.
1e40: 61 73 73 65 72 74 28 20 30 20 29 3b 0a 20 20 7d assert( 0 );. }
1e50: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
1e60: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
1e70: 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 61 6c : sqlite3_mal
1e80: 6c 6f 63 20 20 4e 42 59 54 45 53 0a 2a 2a 0a 2a loc NBYTES.**.*
1e90: 2a 20 52 61 77 20 74 65 73 74 20 69 6e 74 65 72 * Raw test inter
1ea0: 66 61 63 65 20 66 6f 72 20 73 71 6c 69 74 65 33 face for sqlite3
1eb0: 5f 6d 61 6c 6c 6f 63 28 29 2e 0a 2a 2f 0a 73 74 _malloc()..*/.st
1ec0: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6d 61 atic int test_ma
1ed0: 6c 6c 6f 63 28 0a 20 20 76 6f 69 64 20 2a 20 63 lloc(. void * c
1ee0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
1ef0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1f00: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
1f10: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
1f20: 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 6e 42 jv[].){. int nB
1f30: 79 74 65 3b 0a 20 20 76 6f 69 64 20 2a 70 3b 0a yte;. void *p;.
1f40: 20 20 63 68 61 72 20 7a 4f 75 74 5b 31 30 30 5d char zOut[100]
1f50: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 ;. if( objc!=2
1f60: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
1f70: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
1f80: 31 2c 20 6f 62 6a 76 2c 20 22 4e 42 59 54 45 53 1, objv, "NBYTES
1f90: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
1fa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
1fb0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
1fc0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
1fd0: 6a 76 5b 31 5d 2c 20 26 6e 42 79 74 65 29 20 29 jv[1], &nByte) )
1fe0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
1ff0: 52 3b 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 R;. p = sqlite3
2000: 5f 6d 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 _malloc((unsigne
2010: 64 29 6e 42 79 74 65 29 3b 0a 20 20 70 6f 69 6e d)nByte);. poin
2020: 74 65 72 54 6f 54 65 78 74 28 70 2c 20 7a 4f 75 terToText(p, zOu
2030: 74 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 t);. Tcl_Append
2040: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
2050: 4f 75 74 2c 20 4e 55 4c 4c 29 3b 0a 20 20 72 65 Out, NULL);. re
2060: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
2070: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 /*.** Usage:
2080: 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 20 sqlite3_realloc
2090: 20 50 52 49 4f 52 20 20 4e 42 59 54 45 53 0a 2a PRIOR NBYTES.*
20a0: 2a 0a 2a 2a 20 52 61 77 20 74 65 73 74 20 69 6e *.** Raw test in
20b0: 74 65 72 66 61 63 65 20 66 6f 72 20 73 71 6c 69 terface for sqli
20c0: 74 65 33 5f 72 65 61 6c 6c 6f 63 28 29 2e 0a 2a te3_realloc()..*
20d0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 /.static int tes
20e0: 74 5f 72 65 61 6c 6c 6f 63 28 0a 20 20 76 6f 69 t_realloc(. voi
20f0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
2100: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2110: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
2120: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
2130: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
2140: 6e 74 20 6e 42 79 74 65 3b 0a 20 20 76 6f 69 64 nt nByte;. void
2150: 20 2a 70 50 72 69 6f 72 2c 20 2a 70 3b 0a 20 20 *pPrior, *p;.
2160: 63 68 61 72 20 7a 4f 75 74 5b 31 30 30 5d 3b 0a char zOut[100];.
2170: 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
2180: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
2190: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
21a0: 20 6f 62 6a 76 2c 20 22 50 52 49 4f 52 20 4e 42 objv, "PRIOR NB
21b0: 59 54 45 53 22 29 3b 0a 20 20 20 20 72 65 74 75 YTES");. retu
21c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
21d0: 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 }. if( Tcl_GetI
21e0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
21f0: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e 42 79 74 , objv[2], &nByt
2200: 65 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f e) ) return TCL_
2210: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 74 65 78 ERROR;. if( tex
2220: 74 54 6f 50 6f 69 6e 74 65 72 28 54 63 6c 5f 47 tToPointer(Tcl_G
2230: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
2240: 29 2c 20 26 70 50 72 69 6f 72 29 20 29 7b 0a 20 ), &pPrior) ){.
2250: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
2260: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
2270: 20 70 6f 69 6e 74 65 72 3a 20 22 2c 20 54 63 6c pointer: ", Tcl
2280: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
2290: 31 5d 29 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 1]), (char*)0);.
22a0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
22b0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 20 3d 20 RROR;. }. p =
22c0: 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 sqlite3_realloc(
22d0: 70 50 72 69 6f 72 2c 20 28 75 6e 73 69 67 6e 65 pPrior, (unsigne
22e0: 64 29 6e 42 79 74 65 29 3b 0a 20 20 70 6f 69 6e d)nByte);. poin
22f0: 74 65 72 54 6f 54 65 78 74 28 70 2c 20 7a 4f 75 terToText(p, zOu
2300: 74 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 t);. Tcl_Append
2310: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a Result(interp, z
2320: 4f 75 74 2c 20 4e 55 4c 4c 29 3b 0a 20 20 72 65 Out, NULL);. re
2330: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
2340: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 /*.** Usage:
2350: 73 71 6c 69 74 65 33 5f 66 72 65 65 20 20 50 52 sqlite3_free PR
2360: 49 4f 52 0a 2a 2a 0a 2a 2a 20 52 61 77 20 74 65 IOR.**.** Raw te
2370: 73 74 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 st interface for
2380: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 29 2e sqlite3_free().
2390: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
23a0: 65 73 74 5f 66 72 65 65 28 0a 20 20 76 6f 69 64 est_free(. void
23b0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
23c0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
23d0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
23e0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
23f0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 76 6f T objv[].){. vo
2400: 69 64 20 2a 70 50 72 69 6f 72 3b 0a 20 20 69 66 id *pPrior;. if
2410: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
2420: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
2430: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
2440: 76 2c 20 22 50 52 49 4f 52 22 29 3b 0a 20 20 20 v, "PRIOR");.
2450: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2460: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 74 65 78 R;. }. if( tex
2470: 74 54 6f 50 6f 69 6e 74 65 72 28 54 63 6c 5f 47 tToPointer(Tcl_G
2480: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
2490: 29 2c 20 26 70 50 72 69 6f 72 29 20 29 7b 0a 20 ), &pPrior) ){.
24a0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
24b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
24c0: 20 70 6f 69 6e 74 65 72 3a 20 22 2c 20 54 63 6c pointer: ", Tcl
24d0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
24e0: 31 5d 29 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 1]), (char*)0);.
24f0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
2500: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 RROR;. }. sqli
2510: 74 65 33 5f 66 72 65 65 28 70 50 72 69 6f 72 29 te3_free(pPrior)
2520: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
2530: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 73 K;.}../*.** Thes
2540: 65 20 72 6f 75 74 69 6e 65 73 20 61 72 65 20 69 e routines are i
2550: 6e 20 74 65 73 74 5f 68 65 78 69 6f 2e 63 0a 2a n test_hexio.c.*
2560: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 54 65 73 /.int sqlite3Tes
2570: 74 48 65 78 54 6f 42 69 6e 28 63 6f 6e 73 74 20 tHexToBin(const
2580: 63 68 61 72 20 2a 2c 20 69 6e 74 2c 20 63 68 61 char *, int, cha
2590: 72 20 2a 29 3b 0a 69 6e 74 20 73 71 6c 69 74 65 r *);.int sqlite
25a0: 33 54 65 73 74 42 69 6e 54 6f 48 65 78 28 63 68 3TestBinToHex(ch
25b0: 61 72 2a 2c 69 6e 74 29 3b 0a 0a 2f 2a 0a 2a 2a ar*,int);../*.**
25c0: 20 55 73 61 67 65 3a 20 20 20 20 6d 65 6d 73 65 Usage: memse
25d0: 74 20 20 41 44 44 52 45 53 53 20 20 53 49 5a 45 t ADDRESS SIZE
25e0: 20 20 48 45 58 0a 2a 2a 0a 2a 2a 20 53 65 74 20 HEX.**.** Set
25f0: 61 20 63 68 75 6e 6b 20 6f 66 20 6d 65 6d 6f 72 a chunk of memor
2600: 79 20 28 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d y (obtained from
2610: 20 6d 61 6c 6c 6f 63 2c 20 70 72 6f 62 61 62 6c malloc, probabl
2620: 79 29 20 74 6f 20 61 0a 2a 2a 20 73 70 65 63 69 y) to a.** speci
2630: 66 69 65 64 20 68 65 78 20 70 61 74 74 65 72 6e fied hex pattern
2640: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
2650: 74 65 73 74 5f 6d 65 6d 73 65 74 28 0a 20 20 76 test_memset(. v
2660: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
2670: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
2680: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
2690: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
26a0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
26b0: 20 76 6f 69 64 20 2a 70 3b 0a 20 20 69 6e 74 20 void *p;. int
26c0: 73 69 7a 65 2c 20 6e 2c 20 69 3b 0a 20 20 63 68 size, n, i;. ch
26d0: 61 72 20 2a 7a 48 65 78 3b 0a 20 20 63 68 61 72 ar *zHex;. char
26e0: 20 2a 7a 4f 75 74 3b 0a 20 20 63 68 61 72 20 7a *zOut;. char z
26f0: 42 69 6e 5b 31 30 30 5d 3b 0a 0a 20 20 69 66 28 Bin[100];.. if(
2700: 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 objc!=4 ){.
2710: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
2720: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
2730: 2c 20 22 41 44 44 52 45 53 53 20 53 49 5a 45 20 , "ADDRESS SIZE
2740: 48 45 58 22 29 3b 0a 20 20 20 20 72 65 74 75 72 HEX");. retur
2750: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
2760: 0a 20 20 69 66 28 20 74 65 78 74 54 6f 50 6f 69 . if( textToPoi
2770: 6e 74 65 72 28 54 63 6c 5f 47 65 74 53 74 72 69 nter(Tcl_GetStri
2780: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 70 29 ng(objv[1]), &p)
2790: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
27a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
27b0: 20 22 62 61 64 20 70 6f 69 6e 74 65 72 3a 20 22 "bad pointer: "
27c0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
27d0: 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 68 61 72 2a objv[1]), (char*
27e0: 29 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 )0);. return
27f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
2800: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
2810: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
2820: 62 6a 76 5b 32 5d 2c 20 26 73 69 7a 65 29 20 29 bjv[2], &size) )
2830: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
2840: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
2850: 28 20 73 69 7a 65 3c 3d 30 20 29 7b 0a 20 20 20 ( size<=0 ){.
2860: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2870: 74 28 69 6e 74 65 72 70 2c 20 22 73 69 7a 65 20 t(interp, "size
2880: 6d 75 73 74 20 62 65 20 70 6f 73 69 74 69 76 65 must be positive
2890: 22 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 ", (char*)0);.
28a0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
28b0: 4f 52 3b 0a 20 20 7d 0a 20 20 7a 48 65 78 20 3d OR;. }. zHex =
28c0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
28d0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 omObj(objv[3], &
28e0: 6e 29 3b 0a 20 20 69 66 28 20 6e 3e 73 69 7a 65 n);. if( n>size
28f0: 6f 66 28 7a 42 69 6e 29 2a 32 20 29 20 6e 20 3d of(zBin)*2 ) n =
2900: 20 73 69 7a 65 6f 66 28 7a 42 69 6e 29 2a 32 3b sizeof(zBin)*2;
2910: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 54 65 . n = sqlite3Te
2920: 73 74 48 65 78 54 6f 42 69 6e 28 7a 48 65 78 2c stHexToBin(zHex,
2930: 20 6e 2c 20 7a 42 69 6e 29 3b 0a 20 20 69 66 28 n, zBin);. if(
2940: 20 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c n==0 ){. Tcl
2950: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2960: 74 65 72 70 2c 20 22 6e 6f 20 64 61 74 61 22 2c terp, "no data",
2970: 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 (char*)0);.
2980: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2990: 3b 0a 20 20 7d 0a 20 20 7a 4f 75 74 20 3d 20 70 ;. }. zOut = p
29a0: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 ;. for(i=0; i<s
29b0: 69 7a 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a ize; i++){. z
29c0: 4f 75 74 5b 69 5d 20 3d 20 7a 42 69 6e 5b 69 25 Out[i] = zBin[i%
29d0: 6e 5d 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e n];. }. return
29e0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a TCL_OK;.}../*.*
29f0: 2a 20 55 73 61 67 65 3a 20 20 20 20 6d 65 6d 67 * Usage: memg
2a00: 65 74 20 20 41 44 44 52 45 53 53 20 20 53 49 5a et ADDRESS SIZ
2a10: 45 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 6d E.**.** Return m
2a20: 65 6d 6f 72 79 20 61 73 20 68 65 78 61 64 65 63 emory as hexadec
2a30: 69 6d 61 6c 20 74 65 78 74 2e 0a 2a 2f 0a 73 74 imal text..*/.st
2a40: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 6d 65 atic int test_me
2a50: 6d 67 65 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 mget(. void * c
2a60: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
2a70: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2a80: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
2a90: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
2aa0: 6a 76 5b 5d 0a 29 7b 0a 20 20 76 6f 69 64 20 2a jv[].){. void *
2ab0: 70 3b 0a 20 20 69 6e 74 20 73 69 7a 65 2c 20 6e p;. int size, n
2ac0: 3b 0a 20 20 63 68 61 72 20 2a 7a 42 69 6e 3b 0a ;. char *zBin;.
2ad0: 20 20 63 68 61 72 20 7a 48 65 78 5b 31 30 30 5d char zHex[100]
2ae0: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 ;.. if( objc!=3
2af0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
2b00: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
2b10: 20 31 2c 20 6f 62 6a 76 2c 20 22 41 44 44 52 45 1, objv, "ADDRE
2b20: 53 53 20 53 49 5a 45 22 29 3b 0a 20 20 20 20 72 SS SIZE");. r
2b30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2b40: 0a 20 20 7d 0a 20 20 69 66 28 20 74 65 78 74 54 . }. if( textT
2b50: 6f 50 6f 69 6e 74 65 72 28 54 63 6c 5f 47 65 74 oPointer(Tcl_Get
2b60: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
2b70: 20 26 70 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f &p) ){. Tcl_
2b80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2b90: 65 72 70 2c 20 22 62 61 64 20 70 6f 69 6e 74 65 erp, "bad pointe
2ba0: 72 3a 20 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 r: ", Tcl_GetStr
2bb0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 28 63 ing(objv[1]), (c
2bc0: 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 65 74 har*)0);. ret
2bd0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2be0: 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 }. if( Tcl_Get
2bf0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
2c00: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 73 69 7a p, objv[2], &siz
2c10: 65 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e e) ){. return
2c20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
2c30: 20 20 69 66 28 20 73 69 7a 65 3c 3d 30 20 29 7b if( size<=0 ){
2c40: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
2c50: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 73 esult(interp, "s
2c60: 69 7a 65 20 6d 75 73 74 20 62 65 20 70 6f 73 69 ize must be posi
2c70: 74 69 76 65 22 2c 20 28 63 68 61 72 2a 29 30 29 tive", (char*)0)
2c80: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
2c90: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 42 _ERROR;. }. zB
2ca0: 69 6e 20 3d 20 70 3b 0a 20 20 77 68 69 6c 65 28 in = p;. while(
2cb0: 20 73 69 7a 65 3e 30 20 29 7b 0a 20 20 20 20 69 size>0 ){. i
2cc0: 66 28 20 73 69 7a 65 3e 28 73 69 7a 65 6f 66 28 f( size>(sizeof(
2cd0: 7a 48 65 78 29 2d 31 29 2f 32 20 29 7b 0a 20 20 zHex)-1)/2 ){.
2ce0: 20 20 20 20 6e 20 3d 20 28 73 69 7a 65 6f 66 28 n = (sizeof(
2cf0: 7a 48 65 78 29 2d 31 29 2f 32 3b 0a 20 20 20 20 zHex)-1)/2;.
2d00: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6e 20 3d }else{. n =
2d10: 20 73 69 7a 65 3b 0a 20 20 20 20 7d 0a 20 20 20 size;. }.
2d20: 20 6d 65 6d 63 70 79 28 7a 48 65 78 2c 20 7a 42 memcpy(zHex, zB
2d30: 69 6e 2c 20 6e 29 3b 0a 20 20 20 20 7a 42 69 6e in, n);. zBin
2d40: 20 2b 3d 20 6e 3b 0a 20 20 20 20 73 69 7a 65 20 += n;. size
2d50: 2d 3d 20 6e 3b 0a 20 20 20 20 73 71 6c 69 74 65 -= n;. sqlite
2d60: 33 54 65 73 74 42 69 6e 54 6f 48 65 78 28 7a 48 3TestBinToHex(zH
2d70: 65 78 2c 20 6e 29 3b 0a 20 20 20 20 54 63 6c 5f ex, n);. Tcl_
2d80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2d90: 65 72 70 2c 20 7a 48 65 78 2c 20 28 63 68 61 72 erp, zHex, (char
2da0: 2a 29 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 *)0);. }. retu
2db0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
2dc0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 73 71 .** Usage: sq
2dd0: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 lite3_memory_use
2de0: 64 0a 2a 2a 0a 2a 2a 20 52 61 77 20 74 65 73 74 d.**.** Raw test
2df0: 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 73 interface for s
2e00: 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 qlite3_memory_us
2e10: 65 64 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ed()..*/.static
2e20: 69 6e 74 20 74 65 73 74 5f 6d 65 6d 6f 72 79 5f int test_memory_
2e30: 75 73 65 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 used(. void * c
2e40: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
2e50: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2e60: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
2e70: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
2e80: 6a 76 5b 5d 0a 29 7b 0a 20 20 54 63 6c 5f 53 65 jv[].){. Tcl_Se
2e90: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
2ea0: 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e p, Tcl_NewWideIn
2eb0: 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 6d 65 6d tObj(sqlite3_mem
2ec0: 6f 72 79 5f 75 73 65 64 28 29 29 29 3b 0a 20 20 ory_used()));.
2ed0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
2ee0: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
2ef0: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 sqlite3_memory
2f00: 5f 68 69 67 68 77 61 74 65 72 20 3f 52 45 53 45 _highwater ?RESE
2f10: 54 46 4c 41 47 3f 0a 2a 2a 0a 2a 2a 20 52 61 77 TFLAG?.**.** Raw
2f20: 20 74 65 73 74 20 69 6e 74 65 72 66 61 63 65 20 test interface
2f30: 66 6f 72 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f for sqlite3_memo
2f40: 72 79 5f 68 69 67 68 77 61 74 65 72 28 29 2e 0a ry_highwater()..
2f50: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
2f60: 73 74 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 st_memory_highwa
2f70: 74 65 72 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c ter(. void * cl
2f80: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
2f90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
2fa0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
2fb0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
2fc0: 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 65 73 v[].){. int res
2fd0: 65 74 46 6c 61 67 20 3d 20 30 3b 0a 20 20 69 66 etFlag = 0;. if
2fe0: 28 20 6f 62 6a 63 21 3d 31 20 26 26 20 6f 62 6a ( objc!=1 && obj
2ff0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=2 ){. Tcl_
3000: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
3010: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
3020: 52 45 53 45 54 3f 22 29 3b 0a 20 20 20 20 72 65 RESET?");. re
3030: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3040: 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d }. if( objc==
3050: 32 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 2 ){. if( Tcl
3060: 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
3070: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
3080: 31 5d 2c 20 26 72 65 73 65 74 46 6c 61 67 29 20 1], &resetFlag)
3090: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
30a0: 4f 52 3b 0a 20 20 7d 20 0a 20 20 54 63 6c 5f 53 OR;. } . Tcl_S
30b0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
30c0: 72 70 2c 20 0a 20 20 20 20 20 54 63 6c 5f 4e 65 rp, . Tcl_Ne
30d0: 77 57 69 64 65 49 6e 74 4f 62 6a 28 73 71 6c 69 wWideIntObj(sqli
30e0: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 te3_memory_highw
30f0: 61 74 65 72 28 72 65 73 65 74 46 6c 61 67 29 29 ater(resetFlag))
3100: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
3110: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
3120: 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d ge: sqlite3_m
3130: 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 emdebug_backtrac
3140: 65 20 44 45 50 54 48 0a 2a 2a 0a 2a 2a 20 53 65 e DEPTH.**.** Se
3150: 74 20 74 68 65 20 64 65 70 74 68 20 6f 66 20 62 t the depth of b
3160: 61 63 6b 74 72 61 63 69 6e 67 2e 20 20 49 66 20 acktracing. If
3170: 53 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 20 SQLITE_MEMDEBUG
3180: 69 73 20 6e 6f 74 20 64 65 66 69 6e 65 64 0a 2a is not defined.*
3190: 2a 20 74 68 65 6e 20 74 68 69 73 20 72 6f 75 74 * then this rout
31a0: 69 6e 65 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a ine is a no-op..
31b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
31c0: 73 74 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b st_memdebug_back
31d0: 74 72 61 63 65 28 0a 20 20 76 6f 69 64 20 2a 20 trace(. void *
31e0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
31f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3200: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
3210: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
3220: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 64 bjv[].){. int d
3230: 65 70 74 68 3b 0a 20 20 69 66 28 20 6f 62 6a 63 epth;. if( objc
3240: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=2 ){. Tcl_W
3250: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
3260: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 45 rp, 1, objv, "DE
3270: 50 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e PT");. return
3280: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
3290: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
32a0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
32b0: 6f 62 6a 76 5b 31 5d 2c 20 26 64 65 70 74 68 29 objv[1], &depth)
32c0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
32d0: 52 4f 52 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 ROR;.#ifdef SQLI
32e0: 54 45 5f 4d 45 4d 44 45 42 55 47 0a 20 20 7b 0a TE_MEMDEBUG. {.
32f0: 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 extern void
3300: 73 71 6c 69 74 65 33 4d 65 6d 64 65 62 75 67 42 sqlite3MemdebugB
3310: 61 63 6b 74 72 61 63 65 28 69 6e 74 29 3b 0a 20 acktrace(int);.
3320: 20 20 20 73 71 6c 69 74 65 33 4d 65 6d 64 65 62 sqlite3Memdeb
3330: 75 67 42 61 63 6b 74 72 61 63 65 28 64 65 70 74 ugBacktrace(dept
3340: 68 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 h);. }.#endif.
3350: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
3360: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 }../*.** Usage:
3370: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 sqlite3_memde
3380: 62 75 67 5f 64 75 6d 70 20 20 46 49 4c 45 4e 41 bug_dump FILENA
3390: 4d 45 0a 2a 2a 0a 2a 2a 20 57 72 69 74 65 20 61 ME.**.** Write a
33a0: 20 73 75 6d 6d 61 72 79 20 6f 66 20 75 6e 66 72 summary of unfr
33b0: 65 65 64 20 6d 65 6d 6f 72 79 20 74 6f 20 46 49 eed memory to FI
33c0: 4c 45 4e 41 4d 45 2e 0a 2a 2f 0a 73 74 61 74 69 LENAME..*/.stati
33d0: 63 20 69 6e 74 20 74 65 73 74 5f 6d 65 6d 64 65 c int test_memde
33e0: 62 75 67 5f 64 75 6d 70 28 0a 20 20 76 6f 69 64 bug_dump(. void
33f0: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
3400: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
3410: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
3420: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
3430: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 66 T objv[].){. if
3440: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 ( objc!=2 ){.
3450: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
3460: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
3470: 76 2c 20 22 46 49 4c 45 4e 41 4d 45 22 29 3b 0a v, "FILENAME");.
3480: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
3490: 52 52 4f 52 3b 0a 20 20 7d 0a 23 69 66 20 64 65 RROR;. }.#if de
34a0: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4d 45 4d fined(SQLITE_MEM
34b0: 44 45 42 55 47 29 20 7c 7c 20 64 65 66 69 6e 65 DEBUG) || define
34c0: 64 28 53 51 4c 49 54 45 5f 4d 45 4d 4f 52 59 5f d(SQLITE_MEMORY_
34d0: 53 49 5a 45 29 20 5c 0a 20 20 20 20 20 7c 7c 20 SIZE) \. ||
34e0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 50 defined(SQLITE_P
34f0: 4f 57 32 5f 4d 45 4d 4f 52 59 5f 53 49 5a 45 29 OW2_MEMORY_SIZE)
3500: 0a 20 20 7b 0a 20 20 20 20 65 78 74 65 72 6e 20 . {. extern
3510: 76 6f 69 64 20 73 71 6c 69 74 65 33 4d 65 6d 64 void sqlite3Memd
3520: 65 62 75 67 44 75 6d 70 28 63 6f 6e 73 74 20 63 ebugDump(const c
3530: 68 61 72 2a 29 3b 0a 20 20 20 20 73 71 6c 69 74 har*);. sqlit
3540: 65 33 4d 65 6d 64 65 62 75 67 44 75 6d 70 28 54 e3MemdebugDump(T
3550: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
3560: 76 5b 31 5d 29 29 3b 0a 20 20 7d 0a 23 65 6e 64 v[1]));. }.#end
3570: 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f if. return TCL_
3580: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
3590: 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d ge: sqlite3_m
35a0: 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 emdebug_malloc_c
35b0: 6f 75 6e 74 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 ount.**.** Retur
35c0: 6e 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 n the total numb
35d0: 65 72 20 6f 66 20 74 69 6d 65 73 20 6d 61 6c 6c er of times mall
35e0: 6f 63 28 29 20 68 61 73 20 62 65 65 6e 20 63 61 oc() has been ca
35f0: 6c 6c 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 lled..*/.static
3600: 69 6e 74 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 int test_memdebu
3610: 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 28 0a g_malloc_count(.
3620: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
3630: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
3640: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
3650: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
3660: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
3670: 7b 0a 20 20 69 6e 74 20 6e 4d 61 6c 6c 6f 63 20 {. int nMalloc
3680: 3d 20 2d 31 3b 0a 20 20 69 66 28 20 6f 62 6a 63 = -1;. if( objc
3690: 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 !=1 ){. Tcl_W
36a0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
36b0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 22 29 rp, 1, objv, "")
36c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
36d0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 23 69 66 20 _ERROR;. }.#if
36e0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4d defined(SQLITE_M
36f0: 45 4d 44 45 42 55 47 29 0a 20 20 7b 0a 20 20 20 EMDEBUG). {.
3700: 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 extern int sqli
3710: 74 65 33 4d 65 6d 64 65 62 75 67 4d 61 6c 6c 6f te3MemdebugMallo
3720: 63 43 6f 75 6e 74 28 29 3b 0a 20 20 20 20 6e 4d cCount();. nM
3730: 61 6c 6c 6f 63 20 3d 20 73 71 6c 69 74 65 33 4d alloc = sqlite3M
3740: 65 6d 64 65 62 75 67 4d 61 6c 6c 6f 63 43 6f 75 emdebugMallocCou
3750: 6e 74 28 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 nt();. }.#endif
3760: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . Tcl_SetObjRes
3770: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
3780: 4e 65 77 49 6e 74 4f 62 6a 28 6e 4d 61 6c 6c 6f NewIntObj(nMallo
3790: 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 c));. return TC
37a0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 L_OK;.}.../*.**
37b0: 55 73 61 67 65 3a 20 20 20 20 73 71 6c 69 74 65 Usage: sqlite
37c0: 33 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c 20 3_memdebug_fail
37d0: 20 43 4f 55 4e 54 45 52 20 20 3f 4f 50 54 49 4f COUNTER ?OPTIO
37e0: 4e 53 3f 0a 2a 2a 0a 2a 2a 20 77 68 65 72 65 20 NS?.**.** where
37f0: 6f 70 74 69 6f 6e 73 20 61 72 65 3a 0a 2a 2a 0a options are:.**.
3800: 2a 2a 20 20 20 20 20 2d 72 65 70 65 61 74 20 20 ** -repeat
3810: 20 20 3c 63 6f 75 6e 74 3e 0a 2a 2a 20 20 20 20 <count>.**
3820: 20 2d 62 65 6e 69 67 6e 63 6e 74 20 3c 76 61 72 -benigncnt <var
3830: 6e 61 6d 65 3e 0a 2a 2a 0a 2a 2a 20 41 72 72 61 name>.**.** Arra
3840: 6e 67 65 20 66 6f 72 20 61 20 73 69 6d 75 6c 61 nge for a simula
3850: 74 65 64 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 ted malloc() fai
3860: 6c 75 72 65 20 61 66 74 65 72 20 43 4f 55 4e 54 lure after COUNT
3870: 45 52 20 73 75 63 63 65 73 73 65 73 2e 0a 2a 2a ER successes..**
3880: 20 49 66 20 61 20 72 65 70 65 61 74 20 63 6f 75 If a repeat cou
3890: 6e 74 20 69 73 20 73 70 65 63 69 66 69 65 64 2c nt is specified,
38a0: 20 74 68 65 20 66 61 75 6c 74 20 69 73 20 72 65 the fault is re
38b0: 70 65 61 74 65 64 20 74 68 61 74 20 6d 61 6e 79 peated that many
38c0: 0a 2a 2a 20 74 69 6d 65 73 2e 0a 2a 2a 0a 2a 2a .** times..**.**
38d0: 20 45 61 63 68 20 63 61 6c 6c 20 74 6f 20 74 68 Each call to th
38e0: 69 73 20 72 6f 75 74 69 6e 65 20 6f 76 65 72 72 is routine overr
38f0: 69 64 65 73 20 74 68 65 20 70 72 69 6f 72 20 63 ides the prior c
3900: 6f 75 6e 74 65 72 20 76 61 6c 75 65 2e 0a 2a 2a ounter value..**
3910: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65 This routine re
3920: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 turns the number
3930: 20 6f 66 20 73 69 6d 75 6c 61 74 65 64 20 66 61 of simulated fa
3940: 69 6c 75 72 65 73 20 74 68 61 74 20 68 61 76 65 ilures that have
3950: 0a 2a 2a 20 68 61 70 70 65 6e 65 64 20 73 69 6e .** happened sin
3960: 63 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 ce the previous
3970: 63 61 6c 6c 20 74 6f 20 74 68 69 73 20 72 6f 75 call to this rou
3980: 74 69 6e 65 2e 0a 2a 2a 0a 2a 2a 20 54 6f 20 64 tine..**.** To d
3990: 69 73 61 62 6c 65 20 73 69 6d 75 6c 61 74 65 64 isable simulated
39a0: 20 66 61 69 6c 75 72 65 73 2c 20 75 73 65 20 61 failures, use a
39b0: 20 43 4f 55 4e 54 45 52 20 6f 66 20 2d 31 2e 0a COUNTER of -1..
39c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
39d0: 73 74 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c st_memdebug_fail
39e0: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e (. void * clien
39f0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 tData,. Tcl_Int
3a00: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
3a10: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
3a20: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
3a30: 0a 29 7b 0a 20 20 69 6e 74 20 69 69 3b 0a 20 20 .){. int ii;.
3a40: 69 6e 74 20 69 46 61 69 6c 3b 0a 20 20 69 6e 74 int iFail;. int
3a50: 20 6e 52 65 70 65 61 74 20 3d 20 31 3b 0a 20 20 nRepeat = 1;.
3a60: 54 63 6c 5f 4f 62 6a 20 2a 70 42 65 6e 69 67 6e Tcl_Obj *pBenign
3a70: 43 6e 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e Cnt = 0;. int n
3a80: 42 65 6e 69 67 6e 3b 0a 20 20 69 6e 74 20 6e 46 Benign;. int nF
3a90: 61 69 6c 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 ail = 0;.. if(
3aa0: 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 20 54 63 objc<2 ){. Tc
3ab0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
3ac0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
3ad0: 22 43 4f 55 4e 54 45 52 20 3f 4f 50 54 49 4f 4e "COUNTER ?OPTION
3ae0: 53 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e S?");. return
3af0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a TCL_ERROR;. }.
3b00: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
3b10: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
3b20: 6f 62 6a 76 5b 31 5d 2c 20 26 69 46 61 69 6c 29 objv[1], &iFail)
3b30: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
3b40: 52 4f 52 3b 0a 0a 20 20 66 6f 72 28 69 69 3d 32 ROR;.. for(ii=2
3b50: 3b 20 69 69 3c 6f 62 6a 63 3b 20 69 69 2b 3d 32 ; ii<objc; ii+=2
3b60: 29 7b 0a 20 20 20 20 69 6e 74 20 6e 4f 70 74 69 ){. int nOpti
3b70: 6f 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4f on;. char *zO
3b80: 70 74 69 6f 6e 20 3d 20 54 63 6c 5f 47 65 74 53 ption = Tcl_GetS
3b90: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
3ba0: 76 5b 69 69 5d 2c 20 26 6e 4f 70 74 69 6f 6e 29 v[ii], &nOption)
3bb0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 45 72 72 ;. char *zErr
3bc0: 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 28 20 6e = 0;.. if( n
3bd0: 4f 70 74 69 6f 6e 3e 31 20 26 26 20 73 74 72 6e Option>1 && strn
3be0: 63 6d 70 28 7a 4f 70 74 69 6f 6e 2c 20 22 2d 72 cmp(zOption, "-r
3bf0: 65 70 65 61 74 22 2c 20 6e 4f 70 74 69 6f 6e 29 epeat", nOption)
3c00: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 66 28 ==0 ){. if(
3c10: 20 69 69 3d 3d 28 6f 62 6a 63 2d 31 29 20 29 7b ii==(objc-1) ){
3c20: 0a 20 20 20 20 20 20 20 20 7a 45 72 72 20 3d 20 . zErr =
3c30: 22 6f 70 74 69 6f 6e 20 72 65 71 75 69 72 65 73 "option requires
3c40: 20 61 6e 20 61 72 67 75 6d 65 6e 74 3a 20 22 3b an argument: ";
3c50: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
3c60: 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 if( Tcl_Ge
3c70: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
3c80: 72 70 2c 20 6f 62 6a 76 5b 69 69 2b 31 5d 2c 20 rp, objv[ii+1],
3c90: 26 6e 52 65 70 65 61 74 29 20 29 7b 0a 20 20 20 &nRepeat) ){.
3ca0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
3cb0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 L_ERROR;.
3cc0: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d }. }. }
3cd0: 65 6c 73 65 20 69 66 28 20 6e 4f 70 74 69 6f 6e else if( nOption
3ce0: 3e 31 20 26 26 20 73 74 72 6e 63 6d 70 28 7a 4f >1 && strncmp(zO
3cf0: 70 74 69 6f 6e 2c 20 22 2d 62 65 6e 69 67 6e 63 ption, "-benignc
3d00: 6e 74 22 2c 20 6e 4f 70 74 69 6f 6e 29 3d 3d 30 nt", nOption)==0
3d10: 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 69 69 ){. if( ii
3d20: 3d 3d 28 6f 62 6a 63 2d 31 29 20 29 7b 0a 20 20 ==(objc-1) ){.
3d30: 20 20 20 20 20 20 7a 45 72 72 20 3d 20 22 6f 70 zErr = "op
3d40: 74 69 6f 6e 20 72 65 71 75 69 72 65 73 20 61 6e tion requires an
3d50: 20 61 72 67 75 6d 65 6e 74 3a 20 22 3b 0a 20 20 argument: ";.
3d60: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
3d70: 20 20 20 70 42 65 6e 69 67 6e 43 6e 74 20 3d 20 pBenignCnt =
3d80: 6f 62 6a 76 5b 69 69 2b 31 5d 3b 0a 20 20 20 20 objv[ii+1];.
3d90: 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 }. }else{.
3da0: 20 20 20 20 20 7a 45 72 72 20 3d 20 22 75 6e 6b zErr = "unk
3db0: 6e 6f 77 6e 20 6f 70 74 69 6f 6e 3a 20 22 3b 0a nown option: ";.
3dc0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 28 20 7a }.. if( z
3dd0: 45 72 72 20 29 7b 0a 20 20 20 20 20 20 54 63 6c Err ){. Tcl
3de0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
3df0: 74 65 72 70 2c 20 7a 45 72 72 2c 20 7a 4f 70 74 terp, zErr, zOpt
3e00: 69 6f 6e 2c 20 30 29 3b 0a 20 20 20 20 20 20 72 ion, 0);. r
3e10: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3e20: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 . }. }. .
3e30: 6e 42 65 6e 69 67 6e 20 3d 20 66 61 75 6c 74 73 nBenign = faults
3e40: 69 6d 42 65 6e 69 67 6e 46 61 69 6c 75 72 65 73 imBenignFailures
3e50: 28 29 3b 0a 20 20 6e 46 61 69 6c 20 3d 20 66 61 ();. nFail = fa
3e60: 75 6c 74 73 69 6d 46 61 69 6c 75 72 65 73 28 29 ultsimFailures()
3e70: 3b 0a 20 20 66 61 75 6c 74 73 69 6d 43 6f 6e 66 ;. faultsimConf
3e80: 69 67 28 69 46 61 69 6c 2c 20 6e 52 65 70 65 61 ig(iFail, nRepea
3e90: 74 29 3b 0a 0a 20 20 69 66 28 20 70 42 65 6e 69 t);.. if( pBeni
3ea0: 67 6e 43 6e 74 20 29 7b 0a 20 20 20 20 54 63 6c gnCnt ){. Tcl
3eb0: 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74 65 _ObjSetVar2(inte
3ec0: 72 70 2c 20 70 42 65 6e 69 67 6e 43 6e 74 2c 20 rp, pBenignCnt,
3ed0: 30 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 0, Tcl_NewIntObj
3ee0: 28 6e 42 65 6e 69 67 6e 29 2c 20 30 29 3b 0a 20 (nBenign), 0);.
3ef0: 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 }. Tcl_SetObjR
3f00: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
3f10: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6e 46 61 69 l_NewIntObj(nFai
3f20: 6c 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 l));. return TC
3f30: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 L_OK;.}../*.** U
3f40: 73 61 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 sage: sqlite3
3f50: 5f 6d 65 6d 64 65 62 75 67 5f 70 65 6e 64 69 6e _memdebug_pendin
3f60: 67 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 g.**.** Return t
3f70: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 61 6c he number of mal
3f80: 6c 6f 63 28 29 20 63 61 6c 6c 73 20 74 68 61 74 loc() calls that
3f90: 20 77 69 6c 6c 20 73 75 63 63 65 65 64 20 62 65 will succeed be
3fa0: 66 6f 72 65 20 61 20 0a 2a 2a 20 73 69 6d 75 6c fore a .** simul
3fb0: 61 74 65 64 20 66 61 69 6c 75 72 65 20 6f 63 63 ated failure occ
3fc0: 75 72 73 2e 20 41 20 6e 65 67 61 74 69 76 65 20 urs. A negative
3fd0: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 6e 64 return value ind
3fe0: 69 63 61 74 65 73 20 74 68 61 74 0a 2a 2a 20 6e icates that.** n
3ff0: 6f 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75 o malloc() failu
4000: 72 65 20 69 73 20 73 63 68 65 64 75 6c 65 64 2e re is scheduled.
4010: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
4020: 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 70 65 6e est_memdebug_pen
4030: 64 69 6e 67 28 0a 20 20 76 6f 69 64 20 2a 20 63 ding(. void * c
4040: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
4050: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4060: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
4070: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
4080: 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 6e 50 jv[].){. int nP
4090: 65 6e 64 69 6e 67 3b 0a 20 20 69 66 28 20 6f 62 ending;. if( ob
40a0: 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c jc!=1 ){. Tcl
40b0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
40c0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
40d0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
40e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
40f0: 6e 50 65 6e 64 69 6e 67 20 3d 20 66 61 75 6c 74 nPending = fault
4100: 73 69 6d 50 65 6e 64 69 6e 67 28 29 3b 0a 20 20 simPending();.
4110: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
4120: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
4130: 49 6e 74 4f 62 6a 28 6e 50 65 6e 64 69 6e 67 29 IntObj(nPending)
4140: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f );. return TCL_
4150: 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 55 73 OK;.}.../*.** Us
4160: 61 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f age: sqlite3_
4170: 6d 65 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c memdebug_settitl
4180: 65 20 54 49 54 4c 45 0a 2a 2a 0a 2a 2a 20 53 65 e TITLE.**.** Se
4190: 74 20 61 20 74 69 74 6c 65 20 73 74 72 69 6e 67 t a title string
41a0: 20 73 74 6f 72 65 64 20 77 69 74 68 20 65 61 63 stored with eac
41b0: 68 20 61 6c 6c 6f 63 61 74 69 6f 6e 2e 20 20 54 h allocation. T
41c0: 68 65 20 54 49 54 4c 45 20 69 73 0a 2a 2a 20 74 he TITLE is.** t
41d0: 79 70 69 63 61 6c 6c 79 20 74 68 65 20 6e 61 6d ypically the nam
41e0: 65 20 6f 66 20 74 68 65 20 74 65 73 74 20 74 68 e of the test th
41f0: 61 74 20 77 61 73 20 72 75 6e 6e 69 6e 67 20 77 at was running w
4200: 68 65 6e 20 74 68 65 0a 2a 2a 20 61 6c 6c 6f 63 hen the.** alloc
4210: 61 74 69 6f 6e 20 6f 63 63 75 72 72 65 64 2e 20 ation occurred.
4220: 20 54 68 65 20 54 49 54 4c 45 20 69 73 20 73 74 The TITLE is st
4230: 6f 72 65 64 20 77 69 74 68 20 74 68 65 20 61 6c ored with the al
4240: 6c 6f 63 61 74 69 6f 6e 0a 2a 2a 20 61 6e 64 20 location.** and
4250: 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 66 can be used to f
4260: 69 67 75 72 65 20 6f 75 74 20 77 68 69 63 68 20 igure out which
4270: 74 65 73 74 73 20 61 72 65 20 6c 65 61 6b 69 6e tests are leakin
4280: 67 20 6d 65 6d 6f 72 79 2e 0a 2a 2a 0a 2a 2a 20 g memory..**.**
4290: 45 61 63 68 20 74 69 74 6c 65 20 6f 76 65 72 77 Each title overw
42a0: 72 69 74 65 20 74 68 65 20 70 72 65 76 69 6f 75 rite the previou
42b0: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 s..*/.static int
42c0: 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 73 test_memdebug_s
42d0: 65 74 74 69 74 6c 65 28 0a 20 20 76 6f 69 64 20 ettitle(. void
42e0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 * clientData,.
42f0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4300: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a rp,. int objc,.
4310: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
4320: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 66 28 objv[].){. if(
4330: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
4340: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
4350: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
4360: 2c 20 22 54 49 54 4c 45 22 29 3b 0a 20 20 20 20 , "TITLE");.
4370: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4380: 3b 0a 20 20 7d 0a 23 69 66 64 65 66 20 53 51 4c ;. }.#ifdef SQL
4390: 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a 20 20 7b ITE_MEMDEBUG. {
43a0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
43b0: 2a 7a 54 69 74 6c 65 3b 0a 20 20 20 20 7a 54 69 *zTitle;. zTi
43c0: 74 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 tle = Tcl_GetStr
43d0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 ing(objv[1]);.
43e0: 20 20 65 78 74 65 72 6e 20 69 6e 74 20 73 71 6c extern int sql
43f0: 69 74 65 33 4d 65 6d 64 65 62 75 67 53 65 74 74 ite3MemdebugSett
4400: 69 74 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 2a itle(const char*
4410: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 4d 65 );. sqlite3Me
4420: 6d 64 65 62 75 67 53 65 74 74 69 74 6c 65 28 7a mdebugSettitle(z
4430: 54 69 74 6c 65 29 3b 0a 20 20 7d 0a 23 65 6e 64 Title);. }.#end
4440: 69 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f if. return TCL_
4450: 4f 4b 3b 0a 7d 0a 0a 23 64 65 66 69 6e 65 20 4d OK;.}..#define M
4460: 41 4c 4c 4f 43 5f 4c 4f 47 5f 46 52 41 4d 45 53 ALLOC_LOG_FRAMES
4470: 20 20 31 30 20 0a 23 64 65 66 69 6e 65 20 4d 41 10 .#define MA
4480: 4c 4c 4f 43 5f 4c 4f 47 5f 4b 45 59 49 4e 54 53 LLOC_LOG_KEYINTS
4490: 20 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (
44a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
44b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
44c0: 5c 0a 20 20 20 20 31 30 20 2a 20 28 28 73 69 7a \. 10 * ((siz
44d0: 65 6f 66 28 69 6e 74 29 3e 3d 73 69 7a 65 6f 66 eof(int)>=sizeof
44e0: 28 76 6f 69 64 2a 29 29 20 3f 20 31 20 3a 20 73 (void*)) ? 1 : s
44f0: 69 7a 65 6f 66 28 76 6f 69 64 2a 29 2f 73 69 7a izeof(void*)/siz
4500: 65 6f 66 28 69 6e 74 29 29 20 20 20 5c 0a 29 0a eof(int)) \.).
4510: 73 74 61 74 69 63 20 54 63 6c 5f 48 61 73 68 54 static Tcl_HashT
4520: 61 62 6c 65 20 61 4d 61 6c 6c 6f 63 4c 6f 67 3b able aMallocLog;
4530: 0a 73 74 61 74 69 63 20 69 6e 74 20 6d 61 6c 6c .static int mall
4540: 6f 63 4c 6f 67 45 6e 61 62 6c 65 64 20 3d 20 30 ocLogEnabled = 0
4550: 3b 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 ;..typedef struc
4560: 74 20 4d 61 6c 6c 6f 63 4c 6f 67 20 4d 61 6c 6c t MallocLog Mall
4570: 6f 63 4c 6f 67 3b 0a 73 74 72 75 63 74 20 4d 61 ocLog;.struct Ma
4580: 6c 6c 6f 63 4c 6f 67 20 7b 0a 20 20 69 6e 74 20 llocLog {. int
4590: 6e 43 61 6c 6c 3b 0a 20 20 69 6e 74 20 6e 42 79 nCall;. int nBy
45a0: 74 65 3b 0a 7d 3b 0a 0a 23 69 66 64 65 66 20 53 te;.};..#ifdef S
45b0: 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a 73 QLITE_MEMDEBUG.s
45c0: 74 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 5f tatic void test_
45d0: 6d 65 6d 64 65 62 75 67 5f 63 61 6c 6c 62 61 63 memdebug_callbac
45e0: 6b 28 69 6e 74 20 6e 42 79 74 65 2c 20 69 6e 74 k(int nByte, int
45f0: 20 6e 46 72 61 6d 65 2c 20 76 6f 69 64 20 2a 2a nFrame, void **
4600: 61 46 72 61 6d 65 29 7b 0a 20 20 69 66 28 20 6d aFrame){. if( m
4610: 61 6c 6c 6f 63 4c 6f 67 45 6e 61 62 6c 65 64 20 allocLogEnabled
4620: 29 7b 0a 20 20 20 20 4d 61 6c 6c 6f 63 4c 6f 67 ){. MallocLog
4630: 20 2a 70 4c 6f 67 3b 0a 20 20 20 20 54 63 6c 5f *pLog;. Tcl_
4640: 48 61 73 68 45 6e 74 72 79 20 2a 70 45 6e 74 72 HashEntry *pEntr
4650: 79 3b 0a 20 20 20 20 69 6e 74 20 69 73 4e 65 77 y;. int isNew
4660: 3b 0a 0a 20 20 20 20 69 6e 74 20 61 4b 65 79 5b ;.. int aKey[
4670: 4d 41 4c 4c 4f 43 5f 4c 4f 47 5f 4b 45 59 49 4e MALLOC_LOG_KEYIN
4680: 54 53 5d 3b 0a 20 20 20 20 69 6e 74 20 6e 4b 65 TS];. int nKe
4690: 79 20 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 2a y = sizeof(int)*
46a0: 4d 41 4c 4c 4f 43 5f 4c 4f 47 5f 4b 45 59 49 4e MALLOC_LOG_KEYIN
46b0: 54 53 3b 0a 0a 20 20 20 20 6d 65 6d 73 65 74 28 TS;.. memset(
46c0: 61 4b 65 79 2c 20 30 2c 20 6e 4b 65 79 29 3b 0a aKey, 0, nKey);.
46d0: 20 20 20 20 69 66 28 20 28 73 69 7a 65 6f 66 28 if( (sizeof(
46e0: 76 6f 69 64 2a 29 2a 6e 46 72 61 6d 65 29 3c 6e void*)*nFrame)<n
46f0: 4b 65 79 20 29 7b 0a 20 20 20 20 20 20 6e 4b 65 Key ){. nKe
4700: 79 20 3d 20 6e 46 72 61 6d 65 2a 73 69 7a 65 6f y = nFrame*sizeo
4710: 66 28 76 6f 69 64 2a 29 3b 0a 20 20 20 20 7d 0a f(void*);. }.
4720: 20 20 20 20 6d 65 6d 63 70 79 28 61 4b 65 79 2c memcpy(aKey,
4730: 20 61 46 72 61 6d 65 2c 20 6e 4b 65 79 29 3b 0a aFrame, nKey);.
4740: 0a 20 20 20 20 70 45 6e 74 72 79 20 3d 20 54 63 . pEntry = Tc
4750: 6c 5f 43 72 65 61 74 65 48 61 73 68 45 6e 74 72 l_CreateHashEntr
4760: 79 28 26 61 4d 61 6c 6c 6f 63 4c 6f 67 2c 20 28 y(&aMallocLog, (
4770: 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 61 4b 65 const char *)aKe
4780: 79 2c 20 26 69 73 4e 65 77 29 3b 0a 20 20 20 20 y, &isNew);.
4790: 69 66 28 20 69 73 4e 65 77 20 29 7b 0a 20 20 20 if( isNew ){.
47a0: 20 20 20 70 4c 6f 67 20 3d 20 28 4d 61 6c 6c 6f pLog = (Mallo
47b0: 63 4c 6f 67 20 2a 29 54 63 6c 5f 41 6c 6c 6f 63 cLog *)Tcl_Alloc
47c0: 28 73 69 7a 65 6f 66 28 4d 61 6c 6c 6f 63 4c 6f (sizeof(MallocLo
47d0: 67 29 29 3b 0a 20 20 20 20 20 20 6d 65 6d 73 65 g));. memse
47e0: 74 28 70 4c 6f 67 2c 20 30 2c 20 73 69 7a 65 6f t(pLog, 0, sizeo
47f0: 66 28 4d 61 6c 6c 6f 63 4c 6f 67 29 29 3b 0a 20 f(MallocLog));.
4800: 20 20 20 20 20 54 63 6c 5f 53 65 74 48 61 73 68 Tcl_SetHash
4810: 56 61 6c 75 65 28 70 45 6e 74 72 79 2c 20 28 43 Value(pEntry, (C
4820: 6c 69 65 6e 74 44 61 74 61 29 70 4c 6f 67 29 3b lientData)pLog);
4830: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
4840: 20 20 70 4c 6f 67 20 3d 20 28 4d 61 6c 6c 6f 63 pLog = (Malloc
4850: 4c 6f 67 20 2a 29 54 63 6c 5f 47 65 74 48 61 73 Log *)Tcl_GetHas
4860: 68 56 61 6c 75 65 28 70 45 6e 74 72 79 29 3b 0a hValue(pEntry);.
4870: 20 20 20 20 7d 0a 0a 20 20 20 20 70 4c 6f 67 2d }.. pLog-
4880: 3e 6e 43 61 6c 6c 2b 2b 3b 0a 20 20 20 20 70 4c >nCall++;. pL
4890: 6f 67 2d 3e 6e 42 79 74 65 20 2b 3d 20 6e 42 79 og->nByte += nBy
48a0: 74 65 3b 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 te;. }.}.#endif
48b0: 20 2f 2a 20 53 51 4c 49 54 45 5f 4d 45 4d 44 45 /* SQLITE_MEMDE
48c0: 42 55 47 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 BUG */..static v
48d0: 6f 69 64 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 oid test_memdebu
48e0: 67 5f 6c 6f 67 5f 63 6c 65 61 72 28 76 6f 69 64 g_log_clear(void
48f0: 29 7b 0a 20 20 54 63 6c 5f 48 61 73 68 53 65 61 ){. Tcl_HashSea
4900: 72 63 68 20 73 65 61 72 63 68 3b 0a 20 20 54 63 rch search;. Tc
4910: 6c 5f 48 61 73 68 45 6e 74 72 79 20 2a 70 45 6e l_HashEntry *pEn
4920: 74 72 79 3b 0a 20 20 66 6f 72 28 0a 20 20 20 20 try;. for(.
4930: 70 45 6e 74 72 79 3d 54 63 6c 5f 46 69 72 73 74 pEntry=Tcl_First
4940: 48 61 73 68 45 6e 74 72 79 28 26 61 4d 61 6c 6c HashEntry(&aMall
4950: 6f 63 4c 6f 67 2c 20 26 73 65 61 72 63 68 29 3b ocLog, &search);
4960: 0a 20 20 20 20 70 45 6e 74 72 79 3b 0a 20 20 20 . pEntry;.
4970: 20 70 45 6e 74 72 79 3d 54 63 6c 5f 4e 65 78 74 pEntry=Tcl_Next
4980: 48 61 73 68 45 6e 74 72 79 28 26 73 65 61 72 63 HashEntry(&searc
4990: 68 29 0a 20 20 29 7b 0a 20 20 20 20 4d 61 6c 6c h). ){. Mall
49a0: 6f 63 4c 6f 67 20 2a 70 4c 6f 67 20 3d 20 28 4d ocLog *pLog = (M
49b0: 61 6c 6c 6f 63 4c 6f 67 20 2a 29 54 63 6c 5f 47 allocLog *)Tcl_G
49c0: 65 74 48 61 73 68 56 61 6c 75 65 28 70 45 6e 74 etHashValue(pEnt
49d0: 72 79 29 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 ry);. Tcl_Fre
49e0: 65 28 28 63 68 61 72 20 2a 29 70 4c 6f 67 29 3b e((char *)pLog);
49f0: 0a 20 20 7d 0a 20 20 54 63 6c 5f 44 65 6c 65 74 . }. Tcl_Delet
4a00: 65 48 61 73 68 54 61 62 6c 65 28 26 61 4d 61 6c eHashTable(&aMal
4a10: 6c 6f 63 4c 6f 67 29 3b 0a 20 20 54 63 6c 5f 49 locLog);. Tcl_I
4a20: 6e 69 74 48 61 73 68 54 61 62 6c 65 28 26 61 4d nitHashTable(&aM
4a30: 61 6c 6c 6f 63 4c 6f 67 2c 20 4d 41 4c 4c 4f 43 allocLog, MALLOC
4a40: 5f 4c 4f 47 5f 4b 45 59 49 4e 54 53 29 3b 0a 7d _LOG_KEYINTS);.}
4a50: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 ..static int tes
4a60: 74 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 28 0a t_memdebug_log(.
4a70: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 void * clientD
4a80: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 ata,. Tcl_Inter
4a90: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 p *interp,. int
4aa0: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a objc,. Tcl_Obj
4ab0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 *CONST objv[].)
4ac0: 7b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 69 {. static int i
4ad0: 73 49 6e 69 74 20 3d 20 30 3b 0a 20 20 69 6e 74 sInit = 0;. int
4ae0: 20 69 53 75 62 3b 0a 0a 20 20 73 74 61 74 69 63 iSub;.. static
4af0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 4d 42 5f const char *MB_
4b00: 73 74 72 73 5b 5d 20 3d 20 7b 20 22 73 74 61 72 strs[] = { "star
4b10: 74 22 2c 20 22 73 74 6f 70 22 2c 20 22 64 75 6d t", "stop", "dum
4b20: 70 22 2c 20 22 63 6c 65 61 72 22 2c 20 22 73 79 p", "clear", "sy
4b30: 6e 63 22 20 7d 3b 0a 20 20 65 6e 75 6d 20 4d 42 nc" };. enum MB
4b40: 5f 65 6e 75 6d 20 7b 20 0a 20 20 20 20 20 20 4d _enum { . M
4b50: 42 5f 4c 4f 47 5f 53 54 41 52 54 2c 20 4d 42 5f B_LOG_START, MB_
4b60: 4c 4f 47 5f 53 54 4f 50 2c 20 4d 42 5f 4c 4f 47 LOG_STOP, MB_LOG
4b70: 5f 44 55 4d 50 2c 20 4d 42 5f 4c 4f 47 5f 43 4c _DUMP, MB_LOG_CL
4b80: 45 41 52 2c 20 4d 42 5f 4c 4f 47 5f 53 59 4e 43 EAR, MB_LOG_SYNC
4b90: 20 0a 20 20 7d 3b 0a 0a 20 20 69 66 28 20 21 69 . };.. if( !i
4ba0: 73 49 6e 69 74 20 29 7b 0a 23 69 66 64 65 66 20 sInit ){.#ifdef
4bb0: 53 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a SQLITE_MEMDEBUG.
4bc0: 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 64 20 extern void
4bd0: 73 71 6c 69 74 65 33 4d 65 6d 64 65 62 75 67 42 sqlite3MemdebugB
4be0: 61 63 6b 74 72 61 63 65 43 61 6c 6c 62 61 63 6b acktraceCallback
4bf0: 28 0a 20 20 20 20 20 20 20 20 76 6f 69 64 20 28 (. void (
4c00: 2a 78 42 61 63 6b 74 72 61 63 65 29 28 69 6e 74 *xBacktrace)(int
4c10: 2c 20 69 6e 74 2c 20 76 6f 69 64 20 2a 2a 29 29 , int, void **))
4c20: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 4d 65 6d ;. sqlite3Mem
4c30: 64 65 62 75 67 42 61 63 6b 74 72 61 63 65 43 61 debugBacktraceCa
4c40: 6c 6c 62 61 63 6b 28 74 65 73 74 5f 6d 65 6d 64 llback(test_memd
4c50: 65 62 75 67 5f 63 61 6c 6c 62 61 63 6b 29 3b 0a ebug_callback);.
4c60: 23 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 49 #endif. Tcl_I
4c70: 6e 69 74 48 61 73 68 54 61 62 6c 65 28 26 61 4d nitHashTable(&aM
4c80: 61 6c 6c 6f 63 4c 6f 67 2c 20 4d 41 4c 4c 4f 43 allocLog, MALLOC
4c90: 5f 4c 4f 47 5f 4b 45 59 49 4e 54 53 29 3b 0a 20 _LOG_KEYINTS);.
4ca0: 20 20 20 69 73 49 6e 69 74 20 3d 20 31 3b 0a 20 isInit = 1;.
4cb0: 20 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 }.. if( objc<2
4cc0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e ){. Tcl_Wron
4cd0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
4ce0: 20 31 2c 20 6f 62 6a 76 2c 20 22 53 55 42 2d 43 1, objv, "SUB-C
4cf0: 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 OMMAND ...");.
4d00: 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 }. if( Tcl_GetI
4d10: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 ndexFromObj(inte
4d20: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 4d 42 5f rp, objv[1], MB_
4d30: 73 74 72 73 2c 20 22 73 75 62 2d 63 6f 6d 6d 61 strs, "sub-comma
4d40: 6e 64 22 2c 20 30 2c 20 26 69 53 75 62 29 20 29 nd", 0, &iSub) )
4d50: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c {. return TCL
4d60: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 _ERROR;. }.. s
4d70: 77 69 74 63 68 28 20 28 65 6e 75 6d 20 4d 42 5f witch( (enum MB_
4d80: 65 6e 75 6d 29 69 53 75 62 20 29 7b 0a 20 20 20 enum)iSub ){.
4d90: 20 63 61 73 65 20 4d 42 5f 4c 4f 47 5f 53 54 41 case MB_LOG_STA
4da0: 52 54 3a 0a 20 20 20 20 20 20 6d 61 6c 6c 6f 63 RT:. malloc
4db0: 4c 6f 67 45 6e 61 62 6c 65 64 20 3d 20 31 3b 0a LogEnabled = 1;.
4dc0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
4dd0: 20 63 61 73 65 20 4d 42 5f 4c 4f 47 5f 53 54 4f case MB_LOG_STO
4de0: 50 3a 0a 20 20 20 20 20 20 6d 61 6c 6c 6f 63 4c P:. mallocL
4df0: 6f 67 45 6e 61 62 6c 65 64 20 3d 20 30 3b 0a 20 ogEnabled = 0;.
4e00: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
4e10: 63 61 73 65 20 4d 42 5f 4c 4f 47 5f 44 55 4d 50 case MB_LOG_DUMP
4e20: 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 48 61 : {. Tcl_Ha
4e30: 73 68 53 65 61 72 63 68 20 73 65 61 72 63 68 3b shSearch search;
4e40: 0a 20 20 20 20 20 20 54 63 6c 5f 48 61 73 68 45 . Tcl_HashE
4e50: 6e 74 72 79 20 2a 70 45 6e 74 72 79 3b 0a 20 20 ntry *pEntry;.
4e60: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 Tcl_Obj *pRe
4e70: 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 t = Tcl_NewObj()
4e80: 3b 0a 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 ;.. assert(
4e90: 73 69 7a 65 6f 66 28 54 63 6c 5f 57 69 64 65 49 sizeof(Tcl_WideI
4ea0: 6e 74 29 3e 3d 73 69 7a 65 6f 66 28 76 6f 69 64 nt)>=sizeof(void
4eb0: 2a 29 29 3b 0a 0a 20 20 20 20 20 20 66 6f 72 28 *));.. for(
4ec0: 0a 20 20 20 20 20 20 20 20 70 45 6e 74 72 79 3d . pEntry=
4ed0: 54 63 6c 5f 46 69 72 73 74 48 61 73 68 45 6e 74 Tcl_FirstHashEnt
4ee0: 72 79 28 26 61 4d 61 6c 6c 6f 63 4c 6f 67 2c 20 ry(&aMallocLog,
4ef0: 26 73 65 61 72 63 68 29 3b 0a 20 20 20 20 20 20 &search);.
4f00: 20 20 70 45 6e 74 72 79 3b 0a 20 20 20 20 20 20 pEntry;.
4f10: 20 20 70 45 6e 74 72 79 3d 54 63 6c 5f 4e 65 78 pEntry=Tcl_Nex
4f20: 74 48 61 73 68 45 6e 74 72 79 28 26 73 65 61 72 tHashEntry(&sear
4f30: 63 68 29 0a 20 20 20 20 20 20 29 7b 0a 20 20 20 ch). ){.
4f40: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 61 70 Tcl_Obj *ap
4f50: 45 6c 65 6d 5b 4d 41 4c 4c 4f 43 5f 4c 4f 47 5f Elem[MALLOC_LOG_
4f60: 46 52 41 4d 45 53 2b 32 5d 3b 0a 20 20 20 20 20 FRAMES+2];.
4f70: 20 20 20 4d 61 6c 6c 6f 63 4c 6f 67 20 2a 70 4c MallocLog *pL
4f80: 6f 67 20 3d 20 28 4d 61 6c 6c 6f 63 4c 6f 67 20 og = (MallocLog
4f90: 2a 29 54 63 6c 5f 47 65 74 48 61 73 68 56 61 6c *)Tcl_GetHashVal
4fa0: 75 65 28 70 45 6e 74 72 79 29 3b 0a 20 20 20 20 ue(pEntry);.
4fb0: 20 20 20 20 54 63 6c 5f 57 69 64 65 49 6e 74 20 Tcl_WideInt
4fc0: 2a 61 4b 65 79 20 3d 20 28 54 63 6c 5f 57 69 64 *aKey = (Tcl_Wid
4fd0: 65 49 6e 74 20 2a 29 54 63 6c 5f 47 65 74 48 61 eInt *)Tcl_GetHa
4fe0: 73 68 4b 65 79 28 26 61 4d 61 6c 6c 6f 63 4c 6f shKey(&aMallocLo
4ff0: 67 2c 20 70 45 6e 74 72 79 29 3b 0a 20 20 20 20 g, pEntry);.
5000: 20 20 20 20 69 6e 74 20 69 69 3b 0a 20 20 0a 20 int ii;. .
5010: 20 20 20 20 20 20 20 61 70 45 6c 65 6d 5b 30 5d apElem[0]
5020: 20 3d 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a = Tcl_NewIntObj
5030: 28 70 4c 6f 67 2d 3e 6e 43 61 6c 6c 29 3b 0a 20 (pLog->nCall);.
5040: 20 20 20 20 20 20 20 61 70 45 6c 65 6d 5b 31 5d apElem[1]
5050: 20 3d 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a = Tcl_NewIntObj
5060: 28 70 4c 6f 67 2d 3e 6e 42 79 74 65 29 3b 0a 20 (pLog->nByte);.
5070: 20 20 20 20 20 20 20 66 6f 72 28 69 69 3d 30 3b for(ii=0;
5080: 20 69 69 3c 4d 41 4c 4c 4f 43 5f 4c 4f 47 5f 46 ii<MALLOC_LOG_F
5090: 52 41 4d 45 53 3b 20 69 69 2b 2b 29 7b 0a 20 20 RAMES; ii++){.
50a0: 20 20 20 20 20 20 20 20 61 70 45 6c 65 6d 5b 69 apElem[i
50b0: 69 2b 32 5d 20 3d 20 54 63 6c 5f 4e 65 77 57 69 i+2] = Tcl_NewWi
50c0: 64 65 49 6e 74 4f 62 6a 28 61 4b 65 79 5b 69 69 deIntObj(aKey[ii
50d0: 5d 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 ]);. }..
50e0: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f Tcl_ListO
50f0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
5100: 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 0a 20 20 interp, pRet,.
5110: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 Tcl_Ne
5120: 77 4c 69 73 74 4f 62 6a 28 4d 41 4c 4c 4f 43 5f wListObj(MALLOC_
5130: 4c 4f 47 5f 46 52 41 4d 45 53 2b 32 2c 20 61 70 LOG_FRAMES+2, ap
5140: 45 6c 65 6d 29 0a 20 20 20 20 20 20 20 20 29 3b Elem). );
5150: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 . }..
5160: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
5170: 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a (interp, pRet);.
5180: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5190: 20 7d 0a 20 20 20 20 63 61 73 65 20 4d 42 5f 4c }. case MB_L
51a0: 4f 47 5f 43 4c 45 41 52 3a 20 7b 0a 20 20 20 20 OG_CLEAR: {.
51b0: 20 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f test_memdebug_
51c0: 6c 6f 67 5f 63 6c 65 61 72 28 29 3b 0a 20 20 20 log_clear();.
51d0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
51e0: 0a 20 20 20 20 63 61 73 65 20 4d 42 5f 4c 4f 47 . case MB_LOG
51f0: 5f 53 59 4e 43 3a 20 7b 0a 23 69 66 64 65 66 20 _SYNC: {.#ifdef
5200: 53 51 4c 49 54 45 5f 4d 45 4d 44 45 42 55 47 0a SQLITE_MEMDEBUG.
5210: 20 20 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 extern voi
5220: 64 20 73 71 6c 69 74 65 33 4d 65 6d 64 65 62 75 d sqlite3Memdebu
5230: 67 53 79 6e 63 28 29 3b 0a 20 20 20 20 20 20 74 gSync();. t
5240: 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 est_memdebug_log
5250: 5f 63 6c 65 61 72 28 29 3b 0a 20 20 20 20 20 20 _clear();.
5260: 6d 61 6c 6c 6f 63 4c 6f 67 45 6e 61 62 6c 65 64 mallocLogEnabled
5270: 20 3d 20 31 3b 0a 20 20 20 20 20 20 73 71 6c 69 = 1;. sqli
5280: 74 65 33 4d 65 6d 64 65 62 75 67 53 79 6e 63 28 te3MemdebugSync(
5290: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 );.#endif.
52a0: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
52b0: 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f .. return TCL_O
52c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
52d0: 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f e: sqlite3_co
52e0: 6e 66 69 67 5f 73 63 72 61 74 63 68 20 53 49 5a nfig_scratch SIZ
52f0: 45 20 4e 0a 2a 2a 0a 2a 2a 20 53 65 74 20 74 68 E N.**.** Set th
5300: 65 20 73 63 72 61 74 63 68 20 6d 65 6d 6f 72 79 e scratch memory
5310: 20 62 75 66 66 65 72 20 75 73 69 6e 67 20 53 51 buffer using SQ
5320: 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 53 43 52 41 LITE_CONFIG_SCRA
5330: 54 43 48 2e 0a 2a 2a 20 54 68 65 20 62 75 66 66 TCH..** The buff
5340: 65 72 20 69 73 20 73 74 61 74 69 63 20 61 6e 64 er is static and
5350: 20 69 73 20 6f 66 20 6c 69 6d 69 74 65 64 20 73 is of limited s
5360: 69 7a 65 2e 20 20 4e 20 6d 69 67 68 74 20 62 65 ize. N might be
5370: 0a 2a 2a 20 61 64 6a 75 73 74 65 64 20 64 6f 77 .** adjusted dow
5380: 6e 77 61 72 64 20 61 73 20 6e 65 65 64 65 64 20 nward as needed
5390: 74 6f 20 61 63 63 6f 6d 6f 64 61 74 65 20 74 68 to accomodate th
53a0: 65 20 72 65 71 75 65 73 74 65 64 20 73 69 7a 65 e requested size
53b0: 2e 0a 2a 2a 20 54 68 65 20 72 65 76 69 73 65 64 ..** The revised
53c0: 20 76 61 6c 75 65 20 6f 66 20 4e 20 69 73 20 72 value of N is r
53d0: 65 74 75 72 6e 65 64 2e 0a 2a 2a 0a 2a 2a 20 41 eturned..**.** A
53e0: 20 6e 65 67 61 74 69 76 65 20 53 49 5a 45 20 63 negative SIZE c
53f0: 61 75 73 65 73 20 74 68 65 20 62 75 66 66 65 72 auses the buffer
5400: 20 70 6f 69 6e 74 65 72 20 74 6f 20 62 65 20 4e pointer to be N
5410: 55 4c 4c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ULL..*/.static i
5420: 6e 74 20 74 65 73 74 5f 63 6f 6e 66 69 67 5f 73 nt test_config_s
5430: 63 72 61 74 63 68 28 0a 20 20 76 6f 69 64 20 2a cratch(. void *
5440: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
5450: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
5460: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
5470: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
5480: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 objv[].){. int
5490: 73 7a 2c 20 4e 2c 20 72 63 3b 0a 20 20 54 63 6c sz, N, rc;. Tcl
54a0: 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 3b 0a 20 _Obj *pResult;.
54b0: 20 73 74 61 74 69 63 20 63 68 61 72 20 2a 62 75 static char *bu
54c0: 66 20 3d 20 30 3b 0a 20 20 69 66 28 20 6f 62 6a f = 0;. if( obj
54d0: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f c!=3 ){. Tcl_
54e0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
54f0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 erp, 1, objv, "S
5500: 49 5a 45 20 4e 22 29 3b 0a 20 20 20 20 72 65 74 IZE N");. ret
5510: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5520: 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 }. if( Tcl_Get
5530: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
5540: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 73 7a 29 p, objv[1], &sz)
5550: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
5560: 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 ROR;. if( Tcl_G
5570: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
5580: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 4e erp, objv[2], &N
5590: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
55a0: 52 52 4f 52 3b 0a 20 20 66 72 65 65 28 62 75 66 RROR;. free(buf
55b0: 29 3b 0a 20 20 69 66 28 20 73 7a 3c 30 20 29 7b );. if( sz<0 ){
55c0: 0a 20 20 20 20 62 75 66 20 3d 20 30 3b 0a 20 20 . buf = 0;.
55d0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
55e0: 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e onfig(SQLITE_CON
55f0: 46 49 47 5f 53 43 52 41 54 43 48 2c 20 30 2c 20 FIG_SCRATCH, 0,
5600: 30 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 0, 0);. }else{.
5610: 20 20 20 20 62 75 66 20 3d 20 6d 61 6c 6c 6f 63 buf = malloc
5620: 28 20 73 7a 2a 4e 20 2b 20 31 20 29 3b 0a 20 20 ( sz*N + 1 );.
5630: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 rc = sqlite3_c
5640: 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e onfig(SQLITE_CON
5650: 46 49 47 5f 53 43 52 41 54 43 48 2c 20 62 75 66 FIG_SCRATCH, buf
5660: 2c 20 73 7a 2c 20 4e 29 3b 0a 20 20 7d 0a 20 20 , sz, N);. }.
5670: 70 52 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4e 65 pResult = Tcl_Ne
5680: 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 wObj();. Tcl_Li
5690: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
56a0: 6e 74 28 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 nt(0, pResult, T
56b0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 cl_NewIntObj(rc)
56c0: 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
56d0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
56e0: 20 70 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 pResult, Tcl_Ne
56f0: 77 49 6e 74 4f 62 6a 28 4e 29 29 3b 0a 20 20 54 wIntObj(N));. T
5700: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
5710: 69 6e 74 65 72 70 2c 20 70 52 65 73 75 6c 74 29 interp, pResult)
5720: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
5730: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 K;.}../*.** Usag
5740: 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f e: sqlite3_co
5750: 6e 66 69 67 5f 70 61 67 65 63 61 63 68 65 20 53 nfig_pagecache S
5760: 49 5a 45 20 4e 0a 2a 2a 0a 2a 2a 20 53 65 74 20 IZE N.**.** Set
5770: 74 68 65 20 70 61 67 65 2d 63 61 63 68 65 20 6d the page-cache m
5780: 65 6d 6f 72 79 20 62 75 66 66 65 72 20 75 73 69 emory buffer usi
5790: 6e 67 20 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 ng SQLITE_CONFIG
57a0: 5f 50 41 47 45 43 41 43 48 45 2e 0a 2a 2a 20 54 _PAGECACHE..** T
57b0: 68 65 20 62 75 66 66 65 72 20 69 73 20 73 74 61 he buffer is sta
57c0: 74 69 63 20 61 6e 64 20 69 73 20 6f 66 20 6c 69 tic and is of li
57d0: 6d 69 74 65 64 20 73 69 7a 65 2e 20 20 4e 20 6d mited size. N m
57e0: 69 67 68 74 20 62 65 0a 2a 2a 20 61 64 6a 75 73 ight be.** adjus
57f0: 74 65 64 20 64 6f 77 6e 77 61 72 64 20 61 73 20 ted downward as
5800: 6e 65 65 64 65 64 20 74 6f 20 61 63 63 6f 6d 6f needed to accomo
5810: 64 61 74 65 20 74 68 65 20 72 65 71 75 65 73 74 date the request
5820: 65 64 20 73 69 7a 65 2e 0a 2a 2a 20 54 68 65 20 ed size..** The
5830: 72 65 76 69 73 65 64 20 76 61 6c 75 65 20 6f 66 revised value of
5840: 20 4e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a N is returned..
5850: 2a 2a 0a 2a 2a 20 41 20 6e 65 67 61 74 69 76 65 **.** A negative
5860: 20 53 49 5a 45 20 63 61 75 73 65 73 20 74 68 65 SIZE causes the
5870: 20 62 75 66 66 65 72 20 70 6f 69 6e 74 65 72 20 buffer pointer
5880: 74 6f 20 62 65 20 4e 55 4c 4c 2e 0a 2a 2f 0a 73 to be NULL..*/.s
5890: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
58a0: 6f 6e 66 69 67 5f 70 61 67 65 63 61 63 68 65 28 onfig_pagecache(
58b0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
58c0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
58d0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
58e0: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
58f0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
5900: 29 7b 0a 20 20 69 6e 74 20 73 7a 2c 20 4e 2c 20 ){. int sz, N,
5910: 72 63 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 rc;. Tcl_Obj *p
5920: 52 65 73 75 6c 74 3b 0a 20 20 73 74 61 74 69 63 Result;. static
5930: 20 63 68 61 72 20 2a 62 75 66 20 3d 20 30 3b 0a char *buf = 0;.
5940: 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b if( objc!=3 ){
5950: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
5960: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
5970: 20 6f 62 6a 76 2c 20 22 53 49 5a 45 20 4e 22 29 objv, "SIZE N")
5980: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
5990: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 _ERROR;. }. if
59a0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d ( Tcl_GetIntFrom
59b0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
59c0: 5b 31 5d 2c 20 26 73 7a 29 20 29 20 72 65 74 75 [1], &sz) ) retu
59d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
59e0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
59f0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
5a00: 6a 76 5b 32 5d 2c 20 26 4e 29 20 29 20 72 65 74 jv[2], &N) ) ret
5a10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5a20: 20 66 72 65 65 28 62 75 66 29 3b 0a 20 20 69 66 free(buf);. if
5a30: 28 20 73 7a 3c 30 20 29 7b 0a 20 20 20 20 62 75 ( sz<0 ){. bu
5a40: 66 20 3d 20 30 3b 0a 20 20 20 20 72 63 20 3d 20 f = 0;. rc =
5a50: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 sqlite3_config(S
5a60: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 50 41 47 QLITE_CONFIG_PAG
5a70: 45 43 41 43 48 45 2c 20 30 2c 20 30 2c 20 30 29 ECACHE, 0, 0, 0)
5a80: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 62 ;. }else{. b
5a90: 75 66 20 3d 20 6d 61 6c 6c 6f 63 28 20 73 7a 2a uf = malloc( sz*
5aa0: 4e 20 29 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 N );. rc = sq
5ab0: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c lite3_config(SQL
5ac0: 49 54 45 5f 43 4f 4e 46 49 47 5f 50 41 47 45 43 ITE_CONFIG_PAGEC
5ad0: 41 43 48 45 2c 20 62 75 66 2c 20 73 7a 2c 20 4e ACHE, buf, sz, N
5ae0: 29 3b 0a 20 20 7d 0a 20 20 70 52 65 73 75 6c 74 );. }. pResult
5af0: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b = Tcl_NewObj();
5b00: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
5b10: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
5b20: 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 77 49 Result, Tcl_NewI
5b30: 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 54 63 ntObj(rc));. Tc
5b40: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
5b50: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c lement(0, pResul
5b60: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
5b70: 28 4e 29 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f (N));. Tcl_SetO
5b80: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
5b90: 20 70 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 pResult);. ret
5ba0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
5bb0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 73 *.** Usage: s
5bc0: 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 61 6c qlite3_config_al
5bd0: 74 5f 70 63 61 63 68 65 20 49 4e 53 54 41 4c 4c t_pcache INSTALL
5be0: 5f 46 4c 41 47 20 44 49 53 43 41 52 44 5f 43 48 _FLAG DISCARD_CH
5bf0: 41 4e 43 45 20 50 52 4e 47 5f 53 45 45 44 0a 2a ANCE PRNG_SEED.*
5c00: 2a 0a 2a 2a 20 53 65 74 20 75 70 20 74 68 65 20 *.** Set up the
5c10: 61 6c 74 65 72 6e 61 74 69 76 65 20 74 65 73 74 alternative test
5c20: 20 70 61 67 65 20 63 61 63 68 65 2e 20 20 49 6e page cache. In
5c30: 73 74 61 6c 6c 20 69 66 20 49 4e 53 54 41 4c 4c stall if INSTALL
5c40: 5f 46 4c 41 47 20 69 73 0a 2a 2a 20 74 72 75 65 _FLAG is.** true
5c50: 20 61 6e 64 20 75 6e 69 6e 73 74 61 6c 6c 20 28 and uninstall (
5c60: 72 65 76 65 72 74 69 6e 67 20 74 6f 20 74 68 65 reverting to the
5c70: 20 64 65 66 61 75 6c 74 20 70 61 67 65 20 63 61 default page ca
5c80: 63 68 65 29 20 69 66 20 49 4e 53 54 41 4c 4c 5f che) if INSTALL_
5c90: 46 4c 41 47 0a 2a 2a 20 69 73 20 66 61 6c 73 65 FLAG.** is false
5ca0: 2e 20 20 44 49 53 43 41 52 44 5f 43 48 41 4e 47 . DISCARD_CHANG
5cb0: 45 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 20 E is an integer
5cc0: 62 65 74 77 65 65 6e 20 30 20 61 6e 64 20 31 30 between 0 and 10
5cd0: 30 20 69 6e 63 6c 75 73 69 76 65 0a 2a 2a 20 77 0 inclusive.** w
5ce0: 68 69 63 68 20 64 65 74 65 72 6d 69 6e 65 73 20 hich determines
5cf0: 74 68 65 20 63 68 61 6e 63 65 20 6f 66 20 64 69 the chance of di
5d00: 73 63 61 72 64 69 6e 67 20 61 20 70 61 67 65 20 scarding a page
5d10: 77 68 65 6e 20 75 6e 70 69 6e 6e 65 64 2e 20 20 when unpinned.
5d20: 31 30 30 0a 2a 2a 20 69 73 20 63 65 72 74 61 69 100.** is certai
5d30: 6e 74 79 2e 20 20 30 20 69 73 20 6e 65 76 65 72 nty. 0 is never
5d40: 2e 20 20 50 52 4e 47 5f 53 45 45 44 20 69 73 20 . PRNG_SEED is
5d50: 74 68 65 20 70 73 65 75 64 6f 2d 72 61 6e 64 6f the pseudo-rando
5d60: 6d 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 m number generat
5d70: 6f 72 0a 2a 2a 20 73 65 65 64 2e 0a 2a 2f 0a 73 or.** seed..*/.s
5d80: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 61 tatic int test_a
5d90: 6c 74 5f 70 63 61 63 68 65 28 0a 20 20 76 6f 69 lt_pcache(. voi
5da0: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
5db0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
5dc0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
5dd0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
5de0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
5df0: 6e 74 20 69 6e 73 74 61 6c 6c 46 6c 61 67 3b 0a nt installFlag;.
5e00: 20 20 69 6e 74 20 64 69 73 63 61 72 64 43 68 61 int discardCha
5e10: 6e 63 65 20 3d 20 30 3b 0a 20 20 69 6e 74 20 70 nce = 0;. int p
5e20: 72 6e 67 53 65 65 64 20 3d 20 30 3b 0a 20 20 69 rngSeed = 0;. i
5e30: 6e 74 20 68 69 67 68 53 74 72 65 73 73 20 3d 20 nt highStress =
5e40: 30 3b 0a 20 20 65 78 74 65 72 6e 20 76 6f 69 64 0;. extern void
5e50: 20 69 6e 73 74 61 6c 6c 54 65 73 74 50 43 61 63 installTestPCac
5e60: 68 65 28 69 6e 74 2c 75 6e 73 69 67 6e 65 64 2c he(int,unsigned,
5e70: 75 6e 73 69 67 6e 65 64 2c 75 6e 73 69 67 6e 65 unsigned,unsigne
5e80: 64 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 d);. if( objc<2
5e90: 20 7c 7c 20 6f 62 6a 63 3e 35 20 29 7b 0a 20 20 || objc>5 ){.
5ea0: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
5eb0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
5ec0: 6a 76 2c 20 0a 20 20 20 20 20 20 20 20 22 49 4e jv, . "IN
5ed0: 53 54 41 4c 4c 46 4c 41 47 20 44 49 53 43 41 52 STALLFLAG DISCAR
5ee0: 44 43 48 41 4e 43 45 20 50 52 4e 47 53 45 45 45 DCHANCE PRNGSEEE
5ef0: 44 20 48 49 47 48 53 54 52 45 53 53 22 29 3b 0a D HIGHSTRESS");.
5f00: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
5f10: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 RROR;. }. if(
5f20: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
5f30: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 j(interp, objv[1
5f40: 5d 2c 20 26 69 6e 73 74 61 6c 6c 46 6c 61 67 29 ], &installFlag)
5f50: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ) return TCL_ER
5f60: 52 4f 52 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3e ROR;. if( objc>
5f70: 3d 33 20 26 26 20 54 63 6c 5f 47 65 74 49 6e 74 =3 && Tcl_GetInt
5f80: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
5f90: 6f 62 6a 76 5b 32 5d 2c 20 26 64 69 73 63 61 72 objv[2], &discar
5fa0: 64 43 68 61 6e 63 65 29 20 29 7b 0a 20 20 20 20 dChance) ){.
5fb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
5fc0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a R;. }. if( obj
5fd0: 63 3e 3d 34 20 26 26 20 54 63 6c 5f 47 65 74 49 c>=4 && Tcl_GetI
5fe0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
5ff0: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 70 72 6e 67 , objv[3], &prng
6000: 53 65 65 64 29 20 29 7b 0a 20 20 20 20 20 72 65 Seed) ){. re
6010: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6020: 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3e 3d }. if( objc>=
6030: 35 20 26 26 20 54 63 6c 5f 47 65 74 49 6e 74 46 5 && Tcl_GetIntF
6040: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
6050: 62 6a 76 5b 34 5d 2c 20 26 68 69 67 68 53 74 72 bjv[4], &highStr
6060: 65 73 73 29 20 29 7b 0a 20 20 20 20 72 65 74 75 ess) ){. retu
6070: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6080: 7d 0a 20 20 69 66 28 20 64 69 73 63 61 72 64 43 }. if( discardC
6090: 68 61 6e 63 65 3c 30 20 7c 7c 20 64 69 73 63 61 hance<0 || disca
60a0: 72 64 43 68 61 6e 63 65 3e 31 30 30 20 29 7b 0a rdChance>100 ){.
60b0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
60c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 64 69 sult(interp, "di
60d0: 73 63 61 72 64 2d 63 68 61 6e 63 65 20 73 68 6f scard-chance sho
60e0: 75 6c 64 20 62 65 20 62 65 74 77 65 65 6e 20 30 uld be between 0
60f0: 20 61 6e 64 20 31 30 30 22 2c 0a 20 20 20 20 20 and 100",.
6100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6110: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 (char*)0);. r
6120: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6130: 0a 20 20 7d 0a 20 20 69 6e 73 74 61 6c 6c 54 65 . }. installTe
6140: 73 74 50 43 61 63 68 65 28 69 6e 73 74 61 6c 6c stPCache(install
6150: 46 6c 61 67 2c 20 28 75 6e 73 69 67 6e 65 64 29 Flag, (unsigned)
6160: 64 69 73 63 61 72 64 43 68 61 6e 63 65 2c 20 28 discardChance, (
6170: 75 6e 73 69 67 6e 65 64 29 70 72 6e 67 53 65 65 unsigned)prngSee
6180: 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 d,.
6190: 20 20 20 20 20 20 20 28 75 6e 73 69 67 6e 65 64 (unsigned
61a0: 29 68 69 67 68 53 74 72 65 73 73 29 3b 0a 20 20 )highStress);.
61b0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
61c0: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 ../*.** Usage:
61d0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 sqlite3_config
61e0: 5f 6d 65 6d 73 74 61 74 75 73 20 42 4f 4f 4c 45 _memstatus BOOLE
61f0: 41 4e 0a 2a 2a 0a 2a 2a 20 45 6e 61 62 6c 65 20 AN.**.** Enable
6200: 6f 72 20 64 69 73 61 62 6c 65 20 6d 65 6d 6f 72 or disable memor
6210: 79 20 73 74 61 74 75 73 20 72 65 70 6f 72 74 69 y status reporti
6220: 6e 67 20 75 73 69 6e 67 20 53 51 4c 49 54 45 5f ng using SQLITE_
6230: 43 4f 4e 46 49 47 5f 4d 45 4d 53 54 41 54 55 53 CONFIG_MEMSTATUS
6240: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
6250: 74 65 73 74 5f 63 6f 6e 66 69 67 5f 6d 65 6d 73 test_config_mems
6260: 74 61 74 75 73 28 0a 20 20 76 6f 69 64 20 2a 20 tatus(. void *
6270: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 clientData,. Tc
6280: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
6290: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 ,. int objc,.
62a0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
62b0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 65 bjv[].){. int e
62c0: 6e 61 62 6c 65 2c 20 72 63 3b 0a 20 20 69 66 28 nable, rc;. if(
62d0: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
62e0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
62f0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
6300: 2c 20 22 42 4f 4f 4c 45 41 4e 22 29 3b 0a 20 20 , "BOOLEAN");.
6310: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6320: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 OR;. }. if( Tc
6330: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
6340: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
6350: 5b 31 5d 2c 20 26 65 6e 61 62 6c 65 29 20 29 20 [1], &enable) )
6360: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6370: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 ;. rc = sqlite3
6380: 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 _config(SQLITE_C
6390: 4f 4e 46 49 47 5f 4d 45 4d 53 54 41 54 55 53 2c ONFIG_MEMSTATUS,
63a0: 20 65 6e 61 62 6c 65 29 3b 0a 20 20 54 63 6c 5f enable);. Tcl_
63b0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
63c0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f erp, Tcl_NewIntO
63d0: 62 6a 28 72 63 29 29 3b 0a 20 20 72 65 74 75 72 bj(rc));. retur
63e0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
63f0: 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 73 71 6c ** Usage: sql
6400: 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6c 6f 6f 6b ite3_config_look
6410: 61 73 69 64 65 20 20 53 49 5a 45 20 20 43 4f 55 aside SIZE COU
6420: 4e 54 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20 NT.**.*/.static
6430: 69 6e 74 20 74 65 73 74 5f 63 6f 6e 66 69 67 5f int test_config_
6440: 6c 6f 6f 6b 61 73 69 64 65 28 0a 20 20 76 6f 69 lookaside(. voi
6450: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
6460: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
6470: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
6480: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
6490: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
64a0: 6e 74 20 73 7a 2c 20 63 6e 74 3b 0a 20 20 54 63 nt sz, cnt;. Tc
64b0: 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 20 20 69 l_Obj *pRet;. i
64c0: 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 f( objc!=3 ){.
64d0: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 Tcl_WrongNumAr
64e0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
64f0: 6a 76 2c 20 22 53 49 5a 45 20 43 4f 55 4e 54 22 jv, "SIZE COUNT"
6500: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
6510: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
6520: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
6530: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
6540: 76 5b 31 5d 2c 20 26 73 7a 29 20 29 20 72 65 74 v[1], &sz) ) ret
6550: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6560: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
6570: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
6580: 62 6a 76 5b 32 5d 2c 20 26 63 6e 74 29 20 29 20 bjv[2], &cnt) )
6590: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
65a0: 3b 0a 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e ;. pRet = Tcl_N
65b0: 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c ewObj();. Tcl_L
65c0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
65d0: 65 6e 74 28 0a 20 20 20 20 20 20 69 6e 74 65 72 ent(. inter
65e0: 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 p, pRet, Tcl_New
65f0: 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 47 6c IntObj(sqlite3Gl
6600: 6f 62 61 6c 43 6f 6e 66 69 67 2e 73 7a 4c 6f 6f obalConfig.szLoo
6610: 6b 61 73 69 64 65 29 0a 20 20 29 3b 0a 20 20 54 kaside). );. T
6620: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
6630: 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 20 20 69 Element(. i
6640: 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63 6c nterp, pRet, Tcl
6650: 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
6660: 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 6e e3GlobalConfig.n
6670: 4c 6f 6f 6b 61 73 69 64 65 29 0a 20 20 29 3b 0a Lookaside). );.
6680: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 sqlite3_config
6690: 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4c (SQLITE_CONFIG_L
66a0: 4f 4f 4b 41 53 49 44 45 2c 20 73 7a 2c 20 63 6e OOKASIDE, sz, cn
66b0: 74 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a t);. Tcl_SetObj
66c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
66d0: 52 65 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 Ret);. return T
66e0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a CL_OK;.}.../*.**
66f0: 20 55 73 61 67 65 3a 20 20 20 20 73 71 6c 69 74 Usage: sqlit
6700: 65 33 5f 64 62 5f 63 6f 6e 66 69 67 5f 6c 6f 6f e3_db_config_loo
6710: 6b 61 73 69 64 65 20 20 43 4f 4e 4e 45 43 54 49 kaside CONNECTI
6720: 4f 4e 20 20 42 55 46 49 44 20 20 53 49 5a 45 20 ON BUFID SIZE
6730: 20 43 4f 55 4e 54 0a 2a 2a 0a 2a 2a 20 54 68 65 COUNT.**.** The
6740: 72 65 20 61 72 65 20 74 77 6f 20 73 74 61 74 69 re are two stati
6750: 63 20 62 75 66 66 65 72 73 20 77 69 74 68 20 42 c buffers with B
6760: 55 46 49 44 20 31 20 61 6e 64 20 32 2e 20 20 20 UFID 1 and 2.
6770: 45 61 63 68 20 73 74 61 74 69 63 20 62 75 66 66 Each static buff
6780: 65 72 0a 2a 2a 20 69 73 20 31 30 4b 42 20 69 6e er.** is 10KB in
6790: 20 73 69 7a 65 2e 20 20 41 20 42 55 46 49 44 20 size. A BUFID
67a0: 6f 66 20 30 20 69 6e 64 69 63 61 74 65 73 20 74 of 0 indicates t
67b0: 68 61 74 20 74 68 65 20 62 75 66 66 65 72 20 73 hat the buffer s
67c0: 68 6f 75 6c 64 20 62 65 20 4e 55 4c 4c 0a 2a 2a hould be NULL.**
67d0: 20 77 68 69 63 68 20 77 69 6c 6c 20 63 61 75 73 which will caus
67e0: 65 20 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f 6e e sqlite3_db_con
67f0: 66 69 67 28 29 20 74 6f 20 61 6c 6c 6f 63 61 74 fig() to allocat
6800: 65 20 73 70 61 63 65 20 6f 6e 20 69 74 73 20 6f e space on its o
6810: 77 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e wn..*/.static in
6820: 74 20 74 65 73 74 5f 64 62 5f 63 6f 6e 66 69 67 t test_db_config
6830: 5f 6c 6f 6f 6b 61 73 69 64 65 28 0a 20 20 76 6f _lookaside(. vo
6840: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
6850: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
6860: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
6870: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
6880: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
6890: 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 73 7a int rc;. int sz
68a0: 2c 20 63 6e 74 3b 0a 20 20 73 71 6c 69 74 65 33 , cnt;. sqlite3
68b0: 20 2a 64 62 3b 0a 20 20 69 6e 74 20 62 75 66 69 *db;. int bufi
68c0: 64 3b 0a 20 20 73 74 61 74 69 63 20 63 68 61 72 d;. static char
68d0: 20 61 7a 42 75 66 5b 32 5d 5b 31 30 30 30 30 5d azBuf[2][10000]
68e0: 3b 0a 20 20 69 6e 74 20 67 65 74 44 62 50 6f 69 ;. int getDbPoi
68f0: 6e 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 2a nter(Tcl_Interp*
6900: 2c 20 63 6f 6e 73 74 20 63 68 61 72 2a 2c 20 73 , const char*, s
6910: 71 6c 69 74 65 33 2a 2a 29 3b 0a 20 20 69 66 28 qlite3**);. if(
6920: 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 objc!=5 ){.
6930: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
6940: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
6950: 2c 20 22 42 55 46 49 44 20 53 49 5a 45 20 43 4f , "BUFID SIZE CO
6960: 55 4e 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 UNT");. retur
6970: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
6980: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e . if( getDbPoin
6990: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
69a0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
69b0: 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 ]), &db) ) retur
69c0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 n TCL_ERROR;. i
69d0: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f f( Tcl_GetIntFro
69e0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
69f0: 76 5b 32 5d 2c 20 26 62 75 66 69 64 29 20 29 20 v[2], &bufid) )
6a00: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6a10: 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 ;. if( Tcl_GetI
6a20: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
6a30: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 73 7a 29 20 , objv[3], &sz)
6a40: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
6a50: 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 OR;. if( Tcl_Ge
6a60: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
6a70: 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 63 6e rp, objv[4], &cn
6a80: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f t) ) return TCL_
6a90: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 62 75 66 ERROR;. if( buf
6aa0: 69 64 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 id==0 ){. rc
6ab0: 3d 20 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f 6e = sqlite3_db_con
6ac0: 66 69 67 28 64 62 2c 20 53 51 4c 49 54 45 5f 44 fig(db, SQLITE_D
6ad0: 42 43 4f 4e 46 49 47 5f 4c 4f 4f 4b 41 53 49 44 BCONFIG_LOOKASID
6ae0: 45 2c 20 30 2c 20 73 7a 2c 20 63 6e 74 29 3b 0a E, 0, sz, cnt);.
6af0: 20 20 7d 65 6c 73 65 20 69 66 28 20 62 75 66 69 }else if( bufi
6b00: 64 3e 3d 31 20 26 26 20 62 75 66 69 64 3c 3d 32 d>=1 && bufid<=2
6b10: 20 26 26 20 73 7a 2a 63 6e 74 3c 3d 73 69 7a 65 && sz*cnt<=size
6b20: 6f 66 28 61 7a 42 75 66 5b 30 5d 29 20 29 7b 0a of(azBuf[0]) ){.
6b30: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 rc = sqlite3
6b40: 5f 64 62 5f 63 6f 6e 66 69 67 28 64 62 2c 20 53 _db_config(db, S
6b50: 51 4c 49 54 45 5f 44 42 43 4f 4e 46 49 47 5f 4c QLITE_DBCONFIG_L
6b60: 4f 4f 4b 41 53 49 44 45 2c 20 61 7a 42 75 66 5b OOKASIDE, azBuf[
6b70: 62 75 66 69 64 5d 2c 20 73 7a 2c 63 6e 74 29 3b bufid], sz,cnt);
6b80: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 . }else{. Tc
6b90: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6ba0: 6e 74 65 72 70 2c 20 22 69 6c 6c 65 67 61 6c 20 nterp, "illegal
6bb0: 61 72 67 75 6d 65 6e 74 73 20 2d 20 73 65 65 20 arguments - see
6bc0: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 2c 20 documentation",
6bd0: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 20 20 72 (char*)0);. r
6be0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6bf0: 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 . }. Tcl_SetOb
6c00: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
6c10: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 Tcl_NewIntObj(rc
6c20: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c ));. return TCL
6c30: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 _OK;.}../*.** Us
6c40: 61 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f age: sqlite3_
6c50: 63 6f 6e 66 69 67 5f 68 65 61 70 20 4e 42 59 54 config_heap NBYT
6c60: 45 20 4e 4d 49 4e 41 4c 4c 4f 43 0a 2a 2f 0a 73 E NMINALLOC.*/.s
6c70: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
6c80: 6f 6e 66 69 67 5f 68 65 61 70 28 0a 20 20 76 6f onfig_heap(. vo
6c90: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
6ca0: 20 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a . Tcl_Interp *
6cb0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
6cc0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
6cd0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
6ce0: 20 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a 42 static char *zB
6cf0: 75 66 3b 20 2f 2a 20 55 73 65 20 74 68 69 73 20 uf; /* Use this
6d00: 6d 65 6d 6f 72 79 20 2a 2f 0a 20 20 69 6e 74 20 memory */. int
6d10: 6e 42 79 74 65 3b 20 20 20 20 20 20 20 20 20 2f nByte; /
6d20: 2a 20 53 69 7a 65 20 6f 66 20 62 75 66 66 65 72 * Size of buffer
6d30: 20 74 6f 20 70 61 73 73 20 74 6f 20 73 71 6c 69 to pass to sqli
6d40: 74 65 33 5f 63 6f 6e 66 69 67 28 29 20 2a 2f 0a te3_config() */.
6d50: 20 20 69 6e 74 20 6e 4d 69 6e 41 6c 6c 6f 63 3b int nMinAlloc;
6d60: 20 20 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 /* Size of
6d70: 6d 69 6e 69 6d 75 6d 20 61 6c 6c 6f 63 61 74 69 minimum allocati
6d80: 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 72 63 3b 20 on */. int rc;
6d90: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 /* Re
6da0: 74 75 72 6e 20 63 6f 64 65 20 6f 66 20 73 71 6c turn code of sql
6db0: 69 74 65 33 5f 63 6f 6e 66 69 67 28 29 20 2a 2f ite3_config() */
6dc0: 0a 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 20 43 4f .. Tcl_Obj * CO
6dd0: 4e 53 54 20 2a 61 41 72 67 20 3d 20 26 6f 62 6a NST *aArg = &obj
6de0: 76 5b 31 5d 3b 0a 20 20 69 6e 74 20 6e 41 72 67 v[1];. int nArg
6df0: 20 3d 20 6f 62 6a 63 2d 31 3b 0a 0a 20 20 69 66 = objc-1;.. if
6e00: 28 20 6e 41 72 67 21 3d 32 20 29 7b 0a 20 20 20 ( nArg!=2 ){.
6e10: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
6e20: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
6e30: 76 2c 20 22 4e 42 59 54 45 20 4e 4d 49 4e 41 4c v, "NBYTE NMINAL
6e40: 4c 4f 43 22 29 3b 0a 20 20 20 20 72 65 74 75 72 LOC");. retur
6e50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
6e60: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e . if( Tcl_GetIn
6e70: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
6e80: 20 61 41 72 67 5b 30 5d 2c 20 26 6e 42 79 74 65 aArg[0], &nByte
6e90: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 ) ) return TCL_E
6ea0: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f RROR;. if( Tcl_
6eb0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
6ec0: 74 65 72 70 2c 20 61 41 72 67 5b 31 5d 2c 20 26 terp, aArg[1], &
6ed0: 6e 4d 69 6e 41 6c 6c 6f 63 29 20 29 20 72 65 74 nMinAlloc) ) ret
6ee0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a urn TCL_ERROR;..
6ef0: 20 20 69 66 28 20 6e 42 79 74 65 3d 3d 30 20 29 if( nByte==0 )
6f00: 7b 0a 20 20 20 20 66 72 65 65 28 20 7a 42 75 66 {. free( zBuf
6f10: 20 29 3b 0a 20 20 20 20 7a 42 75 66 20 3d 20 30 );. zBuf = 0
6f20: 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 ;. rc = sqlit
6f30: 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 e3_config(SQLITE
6f40: 5f 43 4f 4e 46 49 47 5f 48 45 41 50 2c 20 28 76 _CONFIG_HEAP, (v
6f50: 6f 69 64 2a 29 30 2c 20 30 2c 20 30 29 3b 0a 20 oid*)0, 0, 0);.
6f60: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 42 75 66 }else{. zBuf
6f70: 20 3d 20 72 65 61 6c 6c 6f 63 28 7a 42 75 66 2c = realloc(zBuf,
6f80: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 72 63 20 nByte);. rc
6f90: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 = sqlite3_config
6fa0: 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 48 (SQLITE_CONFIG_H
6fb0: 45 41 50 2c 20 7a 42 75 66 2c 20 6e 42 79 74 65 EAP, zBuf, nByte
6fc0: 2c 20 6e 4d 69 6e 41 6c 6c 6f 63 29 3b 0a 20 20 , nMinAlloc);.
6fd0: 7d 0a 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 }.. Tcl_SetResu
6fe0: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
6ff0: 20 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 72 *)sqlite3TestEr
7000: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c rorName(rc), TCL
7010: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 72 65 _VOLATILE);. re
7020: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
7030: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 /*.** Usage:
7040: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 65 sqlite3_config_e
7050: 72 72 6f 72 20 20 5b 44 42 5d 0a 2a 2a 0a 2a 2a rror [DB].**.**
7060: 20 49 6e 76 6f 6b 65 20 73 71 6c 69 74 65 33 5f Invoke sqlite3_
7070: 63 6f 6e 66 69 67 28 29 20 6f 72 20 73 71 6c 69 config() or sqli
7080: 74 65 33 5f 64 62 5f 63 6f 6e 66 69 67 28 29 20 te3_db_config()
7090: 77 69 74 68 20 69 6e 76 61 6c 69 64 0a 2a 2a 20 with invalid.**
70a0: 6f 70 63 6f 64 65 73 20 61 6e 64 20 76 65 72 69 opcodes and veri
70b0: 66 79 20 74 68 61 74 20 74 68 65 79 20 72 65 74 fy that they ret
70c0: 75 72 6e 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a 73 urn errors..*/.s
70d0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 63 tatic int test_c
70e0: 6f 6e 66 69 67 5f 65 72 72 6f 72 28 0a 20 20 76 onfig_error(. v
70f0: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
7100: 2c 20 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 , . Tcl_Interp
7110: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
7120: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
7130: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
7140: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 sqlite3 *db;.
7150: 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 int getDbPointe
7160: 72 28 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 20 63 r(Tcl_Interp*, c
7170: 6f 6e 73 74 20 63 68 61 72 2a 2c 20 73 71 6c 69 onst char*, sqli
7180: 74 65 33 2a 2a 29 3b 0a 0a 20 20 69 66 28 20 6f te3**);.. if( o
7190: 62 6a 63 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d bjc!=2 && objc!=
71a0: 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 1 ){. Tcl_Wro
71b0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
71c0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 5b 44 42 5d , 1, objv, "[DB]
71d0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
71e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
71f0: 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a 20 if( objc==2 ){.
7200: 20 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e if( getDbPoin
7210: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ter(interp, Tcl_
7220: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
7230: 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72 ]), &db) ) retur
7240: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7250: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 64 62 5f if( sqlite3_db_
7260: 63 6f 6e 66 69 67 28 64 62 2c 20 39 39 39 39 39 config(db, 99999
7270: 29 21 3d 53 51 4c 49 54 45 5f 45 52 52 4f 52 20 )!=SQLITE_ERROR
7280: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 41 70 70 ){. Tcl_App
7290: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
72a0: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 , . "
72b0: 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f 6e 66 69 sqlite3_db_confi
72c0: 67 28 64 62 2c 20 39 39 39 39 39 29 20 64 6f 65 g(db, 99999) doe
72d0: 73 20 6e 6f 74 20 72 65 74 75 72 6e 20 53 51 4c s not return SQL
72e0: 49 54 45 5f 45 52 52 4f 52 22 2c 0a 20 20 20 20 ITE_ERROR",.
72f0: 20 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 30 (char*)0
7300: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
7310: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7320: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 66 . }else{. if
7330: 28 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 ( sqlite3_config
7340: 28 39 39 39 39 39 29 21 3d 53 51 4c 49 54 45 5f (99999)!=SQLITE_
7350: 45 52 52 4f 52 20 29 7b 0a 20 20 20 20 20 20 54 ERROR ){. T
7360: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7370: 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 20 20 interp, .
7380: 20 20 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 "sqlite3_conf
7390: 69 67 28 39 39 39 39 39 29 20 64 6f 65 73 20 6e ig(99999) does n
73a0: 6f 74 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 ot return SQLITE
73b0: 5f 45 52 52 4f 52 22 2c 0a 20 20 20 20 20 20 20 _ERROR",.
73c0: 20 20 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 (char*)0);.
73d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
73e0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a RROR;. }. }.
73f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
7400: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a .}../*.** Usage:
7410: 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 sqlite3_conf
7420: 69 67 5f 75 72 69 20 20 42 4f 4f 4c 45 41 4e 0a ig_uri BOOLEAN.
7430: 2a 2a 0a 2a 2a 20 45 6e 61 62 6c 65 73 20 6f 72 **.** Enables or
7440: 20 64 69 73 61 62 6c 65 73 20 69 6e 74 65 72 70 disables interp
7450: 72 65 74 61 74 69 6f 6e 20 6f 66 20 55 52 49 20 retation of URI
7460: 70 61 72 61 6d 65 74 65 72 73 20 62 79 20 64 65 parameters by de
7470: 66 61 75 6c 74 20 75 73 69 6e 67 0a 2a 2a 20 53 fault using.** S
7480: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 55 52 49 QLITE_CONFIG_URI
7490: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
74a0: 74 65 73 74 5f 63 6f 6e 66 69 67 5f 75 72 69 28 test_config_uri(
74b0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
74c0: 44 61 74 61 2c 20 0a 20 20 54 63 6c 5f 49 6e 74 Data, . Tcl_Int
74d0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 erp *interp,. i
74e0: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f nt objc,. Tcl_O
74f0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
7500: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 .){. int rc;.
7510: 69 6e 74 20 62 4f 70 65 6e 55 72 69 3b 0a 0a 20 int bOpenUri;..
7520: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a if( objc!=2 ){.
7530: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
7540: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
7550: 6f 62 6a 76 2c 20 22 42 4f 4f 4c 22 29 3b 0a 20 objv, "BOOL");.
7560: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
7570: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 ROR;. }. if( T
7580: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f cl_GetBooleanFro
7590: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
75a0: 76 5b 31 5d 2c 20 26 62 4f 70 65 6e 55 72 69 29 v[1], &bOpenUri)
75b0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
75c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 CL_ERROR;. }..
75d0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f rc = sqlite3_co
75e0: 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 nfig(SQLITE_CONF
75f0: 49 47 5f 55 52 49 2c 20 62 4f 70 65 6e 55 72 69 IG_URI, bOpenUri
7600: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 );. Tcl_SetResu
7610: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
7620: 20 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 72 *)sqlite3TestEr
7630: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c rorName(rc), TCL
7640: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 0a 20 20 72 _VOLATILE);.. r
7650: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
7660: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 ./*.** Usage:
7670: 20 73 71 6c 69 74 65 33 5f 64 75 6d 70 5f 6d 65 sqlite3_dump_me
7680: 6d 73 79 73 33 20 20 46 49 4c 45 4e 41 4d 45 0a msys3 FILENAME.
7690: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 73 71 6c ** sql
76a0: 69 74 65 33 5f 64 75 6d 70 5f 6d 65 6d 73 79 73 ite3_dump_memsys
76b0: 35 20 20 46 49 4c 45 4e 41 4d 45 0a 2a 2a 0a 2a 5 FILENAME.**.*
76c0: 2a 20 57 72 69 74 65 20 61 20 73 75 6d 6d 61 72 * Write a summar
76d0: 79 20 6f 66 20 75 6e 66 72 65 65 64 20 6d 65 6d y of unfreed mem
76e0: 73 79 73 33 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 sys3 allocations
76f0: 20 74 6f 20 46 49 4c 45 4e 41 4d 45 2e 0a 2a 2f to FILENAME..*/
7700: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
7710: 5f 64 75 6d 70 5f 6d 65 6d 73 79 73 33 28 0a 20 _dump_memsys3(.
7720: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 void * clientDa
7730: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 ta,. Tcl_Interp
7740: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 *interp,. int
7750: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 objc,. Tcl_Obj
7760: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b *CONST objv[].){
7770: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 . if( objc!=2 )
7780: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e {. Tcl_WrongN
7790: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
77a0: 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 4e 41 4d , objv, "FILENAM
77b0: 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 E");. return
77c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
77d0: 20 20 73 77 69 74 63 68 28 20 53 51 4c 49 54 45 switch( SQLITE
77e0: 5f 50 54 52 5f 54 4f 5f 49 4e 54 28 63 6c 69 65 _PTR_TO_INT(clie
77f0: 6e 74 44 61 74 61 29 20 29 7b 0a 20 20 20 20 63 ntData) ){. c
7800: 61 73 65 20 33 3a 20 7b 0a 23 69 66 64 65 66 20 ase 3: {.#ifdef
7810: 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4d 45 SQLITE_ENABLE_ME
7820: 4d 53 59 53 33 0a 20 20 20 20 20 20 65 78 74 65 MSYS3. exte
7830: 72 6e 20 76 6f 69 64 20 73 71 6c 69 74 65 33 4d rn void sqlite3M
7840: 65 6d 73 79 73 33 44 75 6d 70 28 63 6f 6e 73 74 emsys3Dump(const
7850: 20 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 73 char*);. s
7860: 71 6c 69 74 65 33 4d 65 6d 73 79 73 33 44 75 6d qlite3Memsys3Dum
7870: 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 p(Tcl_GetString(
7880: 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20 20 20 20 20 objv[1]));.
7890: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 break;.#endif.
78a0: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 35 3a }. case 5:
78b0: 20 7b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 {.#ifdef SQLITE
78c0: 5f 45 4e 41 42 4c 45 5f 4d 45 4d 53 59 53 35 0a _ENABLE_MEMSYS5.
78d0: 20 20 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 extern voi
78e0: 64 20 73 71 6c 69 74 65 33 4d 65 6d 73 79 73 35 d sqlite3Memsys5
78f0: 44 75 6d 70 28 63 6f 6e 73 74 20 63 68 61 72 2a Dump(const char*
7900: 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 );. sqlite3
7910: 4d 65 6d 73 79 73 35 44 75 6d 70 28 54 63 6c 5f Memsys5Dump(Tcl_
7920: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
7930: 5d 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b ]));. break
7940: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 ;.#endif. }.
7950: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f }. return TCL_
7960: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 OK;.}../*.** Usa
7970: 67 65 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 ge: sqlite3_s
7980: 74 61 74 75 73 20 20 4f 50 43 4f 44 45 20 20 52 tatus OPCODE R
7990: 45 53 45 54 46 4c 41 47 0a 2a 2a 0a 2a 2a 20 52 ESETFLAG.**.** R
79a0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
79b0: 74 68 72 65 65 20 65 6c 65 6d 65 6e 74 73 20 77 three elements w
79c0: 68 69 63 68 20 61 72 65 20 74 68 65 20 73 71 6c hich are the sql
79d0: 69 74 65 33 5f 73 74 61 74 75 73 28 29 20 72 65 ite3_status() re
79e0: 74 75 72 6e 0a 2a 2a 20 63 6f 64 65 2c 20 74 68 turn.** code, th
79f0: 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 2c e current value,
7a00: 20 61 6e 64 20 74 68 65 20 68 69 67 68 2d 77 61 and the high-wa
7a10: 74 65 72 20 6d 61 72 6b 20 76 61 6c 75 65 2e 0a ter mark value..
7a20: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 */.static int te
7a30: 73 74 5f 73 74 61 74 75 73 28 0a 20 20 76 6f 69 st_status(. voi
7a40: 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a d * clientData,.
7a50: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
7a60: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 terp,. int objc
7a70: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e ,. Tcl_Obj *CON
7a80: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 ST objv[].){. i
7a90: 6e 74 20 72 63 2c 20 69 56 61 6c 75 65 2c 20 6d nt rc, iValue, m
7aa0: 78 56 61 6c 75 65 3b 0a 20 20 69 6e 74 20 69 2c xValue;. int i,
7ab0: 20 6f 70 2c 20 72 65 73 65 74 46 6c 61 67 3b 0a op, resetFlag;.
7ac0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f const char *zO
7ad0: 70 4e 61 6d 65 3b 0a 20 20 73 74 61 74 69 63 20 pName;. static
7ae0: 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 const struct {.
7af0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
7b00: 4e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 6f 70 Name;. int op
7b10: 3b 0a 20 20 7d 20 61 4f 70 5b 5d 20 3d 20 7b 0a ;. } aOp[] = {.
7b20: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7b30: 41 54 55 53 5f 4d 45 4d 4f 52 59 5f 55 53 45 44 ATUS_MEMORY_USED
7b40: 22 2c 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 ", SQLIT
7b50: 45 5f 53 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f E_STATUS_MEMORY_
7b60: 55 53 45 44 20 20 20 20 20 20 20 20 20 7d 2c 0a USED },.
7b70: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7b80: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45 ATUS_MALLOC_SIZE
7b90: 22 2c 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 ", SQLIT
7ba0: 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f E_STATUS_MALLOC_
7bb0: 53 49 5a 45 20 20 20 20 20 20 20 20 20 7d 2c 0a SIZE },.
7bc0: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7bd0: 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f 55 ATUS_PAGECACHE_U
7be0: 53 45 44 22 2c 20 20 20 20 20 20 53 51 4c 49 54 SED", SQLIT
7bf0: 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 E_STATUS_PAGECAC
7c00: 48 45 5f 55 53 45 44 20 20 20 20 20 20 7d 2c 0a HE_USED },.
7c10: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7c20: 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f 4f ATUS_PAGECACHE_O
7c30: 56 45 52 46 4c 4f 57 22 2c 20 20 53 51 4c 49 54 VERFLOW", SQLIT
7c40: 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 E_STATUS_PAGECAC
7c50: 48 45 5f 4f 56 45 52 46 4c 4f 57 20 20 7d 2c 0a HE_OVERFLOW },.
7c60: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7c70: 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f 53 ATUS_PAGECACHE_S
7c80: 49 5a 45 22 2c 20 20 20 20 20 20 53 51 4c 49 54 IZE", SQLIT
7c90: 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 E_STATUS_PAGECAC
7ca0: 48 45 5f 53 49 5a 45 20 20 20 20 20 20 7d 2c 0a HE_SIZE },.
7cb0: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7cc0: 41 54 55 53 5f 53 43 52 41 54 43 48 5f 55 53 45 ATUS_SCRATCH_USE
7cd0: 44 22 2c 20 20 20 20 20 20 20 20 53 51 4c 49 54 D", SQLIT
7ce0: 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 E_STATUS_SCRATCH
7cf0: 5f 55 53 45 44 20 20 20 20 20 20 20 20 7d 2c 0a _USED },.
7d00: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7d10: 41 54 55 53 5f 53 43 52 41 54 43 48 5f 4f 56 45 ATUS_SCRATCH_OVE
7d20: 52 46 4c 4f 57 22 2c 20 20 20 20 53 51 4c 49 54 RFLOW", SQLIT
7d30: 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 E_STATUS_SCRATCH
7d40: 5f 4f 56 45 52 46 4c 4f 57 20 20 20 20 7d 2c 0a _OVERFLOW },.
7d50: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7d60: 41 54 55 53 5f 53 43 52 41 54 43 48 5f 53 49 5a ATUS_SCRATCH_SIZ
7d70: 45 22 2c 20 20 20 20 20 20 20 20 53 51 4c 49 54 E", SQLIT
7d80: 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 E_STATUS_SCRATCH
7d90: 5f 53 49 5a 45 20 20 20 20 20 20 20 20 7d 2c 0a _SIZE },.
7da0: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7db0: 41 54 55 53 5f 50 41 52 53 45 52 5f 53 54 41 43 ATUS_PARSER_STAC
7dc0: 4b 22 2c 20 20 20 20 20 20 20 20 53 51 4c 49 54 K", SQLIT
7dd0: 45 5f 53 54 41 54 55 53 5f 50 41 52 53 45 52 5f E_STATUS_PARSER_
7de0: 53 54 41 43 4b 20 20 20 20 20 20 20 20 7d 2c 0a STACK },.
7df0: 20 20 20 20 7b 20 22 53 51 4c 49 54 45 5f 53 54 { "SQLITE_ST
7e00: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e ATUS_MALLOC_COUN
7e10: 54 22 2c 20 20 20 20 20 20 20 20 53 51 4c 49 54 T", SQLIT
7e20: 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f E_STATUS_MALLOC_
7e30: 43 4f 55 4e 54 20 20 20 20 20 20 20 20 7d 2c 0a COUNT },.
7e40: 20 20 7d 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a };. Tcl_Obj *
7e50: 70 52 65 73 75 6c 74 3b 0a 20 20 69 66 28 20 6f pResult;. if( o
7e60: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 bjc!=3 ){. Tc
7e70: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
7e80: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
7e90: 22 50 41 52 41 4d 45 54 45 52 20 52 45 53 45 54 "PARAMETER RESET
7ea0: 46 4c 41 47 22 29 3b 0a 20 20 20 20 72 65 74 75 FLAG");. retu
7eb0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7ec0: 7d 0a 20 20 7a 4f 70 4e 61 6d 65 20 3d 20 54 63 }. zOpName = Tc
7ed0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
7ee0: 5b 31 5d 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b [1]);. for(i=0;
7ef0: 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 4f 70 i<ArraySize(aOp
7f00: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 ); i++){. if(
7f10: 20 73 74 72 63 6d 70 28 61 4f 70 5b 69 5d 2e 7a strcmp(aOp[i].z
7f20: 4e 61 6d 65 2c 20 7a 4f 70 4e 61 6d 65 29 3d 3d Name, zOpName)==
7f30: 30 20 29 7b 0a 20 20 20 20 20 20 6f 70 20 3d 20 0 ){. op =
7f40: 61 4f 70 5b 69 5d 2e 6f 70 3b 0a 20 20 20 20 20 aOp[i].op;.
7f50: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
7f60: 7d 0a 20 20 69 66 28 20 69 3e 3d 41 72 72 61 79 }. if( i>=Array
7f70: 53 69 7a 65 28 61 4f 70 29 20 29 7b 0a 20 20 20 Size(aOp) ){.
7f80: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 if( Tcl_GetIntF
7f90: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
7fa0: 62 6a 76 5b 31 5d 2c 20 26 6f 70 29 20 29 20 72 bjv[1], &op) ) r
7fb0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7fc0: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 . }. if( Tcl_G
7fd0: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a etBooleanFromObj
7fe0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
7ff0: 2c 20 26 72 65 73 65 74 46 6c 61 67 29 20 29 20 , &resetFlag) )
8000: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8010: 3b 0a 20 20 69 56 61 6c 75 65 20 3d 20 30 3b 0a ;. iValue = 0;.
8020: 20 20 6d 78 56 61 6c 75 65 20 3d 20 30 3b 0a 20 mxValue = 0;.
8030: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 rc = sqlite3_st
8040: 61 74 75 73 28 6f 70 2c 20 26 69 56 61 6c 75 65 atus(op, &iValue
8050: 2c 20 26 6d 78 56 61 6c 75 65 2c 20 72 65 73 65 , &mxValue, rese
8060: 74 46 6c 61 67 29 3b 0a 20 20 70 52 65 73 75 6c tFlag);. pResul
8070: 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 t = Tcl_NewObj()
8080: 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;. Tcl_ListObjA
8090: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 ppendElement(0,
80a0: 70 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 77 pResult, Tcl_New
80b0: 49 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 54 IntObj(rc));. T
80c0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
80d0: 45 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 Element(0, pResu
80e0: 6c 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 lt, Tcl_NewIntOb
80f0: 6a 28 69 56 61 6c 75 65 29 29 3b 0a 20 20 54 63 j(iValue));. Tc
8100: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
8110: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c lement(0, pResul
8120: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
8130: 28 6d 78 56 61 6c 75 65 29 29 3b 0a 20 20 54 63 (mxValue));. Tc
8140: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
8150: 6e 74 65 72 70 2c 20 70 52 65 73 75 6c 74 29 3b nterp, pResult);
8160: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b . return TCL_OK
8170: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 ;.}../*.** Usage
8180: 3a 20 20 20 20 73 71 6c 69 74 65 33 5f 64 62 5f : sqlite3_db_
8190: 73 74 61 74 75 73 20 20 44 41 54 41 42 41 53 45 status DATABASE
81a0: 20 20 4f 50 43 4f 44 45 20 20 52 45 53 45 54 46 OPCODE RESETF
81b0: 4c 41 47 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e LAG.**.** Return
81c0: 20 61 20 6c 69 73 74 20 6f 66 20 74 68 72 65 65 a list of three
81d0: 20 65 6c 65 6d 65 6e 74 73 20 77 68 69 63 68 20 elements which
81e0: 61 72 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f are the sqlite3_
81f0: 64 62 5f 73 74 61 74 75 73 28 29 20 72 65 74 75 db_status() retu
8200: 72 6e 0a 2a 2a 20 63 6f 64 65 2c 20 74 68 65 20 rn.** code, the
8210: 63 75 72 72 65 6e 74 20 76 61 6c 75 65 2c 20 61 current value, a
8220: 6e 64 20 74 68 65 20 68 69 67 68 2d 77 61 74 65 nd the high-wate
8230: 72 20 6d 61 72 6b 20 76 61 6c 75 65 2e 0a 2a 2f r mark value..*/
8240: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
8250: 5f 64 62 5f 73 74 61 74 75 73 28 0a 20 20 76 6f _db_status(. vo
8260: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c id * clientData,
8270: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 . Tcl_Interp *i
8280: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a nterp,. int obj
8290: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f c,. Tcl_Obj *CO
82a0: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 NST objv[].){.
82b0: 69 6e 74 20 72 63 2c 20 69 56 61 6c 75 65 2c 20 int rc, iValue,
82c0: 6d 78 56 61 6c 75 65 3b 0a 20 20 69 6e 74 20 69 mxValue;. int i
82d0: 2c 20 6f 70 2c 20 72 65 73 65 74 46 6c 61 67 3b , op, resetFlag;
82e0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
82f0: 4f 70 4e 61 6d 65 3b 0a 20 20 73 71 6c 69 74 65 OpName;. sqlite
8300: 33 20 2a 64 62 3b 0a 20 20 69 6e 74 20 67 65 74 3 *db;. int get
8310: 44 62 50 6f 69 6e 74 65 72 28 54 63 6c 5f 49 6e DbPointer(Tcl_In
8320: 74 65 72 70 2a 2c 20 63 6f 6e 73 74 20 63 68 61 terp*, const cha
8330: 72 2a 2c 20 73 71 6c 69 74 65 33 2a 2a 29 3b 0a r*, sqlite3**);.
8340: 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 static const s
8350: 74 72 75 63 74 20 7b 0a 20 20 20 20 63 6f 6e 73 truct {. cons
8360: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 t char *zName;.
8370: 20 20 20 69 6e 74 20 6f 70 3b 0a 20 20 7d 20 61 int op;. } a
8380: 4f 70 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 Op[] = {. { "
8390: 4c 4f 4f 4b 41 53 49 44 45 5f 55 53 45 44 22 2c LOOKASIDE_USED",
83a0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 42 53 SQLITE_DBS
83b0: 54 41 54 55 53 5f 4c 4f 4f 4b 41 53 49 44 45 5f TATUS_LOOKASIDE_
83c0: 55 53 45 44 20 20 20 20 20 20 7d 2c 0a 20 20 20 USED },.
83d0: 20 7b 20 22 43 41 43 48 45 5f 55 53 45 44 22 2c { "CACHE_USED",
83e0: 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 SQLITE
83f0: 5f 44 42 53 54 41 54 55 53 5f 43 41 43 48 45 5f _DBSTATUS_CACHE_
8400: 55 53 45 44 20 20 20 20 20 20 20 20 20 20 7d 2c USED },
8410: 0a 20 20 20 20 7b 20 22 53 43 48 45 4d 41 5f 55 . { "SCHEMA_U
8420: 53 45 44 22 2c 20 20 20 20 20 20 20 20 20 53 51 SED", SQ
8430: 4c 49 54 45 5f 44 42 53 54 41 54 55 53 5f 53 43 LITE_DBSTATUS_SC
8440: 48 45 4d 41 5f 55 53 45 44 20 20 20 20 20 20 20 HEMA_USED
8450: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 53 54 4d 54 },. { "STMT
8460: 5f 55 53 45 44 22 2c 20 20 20 20 20 20 20 20 20 _USED",
8470: 20 20 53 51 4c 49 54 45 5f 44 42 53 54 41 54 55 SQLITE_DBSTATU
8480: 53 5f 53 54 4d 54 5f 55 53 45 44 20 20 20 20 20 S_STMT_USED
8490: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
84a0: 4c 4f 4f 4b 41 53 49 44 45 5f 48 49 54 22 2c 20 LOOKASIDE_HIT",
84b0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 42 53 SQLITE_DBS
84c0: 54 41 54 55 53 5f 4c 4f 4f 4b 41 53 49 44 45 5f TATUS_LOOKASIDE_
84d0: 48 49 54 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 HIT },.
84e0: 20 7b 20 22 4c 4f 4f 4b 41 53 49 44 45 5f 4d 49 { "LOOKASIDE_MI
84f0: 53 53 5f 53 49 5a 45 22 2c 20 53 51 4c 49 54 45 SS_SIZE", SQLITE
8500: 5f 44 42 53 54 41 54 55 53 5f 4c 4f 4f 4b 41 53 _DBSTATUS_LOOKAS
8510: 49 44 45 5f 4d 49 53 53 5f 53 49 5a 45 20 7d 2c IDE_MISS_SIZE },
8520: 0a 20 20 20 20 7b 20 22 4c 4f 4f 4b 41 53 49 44 . { "LOOKASID
8530: 45 5f 4d 49 53 53 5f 46 55 4c 4c 22 2c 20 53 51 E_MISS_FULL", SQ
8540: 4c 49 54 45 5f 44 42 53 54 41 54 55 53 5f 4c 4f LITE_DBSTATUS_LO
8550: 4f 4b 41 53 49 44 45 5f 4d 49 53 53 5f 46 55 4c OKASIDE_MISS_FUL
8560: 4c 20 7d 2c 0a 20 20 20 20 7b 20 22 43 41 43 48 L },. { "CACH
8570: 45 5f 48 49 54 22 2c 20 20 20 20 20 20 20 20 20 E_HIT",
8580: 20 20 53 51 4c 49 54 45 5f 44 42 53 54 41 54 55 SQLITE_DBSTATU
8590: 53 5f 43 41 43 48 45 5f 48 49 54 20 20 20 20 20 S_CACHE_HIT
85a0: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
85b0: 43 41 43 48 45 5f 4d 49 53 53 22 2c 20 20 20 20 CACHE_MISS",
85c0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 42 53 SQLITE_DBS
85d0: 54 41 54 55 53 5f 43 41 43 48 45 5f 4d 49 53 53 TATUS_CACHE_MISS
85e0: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 },.
85f0: 20 7b 20 22 43 41 43 48 45 5f 57 52 49 54 45 22 { "CACHE_WRITE"
8600: 2c 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 , SQLITE
8610: 5f 44 42 53 54 41 54 55 53 5f 43 41 43 48 45 5f _DBSTATUS_CACHE_
8620: 57 52 49 54 45 20 20 20 20 20 20 20 20 20 7d 0a WRITE }.
8630: 20 20 7d 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a };. Tcl_Obj *
8640: 70 52 65 73 75 6c 74 3b 0a 20 20 69 66 28 20 6f pResult;. if( o
8650: 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 bjc!=4 ){. Tc
8660: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
8670: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
8680: 22 44 42 20 50 41 52 41 4d 45 54 45 52 20 52 45 "DB PARAMETER RE
8690: 53 45 54 46 4c 41 47 22 29 3b 0a 20 20 20 20 72 SETFLAG");. r
86a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
86b0: 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 . }. if( getDb
86c0: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 Pointer(interp,
86d0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
86e0: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 jv[1]), &db) ) r
86f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8700: 0a 20 20 7a 4f 70 4e 61 6d 65 20 3d 20 54 63 6c . zOpName = Tcl
8710: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
8720: 32 5d 29 3b 0a 20 20 69 66 28 20 6d 65 6d 63 6d 2]);. if( memcm
8730: 70 28 7a 4f 70 4e 61 6d 65 2c 20 22 53 51 4c 49 p(zOpName, "SQLI
8740: 54 45 5f 22 2c 20 37 29 3d 3d 30 20 29 20 7a 4f TE_", 7)==0 ) zO
8750: 70 4e 61 6d 65 20 2b 3d 20 37 3b 0a 20 20 69 66 pName += 7;. if
8760: 28 20 6d 65 6d 63 6d 70 28 7a 4f 70 4e 61 6d 65 ( memcmp(zOpName
8770: 2c 20 22 44 42 53 54 41 54 55 53 5f 22 2c 20 39 , "DBSTATUS_", 9
8780: 29 3d 3d 30 20 29 20 7a 4f 70 4e 61 6d 65 20 2b )==0 ) zOpName +
8790: 3d 20 39 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 = 9;. for(i=0;
87a0: 69 3c 41 72 72 61 79 53 69 7a 65 28 61 4f 70 29 i<ArraySize(aOp)
87b0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 ; i++){. if(
87c0: 73 74 72 63 6d 70 28 61 4f 70 5b 69 5d 2e 7a 4e strcmp(aOp[i].zN
87d0: 61 6d 65 2c 20 7a 4f 70 4e 61 6d 65 29 3d 3d 30 ame, zOpName)==0
87e0: 20 29 7b 0a 20 20 20 20 20 20 6f 70 20 3d 20 61 ){. op = a
87f0: 4f 70 5b 69 5d 2e 6f 70 3b 0a 20 20 20 20 20 20 Op[i].op;.
8800: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
8810: 0a 20 20 69 66 28 20 69 3e 3d 41 72 72 61 79 53 . if( i>=ArrayS
8820: 69 7a 65 28 61 4f 70 29 20 29 7b 0a 20 20 20 20 ize(aOp) ){.
8830: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 if( Tcl_GetIntFr
8840: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
8850: 6a 76 5b 32 5d 2c 20 26 6f 70 29 20 29 20 72 65 jv[2], &op) ) re
8860: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8870: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
8880: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
8890: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
88a0: 20 26 72 65 73 65 74 46 6c 61 67 29 20 29 20 72 &resetFlag) ) r
88b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
88c0: 0a 20 20 69 56 61 6c 75 65 20 3d 20 30 3b 0a 20 . iValue = 0;.
88d0: 20 6d 78 56 61 6c 75 65 20 3d 20 30 3b 0a 20 20 mxValue = 0;.
88e0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 64 62 5f rc = sqlite3_db_
88f0: 73 74 61 74 75 73 28 64 62 2c 20 6f 70 2c 20 26 status(db, op, &
8900: 69 56 61 6c 75 65 2c 20 26 6d 78 56 61 6c 75 65 iValue, &mxValue
8910: 2c 20 72 65 73 65 74 46 6c 61 67 29 3b 0a 20 20 , resetFlag);.
8920: 70 52 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4e 65 pResult = Tcl_Ne
8930: 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 4c 69 wObj();. Tcl_Li
8940: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
8950: 6e 74 28 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 nt(0, pResult, T
8960: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 cl_NewIntObj(rc)
8970: 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a );. Tcl_ListObj
8980: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c AppendElement(0,
8990: 20 70 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 pResult, Tcl_Ne
89a0: 77 49 6e 74 4f 62 6a 28 69 56 61 6c 75 65 29 29 wIntObj(iValue))
89b0: 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;. Tcl_ListObjA
89c0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 ppendElement(0,
89d0: 70 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 77 pResult, Tcl_New
89e0: 49 6e 74 4f 62 6a 28 6d 78 56 61 6c 75 65 29 29 IntObj(mxValue))
89f0: 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. Tcl_SetObjRe
8a00: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 65 sult(interp, pRe
8a10: 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 sult);. return
8a20: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TCL_OK;.}../*.**
8a30: 20 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f install_malloc_
8a40: 66 61 75 6c 74 73 69 6d 20 42 4f 4f 4c 45 41 4e faultsim BOOLEAN
8a50: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
8a60: 65 73 74 5f 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c est_install_mall
8a70: 6f 63 5f 66 61 75 6c 74 73 69 6d 28 0a 20 20 76 oc_faultsim(. v
8a80: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
8a90: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ,. Tcl_Interp *
8aa0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 interp,. int ob
8ab0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 jc,. Tcl_Obj *C
8ac0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 ONST objv[].){.
8ad0: 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 int rc;. int i
8ae0: 73 49 6e 73 74 61 6c 6c 3b 0a 0a 20 20 69 66 28 sInstall;.. if(
8af0: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
8b00: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
8b10: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
8b20: 2c 20 22 42 4f 4f 4c 45 41 4e 22 29 3b 0a 20 20 , "BOOLEAN");.
8b30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
8b40: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 43 OR;. }. if( TC
8b50: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f L_OK!=Tcl_GetBoo
8b60: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
8b70: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 69 73 rp, objv[1], &is
8b80: 49 6e 73 74 61 6c 6c 29 20 29 7b 0a 20 20 20 20 Install) ){.
8b90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8ba0: 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 66 61 75 ;. }. rc = fau
8bb0: 6c 74 73 69 6d 49 6e 73 74 61 6c 6c 28 69 73 49 ltsimInstall(isI
8bc0: 6e 73 74 61 6c 6c 29 3b 0a 20 20 54 63 6c 5f 53 nstall);. Tcl_S
8bd0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
8be0: 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 (char *)sqlite3
8bf0: 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 TestErrorName(rc
8c00: 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 ), TCL_VOLATILE)
8c10: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f ;. return TCL_O
8c20: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 K;.}../*.** sqli
8c30: 74 65 33 5f 69 6e 73 74 61 6c 6c 5f 6d 65 6d 73 te3_install_mems
8c40: 79 73 33 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ys3.*/.static in
8c50: 74 20 74 65 73 74 5f 69 6e 73 74 61 6c 6c 5f 6d t test_install_m
8c60: 65 6d 73 79 73 33 28 0a 20 20 76 6f 69 64 20 2a emsys3(. void *
8c70: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
8c80: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
8c90: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
8ca0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
8cb0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 objv[].){. int
8cc0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4d 49 53 55 rc = SQLITE_MISU
8cd0: 53 45 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 SE;.#ifdef SQLIT
8ce0: 45 5f 45 4e 41 42 4c 45 5f 4d 45 4d 53 59 53 33 E_ENABLE_MEMSYS3
8cf0: 0a 20 20 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 . const sqlite3
8d00: 5f 6d 65 6d 5f 6d 65 74 68 6f 64 73 20 2a 73 71 _mem_methods *sq
8d10: 6c 69 74 65 33 4d 65 6d 47 65 74 4d 65 6d 73 79 lite3MemGetMemsy
8d20: 73 33 28 76 6f 69 64 29 3b 0a 20 20 72 63 20 3d s3(void);. rc =
8d30: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 sqlite3_config(
8d40: 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4d 41 SQLITE_CONFIG_MA
8d50: 4c 4c 4f 43 2c 20 73 71 6c 69 74 65 33 4d 65 6d LLOC, sqlite3Mem
8d60: 47 65 74 4d 65 6d 73 79 73 33 28 29 29 3b 0a 23 GetMemsys3());.#
8d70: 65 6e 64 69 66 0a 20 20 54 63 6c 5f 53 65 74 52 endif. Tcl_SetR
8d80: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 esult(interp, (c
8d90: 68 61 72 20 2a 29 73 71 6c 69 74 65 33 54 65 73 har *)sqlite3Tes
8da0: 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 tErrorName(rc),
8db0: 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 TCL_VOLATILE);.
8dc0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
8dd0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 }..static int te
8de0: 73 74 5f 76 66 73 5f 6f 6f 6d 5f 74 65 73 74 28 st_vfs_oom_test(
8df0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
8e00: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
8e10: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
8e20: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
8e30: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
8e40: 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 ){. extern int
8e50: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 sqlite3_memdebug
8e60: 5f 76 66 73 5f 6f 6f 6d 5f 74 65 73 74 3b 0a 20 _vfs_oom_test;.
8e70: 20 69 66 28 20 6f 62 6a 63 3e 32 20 29 7b 0a 20 if( objc>2 ){.
8e80: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
8e90: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
8ea0: 62 6a 76 2c 20 22 3f 49 4e 54 45 47 45 52 3f 22 bjv, "?INTEGER?"
8eb0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
8ec0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 L_ERROR;. }else
8ed0: 20 69 66 28 20 6f 62 6a 63 3d 3d 32 20 29 7b 0a if( objc==2 ){.
8ee0: 20 20 20 20 69 6e 74 20 69 4e 65 77 3b 0a 20 20 int iNew;.
8ef0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 if( Tcl_GetInt
8f00: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
8f10: 6f 62 6a 76 5b 31 5d 2c 20 26 69 4e 65 77 29 20 objv[1], &iNew)
8f20: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ) return TCL_ERR
8f30: 4f 52 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f OR;. sqlite3_
8f40: 6d 65 6d 64 65 62 75 67 5f 76 66 73 5f 6f 6f 6d memdebug_vfs_oom
8f50: 5f 74 65 73 74 20 3d 20 69 4e 65 77 3b 0a 20 20 _test = iNew;.
8f60: 7d 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 }. Tcl_SetObjRe
8f70: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
8f80: 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 74 _NewIntObj(sqlit
8f90: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 76 66 73 5f e3_memdebug_vfs_
8fa0: 6f 6f 6d 5f 74 65 73 74 29 29 3b 0a 20 20 72 65 oom_test));. re
8fb0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
8fc0: 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 63 /*.** Register c
8fd0: 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20 74 68 65 ommands with the
8fe0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 TCL interpreter
8ff0: 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 74 65 74 ..*/.int Sqlitet
9000: 65 73 74 5f 6d 61 6c 6c 6f 63 5f 49 6e 69 74 28 est_malloc_Init(
9010: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
9020: 72 70 29 7b 0a 20 20 73 74 61 74 69 63 20 73 74 rp){. static st
9030: 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 ruct {. char
9040: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 63 *zName;. Tc
9050: 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78 50 l_ObjCmdProc *xP
9060: 72 6f 63 3b 0a 20 20 20 20 20 69 6e 74 20 63 6c roc;. int cl
9070: 69 65 6e 74 44 61 74 61 3b 0a 20 20 7d 20 61 4f ientData;. } aO
9080: 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 bjCmd[] = {.
9090: 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d 61 6c 6c { "sqlite3_mall
90a0: 6f 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 oc",
90b0: 20 74 65 73 74 5f 6d 61 6c 6c 6f 63 20 20 20 20 test_malloc
90c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c ,
90d0: 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
90e0: 69 74 65 33 5f 72 65 61 6c 6c 6f 63 22 2c 20 20 ite3_realloc",
90f0: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 72 test_r
9100: 65 61 6c 6c 6f 63 20 20 20 20 20 20 20 20 20 20 ealloc
9110: 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
9120: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 66 72 { "sqlite3_fr
9130: 65 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ee",
9140: 20 20 20 74 65 73 74 5f 66 72 65 65 20 20 20 20 test_free
9150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9160: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 6d ,0 },. { "m
9170: 65 6d 73 65 74 22 2c 20 20 20 20 20 20 20 20 20 emset",
9180: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
9190: 5f 6d 65 6d 73 65 74 20 20 20 20 20 20 20 20 20 _memset
91a0: 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a ,0 },.
91b0: 20 20 20 20 20 7b 20 22 6d 65 6d 67 65 74 22 2c { "memget",
91c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
91d0: 20 20 20 20 20 74 65 73 74 5f 6d 65 6d 67 65 74 test_memget
91e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
91f0: 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
9200: 22 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f "sqlite3_memory_
9210: 75 73 65 64 22 2c 20 20 20 20 20 20 20 20 74 65 used", te
9220: 73 74 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 20 20 st_memory_used
9230: 20 20 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d ,0 }
9240: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
9250: 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 3_memory_highwat
9260: 65 72 22 2c 20 20 20 74 65 73 74 5f 6d 65 6d 6f er", test_memo
9270: 72 79 5f 68 69 67 68 77 61 74 65 72 20 20 20 20 ry_highwater
9280: 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
9290: 7b 20 22 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 { "sqlite3_memde
92a0: 62 75 67 5f 62 61 63 6b 74 72 61 63 65 22 2c 20 bug_backtrace",
92b0: 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 62 61 test_memdebug_ba
92c0: 63 6b 74 72 61 63 65 20 20 20 20 20 20 20 2c 30 cktrace ,0
92d0: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
92e0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d te3_memdebug_dum
92f0: 70 22 2c 20 20 20 20 20 20 74 65 73 74 5f 6d 65 p", test_me
9300: 6d 64 65 62 75 67 5f 64 75 6d 70 20 20 20 20 20 mdebug_dump
9310: 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ,0 },.
9320: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d 65 6d { "sqlite3_mem
9330: 64 65 62 75 67 5f 66 61 69 6c 22 2c 20 20 20 20 debug_fail",
9340: 20 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f test_memdebug_
9350: 66 61 69 6c 20 20 20 20 20 20 20 20 20 20 20 20 fail
9360: 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
9370: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 70 lite3_memdebug_p
9380: 65 6e 64 69 6e 67 22 2c 20 20 20 74 65 73 74 5f ending", test_
9390: 6d 65 6d 64 65 62 75 67 5f 70 65 6e 64 69 6e 67 memdebug_pending
93a0: 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 ,0 },.
93b0: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
93c0: 65 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c 65 emdebug_settitle
93d0: 22 2c 20 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 ", test_memdebu
93e0: 67 5f 73 65 74 74 69 74 6c 65 20 20 20 20 20 20 g_settitle
93f0: 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
9400: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 sqlite3_memdebug
9410: 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 22 2c 20 _malloc_count",
9420: 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 test_memdebug_ma
9430: 6c 6c 6f 63 5f 63 6f 75 6e 74 20 2c 30 20 7d 2c lloc_count ,0 },
9440: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
9450: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 22 2c 20 _memdebug_log",
9460: 20 20 20 20 20 20 74 65 73 74 5f 6d 65 6d 64 65 test_memde
9470: 62 75 67 5f 6c 6f 67 20 20 20 20 20 20 20 20 20 bug_log
9480: 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b ,0 },. {
9490: 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 "sqlite3_config
94a0: 5f 73 63 72 61 74 63 68 22 2c 20 20 20 20 20 74 _scratch", t
94b0: 65 73 74 5f 63 6f 6e 66 69 67 5f 73 63 72 61 74 est_config_scrat
94c0: 63 68 20 20 20 20 20 20 20 20 20 20 20 2c 30 20 ch ,0
94d0: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
94e0: 65 33 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61 e3_config_pageca
94f0: 63 68 65 22 2c 20 20 20 74 65 73 74 5f 63 6f 6e che", test_con
9500: 66 69 67 5f 70 61 67 65 63 61 63 68 65 20 20 20 fig_pagecache
9510: 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ,0 },.
9520: 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 { "sqlite3_conf
9530: 69 67 5f 61 6c 74 5f 70 63 61 63 68 65 22 2c 20 ig_alt_pcache",
9540: 20 74 65 73 74 5f 61 6c 74 5f 70 63 61 63 68 65 test_alt_pcache
9550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c ,
9560: 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
9570: 69 74 65 33 5f 73 74 61 74 75 73 22 2c 20 20 20 ite3_status",
9580: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 73 test_s
9590: 74 61 74 75 73 20 20 20 20 20 20 20 20 20 20 20 tatus
95a0: 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
95b0: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 62 { "sqlite3_db
95c0: 5f 73 74 61 74 75 73 22 2c 20 20 20 20 20 20 20 _status",
95d0: 20 20 20 74 65 73 74 5f 64 62 5f 73 74 61 74 75 test_db_statu
95e0: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s
95f0: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 69 ,0 },. { "i
9600: 6e 73 74 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 nstall_malloc_fa
9610: 75 6c 74 73 69 6d 22 2c 20 20 20 20 74 65 73 74 ultsim", test
9620: 5f 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f _install_malloc_
9630: 66 61 75 6c 74 73 69 6d 20 20 2c 30 20 7d 2c 0a faultsim ,0 },.
9640: 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f { "sqlite3_
9650: 63 6f 6e 66 69 67 5f 68 65 61 70 22 2c 20 20 20 config_heap",
9660: 20 20 20 20 20 74 65 73 74 5f 63 6f 6e 66 69 67 test_config
9670: 5f 68 65 61 70 20 20 20 20 20 20 20 20 20 20 20 _heap
9680: 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
9690: 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f "sqlite3_config_
96a0: 6d 65 6d 73 74 61 74 75 73 22 2c 20 20 20 74 65 memstatus", te
96b0: 73 74 5f 63 6f 6e 66 69 67 5f 6d 65 6d 73 74 61 st_config_memsta
96c0: 74 75 73 20 20 20 20 20 20 20 20 20 2c 30 20 7d tus ,0 }
96d0: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
96e0: 33 5f 63 6f 6e 66 69 67 5f 6c 6f 6f 6b 61 73 69 3_config_lookasi
96f0: 64 65 22 2c 20 20 20 74 65 73 74 5f 63 6f 6e 66 de", test_conf
9700: 69 67 5f 6c 6f 6f 6b 61 73 69 64 65 20 20 20 20 ig_lookaside
9710: 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
9720: 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 { "sqlite3_confi
9730: 67 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 g_error",
9740: 74 65 73 74 5f 63 6f 6e 66 69 67 5f 65 72 72 6f test_config_erro
9750: 72 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 30 r ,0
9760: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
9770: 74 65 33 5f 63 6f 6e 66 69 67 5f 75 72 69 22 2c te3_config_uri",
9780: 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f test_co
9790: 6e 66 69 67 5f 75 72 69 20 20 20 20 20 20 20 20 nfig_uri
97a0: 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ,0 },.
97b0: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 62 5f { "sqlite3_db_
97c0: 63 6f 6e 66 69 67 5f 6c 6f 6f 6b 61 73 69 64 65 config_lookaside
97d0: 22 2c 74 65 73 74 5f 64 62 5f 63 6f 6e 66 69 67 ",test_db_config
97e0: 5f 6c 6f 6f 6b 61 73 69 64 65 20 20 20 20 20 20 _lookaside
97f0: 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
9800: 6c 69 74 65 33 5f 64 75 6d 70 5f 6d 65 6d 73 79 lite3_dump_memsy
9810: 73 33 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f s3", test_
9820: 64 75 6d 70 5f 6d 65 6d 73 79 73 33 20 20 20 20 dump_memsys3
9830: 20 20 20 20 20 20 20 20 20 2c 33 20 7d 2c 0a 20 ,3 },.
9840: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 { "sqlite3_d
9850: 75 6d 70 5f 6d 65 6d 73 79 73 35 22 2c 20 20 20 ump_memsys5",
9860: 20 20 20 20 74 65 73 74 5f 64 75 6d 70 5f 6d 65 test_dump_me
9870: 6d 73 79 73 33 20 20 20 20 20 20 20 20 20 20 20 msys3
9880: 20 20 2c 35 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,5 },. { "
9890: 73 71 6c 69 74 65 33 5f 69 6e 73 74 61 6c 6c 5f sqlite3_install_
98a0: 6d 65 6d 73 79 73 33 22 2c 20 20 20 20 74 65 73 memsys3", tes
98b0: 74 5f 69 6e 73 74 61 6c 6c 5f 6d 65 6d 73 79 73 t_install_memsys
98c0: 33 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 3 ,0 },
98d0: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
98e0: 5f 6d 65 6d 64 65 62 75 67 5f 76 66 73 5f 6f 6f _memdebug_vfs_oo
98f0: 6d 5f 74 65 73 74 22 2c 20 74 65 73 74 5f 76 66 m_test", test_vf
9900: 73 5f 6f 6f 6d 5f 74 65 73 74 20 20 20 20 20 20 s_oom_test
9910: 20 20 20 20 2c 30 20 7d 2c 0a 20 20 7d 3b 0a 20 ,0 },. };.
9920: 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d int i;. for(i=
9930: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 0; i<sizeof(aObj
9940: 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a Cmd)/sizeof(aObj
9950: 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 Cmd[0]); i++){.
9960: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 20 ClientData c
9970: 3d 20 28 43 6c 69 65 6e 74 44 61 74 61 29 53 51 = (ClientData)SQ
9980: 4c 49 54 45 5f 49 4e 54 5f 54 4f 5f 50 54 52 28 LITE_INT_TO_PTR(
9990: 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e aObjCmd[i].clien
99a0: 74 44 61 74 61 29 3b 0a 20 20 20 20 54 63 6c 5f tData);. Tcl_
99b0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
99c0: 28 69 6e 74 65 72 70 2c 20 61 4f 62 6a 43 6d 64 (interp, aObjCmd
99d0: 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 4f 62 6a 43 [i].zName, aObjC
99e0: 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 63 2c 20 md[i].xProc, c,
99f0: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 0);. }. return
9a00: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 TCL_OK;.}.#endi
9a10: 66 0a f.