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 63 6f 6e 66 69 67 5f sqlite3_config_
7680: 63 69 73 20 20 42 4f 4f 4c 45 41 4e 0a 2a 2a 0a cis BOOLEAN.**.
7690: 2a 2a 20 45 6e 61 62 6c 65 73 20 6f 72 20 64 69 ** Enables or di
76a0: 73 61 62 6c 65 73 20 74 68 65 20 75 73 65 20 6f sables the use o
76b0: 66 20 74 68 65 20 63 6f 76 65 72 69 6e 67 2d 69 f the covering-i
76c0: 6e 64 65 78 20 73 63 61 6e 20 6f 70 74 69 6d 69 ndex scan optimi
76d0: 7a 61 74 69 6f 6e 2e 0a 2a 2a 20 53 51 4c 49 54 zation..** SQLIT
76e0: 45 5f 43 4f 4e 46 49 47 5f 43 4f 56 45 52 49 4e E_CONFIG_COVERIN
76f0: 47 5f 49 4e 44 45 58 5f 53 43 41 4e 2e 0a 2a 2f G_INDEX_SCAN..*/
7700: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 .static int test
7710: 5f 63 6f 6e 66 69 67 5f 63 69 73 28 0a 20 20 76 _config_cis(. v
7720: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 oid * clientData
7730: 2c 20 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 , . Tcl_Interp
7740: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f *interp,. int o
7750: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a bjc,. Tcl_Obj *
7760: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a CONST objv[].){.
7770: 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 int rc;. int
7780: 62 55 73 65 43 69 73 3b 0a 0a 20 20 69 66 28 20 bUseCis;.. if(
7790: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
77a0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
77b0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
77c0: 20 22 42 4f 4f 4c 22 29 3b 0a 20 20 20 20 72 65 "BOOL");. re
77d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
77e0: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 }. if( Tcl_Ge
77f0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
7800: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
7810: 20 26 62 55 73 65 43 69 73 29 20 29 7b 0a 20 20 &bUseCis) ){.
7820: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
7830: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d 20 OR;. }.. rc =
7840: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 sqlite3_config(S
7850: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 43 4f 56 QLITE_CONFIG_COV
7860: 45 52 49 4e 47 5f 49 4e 44 45 58 5f 53 43 41 4e ERING_INDEX_SCAN
7870: 2c 20 62 55 73 65 43 69 73 29 3b 0a 20 20 54 63 , bUseCis);. Tc
7880: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
7890: 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 rp, (char *)sqli
78a0: 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 te3TestErrorName
78b0: 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 (rc), TCL_VOLATI
78c0: 4c 45 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 LE);.. return T
78d0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 CL_OK;.}../*.**
78e0: 55 73 61 67 65 3a 20 20 20 20 73 71 6c 69 74 65 Usage: sqlite
78f0: 33 5f 64 75 6d 70 5f 6d 65 6d 73 79 73 33 20 20 3_dump_memsys3
7900: 46 49 4c 45 4e 41 4d 45 0a 2a 2a 20 20 20 20 20 FILENAME.**
7910: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 64 75 sqlite3_du
7920: 6d 70 5f 6d 65 6d 73 79 73 35 20 20 46 49 4c 45 mp_memsys5 FILE
7930: 4e 41 4d 45 0a 2a 2a 0a 2a 2a 20 57 72 69 74 65 NAME.**.** Write
7940: 20 61 20 73 75 6d 6d 61 72 79 20 6f 66 20 75 6e a summary of un
7950: 66 72 65 65 64 20 6d 65 6d 73 79 73 33 20 61 6c freed memsys3 al
7960: 6c 6f 63 61 74 69 6f 6e 73 20 74 6f 20 46 49 4c locations to FIL
7970: 45 4e 41 4d 45 2e 0a 2a 2f 0a 73 74 61 74 69 63 ENAME..*/.static
7980: 20 69 6e 74 20 74 65 73 74 5f 64 75 6d 70 5f 6d int test_dump_m
7990: 65 6d 73 79 73 33 28 0a 20 20 76 6f 69 64 20 2a emsys3(. void *
79a0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 clientData,. T
79b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
79c0: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 p,. int objc,.
79d0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
79e0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 66 28 20 objv[].){. if(
79f0: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 objc!=2 ){. T
7a00: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
7a10: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
7a20: 20 22 46 49 4c 45 4e 41 4d 45 22 29 3b 0a 20 20 "FILENAME");.
7a30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
7a40: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 77 69 74 63 OR;. }.. switc
7a50: 68 28 20 53 51 4c 49 54 45 5f 50 54 52 5f 54 4f h( SQLITE_PTR_TO
7a60: 5f 49 4e 54 28 63 6c 69 65 6e 74 44 61 74 61 29 _INT(clientData)
7a70: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 33 3a 20 ){. case 3:
7a80: 7b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f {.#ifdef SQLITE_
7a90: 45 4e 41 42 4c 45 5f 4d 45 4d 53 59 53 33 0a 20 ENABLE_MEMSYS3.
7aa0: 20 20 20 20 20 65 78 74 65 72 6e 20 76 6f 69 64 extern void
7ab0: 20 73 71 6c 69 74 65 33 4d 65 6d 73 79 73 33 44 sqlite3Memsys3D
7ac0: 75 6d 70 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 ump(const char*)
7ad0: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 4d ;. sqlite3M
7ae0: 65 6d 73 79 73 33 44 75 6d 70 28 54 63 6c 5f 47 emsys3Dump(Tcl_G
7af0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
7b00: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b ));. break;
7b10: 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20 .#endif. }.
7b20: 20 20 63 61 73 65 20 35 3a 20 7b 0a 23 69 66 64 case 5: {.#ifd
7b30: 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 ef SQLITE_ENABLE
7b40: 5f 4d 45 4d 53 59 53 35 0a 20 20 20 20 20 20 65 _MEMSYS5. e
7b50: 78 74 65 72 6e 20 76 6f 69 64 20 73 71 6c 69 74 xtern void sqlit
7b60: 65 33 4d 65 6d 73 79 73 35 44 75 6d 70 28 63 6f e3Memsys5Dump(co
7b70: 6e 73 74 20 63 68 61 72 2a 29 3b 0a 20 20 20 20 nst char*);.
7b80: 20 20 73 71 6c 69 74 65 33 4d 65 6d 73 79 73 35 sqlite3Memsys5
7b90: 44 75 6d 70 28 54 63 6c 5f 47 65 74 53 74 72 69 Dump(Tcl_GetStri
7ba0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20 20 ng(objv[1]));.
7bb0: 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 break;.#endi
7bc0: 66 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 f. }. }. re
7bd0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
7be0: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 /*.** Usage:
7bf0: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 20 sqlite3_status
7c00: 4f 50 43 4f 44 45 20 20 52 45 53 45 54 46 4c 41 OPCODE RESETFLA
7c10: 47 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 G.**.** Return a
7c20: 20 6c 69 73 74 20 6f 66 20 74 68 72 65 65 20 65 list of three e
7c30: 6c 65 6d 65 6e 74 73 20 77 68 69 63 68 20 61 72 lements which ar
7c40: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 73 74 e the sqlite3_st
7c50: 61 74 75 73 28 29 20 72 65 74 75 72 6e 0a 2a 2a atus() return.**
7c60: 20 63 6f 64 65 2c 20 74 68 65 20 63 75 72 72 65 code, the curre
7c70: 6e 74 20 76 61 6c 75 65 2c 20 61 6e 64 20 74 68 nt value, and th
7c80: 65 20 68 69 67 68 2d 77 61 74 65 72 20 6d 61 72 e high-water mar
7c90: 6b 20 76 61 6c 75 65 2e 0a 2a 2f 0a 73 74 61 74 k value..*/.stat
7ca0: 69 63 20 69 6e 74 20 74 65 73 74 5f 73 74 61 74 ic int test_stat
7cb0: 75 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 us(. void * cli
7cc0: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 entData,. Tcl_I
7cd0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
7ce0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c int objc,. Tcl
7cf0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
7d00: 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63 2c 20 [].){. int rc,
7d10: 69 56 61 6c 75 65 2c 20 6d 78 56 61 6c 75 65 3b iValue, mxValue;
7d20: 0a 20 20 69 6e 74 20 69 2c 20 6f 70 2c 20 72 65 . int i, op, re
7d30: 73 65 74 46 6c 61 67 3b 0a 20 20 63 6f 6e 73 74 setFlag;. const
7d40: 20 63 68 61 72 20 2a 7a 4f 70 4e 61 6d 65 3b 0a char *zOpName;.
7d50: 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73 static const s
7d60: 74 72 75 63 74 20 7b 0a 20 20 20 20 63 6f 6e 73 truct {. cons
7d70: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 t char *zName;.
7d80: 20 20 20 69 6e 74 20 6f 70 3b 0a 20 20 7d 20 61 int op;. } a
7d90: 4f 70 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 Op[] = {. { "
7da0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 45 SQLITE_STATUS_ME
7db0: 4d 4f 52 59 5f 55 53 45 44 22 2c 20 20 20 20 20 MORY_USED",
7dc0: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7dd0: 53 5f 4d 45 4d 4f 52 59 5f 55 53 45 44 20 20 20 S_MEMORY_USED
7de0: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
7df0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 SQLITE_STATUS_MA
7e00: 4c 4c 4f 43 5f 53 49 5a 45 22 2c 20 20 20 20 20 LLOC_SIZE",
7e10: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7e20: 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45 20 20 20 S_MALLOC_SIZE
7e30: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
7e40: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41 SQLITE_STATUS_PA
7e50: 47 45 43 41 43 48 45 5f 55 53 45 44 22 2c 20 20 GECACHE_USED",
7e60: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7e70: 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45 44 S_PAGECACHE_USED
7e80: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
7e90: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41 SQLITE_STATUS_PA
7ea0: 47 45 43 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 GECACHE_OVERFLOW
7eb0: 22 2c 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 ", SQLITE_STATU
7ec0: 53 5f 50 41 47 45 43 41 43 48 45 5f 4f 56 45 52 S_PAGECACHE_OVER
7ed0: 46 4c 4f 57 20 20 7d 2c 0a 20 20 20 20 7b 20 22 FLOW },. { "
7ee0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41 SQLITE_STATUS_PA
7ef0: 47 45 43 41 43 48 45 5f 53 49 5a 45 22 2c 20 20 GECACHE_SIZE",
7f00: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7f10: 53 5f 50 41 47 45 43 41 43 48 45 5f 53 49 5a 45 S_PAGECACHE_SIZE
7f20: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
7f30: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 SQLITE_STATUS_SC
7f40: 52 41 54 43 48 5f 55 53 45 44 22 2c 20 20 20 20 RATCH_USED",
7f50: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7f60: 53 5f 53 43 52 41 54 43 48 5f 55 53 45 44 20 20 S_SCRATCH_USED
7f70: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
7f80: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 SQLITE_STATUS_SC
7f90: 52 41 54 43 48 5f 4f 56 45 52 46 4c 4f 57 22 2c RATCH_OVERFLOW",
7fa0: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
7fb0: 53 5f 53 43 52 41 54 43 48 5f 4f 56 45 52 46 4c S_SCRATCH_OVERFL
7fc0: 4f 57 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 OW },. { "
7fd0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 SQLITE_STATUS_SC
7fe0: 52 41 54 43 48 5f 53 49 5a 45 22 2c 20 20 20 20 RATCH_SIZE",
7ff0: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
8000: 53 5f 53 43 52 41 54 43 48 5f 53 49 5a 45 20 20 S_SCRATCH_SIZE
8010: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
8020: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41 SQLITE_STATUS_PA
8030: 52 53 45 52 5f 53 54 41 43 4b 22 2c 20 20 20 20 RSER_STACK",
8040: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
8050: 53 5f 50 41 52 53 45 52 5f 53 54 41 43 4b 20 20 S_PARSER_STACK
8060: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 },. { "
8070: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 SQLITE_STATUS_MA
8080: 4c 4c 4f 43 5f 43 4f 55 4e 54 22 2c 20 20 20 20 LLOC_COUNT",
8090: 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 54 55 SQLITE_STATU
80a0: 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 20 S_MALLOC_COUNT
80b0: 20 20 20 20 20 20 7d 2c 0a 20 20 7d 3b 0a 20 20 },. };.
80c0: 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 Tcl_Obj *pResult
80d0: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 ;. if( objc!=3
80e0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
80f0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
8100: 31 2c 20 6f 62 6a 76 2c 20 22 50 41 52 41 4d 45 1, objv, "PARAME
8110: 54 45 52 20 52 45 53 45 54 46 4c 41 47 22 29 3b TER RESETFLAG");
8120: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
8130: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 4f 70 ERROR;. }. zOp
8140: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
8150: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 ring(objv[1]);.
8160: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 for(i=0; i<Arra
8170: 79 53 69 7a 65 28 61 4f 70 29 3b 20 69 2b 2b 29 ySize(aOp); i++)
8180: 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 {. if( strcmp
8190: 28 61 4f 70 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 7a (aOp[i].zName, z
81a0: 4f 70 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 OpName)==0 ){.
81b0: 20 20 20 20 6f 70 20 3d 20 61 4f 70 5b 69 5d 2e op = aOp[i].
81c0: 6f 70 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b op;. break;
81d0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 . }. }. if(
81e0: 20 69 3e 3d 41 72 72 61 79 53 69 7a 65 28 61 4f i>=ArraySize(aO
81f0: 70 29 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 p) ){. if( Tc
8200: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
8210: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
8220: 20 26 6f 70 29 20 29 20 72 65 74 75 72 6e 20 54 &op) ) return T
8230: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
8240: 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 if( Tcl_GetBoole
8250: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
8260: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 72 65 73 65 , objv[2], &rese
8270: 74 46 6c 61 67 29 20 29 20 72 65 74 75 72 6e 20 tFlag) ) return
8280: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 56 61 TCL_ERROR;. iVa
8290: 6c 75 65 20 3d 20 30 3b 0a 20 20 6d 78 56 61 6c lue = 0;. mxVal
82a0: 75 65 20 3d 20 30 3b 0a 20 20 72 63 20 3d 20 73 ue = 0;. rc = s
82b0: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 28 6f 70 qlite3_status(op
82c0: 2c 20 26 69 56 61 6c 75 65 2c 20 26 6d 78 56 61 , &iValue, &mxVa
82d0: 6c 75 65 2c 20 72 65 73 65 74 46 6c 61 67 29 3b lue, resetFlag);
82e0: 0a 20 20 70 52 65 73 75 6c 74 20 3d 20 54 63 6c . pResult = Tcl
82f0: 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63 6c _NewObj();. Tcl
8300: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
8310: 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c 74 ement(0, pResult
8320: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
8330: 72 63 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 rc));. Tcl_List
8340: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
8350: 28 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 63 6c (0, pResult, Tcl
8360: 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 56 61 6c 75 _NewIntObj(iValu
8370: 65 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f e));. Tcl_ListO
8380: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
8390: 30 2c 20 70 52 65 73 75 6c 74 2c 20 54 63 6c 5f 0, pResult, Tcl_
83a0: 4e 65 77 49 6e 74 4f 62 6a 28 6d 78 56 61 6c 75 NewIntObj(mxValu
83b0: 65 29 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 e));. Tcl_SetOb
83c0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
83d0: 70 52 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 pResult);. retu
83e0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
83f0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 20 73 71 .** Usage: sq
8400: 6c 69 74 65 33 5f 64 62 5f 73 74 61 74 75 73 20 lite3_db_status
8410: 20 44 41 54 41 42 41 53 45 20 20 4f 50 43 4f 44 DATABASE OPCOD
8420: 45 20 20 52 45 53 45 54 46 4c 41 47 0a 2a 2a 0a E RESETFLAG.**.
8430: 2a 2a 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 ** Return a list
8440: 20 6f 66 20 74 68 72 65 65 20 65 6c 65 6d 65 6e of three elemen
8450: 74 73 20 77 68 69 63 68 20 61 72 65 20 74 68 65 ts which are the
8460: 20 73 71 6c 69 74 65 33 5f 64 62 5f 73 74 61 74 sqlite3_db_stat
8470: 75 73 28 29 20 72 65 74 75 72 6e 0a 2a 2a 20 63 us() return.** c
8480: 6f 64 65 2c 20 74 68 65 20 63 75 72 72 65 6e 74 ode, the current
8490: 20 76 61 6c 75 65 2c 20 61 6e 64 20 74 68 65 20 value, and the
84a0: 68 69 67 68 2d 77 61 74 65 72 20 6d 61 72 6b 20 high-water mark
84b0: 76 61 6c 75 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 value..*/.static
84c0: 20 69 6e 74 20 74 65 73 74 5f 64 62 5f 73 74 61 int test_db_sta
84d0: 74 75 73 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c tus(. void * cl
84e0: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f ientData,. Tcl_
84f0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
8500: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
8510: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
8520: 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63 2c v[].){. int rc,
8530: 20 69 56 61 6c 75 65 2c 20 6d 78 56 61 6c 75 65 iValue, mxValue
8540: 3b 0a 20 20 69 6e 74 20 69 2c 20 6f 70 2c 20 72 ;. int i, op, r
8550: 65 73 65 74 46 6c 61 67 3b 0a 20 20 63 6f 6e 73 esetFlag;. cons
8560: 74 20 63 68 61 72 20 2a 7a 4f 70 4e 61 6d 65 3b t char *zOpName;
8570: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a . sqlite3 *db;.
8580: 20 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 int getDbPoint
8590: 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 2a 2c 20 er(Tcl_Interp*,
85a0: 63 6f 6e 73 74 20 63 68 61 72 2a 2c 20 73 71 6c const char*, sql
85b0: 69 74 65 33 2a 2a 29 3b 0a 20 20 73 74 61 74 69 ite3**);. stati
85c0: 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b c const struct {
85d0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
85e0: 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 69 6e 74 20 *zName;. int
85f0: 6f 70 3b 0a 20 20 7d 20 61 4f 70 5b 5d 20 3d 20 op;. } aOp[] =
8600: 7b 0a 20 20 20 20 7b 20 22 4c 4f 4f 4b 41 53 49 {. { "LOOKASI
8610: 44 45 5f 55 53 45 44 22 2c 20 20 20 20 20 20 53 DE_USED", S
8620: 51 4c 49 54 45 5f 44 42 53 54 41 54 55 53 5f 4c QLITE_DBSTATUS_L
8630: 4f 4f 4b 41 53 49 44 45 5f 55 53 45 44 20 20 20 OOKASIDE_USED
8640: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 43 41 43 },. { "CAC
8650: 48 45 5f 55 53 45 44 22 2c 20 20 20 20 20 20 20 HE_USED",
8660: 20 20 20 53 51 4c 49 54 45 5f 44 42 53 54 41 54 SQLITE_DBSTAT
8670: 55 53 5f 43 41 43 48 45 5f 55 53 45 44 20 20 20 US_CACHE_USED
8680: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
8690: 22 53 43 48 45 4d 41 5f 55 53 45 44 22 2c 20 20 "SCHEMA_USED",
86a0: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 44 42 SQLITE_DB
86b0: 53 54 41 54 55 53 5f 53 43 48 45 4d 41 5f 55 53 STATUS_SCHEMA_US
86c0: 45 44 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 ED },.
86d0: 20 20 7b 20 22 53 54 4d 54 5f 55 53 45 44 22 2c { "STMT_USED",
86e0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 SQLIT
86f0: 45 5f 44 42 53 54 41 54 55 53 5f 53 54 4d 54 5f E_DBSTATUS_STMT_
8700: 55 53 45 44 20 20 20 20 20 20 20 20 20 20 20 7d USED }
8710: 2c 0a 20 20 20 20 7b 20 22 4c 4f 4f 4b 41 53 49 ,. { "LOOKASI
8720: 44 45 5f 48 49 54 22 2c 20 20 20 20 20 20 20 53 DE_HIT", S
8730: 51 4c 49 54 45 5f 44 42 53 54 41 54 55 53 5f 4c QLITE_DBSTATUS_L
8740: 4f 4f 4b 41 53 49 44 45 5f 48 49 54 20 20 20 20 OOKASIDE_HIT
8750: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 4c 4f 4f },. { "LOO
8760: 4b 41 53 49 44 45 5f 4d 49 53 53 5f 53 49 5a 45 KASIDE_MISS_SIZE
8770: 22 2c 20 53 51 4c 49 54 45 5f 44 42 53 54 41 54 ", SQLITE_DBSTAT
8780: 55 53 5f 4c 4f 4f 4b 41 53 49 44 45 5f 4d 49 53 US_LOOKASIDE_MIS
8790: 53 5f 53 49 5a 45 20 7d 2c 0a 20 20 20 20 7b 20 S_SIZE },. {
87a0: 22 4c 4f 4f 4b 41 53 49 44 45 5f 4d 49 53 53 5f "LOOKASIDE_MISS_
87b0: 46 55 4c 4c 22 2c 20 53 51 4c 49 54 45 5f 44 42 FULL", SQLITE_DB
87c0: 53 54 41 54 55 53 5f 4c 4f 4f 4b 41 53 49 44 45 STATUS_LOOKASIDE
87d0: 5f 4d 49 53 53 5f 46 55 4c 4c 20 7d 2c 0a 20 20 _MISS_FULL },.
87e0: 20 20 7b 20 22 43 41 43 48 45 5f 48 49 54 22 2c { "CACHE_HIT",
87f0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 SQLIT
8800: 45 5f 44 42 53 54 41 54 55 53 5f 43 41 43 48 45 E_DBSTATUS_CACHE
8810: 5f 48 49 54 20 20 20 20 20 20 20 20 20 20 20 7d _HIT }
8820: 2c 0a 20 20 20 20 7b 20 22 43 41 43 48 45 5f 4d ,. { "CACHE_M
8830: 49 53 53 22 2c 20 20 20 20 20 20 20 20 20 20 53 ISS", S
8840: 51 4c 49 54 45 5f 44 42 53 54 41 54 55 53 5f 43 QLITE_DBSTATUS_C
8850: 41 43 48 45 5f 4d 49 53 53 20 20 20 20 20 20 20 ACHE_MISS
8860: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 43 41 43 },. { "CAC
8870: 48 45 5f 57 52 49 54 45 22 2c 20 20 20 20 20 20 HE_WRITE",
8880: 20 20 20 53 51 4c 49 54 45 5f 44 42 53 54 41 54 SQLITE_DBSTAT
8890: 55 53 5f 43 41 43 48 45 5f 57 52 49 54 45 20 20 US_CACHE_WRITE
88a0: 20 20 20 20 20 20 20 7d 0a 20 20 7d 3b 0a 20 20 }. };.
88b0: 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75 6c 74 Tcl_Obj *pResult
88c0: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 ;. if( objc!=4
88d0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 ){. Tcl_Wrong
88e0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
88f0: 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 50 41 52 1, objv, "DB PAR
8900: 41 4d 45 54 45 52 20 52 45 53 45 54 46 4c 41 47 AMETER RESETFLAG
8910: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ");. return T
8920: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 CL_ERROR;. }.
8930: 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 if( getDbPointer
8940: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
8950: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c String(objv[1]),
8960: 20 26 64 62 29 20 29 20 72 65 74 75 72 6e 20 54 &db) ) return T
8970: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 4f 70 4e CL_ERROR;. zOpN
8980: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ame = Tcl_GetStr
8990: 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 ing(objv[2]);.
89a0: 69 66 28 20 6d 65 6d 63 6d 70 28 7a 4f 70 4e 61 if( memcmp(zOpNa
89b0: 6d 65 2c 20 22 53 51 4c 49 54 45 5f 22 2c 20 37 me, "SQLITE_", 7
89c0: 29 3d 3d 30 20 29 20 7a 4f 70 4e 61 6d 65 20 2b )==0 ) zOpName +
89d0: 3d 20 37 3b 0a 20 20 69 66 28 20 6d 65 6d 63 6d = 7;. if( memcm
89e0: 70 28 7a 4f 70 4e 61 6d 65 2c 20 22 44 42 53 54 p(zOpName, "DBST
89f0: 41 54 55 53 5f 22 2c 20 39 29 3d 3d 30 20 29 20 ATUS_", 9)==0 )
8a00: 7a 4f 70 4e 61 6d 65 20 2b 3d 20 39 3b 0a 20 20 zOpName += 9;.
8a10: 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 for(i=0; i<Array
8a20: 53 69 7a 65 28 61 4f 70 29 3b 20 69 2b 2b 29 7b Size(aOp); i++){
8a30: 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 . if( strcmp(
8a40: 61 4f 70 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 7a 4f aOp[i].zName, zO
8a50: 70 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 20 pName)==0 ){.
8a60: 20 20 20 6f 70 20 3d 20 61 4f 70 5b 69 5d 2e 6f op = aOp[i].o
8a70: 70 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a p;. break;.
8a80: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 }. }. if(
8a90: 69 3e 3d 41 72 72 61 79 53 69 7a 65 28 61 4f 70 i>=ArraySize(aOp
8aa0: 29 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c ) ){. if( Tcl
8ab0: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
8ac0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
8ad0: 26 6f 70 29 20 29 20 72 65 74 75 72 6e 20 54 43 &op) ) return TC
8ae0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 L_ERROR;. }. i
8af0: 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 f( Tcl_GetBoolea
8b00: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c nFromObj(interp,
8b10: 20 6f 62 6a 76 5b 33 5d 2c 20 26 72 65 73 65 74 objv[3], &reset
8b20: 46 6c 61 67 29 20 29 20 72 65 74 75 72 6e 20 54 Flag) ) return T
8b30: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 56 61 6c CL_ERROR;. iVal
8b40: 75 65 20 3d 20 30 3b 0a 20 20 6d 78 56 61 6c 75 ue = 0;. mxValu
8b50: 65 20 3d 20 30 3b 0a 20 20 72 63 20 3d 20 73 71 e = 0;. rc = sq
8b60: 6c 69 74 65 33 5f 64 62 5f 73 74 61 74 75 73 28 lite3_db_status(
8b70: 64 62 2c 20 6f 70 2c 20 26 69 56 61 6c 75 65 2c db, op, &iValue,
8b80: 20 26 6d 78 56 61 6c 75 65 2c 20 72 65 73 65 74 &mxValue, reset
8b90: 46 6c 61 67 29 3b 0a 20 20 70 52 65 73 75 6c 74 Flag);. pResult
8ba0: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b = Tcl_NewObj();
8bb0: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 . Tcl_ListObjAp
8bc0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 pendElement(0, p
8bd0: 52 65 73 75 6c 74 2c 20 54 63 6c 5f 4e 65 77 49 Result, Tcl_NewI
8be0: 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20 54 63 ntObj(rc));. Tc
8bf0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
8c00: 6c 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c lement(0, pResul
8c10: 74 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a t, Tcl_NewIntObj
8c20: 28 69 56 61 6c 75 65 29 29 3b 0a 20 20 54 63 6c (iValue));. Tcl
8c30: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
8c40: 65 6d 65 6e 74 28 30 2c 20 70 52 65 73 75 6c 74 ement(0, pResult
8c50: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
8c60: 6d 78 56 61 6c 75 65 29 29 3b 0a 20 20 54 63 6c mxValue));. Tcl
8c70: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
8c80: 74 65 72 70 2c 20 70 52 65 73 75 6c 74 29 3b 0a terp, pResult);.
8c90: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
8ca0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 69 6e 73 74 61 6c .}../*.** instal
8cb0: 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 l_malloc_faultsi
8cc0: 6d 20 42 4f 4f 4c 45 41 4e 0a 2a 2f 0a 73 74 61 m BOOLEAN.*/.sta
8cd0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 69 6e 73 tic int test_ins
8ce0: 74 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c tall_malloc_faul
8cf0: 74 73 69 6d 28 0a 20 20 76 6f 69 64 20 2a 20 63 tsim(. void * c
8d00: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c lientData,. Tcl
8d10: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8d20: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 . int objc,. T
8d30: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
8d40: 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63 jv[].){. int rc
8d50: 3b 0a 20 20 69 6e 74 20 69 73 49 6e 73 74 61 6c ;. int isInstal
8d60: 6c 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d l;.. if( objc!=
8d70: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 2 ){. Tcl_Wro
8d80: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
8d90: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 42 4f 4f 4c , 1, objv, "BOOL
8da0: 45 41 4e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 EAN");. retur
8db0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d n TCL_ERROR;. }
8dc0: 0a 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 . if( TCL_OK!=T
8dd0: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f cl_GetBooleanFro
8de0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
8df0: 76 5b 31 5d 2c 20 26 69 73 49 6e 73 74 61 6c 6c v[1], &isInstall
8e00: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ) ){. return
8e10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 TCL_ERROR;. }.
8e20: 20 72 63 20 3d 20 66 61 75 6c 74 73 69 6d 49 6e rc = faultsimIn
8e30: 73 74 61 6c 6c 28 69 73 49 6e 73 74 61 6c 6c 29 stall(isInstall)
8e40: 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c ;. Tcl_SetResul
8e50: 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 t(interp, (char
8e60: 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 *)sqlite3TestErr
8e70: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f orName(rc), TCL_
8e80: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 72 65 74 VOLATILE);. ret
8e90: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
8ea0: 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 69 6e 73 *.** sqlite3_ins
8eb0: 74 61 6c 6c 5f 6d 65 6d 73 79 73 33 0a 2a 2f 0a tall_memsys3.*/.
8ec0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f static int test_
8ed0: 69 6e 73 74 61 6c 6c 5f 6d 65 6d 73 79 73 33 28 install_memsys3(
8ee0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 . void * client
8ef0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 Data,. Tcl_Inte
8f00: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e rp *interp,. in
8f10: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 t objc,. Tcl_Ob
8f20: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a j *CONST objv[].
8f30: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 ){. int rc = SQ
8f40: 4c 49 54 45 5f 4d 49 53 55 53 45 3b 0a 23 69 66 LITE_MISUSE;.#if
8f50: 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c def SQLITE_ENABL
8f60: 45 5f 4d 45 4d 53 59 53 33 0a 20 20 63 6f 6e 73 E_MEMSYS3. cons
8f70: 74 20 73 71 6c 69 74 65 33 5f 6d 65 6d 5f 6d 65 t sqlite3_mem_me
8f80: 74 68 6f 64 73 20 2a 73 71 6c 69 74 65 33 4d 65 thods *sqlite3Me
8f90: 6d 47 65 74 4d 65 6d 73 79 73 33 28 76 6f 69 64 mGetMemsys3(void
8fa0: 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 );. rc = sqlite
8fb0: 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 3_config(SQLITE_
8fc0: 43 4f 4e 46 49 47 5f 4d 41 4c 4c 4f 43 2c 20 73 CONFIG_MALLOC, s
8fd0: 71 6c 69 74 65 33 4d 65 6d 47 65 74 4d 65 6d 73 qlite3MemGetMems
8fe0: 79 73 33 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 ys3());.#endif.
8ff0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
9000: 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 nterp, (char *)s
9010: 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e qlite3TestErrorN
9020: 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 56 4f 4c ame(rc), TCL_VOL
9030: 41 54 49 4c 45 29 3b 0a 20 20 72 65 74 75 72 6e ATILE);. return
9040: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 TCL_OK;.}..stat
9050: 69 63 20 69 6e 74 20 74 65 73 74 5f 76 66 73 5f ic int test_vfs_
9060: 6f 6f 6d 5f 74 65 73 74 28 0a 20 20 76 6f 69 64 oom_test(. void
9070: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 * clientData,.
9080: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9090: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c erp,. int objc,
90a0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 . Tcl_Obj *CONS
90b0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 65 78 T objv[].){. ex
90c0: 74 65 72 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 tern int sqlite3
90d0: 5f 6d 65 6d 64 65 62 75 67 5f 76 66 73 5f 6f 6f _memdebug_vfs_oo
90e0: 6d 5f 74 65 73 74 3b 0a 20 20 69 66 28 20 6f 62 m_test;. if( ob
90f0: 6a 63 3e 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f jc>2 ){. Tcl_
9100: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
9110: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
9120: 49 4e 54 45 47 45 52 3f 22 29 3b 0a 20 20 20 20 INTEGER?");.
9130: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9140: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 ;. }else if( ob
9150: 6a 63 3d 3d 32 20 29 7b 0a 20 20 20 20 69 6e 74 jc==2 ){. int
9160: 20 69 4e 65 77 3b 0a 20 20 20 20 69 66 28 20 54 iNew;. if( T
9170: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
9180: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
9190: 2c 20 26 69 4e 65 77 29 20 29 20 72 65 74 75 72 , &iNew) ) retur
91a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
91b0: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 sqlite3_memdebu
91c0: 67 5f 76 66 73 5f 6f 6f 6d 5f 74 65 73 74 20 3d g_vfs_oom_test =
91d0: 20 69 4e 65 77 3b 0a 20 20 7d 0a 20 20 54 63 6c iNew;. }. Tcl
91e0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
91f0: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
9200: 4f 62 6a 28 73 71 6c 69 74 65 33 5f 6d 65 6d 64 Obj(sqlite3_memd
9210: 65 62 75 67 5f 76 66 73 5f 6f 6f 6d 5f 74 65 73 ebug_vfs_oom_tes
9220: 74 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 t));. return TC
9230: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 L_OK;.}../*.** R
9240: 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 egister commands
9250: 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e with the TCL in
9260: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e terpreter..*/.in
9270: 74 20 53 71 6c 69 74 65 74 65 73 74 5f 6d 61 6c t Sqlitetest_mal
9280: 6c 6f 63 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 loc_Init(Tcl_Int
9290: 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 erp *interp){.
92a0: 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a static struct {.
92b0: 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 char *zName
92c0: 3b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d ;. Tcl_ObjCm
92d0: 64 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 dProc *xProc;.
92e0: 20 20 20 69 6e 74 20 63 6c 69 65 6e 74 44 61 74 int clientDat
92f0: 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d a;. } aObjCmd[]
9300: 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 73 71 6c = {. { "sql
9310: 69 74 65 33 5f 6d 61 6c 6c 6f 63 22 2c 20 20 20 ite3_malloc",
9320: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 6d test_m
9330: 61 6c 6c 6f 63 20 20 20 20 20 20 20 20 20 20 20 alloc
9340: 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
9350: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 72 65 { "sqlite3_re
9360: 61 6c 6c 6f 63 22 2c 20 20 20 20 20 20 20 20 20 alloc",
9370: 20 20 20 74 65 73 74 5f 72 65 61 6c 6c 6f 63 20 test_realloc
9380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9390: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
93a0: 71 6c 69 74 65 33 5f 66 72 65 65 22 2c 20 20 20 qlite3_free",
93b0: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
93c0: 5f 66 72 65 65 20 20 20 20 20 20 20 20 20 20 20 _free
93d0: 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a ,0 },.
93e0: 20 20 20 20 20 7b 20 22 6d 65 6d 73 65 74 22 2c { "memset",
93f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9400: 20 20 20 20 20 74 65 73 74 5f 6d 65 6d 73 65 74 test_memset
9410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9420: 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 ,0 },. {
9430: 22 6d 65 6d 67 65 74 22 2c 20 20 20 20 20 20 20 "memget",
9440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 te
9450: 73 74 5f 6d 65 6d 67 65 74 20 20 20 20 20 20 20 st_memget
9460: 20 20 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d ,0 }
9470: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
9480: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 22 2c 20 3_memory_used",
9490: 20 20 20 20 20 20 20 74 65 73 74 5f 6d 65 6d 6f test_memo
94a0: 72 79 5f 75 73 65 64 20 20 20 20 20 20 20 20 20 ry_used
94b0: 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
94c0: 7b 20 22 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 { "sqlite3_memor
94d0: 79 5f 68 69 67 68 77 61 74 65 72 22 2c 20 20 20 y_highwater",
94e0: 74 65 73 74 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 test_memory_high
94f0: 77 61 74 65 72 20 20 20 20 20 20 20 20 20 2c 30 water ,0
9500: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
9510: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 te3_memdebug_bac
9520: 6b 74 72 61 63 65 22 2c 20 74 65 73 74 5f 6d 65 ktrace", test_me
9530: 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65 mdebug_backtrace
9540: 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ,0 },.
9550: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d 65 6d { "sqlite3_mem
9560: 64 65 62 75 67 5f 64 75 6d 70 22 2c 20 20 20 20 debug_dump",
9570: 20 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f test_memdebug_
9580: 64 75 6d 70 20 20 20 20 20 20 20 20 20 20 20 20 dump
9590: 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
95a0: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 66 lite3_memdebug_f
95b0: 61 69 6c 22 2c 20 20 20 20 20 20 74 65 73 74 5f ail", test_
95c0: 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c 20 20 20 memdebug_fail
95d0: 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 ,0 },.
95e0: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 6d { "sqlite3_m
95f0: 65 6d 64 65 62 75 67 5f 70 65 6e 64 69 6e 67 22 emdebug_pending"
9600: 2c 20 20 20 74 65 73 74 5f 6d 65 6d 64 65 62 75 , test_memdebu
9610: 67 5f 70 65 6e 64 69 6e 67 20 20 20 20 20 20 20 g_pending
9620: 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
9630: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 sqlite3_memdebug
9640: 5f 73 65 74 74 69 74 6c 65 22 2c 20 20 74 65 73 _settitle", tes
9650: 74 5f 6d 65 6d 64 65 62 75 67 5f 73 65 74 74 69 t_memdebug_setti
9660: 74 6c 65 20 20 20 20 20 20 20 20 2c 30 20 7d 2c tle ,0 },
9670: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
9680: 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 _memdebug_malloc
9690: 5f 63 6f 75 6e 74 22 2c 20 74 65 73 74 5f 6d 65 _count", test_me
96a0: 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f mdebug_malloc_co
96b0: 75 6e 74 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b unt ,0 },. {
96c0: 20 22 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 "sqlite3_memdeb
96d0: 75 67 5f 6c 6f 67 22 2c 20 20 20 20 20 20 20 74 ug_log", t
96e0: 65 73 74 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 est_memdebug_log
96f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 30 20 ,0
9700: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
9710: 65 33 5f 63 6f 6e 66 69 67 5f 73 63 72 61 74 63 e3_config_scratc
9720: 68 22 2c 20 20 20 20 20 74 65 73 74 5f 63 6f 6e h", test_con
9730: 66 69 67 5f 73 63 72 61 74 63 68 20 20 20 20 20 fig_scratch
9740: 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 ,0 },.
9750: 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 { "sqlite3_conf
9760: 69 67 5f 70 61 67 65 63 61 63 68 65 22 2c 20 20 ig_pagecache",
9770: 20 74 65 73 74 5f 63 6f 6e 66 69 67 5f 70 61 67 test_config_pag
9780: 65 63 61 63 68 65 20 20 20 20 20 20 20 20 20 2c ecache ,
9790: 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 0 },. { "sql
97a0: 69 74 65 33 5f 63 6f 6e 66 69 67 5f 61 6c 74 5f ite3_config_alt_
97b0: 70 63 61 63 68 65 22 2c 20 20 74 65 73 74 5f 61 pcache", test_a
97c0: 6c 74 5f 70 63 61 63 68 65 20 20 20 20 20 20 20 lt_pcache
97d0: 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 ,0 },.
97e0: 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 73 74 { "sqlite3_st
97f0: 61 74 75 73 22 2c 20 20 20 20 20 20 20 20 20 20 atus",
9800: 20 20 20 74 65 73 74 5f 73 74 61 74 75 73 20 20 test_status
9810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9820: 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 ,0 },. { "s
9830: 71 6c 69 74 65 33 5f 64 62 5f 73 74 61 74 75 73 qlite3_db_status
9840: 22 2c 20 20 20 20 20 20 20 20 20 20 74 65 73 74 ", test
9850: 5f 64 62 5f 73 74 61 74 75 73 20 20 20 20 20 20 _db_status
9860: 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a ,0 },.
9870: 20 20 20 20 20 7b 20 22 69 6e 73 74 61 6c 6c 5f { "install_
9880: 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 6d 22 malloc_faultsim"
9890: 2c 20 20 20 20 74 65 73 74 5f 69 6e 73 74 61 6c , test_instal
98a0: 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 l_malloc_faultsi
98b0: 6d 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 m ,0 },. {
98c0: 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f "sqlite3_config_
98d0: 68 65 61 70 22 2c 20 20 20 20 20 20 20 20 74 65 heap", te
98e0: 73 74 5f 63 6f 6e 66 69 67 5f 68 65 61 70 20 20 st_config_heap
98f0: 20 20 20 20 20 20 20 20 20 20 20 20 2c 30 20 7d ,0 }
9900: 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 ,. { "sqlite
9910: 33 5f 63 6f 6e 66 69 67 5f 6d 65 6d 73 74 61 74 3_config_memstat
9920: 75 73 22 2c 20 20 20 74 65 73 74 5f 63 6f 6e 66 us", test_conf
9930: 69 67 5f 6d 65 6d 73 74 61 74 75 73 20 20 20 20 ig_memstatus
9940: 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 ,0 },.
9950: 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 { "sqlite3_confi
9960: 67 5f 6c 6f 6f 6b 61 73 69 64 65 22 2c 20 20 20 g_lookaside",
9970: 74 65 73 74 5f 63 6f 6e 66 69 67 5f 6c 6f 6f 6b test_config_look
9980: 61 73 69 64 65 20 20 20 20 20 20 20 20 20 2c 30 aside ,0
9990: 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 },. { "sqli
99a0: 74 65 33 5f 63 6f 6e 66 69 67 5f 65 72 72 6f 72 te3_config_error
99b0: 22 2c 20 20 20 20 20 20 20 74 65 73 74 5f 63 6f ", test_co
99c0: 6e 66 69 67 5f 65 72 72 6f 72 20 20 20 20 20 20 nfig_error
99d0: 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 20 ,0 },.
99e0: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 63 6f 6e { "sqlite3_con
99f0: 66 69 67 5f 75 72 69 22 2c 20 20 20 20 20 20 20 fig_uri",
9a00: 20 20 74 65 73 74 5f 63 6f 6e 66 69 67 5f 75 72 test_config_ur
9a10: 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 i
9a20: 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 ,0 },. { "sq
9a30: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 63 69 73 lite3_config_cis
9a40: 22 2c 20 20 20 20 20 20 20 20 20 74 65 73 74 5f ", test_
9a50: 63 6f 6e 66 69 67 5f 63 69 73 20 20 20 20 20 20 config_cis
9a60: 20 20 20 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 ,0 },.
9a70: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 64 { "sqlite3_d
9a80: 62 5f 63 6f 6e 66 69 67 5f 6c 6f 6f 6b 61 73 69 b_config_lookasi
9a90: 64 65 22 2c 74 65 73 74 5f 64 62 5f 63 6f 6e 66 de",test_db_conf
9aa0: 69 67 5f 6c 6f 6f 6b 61 73 69 64 65 20 20 20 20 ig_lookaside
9ab0: 20 20 2c 30 20 7d 2c 0a 20 20 20 20 20 7b 20 22 ,0 },. { "
9ac0: 73 71 6c 69 74 65 33 5f 64 75 6d 70 5f 6d 65 6d sqlite3_dump_mem
9ad0: 73 79 73 33 22 2c 20 20 20 20 20 20 20 74 65 73 sys3", tes
9ae0: 74 5f 64 75 6d 70 5f 6d 65 6d 73 79 73 33 20 20 t_dump_memsys3
9af0: 20 20 20 20 20 20 20 20 20 20 20 2c 33 20 7d 2c ,3 },
9b00: 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 . { "sqlite3
9b10: 5f 64 75 6d 70 5f 6d 65 6d 73 79 73 35 22 2c 20 _dump_memsys5",
9b20: 20 20 20 20 20 20 74 65 73 74 5f 64 75 6d 70 5f test_dump_
9b30: 6d 65 6d 73 79 73 33 20 20 20 20 20 20 20 20 20 memsys3
9b40: 20 20 20 20 2c 35 20 7d 2c 0a 20 20 20 20 20 7b ,5 },. {
9b50: 20 22 73 71 6c 69 74 65 33 5f 69 6e 73 74 61 6c "sqlite3_instal
9b60: 6c 5f 6d 65 6d 73 79 73 33 22 2c 20 20 20 20 74 l_memsys3", t
9b70: 65 73 74 5f 69 6e 73 74 61 6c 6c 5f 6d 65 6d 73 est_install_mems
9b80: 79 73 33 20 20 20 20 20 20 20 20 20 20 2c 30 20 ys3 ,0
9b90: 7d 2c 0a 20 20 20 20 20 7b 20 22 73 71 6c 69 74 },. { "sqlit
9ba0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 76 66 73 5f e3_memdebug_vfs_
9bb0: 6f 6f 6d 5f 74 65 73 74 22 2c 20 74 65 73 74 5f oom_test", test_
9bc0: 76 66 73 5f 6f 6f 6d 5f 74 65 73 74 20 20 20 20 vfs_oom_test
9bd0: 20 20 20 20 20 20 2c 30 20 7d 2c 0a 20 20 7d 3b ,0 },. };
9be0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 . int i;. for(
9bf0: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f i=0; i<sizeof(aO
9c00: 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f bjCmd)/sizeof(aO
9c10: 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b bjCmd[0]); i++){
9c20: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
9c30: 63 20 3d 20 28 43 6c 69 65 6e 74 44 61 74 61 29 c = (ClientData)
9c40: 53 51 4c 49 54 45 5f 49 4e 54 5f 54 4f 5f 50 54 SQLITE_INT_TO_PT
9c50: 52 28 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69 R(aObjCmd[i].cli
9c60: 65 6e 74 44 61 74 61 29 3b 0a 20 20 20 20 54 63 entData);. Tc
9c70: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
9c80: 6e 64 28 69 6e 74 65 72 70 2c 20 61 4f 62 6a 43 nd(interp, aObjC
9c90: 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 4f 62 md[i].zName, aOb
9ca0: 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 63 jCmd[i].xProc, c
9cb0: 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 , 0);. }. retu
9cc0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e rn TCL_OK;.}.#en
9cd0: 64 69 66 0a dif.