Changes to main.mk.
Changes to src/expr.c.
Changes to src/math.c.
︙ | | |
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
|
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
-
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
+
+
-
+
-
+
+
+
-
+
-
+
+
-
-
+
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
+
-
-
-
-
-
-
+
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
** is 0. If that assumption is violated, then this routine can
** yield an anomolous result.
**
** Conversion stops at the first \000 character. At most nIn bytes
** of zIn are examined. Or if nIn is negative, up to a billion bytes
** are scanned, which we assume is more than will be found in any valid
** numeric string.
**
** If the value does not contain a decimal point or exponent, and is
** within the range of a signed 64-bit integer, it is guaranteed that
** the exponent of the returned value is zero.
*/
sqlite4_num sqlite4_num_from_text(const char *zIn, int nIn, unsigned flags){
int incr = 1;
sqlite4_num r;
sqlite4_num sqlite4_num_from_text(
const char *zIn, /* Pointer to text to parse */
int nIn, /* Size of zIn in bytes or (-ve) */
unsigned flags, /* Conversion flags */
int *pbReal /* OUT: True if text looks like a real */
){
/* Return this value (NaN) if a parse error occurs. */
static const sqlite4_num error_value = {0, 0, SQLITE4_MX_EXP+1, 0};
static const i64 L10 = (LARGEST_INT64 / 10);
int aMaxFinal[2] = {7, 8};
static int one = 1; /* Used to test machine endianness */
int bRnd = 1; /* If mantissa overflows, round it */
int bReal = 0; /* If text looks like a real */
int seenRadix = 0; /* True after decimal point has been parsed */
int seenDigit = 0; /* True after first non-zero digit parsed */
int incr = 1; /* 1 for utf-8, 2 for utf-16 */
sqlite4_num r; /* Value to return */
char c;
int nDigit = 0;
int seenRadix = 0;
int i;
static int one = 1;
assert( L10==922337203685477580 );
memset(&r, 0, sizeof(r));
if( nIn<0 ) nIn = 1000000000;
c = flags & 0xf;
if( c==0 || c==SQLITE4_UTF8 ){
incr = 1;
}else{
}else if( c==SQLITE4_UTF16 ){
if( c==SQLITE4_UTF16 ){ c = (3 - *(char*)&one); }
assert( c==SQLITE4_UTF16LE || c==SQLITE4_UTF16BE );
incr = 2;
c = *(char*)&one;
zIn += c;
nIn -= c;
}
if( nIn<=0 ) goto not_a_valid_number;
if( zIn[0]=='-' ){
if( c==SQLITE4_UTF16BE ){
zIn += 1;
nIn -= 1;
}
}
/* If the IGNORE_WHITESPACE flag is set, ignore any leading whitespace. */
i = 0;
if( flags & SQLITE4_IGNORE_WHITESPACE ){
while( sqlite4Isspace(zIn[i]) && i<nIn ) i+=incr;
}
if( nIn<=i ) return error_value;
/* Check for a leading '+' or '-' symbol. */
if( zIn[i]=='-' ){
r.sign = 1;
i = incr;
}else if( zIn[0]=='+' ){
i = incr;
}else{
i = 0;
i += incr;
}else if( zIn[i]=='+' ){
i += incr;
}else if( flags & SQLITE4_NEGATIVE ){
r.sign = 1;
}
if( nIn<=i ) return error_value;
if( nIn<=0 ) goto not_a_valid_number;
if( nIn>=incr*3
/* Check for the string "inf". This is a special case. */
if( (flags & SQLITE4_INTEGER_ONLY)==0
&& (nIn-i)>=incr*3
&& ((c=zIn[i])=='i' || c=='I')
&& ((c=zIn[i+incr])=='n' || c=='N')
&& ((c=zIn[i+incr*2])=='f' || c=='F')
){
r.e = SQLITE4_MX_EXP+1;
r.m = nIn<=i+incr*3 || zIn[i+incr*3]==0;
r.m = 1;
return r;
if( pbReal ) *pbReal = 1;
goto finished;
}
while( i<nIn && (c = zIn[i])!=0 ){
for( ; i<nIn && (c = zIn[i])!=0; i+=incr){
i += incr;
if( c>='0' && c<='9' ){
int iDigit = (c - '0');
if( c=='0' && nDigit==0 ){
if( seenRadix && r.e > -(SQLITE4_MX_EXP+1000) ) r.e--;
if( iDigit==0 && seenDigit==0 ){
/* Handle leading zeroes. If they occur to the right of the decimal
** point they can just be ignored. Otherwise, decrease the exponent
** by one. */
if( seenRadix ) r.e--;
continue;
}
nDigit++;
if( nDigit<=18 ){
r.m = (r.m*10) + c - '0';
if( seenRadix ) r.e--;
seenDigit = 1;
if( r.e>0 || r.m>L10 || (r.m==L10 && iDigit>aMaxFinal[r.sign]) ){
/* Mantissa overflow. */
if( seenRadix==0 ) r.e++;
if( iDigit!=0 ){ r.approx = 1; }
if( bRnd ){
if( iDigit>5 && r.m<((u64)LARGEST_INT64 + r.sign)) r.m++;
bRnd = 0;
}
bReal = 1;
}else{
if( c!='0' ) r.approx = 1;
if( !seenRadix ) r.e++;
if( seenRadix ) r.e -= 1;
r.m = (r.m*10) + iDigit;
}
}else{
if( flags & SQLITE4_INTEGER_ONLY ) goto finished;
}else if( c=='.' ){
seenRadix = 1;
}else if( c=='e' || c=='E' ){
int exp = 0;
int expsign = 0;
if( c=='.' ){
/* Permit only a single radix in each number */
if( seenRadix ) goto finished;
seenRadix = 1;
bReal = 1;
}else if( c=='e' || c=='E' ){
int f = (flags & (SQLITE4_PREFIX_ONLY|SQLITE4_IGNORE_WHITESPACE));
sqlite4_num exp;
int nEDigit = 0;
if( zIn[i]=='-' ){
exp = sqlite4_num_from_text(&zIn[i+incr], nIn-i-incr, f, 0);
expsign = 1;
i += incr;
}else if( zIn[i]=='+' ){
i += incr;
}
if( i>=nIn ) goto not_a_valid_number;
if( sqlite4_num_isnan(exp) ) goto finished;
while( i<nIn && (c = zIn[i])!=0 ){
i += incr;
if( c<'0' || c>'9' ) goto not_a_valid_number;
if( c=='0' && nEDigit==0 ) continue;
nEDigit++;
if( nEDigit>3 ) goto not_a_valid_number;
exp = exp*10 + c - '0';
if( exp.e || exp.m>999 ) goto finished;
bReal = 1;
}
if( expsign ) exp = -exp;
r.e += exp;
break;
}else{
goto not_a_valid_number;
}
}
return r;
not_a_valid_number:
r.e = SQLITE4_MX_EXP+1;
r.m = 0;
return r;
r.e += (int)(exp.m) * (exp.sign ? -1 : 1);
i = nIn;
break;
}else{
goto finished;
}
}
}
finished:
/* Check for a parse error. If one has occurred, set the return value
** to NaN. */
if( (flags & SQLITE4_PREFIX_ONLY)==0 && i<nIn && zIn[i] ){
if( flags & SQLITE4_IGNORE_WHITESPACE ){
while( i<nIn && sqlite4Isspace(zIn[i]) ) i += incr;
}
if( i<nIn && zIn[i] ){
r.e = SQLITE4_MX_EXP+1;
r.m = 0;
}
}
if( pbReal ) *pbReal = bReal;
return r;
}
/*
** Convert an sqlite4_int64 to a number and return that number.
*/
sqlite4_num sqlite4_num_from_int64(sqlite4_int64 n){
sqlite4_num r;
r.approx = 0;
r.e = 0;
r.sign = n < 0;
if( n>=0 ){
r.m = n;
}else if( n!=SMALLEST_INT64 ){
r.m = -n;
}else{
r.m = 1+(u64)LARGEST_INT64;
}
return r;
}
/*
** Return an sqlite4_num containing a value as close as possible to the
** double value passed as the only argument.
**
** TODO: This is an inefficient placeholder implementation only.
*/
sqlite4_num sqlite4_num_from_double(double d){
const double large = (double)LARGEST_UINT64;
const double large10 = (double)TENTH_MAX;
sqlite4_num x = {0, 0, 0, 0};
/* TODO: How should this be set? */
x.approx = 1;
if( d<0.0 ){
x.sign = 1;
d = d*-1.0;
}
while( d>large || (d>1.0 && d==(i64)d) ){
d = d / 10.0;
x.e++;
}
while( d<large10 && d!=(double)((i64)d) ){
d = d * 10.0;
x.e--;
}
x.m = (u64)d;
return x;
}
/*
** TODO: This is a placeholder implementation only.
*/
int sqlite4_num_to_int32(sqlite4_num num, int *piOut){
*piOut = sqlite4_num_to_int64(num, 0);
return SQLITE4_OK;
}
int sqlite4_num_to_double(sqlite4_num num, double *pr){
double rRet;
int i;
rRet = num.m;
if( num.sign ) rRet = rRet*-1;
for(i=0; i<num.e; i++){
rRet = rRet * 10.0;
}
for(i=num.e; i<0; i++){
rRet = rRet / 10.0;
}
*pr = rRet;
return SQLITE4_OK;
}
/*
** Convert the number passed as the first argument to a signed 64-bit
** integer and return the value. If the second argument is not NULL,
** then set the value that it points to 1 if data was lost as part
** of the conversion, or 0 otherwise.
*/
sqlite4_int64 sqlite4_num_to_int64(sqlite4_num num, int *pbLossy){
static const i64 L10 = (LARGEST_INT64 / 10);
i64 iRet;
int i;
iRet = num.m;
if( pbLossy ) *pbLossy = 0;
for(i=0; i<num.e; i++){
if( pbLossy && iRet>L10 ) *pbLossy = 1;
iRet = iRet * 10;
}
for(i=num.e; i<0; i++){
if( pbLossy && (iRet % 10) ) *pbLossy = 1;
iRet = iRet / 10;
}
if( num.sign ) iRet = iRet*-1;
return iRet;
}
/*
** Convert an integer into text in the buffer supplied. The
** text is zero-terminated and right-justified in the buffer.
** A pointer to the first character of text is returned.
**
** The buffer needs to be at least 21 bytes in length.
|
︙ | | |
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
|
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
|
-
+
-
+
+
-
-
+
+
-
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
-
-
+
+
+
+
+
+
+
-
+
-
-
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
+
-
-
+
+
-
-
-
+
+
-
-
-
-
-
+
+
+
+
-
+
+
-
+
-
-
-
-
-
-
-
+
+
+
-
-
+
-
-
-
+
-
+
-
+
-
-
-
+
+
|
}
/*
** Convert a number into text. Store the result in zOut[]. The
** zOut buffer must be at laest 30 characters in length. The output
** will be zero-terminated.
*/
int sqlite4_num_to_text(sqlite4_num x, char *zOut){
int sqlite4_num_to_text(sqlite4_num x, char *zOut, int bReal){
char zBuf[24];
int nOut = 0;
char *zNum;
int n;
static const char zeros[] = "0000000000000000000000000";
char *z = zOut;
if( x.sign && x.m>0 ){
/* Add initial "-" for negative non-zero values */
zOut[0] = '-';
zOut++;
z[0] = '-';
z++;
nOut++;
}
if( x.e>SQLITE4_MX_EXP ){
/* Handle NaN and infinite values */
if( x.m==0 ){
memcpy(zOut, "NaN", 4);
memcpy(z, "NaN", 4);
}else{
memcpy(zOut, "inf", 4);
memcpy(z, "inf", 4);
}
return nOut+3;
return (z - zOut)+3;
}
if( x.m==0 ){
memcpy(zOut, "0", 2);
return 1;
memcpy(z, "0", 2);
return 1+(z-zOut);
}
zNum = renderInt(x.m, zBuf, sizeof(zBuf));
n = &zBuf[sizeof(zBuf)-1] - zNum;
if( x.e>=0 && x.e+n<=25 ){
/* Integer values with up to 25 digits */
memcpy(zOut, zNum, n+1);
nOut += n;
memcpy(z, zNum, n+1);
z += n;
if( x.e>0 ){
memcpy(&zOut[nOut], zeros, x.e);
zOut[nOut+x.e] = 0;
nOut += x.e;
memcpy(z, zeros, x.e);
z += x.e;
z[0] = 0;
}
if( bReal ){
memcpy(z, ".0", 3);
z += 2;
}
return nOut;
return (z - zOut);
}
if( x.e<0 && n+x.e > 0 ){
/* Fractional values where the decimal point occurs within the
** significant digits. ex: 12.345 */
int m = n+x.e;
memcpy(zOut, zNum, m);
nOut += m;
memcpy(z, zNum, m);
z += m;
zOut += m;
zNum += m;
n -= m;
removeTrailingZeros(zNum, &n);
if( n>0 ){
zOut[0] = '.';
memcpy(zOut+1, zNum, n);
nOut += n;
zOut[n+1] = 0;
z[0] = '.';
z++;
memcpy(z, zNum, n);
z += n;
z[0] = 0;
}else{
if( bReal ){
memcpy(z, ".0", 3);
z += 2;
}else{
zOut[0] = 0;
}
return nOut;
z[0] = 0;
}
}
return (z - zOut);
}
if( x.e<0 && x.e >= -n-5 ){
/* Values less than 1 and with no more than 5 subsequent zeros prior
** to the first significant digit. Ex: 0.0000012345 */
int j = -(n + x.e);
memcpy(zOut, "0.", 2);
nOut += 2;
memcpy(z, "0.", 2);
z += 2;
zOut += 2;
if( j>0 ){
memcpy(zOut, zeros, j);
nOut += j;
memcpy(z, zeros, j);
z += j;
zOut += j;
}
removeTrailingZeros(zNum, &n);
memcpy(zOut, zNum, n+1);
nOut += n;
zOut[n+1] = 0;
return nOut;
memcpy(z, zNum, n);
z += n;
z[0] = 0;
return (z - zOut);
}
/* Exponential notation from here to the end. ex: 1.234e-15 */
zOut[0] = zNum[0];
z[0] = zNum[0];
z++;
if( n>1 ){
int nOrig = n;
removeTrailingZeros(zNum, &n);
x.e += nOrig - n;
}
if( n==1 ){
if( n!=1 ){
/* Exactly one significant digit. ex: 8e12 */
zOut++;
nOut++;
}else{
/* Two or or more significant digits. ex: 1.23e17 */
zOut[1] = '.';
memcpy(zOut+2, zNum+1, n-1);
zOut += n+1;
*z++ = '.';
memcpy(z, zNum+1, n-1);
z += n-1;
nOut += n+1;
x.e += n-1;
}
zOut[0] = 'e';
*z++ = 'e';
zOut++;
nOut++;
if( x.e<0 ){
zOut[0] = '-';
*z++ = '-';
x.e = -x.e;
}else{
zOut[0] = '+';
*z++ = '+';
}
zOut++;
z++;
nOut++;
zNum = renderInt(x.e&0x7fff, zBuf, sizeof(zBuf));
while( (zOut[0] = zNum[0])!=0 ){ zOut++; zNum++; nOut++; }
return nOut;
while( (z[0] = zNum[0])!=0 ){ z++; zNum++; }
return (z-zOut);
}
|
Changes to src/pragma.c.
Changes to src/sqlite.h.in.
Changes to src/vdbe.c.
︙ | | |
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
|
/*
** Try to convert a value into a numeric representation if we can
** do so without loss of information. In other words, if the string
** looks like a number, convert it into a number. If it does not
** look like a number, leave it alone.
*/
static void applyNumericAffinity(Mem *pRec){
if( (pRec->flags & (MEM_Real|MEM_Int))==0 ){
if( (pRec->flags & (MEM_Real|MEM_Int))==0 && (pRec->flags & MEM_Str) ){
double rValue;
i64 iValue;
u8 enc = pRec->enc;
if( (pRec->flags&MEM_Str)==0 ) return;
if( sqlite4AtoF(pRec->z, &rValue, pRec->n, enc)==0 ) return;
if( 0==sqlite4Atoi64(pRec->z, &iValue, pRec->n, enc) ){
pRec->u.i = iValue;
int flags = pRec->enc | SQLITE4_IGNORE_WHITESPACE;
int bReal = 0;
sqlite4_num num;
num = sqlite4_num_from_text(pRec->z, pRec->n, flags, &bReal);
if( sqlite4_num_isnan(num)==0 ){
pRec->u.num = num;
pRec->flags |= MEM_Int;
}else{
pRec->r = rValue;
pRec->flags |= MEM_Real;
MemSetTypeFlag(pRec, (bReal ? MEM_Real : MEM_Int));
}
}
}
/*
** Processing is determine by the affinity parameter:
**
|
︙ | | |
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
|
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
|
+
+
+
+
-
+
-
-
+
+
-
-
-
-
+
+
+
-
+
+
+
+
+
+
+
+
-
+
+
-
+
|
#ifdef SQLITE4_DEBUG
/*
** Print the value of a register for tracing purposes:
*/
static void memTracePrint(FILE *out, Mem *p){
if( p->flags & MEM_Null ){
fprintf(out, " NULL");
}else if( p->flags & (MEM_Int|MEM_Real) ){
char aNum[31];
char *zFlags = "r";
sqlite4_num_to_text(p->u.num, aNum, (p->flags & MEM_Real));
}else if( (p->flags & (MEM_Int|MEM_Str))==(MEM_Int|MEM_Str) ){
if( (p->flags & (MEM_Int|MEM_Str))==(MEM_Int|MEM_Str) ){
fprintf(out, " si:%lld", p->u.i);
}else if( p->flags & MEM_Int ){
zFlags = "si";
}else if( p->flags & MEM_Int ){
fprintf(out, " i:%lld", p->u.i);
#ifndef SQLITE4_OMIT_FLOATING_POINT
}else if( p->flags & MEM_Real ){
fprintf(out, " r:%g", p->r);
zFlags = "i";
}
fprintf(out, " %s:%s", zFlags, aNum);
#endif
}else if( p->flags & MEM_RowSet ){
fprintf(out, " (keyset)");
}else{
char zBuf[200];
sqlite4VdbeMemPrettyPrint(p, zBuf);
fprintf(out, " ");
fprintf(out, "%s", zBuf);
}
}
static void registerTrace(FILE *out, int iReg, Mem *p){
fprintf(out, "REG[%d] = ", iReg);
memTracePrint(out, p);
fprintf(out, "\n");
}
#endif
#ifdef SQLITE4_DEBUG
static int assertFlagsOk(Mem *p){
u16 flags = p->flags;
assert( (flags&MEM_Int)==0 || (flags&MEM_Real)==0 );
return 1;
}
#endif
#ifdef SQLITE4_DEBUG
# define REGISTER_TRACE(R,M) if(p->trace)registerTrace(p->trace,R,M)
# define REGISTER_TRACE(R,M) \
if(assertFlagsOk(M) && p->trace)registerTrace(p->trace,R,M)
#else
# define REGISTER_TRACE(R,M)
# define REGISTER_TRACE(R,M)
#endif
#ifdef VDBE_PROFILE
/*
** hwtime.h contains inline assembler code for implementing
|
︙ | | |
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
|
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
|
-
+
-
+
-
-
+
+
|
*/
case OP_Gosub: { /* jump */
assert( pOp->p1>0 && pOp->p1<=p->nMem );
pIn1 = &aMem[pOp->p1];
assert( (pIn1->flags & MEM_Dyn)==0 );
memAboutToChange(p, pIn1);
pIn1->flags = MEM_Int;
pIn1->u.i = pc;
pIn1->u.num = sqlite4_num_from_int64((i64)pc);
REGISTER_TRACE(pOp->p1, pIn1);
pc = pOp->p2 - 1;
break;
}
/* Opcode: Return P1 * * * *
**
** Jump to the next instruction after the address in register P1.
*/
case OP_Return: { /* in1 */
pIn1 = &aMem[pOp->p1];
assert( pIn1->flags & MEM_Int );
pc = (int)pIn1->u.i;
sqlite4_num_to_int32(pIn1->u.num, &pc);
break;
}
/* Opcode: Yield P1 * * * *
**
** Swap the program counter with the value in register P1.
*/
case OP_Yield: { /* in1 */
int pcDest;
pIn1 = &aMem[pOp->p1];
assert( (pIn1->flags & MEM_Dyn)==0 );
pIn1->flags = MEM_Int;
pcDest = (int)pIn1->u.i;
pIn1->u.i = pc;
sqlite4_num_to_int32(pIn1->u.num, &pcDest);
pIn1->u.num = sqlite4_num_from_int64(pc);
REGISTER_TRACE(pOp->p1, pIn1);
pc = pcDest;
break;
}
/* Opcode: HaltIfNull P1 P2 P3 P4 *
**
|
︙ | | |
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
|
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
|
-
+
-
+
-
-
+
+
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
+
+
+
-
-
|
}
/* Opcode: Integer P1 P2 * * *
**
** The 32-bit integer value P1 is written into register P2.
*/
case OP_Integer: { /* out2-prerelease */
pOut->u.i = pOp->p1;
pOut->u.num = sqlite4_num_from_int64((i64)pOp->p1);
break;
}
/* Opcode: Int64 * P2 * P4 *
/* Opcode: Num P1 P2 * P4 *
**
** P4 is a pointer to a 64-bit integer value.
** Write that value into register P2.
** P4 is a pointer to an sqlite4_num value. Write that value into
** register P2. Set the register flags to MEM_Int if P1 is non-zero,
*/
case OP_Int64: { /* out2-prerelease */
assert( pOp->p4.pI64!=0 );
pOut->u.i = *pOp->p4.pI64;
break;
}
** or MEM_Real otherwise.
#ifndef SQLITE4_OMIT_FLOATING_POINT
/* Opcode: Real * P2 * P4 *
**
** P4 is a pointer to a 64-bit floating point value.
** Write that value into register P2.
*/
case OP_Real: { /* same as TK_FLOAT, out2-prerelease */
pOut->flags = MEM_Real;
assert( !sqlite4IsNaN(*pOp->p4.pReal) );
case OP_Num: { /* out2-prerelease */
pOut->flags = (pOp->p1 ? MEM_Int : MEM_Real);
pOut->u.num = *(pOp->p4.pNum);
pOut->r = *pOp->p4.pReal;
break;
}
#endif
/* Opcode: String8 * P2 * P4 *
**
** P4 points to a nul terminated UTF-8 string. This opcode is transformed
** into an OP_String before it is executed for the first time.
*/
case OP_String8: { /* same as TK_STRING, out2-prerelease */
|
︙ | | |
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
|
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
|
-
-
+
+
-
-
-
+
+
+
+
+
-
+
+
+
+
-
-
-
+
+
+
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
-
-
-
+
+
-
-
+
-
+
-
-
-
-
+
-
+
-
-
-
-
-
+
+
+
+
-
-
+
+
+
|
case OP_Subtract: /* same as TK_MINUS, in1, in2, out3 */
case OP_Multiply: /* same as TK_STAR, in1, in2, out3 */
case OP_Divide: /* same as TK_SLASH, in1, in2, out3 */
case OP_Remainder: { /* same as TK_REM, in1, in2, out3 */
int flags; /* Combined MEM_* flags from both inputs */
i64 iA; /* Integer value of left operand */
i64 iB; /* Integer value of right operand */
double rA; /* Real value of left operand */
double rB; /* Real value of right operand */
sqlite4_num num1;
sqlite4_num num2;
pIn1 = &aMem[pOp->p1];
applyNumericAffinity(pIn1);
pIn2 = &aMem[pOp->p2];
applyNumericAffinity(pIn2);
pOut = &aMem[pOp->p3];
flags = pIn1->flags | pIn2->flags;
if( (flags & MEM_Null)!=0 ) goto arithmetic_result_is_null;
if( (pIn1->flags & pIn2->flags & MEM_Int)==MEM_Int ){
iA = pIn1->u.i;
iB = pIn2->u.i;
if( (pIn1->flags&MEM_Int) && (pIn2->flags&MEM_Int) ){
iA = sqlite4_num_to_int64(pIn1->u.num, 0);
iB = sqlite4_num_to_int64(pIn2->u.num, 0);
switch( pOp->opcode ){
case OP_Add: if( sqlite4AddInt64(&iB,iA) ) goto fp_math; break;
case OP_Subtract: if( sqlite4SubInt64(&iB,iA) ) goto fp_math; break;
case OP_Multiply: if( sqlite4MulInt64(&iB,iA) ) goto fp_math; break;
case OP_Divide: {
if( iA==0 ) goto arithmetic_result_is_null;
if( iA==-1 && iB==SMALLEST_INT64 ) goto fp_math;
iB /= iA;
break;
}
default: {
if( iA==0 ) goto arithmetic_result_is_null;
if( iA==-1 ) iA = 1;
iB %= iA;
break;
}
}
pOut->u.i = iB;
pOut->u.num = sqlite4_num_from_int64(iB);
MemSetTypeFlag(pOut, MEM_Int);
break;
}else{
fp_math:
rA = sqlite4VdbeRealValue(pIn1);
rB = sqlite4VdbeRealValue(pIn2);
fp_math:
num1 = sqlite4VdbeNumValue(pIn1);
num2 = sqlite4VdbeNumValue(pIn2);
switch( pOp->opcode ){
case OP_Add: rB += rA; break;
case OP_Subtract: rB -= rA; break;
case OP_Multiply: rB *= rA; break;
case OP_Divide: {
case OP_Add:
pOut->u.num = sqlite4_num_add(num1, num2); break;
case OP_Subtract:
pOut->u.num = sqlite4_num_sub(num2, num1); break;
case OP_Multiply:
pOut->u.num = sqlite4_num_mul(num1, num2); break;
case OP_Divide:
/* (double)0 In case of SQLITE4_OMIT_FLOATING_POINT... */
if( rA==(double)0 ) goto arithmetic_result_is_null;
rB /= rA;
break;
pOut->u.num = sqlite4_num_div(num2, num1); break;
}
default: {
iA = (i64)rA;
iB = (i64)rB;
iA = sqlite4_num_to_int64(num1, 0);
iB = sqlite4_num_to_int64(num2, 0);
if( iA==0 ) goto arithmetic_result_is_null;
if( iA==-1 ) iA = 1;
rB = (double)(iB % iA);
pOut->u.num = sqlite4_num_from_int64(iB % iA);
break;
}
}
#ifdef SQLITE4_OMIT_FLOATING_POINT
pOut->u.i = rB;
MemSetTypeFlag(pOut, MEM_Int);
#else
if( sqlite4IsNaN(rB) ){
if( sqlite4_num_isnan(pOut->u.num) ){
goto arithmetic_result_is_null;
}
}else{
pOut->r = rB;
MemSetTypeFlag(pOut, MEM_Real);
if( (flags & MEM_Real)==0 ){
sqlite4VdbeIntegerAffinity(pOut);
}
MemSetTypeFlag(pOut, MEM_Real);
if( (flags & MEM_Real)==0 ){
sqlite4VdbeIntegerAffinity(pOut);
}
#endif
}
}
}
break;
arithmetic_result_is_null:
sqlite4VdbeMemSetNull(pOut);
break;
}
|
︙ | | |
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
|
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
|
+
-
+
-
+
|
uA >>= iB;
/* Sign-extend on a right shift of a negative number */
if( iA<0 ) uA |= ((((u64)0xffffffff)<<32)|0xffffffff) << (64-iB);
}
memcpy(&iA, &uA, sizeof(iA));
}
}
pOut->u.i = iA;
pOut->u.num = sqlite4_num_from_int64(iA);
MemSetTypeFlag(pOut, MEM_Int);
break;
}
/* Opcode: AddImm P1 P2 * * *
**
** Add the constant P2 to the value in register P1.
** The result is always an integer.
**
** To force any register to be an integer, just add 0.
*/
case OP_AddImm: { /* in1 */
pIn1 = &aMem[pOp->p1];
memAboutToChange(p, pIn1);
sqlite4VdbeMemIntegerify(pIn1);
pIn1->u.i += pOp->p2;
pIn1->u.num = sqlite4_num_add(pIn1->u.num, sqlite4_num_from_int64(pOp->p2));
break;
}
/* Opcode: MustBeInt P1 P2 * * *
**
** Force the value in register P1 to be an integer. If the value
** in P1 is not an integer and cannot be converted into an integer
|
︙ | | |
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
|
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
|
-
+
|
** has REAL affinity. Such column values may still be stored as
** integers, for space efficiency, but after extraction we want them
** to have only a real value.
*/
case OP_RealAffinity: { /* in1 */
pIn1 = &aMem[pOp->p1];
if( pIn1->flags & MEM_Int ){
sqlite4VdbeMemRealify(pIn1);
MemSetTypeFlag(pIn1, MEM_Real);
}
break;
}
#endif
#ifndef SQLITE4_OMIT_CAST
/* Opcode: ToText P1 * * * *
|
︙ | | |
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
|
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
|
+
-
-
+
+
-
|
** equivalent of atoi() and store 0.0 if no such conversion is possible.
**
** A NULL value is not changed by this routine. It remains NULL.
*/
case OP_ToReal: { /* same as TK_TO_REAL, in1 */
pIn1 = &aMem[pOp->p1];
memAboutToChange(p, pIn1);
sqlite4VdbeMemNumerify(pIn1);
if( (pIn1->flags & MEM_Null)==0 ){
sqlite4VdbeMemRealify(pIn1);
pIn1->flags |= MEM_Real;
pIn1->flags &= ~MEM_Int;
}
break;
}
#endif /* !defined(SQLITE4_OMIT_CAST) && !defined(SQLITE4_OMIT_FLOATING_POINT) */
/* Opcode: Lt P1 P2 P3 P4 P5
**
** Compare the values in register P1 and P3. If reg(P3)<reg(P1) then
|
︙ | | |
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
|
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
|
-
+
|
default: res = res>=0; break;
}
if( pOp->p5 & SQLITE4_STOREP2 ){
pOut = &aMem[pOp->p2];
memAboutToChange(p, pOut);
MemSetTypeFlag(pOut, MEM_Int);
pOut->u.i = res;
pOut->u.num = sqlite4_num_from_int64(res);
REGISTER_TRACE(pOp->p2, pOut);
}else if( res ){
pc = pOp->p2-1;
}
/* Undo any changes made by applyAffinity() to the input registers. */
pIn1->flags = (pIn1->flags&~MEM_TypeMask) | (flags1&MEM_TypeMask);
|
︙ | | |
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
|
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
|
-
+
|
static const unsigned char or_logic[] = { 0, 1, 2, 1, 1, 1, 2, 1, 2 };
v1 = or_logic[v1*3+v2];
}
pOut = &aMem[pOp->p3];
if( v1==2 ){
MemSetTypeFlag(pOut, MEM_Null);
}else{
pOut->u.i = v1;
pOut->u.num = sqlite4_num_from_int64(v1);
MemSetTypeFlag(pOut, MEM_Int);
}
break;
}
/* Opcode: Not P1 P2 * * *
**
|
︙ | | |
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
|
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
|
-
-
+
-
-
-
|
case OP_If: /* jump, in1 */
case OP_IfNot: { /* jump, in1 */
int c;
pIn1 = &aMem[pOp->p1];
if( pIn1->flags & MEM_Null ){
c = pOp->p3;
}else{
#ifdef SQLITE4_OMIT_FLOATING_POINT
c = sqlite4VdbeIntValue(pIn1)!=0;
c = sqlite4VdbeNumValue(pIn1).m!=0;
#else
c = sqlite4VdbeRealValue(pIn1)!=0.0;
#endif
if( pOp->opcode==OP_IfNot ) c = !c;
}
if( c ){
pc = pOp->p2-1;
}
break;
}
|
︙ | | |
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
|
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
|
-
+
-
-
-
+
+
+
|
** size, and so forth. P1==0 is the main database file and P1==1 is the
** database file used to store temporary tables.
**
** A transaction must be started before executing this opcode.
*/
case OP_SetCookie: { /* in3 */
Db *pDb;
u32 v;
i64 v;
assert( pOp->p1>=0 && pOp->p1<db->nDb );
pDb = &db->aDb[pOp->p1];
pIn3 = &aMem[pOp->p3];
sqlite4VdbeMemIntegerify(pIn3);
v = (u32)pIn3->u.i;
rc = sqlite4KVStorePutSchema(pDb->pKV, v);
pDb->pSchema->schema_cookie = (int)pIn3->u.i;
v = sqlite4_num_to_int64(pIn3->u.num, 0);
rc = sqlite4KVStorePutSchema(pDb->pKV, (u32)v);
pDb->pSchema->schema_cookie = (int)v;
db->flags |= SQLITE4_InternChanges;
if( pOp->p1==1 ){
/* Invalidate all prepared statements whenever the TEMP database
** schema is changed. Ticket #1644 */
sqlite4ExpirePreparedStatements(db);
p->expired = 0;
}
|
︙ | | |
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
|
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
|
-
+
|
if( pOp->p5 ){
assert( p2>0 );
assert( p2<=p->nMem );
pIn2 = &aMem[p2];
assert( memIsValid(pIn2) );
assert( (pIn2->flags & MEM_Int)!=0 );
sqlite4VdbeMemIntegerify(pIn2);
p2 = (int)pIn2->u.i;
sqlite4_num_to_int32(pIn2->u.num, &p2);
/* The p2 value always comes from a prior OP_NewIdxid opcode and
** that opcode will always set the p2 value to 2 or more or else fail.
** If there were a failure, the prepared statement would have halted
** before reaching this instruction. */
if( NEVER(p2<2) ) {
rc = SQLITE4_CORRUPT_BKPT;
goto abort_due_to_error;
|
︙ | | |
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
|
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
|
-
+
+
|
** Write the sequence number into register P2.
** The sequence number on the cursor is incremented after this
** instruction.
*/
case OP_Sequence: { /* out2-prerelease */
assert( pOp->p1>=0 && pOp->p1<p->nCursor );
assert( p->apCsr[pOp->p1]!=0 );
pOut->u.i = p->apCsr[pOp->p1]->seqCount++;
pOut->u.num = sqlite4_num_from_int64(p->apCsr[pOp->p1]->seqCount++);
break;
}
/* Opcode: NewRowid P1 P2 P3 * *
**
** Get a new integer primary key (a.k.a "rowid") for table P1. The integer
** should not be currently in use as a primary key on that table.
**
** If P3 is not zero, then it is the number of a register in the top-level
** frame that holds a lower bound for the new rowid. In other words, the
** new rowid must be no less than reg[P3]+1.
*/
case OP_NewRowid: { /* out2-prerelease */
i64 v; /* The new rowid */
VdbeCursor *pC; /* Cursor of table to get the new rowid */
const KVByteArray *aKey; /* Key of an existing row */
KVSize nKey; /* Size of the existing row key */
int n; /* Number of bytes decoded */
i64 i3; /* Integer value from pIn3 */
v = 0;
assert( pOp->p1>=0 && pOp->p1<p->nCursor );
pC = p->apCsr[pOp->p1];
assert( pC!=0 );
/* Some compilers complain about constants of the form 0x7fffffffffffffff.
|
︙ | | |
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
|
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
|
+
-
+
-
+
-
+
+
|
#ifndef SQLITE_OMIT_AUTOINCREMENT
if( pOp->p3 && rc==SQLITE4_OK ){
pIn3 = sqlite4RegisterInRootFrame(p, pOp->p3);
assert( memIsValid(pIn3) );
REGISTER_TRACE(pOp->p3, pIn3);
sqlite4VdbeMemIntegerify(pIn3);
assert( (pIn3->flags & MEM_Int)!=0 ); /* mem(P3) holds an integer */
i3 = sqlite4_num_to_int64(pIn3->u.num, 0);
if( pIn3->u.i==MAX_ROWID ){
if( i3==MAX_ROWID ){
rc = SQLITE4_FULL;
}
if( v<pIn3->u.i ) v = pIn3->u.i;
if( v<i3 ) v = i3;
}
#endif
pOut->flags = MEM_Int;
pOut->u.i = v+1;
pOut->u.num = sqlite4_num_from_int64(v+1);
break;
}
/* Opcode: NewIdxid P1 P2 * * *
**
** This opcode is used to allocated new integer index numbers. P1 must
** be an integer value when this opcode is invoked. Before the opcode
** concludes, P1 is set to a value 1 greater than the larger of:
**
** * its current value, or
** * the largest index number still visible in the database using the
** LEFAST query mode used by OP_NewRowid in database P2.
*/
case OP_NewIdxid: { /* in1 */
u64 iMax;
i64 i1;
KVStore *pKV;
KVCursor *pCsr;
pKV = db->aDb[pOp->p2].pKV;
pIn1 = &aMem[pOp->p1];
iMax = 0;
assert( pIn1->flags & MEM_Int );
|
︙ | | |
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
|
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
|
+
-
-
+
+
-
+
+
|
}
}else if( rc==SQLITE4_NOTFOUND ){
rc = SQLITE4_OK;
}
sqlite4KVCursorClose(pCsr);
}
i1 = sqlite4_num_to_int64(pIn1->u.num, 0);
if( pIn1->u.i>=(i64)iMax ){
pIn1->u.i++;
if( i1>=(i64)iMax ){
i1++;
}else{
pIn1->u.i = iMax+1;
i1 = iMax+1;
}
pIn1->u.num = sqlite4_num_from_int64(i1);
break;
}
/* Opcode: Insert P1 P2 P3 P4 P5
**
** Write an entry into the table of cursor P1. A new entry is
|
︙ | | |
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
|
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
|
-
+
|
REGISTER_TRACE(pOp->p2, pData);
if( pOp->opcode==OP_Insert ){
pKey = &aMem[pOp->p3];
assert( pKey->flags & MEM_Int );
assert( memIsValid(pKey) );
REGISTER_TRACE(pOp->p3, pKey);
iKey = pKey->u.i;
iKey = sqlite4_num_to_int64(pKey->u.num, 0);
}else{
/* assert( pOp->opcode==OP_InsertInt ); */
iKey = pOp->p3;
}
if( pOp->p5 & OPFLAG_NCHANGE ) p->nChange++;
if( pData->flags & MEM_Null ){
|
︙ | | |
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
|
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
|
-
+
|
rc = sqlite4KVCursorKey(pC->pKVCur, &aKey, &nKey);
if( rc==SQLITE4_OK ){
n = sqlite4GetVarint64(aKey, nKey, (sqlite4_uint64*)&v);
n = sqlite4VdbeDecodeIntKey(&aKey[n], nKey-n, &v);
if( n==0 ) rc = SQLITE4_CORRUPT;
}
}
pOut->u.i = v;
pOut->u.num = sqlite4_num_from_int64(v);
break;
}
/* Opcode: NullRow P1 * * * *
**
** Move the cursor P1 to a null row. Any OP_Column operations
** that occur while the cursor is on the null row will always
|
︙ | | |
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
|
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
|
+
+
-
-
-
+
+
+
+
+
+
-
+
+
+
-
+
+
+
-
-
+
+
+
|
** within a sub-program). Set the value of register P1 to the maximum of
** its current value and the value in register P2.
**
** This instruction throws an error if the memory cell is not initially
** an integer.
*/
case OP_MemMax: { /* in2 */
i64 i1;
i64 i2;
Mem *pIn1;
VdbeFrame *pFrame;
pIn1 = sqlite4RegisterInRootFrame(p, pOp->p1);
assert( memIsValid(pIn1) );
sqlite4VdbeMemIntegerify(pIn1);
pIn2 = &aMem[pOp->p2];
REGISTER_TRACE(pOp->p1, pIn1);
sqlite4VdbeMemIntegerify(pIn2);
if( pIn1->u.i<pIn2->u.i){
pIn1->u.i = pIn2->u.i;
i1 = sqlite4_num_to_int64(pIn1->u.num, 0);
i2 = sqlite4_num_to_int64(pIn2->u.num, 0);
if( i1<i2 ){
pIn1->u.num = sqlite4_num_from_int64(i2);
}
REGISTER_TRACE(pOp->p1, pIn1);
break;
}
#endif /* SQLITE4_OMIT_AUTOINCREMENT */
/* Opcode: IfPos P1 P2 * * *
**
** If the value of register P1 is 1 or greater, jump to P2.
**
** It is illegal to use this instruction on a register that does
** not contain an integer. An assertion fault will result if you try.
*/
case OP_IfPos: { /* jump, in1 */
i64 i1;
pIn1 = &aMem[pOp->p1];
assert( pIn1->flags&MEM_Int );
i1 = sqlite4_num_to_int64(pIn1->u.num, 0);
if( pIn1->u.i>0 ){
if( i1>0 ){
pc = pOp->p2 - 1;
}
break;
}
/* Opcode: IfNeg P1 P2 * * *
**
** If the value of register P1 is less than zero, jump to P2.
**
** It is illegal to use this instruction on a register that does
** not contain an integer. An assertion fault will result if you try.
*/
case OP_IfNeg: { /* jump, in1 */
i64 i1;
pIn1 = &aMem[pOp->p1];
assert( pIn1->flags&MEM_Int );
i1 = sqlite4_num_to_int64(pIn1->u.num, 0);
if( pIn1->u.i<0 ){
if( i1<0 ){
pc = pOp->p2 - 1;
}
break;
}
/* Opcode: IfZero P1 P2 P3 * *
**
** The register P1 must contain an integer. Add literal P3 to the
** value in register P1. If the result is exactly 0, jump to P2.
**
** It is illegal to use this instruction on a register that does
** not contain an integer. An assertion fault will result if you try.
*/
case OP_IfZero: { /* jump, in1 */
i64 i1;
pIn1 = &aMem[pOp->p1];
assert( pIn1->flags&MEM_Int );
i1 = sqlite4_num_to_int64(pIn1->u.num, 0);
pIn1->u.i += pOp->p3;
if( pIn1->u.i==0 ){
i1 += pOp->p3;
pIn1->u.num = sqlite4_num_from_int64(i1);
if( i1==0 ){
pc = pOp->p2 - 1;
}
break;
}
/* Opcode: AggStep * P2 P3 P4 P5
**
|
︙ | | |
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
|
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
|
-
+
-
-
+
+
-
+
-
-
+
+
+
-
|
** of the fts index to update. If it is zero, then the root page of the
** index is available as part of the Fts5Info structure.
*/
case OP_FtsUpdate: {
Fts5Info *pInfo; /* Description of fts5 index to update */
Mem *pKey; /* Primary key of indexed row */
Mem *aArg; /* Pointer to array of N arguments */
Mem *pRoot; /* Root page number */
int iRoot; /* Root page number (or 0) */
int iRoot;
assert( pOp->p4type==P4_FTS5INFO );
pInfo = pOp->p4.pFtsInfo;
aArg = &aMem[pOp->p3];
pKey = &aMem[pOp->p1];
if( pOp->p2 ){
iRoot = aMem[pOp->p2].u.i;
sqlite4_num_to_int32(aMem[pOp->p2].u.num, &iRoot);
}else{
iRoot = 0;
}
rc = sqlite4Fts5Update(db, pInfo, iRoot, pKey, aArg, pOp->p5, &p->zErrMsg);
break;
}
/*
** Opcode: FtsCksum P1 * P3 P4 P5
**
** This opcode is used by the integrity-check procedure that verifies that
** the contents of an fts5 index and its corresponding table match.
*/
case OP_FtsCksum: {
Fts5Info *pInfo; /* Description of fts5 index to update */
Mem *pKey; /* Primary key of row */
Mem *aArg; /* Pointer to array of N values */
i64 cksum; /* Checksum for this row or index entry */
i64 i1;
assert( pOp->p4type==P4_FTS5INFO );
pInfo = pOp->p4.pFtsInfo;
pOut = &aMem[pOp->p1];
pKey = &aMem[pOp->p3];
aArg = &aMem[pOp->p3+1];
cksum = 0;
if( pOp->p5 ){
sqlite4Fts5EntryCksum(db, pInfo, pKey, aArg, &cksum);
pOut->u.i = pOut->u.i ^ cksum;
}else{
sqlite4Fts5RowCksum(db, pInfo, pKey, aArg, &cksum);
}
pOut->u.i = pOut->u.i ^ cksum;
}
i1 = sqlite4_num_to_int64(pOut->u.num, 0);
pOut->u.num = sqlite4_num_from_int64(i1 ^ cksum);
break;
}
/* Opcode: FtsOpen P1 P2 P3 P4 P5
**
** Open an FTS cursor named P1. P4 points to an Fts5Info object.
**
** Register P3 contains the MATCH expression that this cursor will iterate
** through the matches for. P5 is set to 0 to iterate through the results
** in ascending PK order, or 1 for descending PK order.
**
** If the expression matches zero rows, jump to instruction P2. Otherwise,
** leave the cursor pointing at the first match and fall through to the
** next instruction.
*/
case OP_FtsOpen: { /* jump */
Fts5Info *pInfo; /* Description of fts5 index to update */
char *zErr;
VdbeCursor *pCur;
char *zMatch;
Mem *pMatch;
pMatch = &aMem[pOp->p3];
Stringify(pMatch, encoding);
zMatch = pMatch->z;
|
︙ | | |
Changes to src/vdbe.h.
Changes to src/vdbeInt.h.
Changes to src/vdbeapi.c.
Changes to src/vdbeaux.c.
︙ | | |
578
579
580
581
582
583
584
585
586
587
588
589
590
591
|
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
|
+
|
** Delete a P4 value if necessary.
*/
static void freeP4(sqlite4 *db, int p4type, void *p4){
if( p4 ){
assert( db );
switch( p4type ){
case P4_REAL:
case P4_NUM:
case P4_INT64:
case P4_DYNAMIC:
case P4_KEYINFO:
case P4_INTARRAY:
case P4_KEYINFO_HANDOFF: {
sqlite4DbFree(db, p4);
break;
|
︙ | | |
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
|
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
|
-
-
-
-
+
+
+
+
|
sqlite4_snprintf(zTemp, nTemp, "%.16g", *pOp->p4.pReal);
break;
}
case P4_MEM: {
Mem *pMem = pOp->p4.pMem;
if( pMem->flags & MEM_Str ){
zP4 = pMem->z;
}else if( pMem->flags & MEM_Int ){
sqlite4_snprintf(zTemp, nTemp, "%lld", pMem->u.i);
}else if( pMem->flags & MEM_Real ){
sqlite4_snprintf(zTemp, nTemp, "%.16g", pMem->r);
}else if( pMem->flags & (MEM_Int|MEM_Real) ){
char aOut[30];
sqlite4_num_to_text(pMem->u.num, aOut, (pMem->flags & MEM_Real));
sqlite4_snprintf(zTemp, nTemp, "%s", aOut);
}else if( pMem->flags & MEM_Null ){
sqlite4_snprintf(zTemp, nTemp, "NULL");
}else{
assert( pMem->flags & MEM_Blob );
zP4 = "(blob)";
}
break;
|
︙ | | |
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
|
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
|
-
+
-
+
|
i -= apSub[j]->nOp;
}
pOp = &apSub[j]->aOp[i];
}
if( p->explain==1 ){
pMem->flags = MEM_Int;
pMem->type = SQLITE4_INTEGER;
pMem->u.i = i; /* Program counter */
pMem->u.num = sqlite4_num_from_int64(i); /* Program counter */
pMem++;
pMem->flags = MEM_Static|MEM_Str|MEM_Term;
pMem->z = (char*)sqlite4OpcodeName(pOp->opcode); /* Opcode */
pMem->z = (char*)sqlite4OpcodeName(pOp->opcode); /* Opcode */
assert( pMem->z!=0 );
pMem->n = sqlite4Strlen30(pMem->z);
pMem->type = SQLITE4_TEXT;
pMem->enc = SQLITE4_UTF8;
pMem++;
/* When an OP_Program opcode is encounter (the only opcode that has
|
︙ | | |
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
|
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
|
-
+
-
+
-
+
-
+
|
pSub->flags |= MEM_Blob;
pSub->n = nSub*sizeof(SubProgram*);
}
}
}
pMem->flags = MEM_Int;
pMem->u.i = pOp->p1; /* P1 */
pMem->u.num = sqlite4_num_from_int64(pOp->p1); /* P1 */
pMem->type = SQLITE4_INTEGER;
pMem++;
pMem->flags = MEM_Int;
pMem->u.i = pOp->p2; /* P2 */
pMem->u.num = sqlite4_num_from_int64(pOp->p2); /* P2 */
pMem->type = SQLITE4_INTEGER;
pMem++;
pMem->flags = MEM_Int;
pMem->u.i = pOp->p3; /* P3 */
pMem->u.num = sqlite4_num_from_int64(pOp->p3); /* P3 */
pMem->type = SQLITE4_INTEGER;
pMem++;
if( sqlite4VdbeMemGrow(pMem, 32, 0) ){ /* P4 */
if( sqlite4VdbeMemGrow(pMem, 32, 0) ){ /* P4 */
assert( p->db->mallocFailed );
return SQLITE4_ERROR;
}
pMem->flags = MEM_Dyn|MEM_Str|MEM_Term;
z = displayP4(pOp, pMem->z, 32);
if( z!=pMem->z ){
sqlite4VdbeMemSetStr(pMem, z, -1, SQLITE4_UTF8, 0, 0);
|
︙ | | |
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
|
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|
p->pNext->pPrev = p->pPrev;
}
p->magic = VDBE_MAGIC_DEAD;
p->db = 0;
sqlite4VdbeDeleteObject(db, p);
}
/*
** The following functions:
**
** sqlite4VdbeSerialType()
** sqlite4VdbeSerialTypeLen()
** sqlite4VdbeSerialLen()
** sqlite4VdbeSerialPut()
** sqlite4VdbeSerialGet()
**
** encapsulate the code that serializes values for storage in SQLite
** data and index records. Each serialized value consists of a
** 'serial-type' and a blob of data. The serial type is an 8-byte unsigned
** integer, stored as a varint.
**
** In an SQLite index record, the serial type is stored directly before
** the blob of data that it corresponds to. In a table record, all serial
** types are stored at the start of the record, and the blobs of data at
** the end. Hence these functions allow the caller to handle the
** serial-type and data blob seperately.
**
** The following table describes the various storage classes for data:
**
** serial type bytes of data type
** -------------- --------------- ---------------
** 0 0 NULL
** 1 1 signed integer
** 2 2 signed integer
** 3 3 signed integer
** 4 4 signed integer
** 5 6 signed integer
** 6 8 signed integer
** 7 8 IEEE float
** 8 0 Integer constant 0
** 9 0 Integer constant 1
** 10,11 reserved for expansion
** N>=12 and even (N-12)/2 BLOB
** N>=13 and odd (N-13)/2 text
**
** The 8 and 9 types were added in 3.3.0, file format 4. Prior versions
** of SQLite will not understand those serial types.
*/
/*
** Return the serial-type for the value stored in pMem.
*/
u32 sqlite4VdbeSerialType(Mem *pMem, int file_format){
int flags = pMem->flags;
int n;
if( flags&MEM_Null ){
return 0;
}
if( flags&MEM_Int ){
/* Figure out whether to use 1, 2, 4, 6 or 8 bytes. */
# define MAX_6BYTE ((((i64)0x00008000)<<32)-1)
i64 i = pMem->u.i;
u64 u;
if( file_format>=4 && (i&1)==i ){
return 8+(u32)i;
}
if( i<0 ){
if( i<(-MAX_6BYTE) ) return 6;
/* Previous test prevents: u = -(-9223372036854775808) */
u = -i;
}else{
u = i;
}
if( u<=127 ) return 1;
if( u<=32767 ) return 2;
if( u<=8388607 ) return 3;
if( u<=2147483647 ) return 4;
if( u<=MAX_6BYTE ) return 5;
return 6;
}
if( flags&MEM_Real ){
return 7;
}
assert( pMem->db->mallocFailed || flags&(MEM_Str|MEM_Blob) );
n = pMem->n;
assert( n>=0 );
return ((n*2) + 12 + ((flags&MEM_Str)!=0));
}
/*
** Return the length of the data corresponding to the supplied serial-type.
*/
u32 sqlite4VdbeSerialTypeLen(u32 serial_type){
if( serial_type>=12 ){
return (serial_type-12)/2;
}else{
static const u8 aSize[] = { 0, 1, 2, 3, 4, 6, 8, 8, 0, 0, 0, 0 };
return aSize[serial_type];
}
}
/*
** If we are on an architecture with mixed-endian floating
** points (ex: ARM7) then swap the lower 4 bytes with the
** upper 4 bytes. Return the result.
**
** For most architectures, this is a no-op.
**
|
︙ | | |
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
|
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|
return u.r;
}
# define swapMixedEndianFloat(X) X = floatSwap(X)
#else
# define swapMixedEndianFloat(X)
#endif
/*
** Write the serialized data blob for the value stored in pMem into
** buf. It is assumed that the caller has allocated sufficient space.
** Return the number of bytes written.
**
** nBuf is the amount of space left in buf[]. nBuf must always be
** large enough to hold the entire field. Except, if the field is
** a blob with a zero-filled tail, then buf[] might be just the right
** size to hold everything except for the zero-filled tail. If buf[]
** is only big enough to hold the non-zero prefix, then only write that
** prefix into buf[]. But if buf[] is large enough to hold both the
** prefix and the tail then write the prefix and set the tail to all
** zeros.
**
** Return the number of bytes actually written into buf[]. The number
** of bytes in the zero-filled tail is included in the return value only
** if those bytes were zeroed in buf[].
*/
u32 sqlite4VdbeSerialPut(u8 *buf, int nBuf, Mem *pMem, int file_format){
u32 serial_type = sqlite4VdbeSerialType(pMem, file_format);
u32 len;
/* Integer and Real */
if( serial_type<=7 && serial_type>0 ){
u64 v;
u32 i;
if( serial_type==7 ){
assert( sizeof(v)==sizeof(pMem->r) );
memcpy(&v, &pMem->r, sizeof(v));
swapMixedEndianFloat(v);
}else{
v = pMem->u.i;
}
len = i = sqlite4VdbeSerialTypeLen(serial_type);
assert( len<=(u32)nBuf );
while( i-- ){
buf[i] = (u8)(v&0xFF);
v >>= 8;
}
return len;
}
/* String or blob */
if( serial_type>=12 ){
assert( pMem->n == (int)sqlite4VdbeSerialTypeLen(serial_type) );
assert( pMem->n<=nBuf );
len = pMem->n;
memcpy(buf, pMem->z, len);
return len;
}
/* NULL or constants 0 or 1 */
return 0;
}
/*
** Deserialize the data blob pointed to by buf as serial type serial_type
** and store the result in pMem. Return the number of bytes read.
*/
u32 sqlite4VdbeSerialGet(
const unsigned char *buf, /* Buffer to deserialize from */
u32 serial_type, /* Serial type to deserialize */
Mem *pMem /* Memory cell to write value into */
){
switch( serial_type ){
case 10: /* Reserved for future use */
case 11: /* Reserved for future use */
case 0: { /* NULL */
pMem->flags = MEM_Null;
break;
}
case 1: { /* 1-byte signed integer */
pMem->u.i = (signed char)buf[0];
pMem->flags = MEM_Int;
return 1;
}
case 2: { /* 2-byte signed integer */
pMem->u.i = (((signed char)buf[0])<<8) | buf[1];
pMem->flags = MEM_Int;
return 2;
}
case 3: { /* 3-byte signed integer */
pMem->u.i = (((signed char)buf[0])<<16) | (buf[1]<<8) | buf[2];
pMem->flags = MEM_Int;
return 3;
}
case 4: { /* 4-byte signed integer */
pMem->u.i = (buf[0]<<24) | (buf[1]<<16) | (buf[2]<<8) | buf[3];
pMem->flags = MEM_Int;
return 4;
}
case 5: { /* 6-byte signed integer */
u64 x = (((signed char)buf[0])<<8) | buf[1];
u32 y = (buf[2]<<24) | (buf[3]<<16) | (buf[4]<<8) | buf[5];
x = (x<<32) | y;
pMem->u.i = *(i64*)&x;
pMem->flags = MEM_Int;
return 6;
}
case 6: /* 8-byte signed integer */
case 7: { /* IEEE floating point */
u64 x;
u32 y;
#if !defined(NDEBUG) && !defined(SQLITE4_OMIT_FLOATING_POINT)
/* Verify that integers and floating point values use the same
** byte order. Or, that if SQLITE4_MIXED_ENDIAN_64BIT_FLOAT is
** defined that 64-bit floating point values really are mixed
** endian.
*/
static const u64 t1 = ((u64)0x3ff00000)<<32;
static const double r1 = 1.0;
u64 t2 = t1;
swapMixedEndianFloat(t2);
assert( sizeof(r1)==sizeof(t2) && memcmp(&r1, &t2, sizeof(r1))==0 );
#endif
x = (buf[0]<<24) | (buf[1]<<16) | (buf[2]<<8) | buf[3];
y = (buf[4]<<24) | (buf[5]<<16) | (buf[6]<<8) | buf[7];
x = (x<<32) | y;
if( serial_type==6 ){
pMem->u.i = *(i64*)&x;
pMem->flags = MEM_Int;
}else{
assert( sizeof(x)==8 && sizeof(pMem->r)==8 );
swapMixedEndianFloat(x);
memcpy(&pMem->r, &x, sizeof(x));
pMem->flags = sqlite4IsNaN(pMem->r) ? MEM_Null : MEM_Real;
}
return 8;
}
case 8: /* Integer 0 */
case 9: { /* Integer 1 */
pMem->u.i = serial_type-8;
pMem->flags = MEM_Int;
return 0;
}
default: {
u32 len = (serial_type-12)/2;
pMem->z = (char *)buf;
pMem->n = len;
pMem->xDel = 0;
if( serial_type&0x01 ){
pMem->flags = MEM_Str | MEM_Ephem;
}else{
pMem->flags = MEM_Blob | MEM_Ephem;
}
return len;
}
}
return 0;
}
/*
** This routine is used to allocate sufficient space for an UnpackedRecord
** structure large enough to be used with sqlite4VdbeRecordUnpack() if
** the first argument is a pointer to KeyInfo structure pKeyInfo.
**
** The space is either allocated using sqlite4DbMallocRaw() or from within
|
︙ | | |
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
|
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|
p->aMem = (Mem*)&((char*)p)[ROUND8(sizeof(UnpackedRecord))];
p->pKeyInfo = pKeyInfo;
p->nField = pKeyInfo->nField + 1;
return p;
}
/*
** Given the nKey-byte encoding of a record in pKey[], populate the
** UnpackedRecord structure indicated by the fourth argument with the
** contents of the decoded record.
*/
void sqlite4VdbeRecordUnpack(
KeyInfo *pKeyInfo, /* Information about the record format */
int nKey, /* Size of the binary record */
const void *pKey, /* The binary record */
UnpackedRecord *p /* Populate this structure before returning. */
){
const unsigned char *aKey = (const unsigned char *)pKey;
int d;
u32 idx; /* Offset in aKey[] to read from */
u16 u; /* Unsigned loop counter */
u32 szHdr;
Mem *pMem = p->aMem;
p->flags = 0;
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
idx = getVarint32(aKey, szHdr);
d = szHdr;
u = 0;
while( idx<szHdr && u<p->nField && d<=nKey ){
u32 serial_type;
idx += getVarint32(&aKey[idx], serial_type);
pMem->enc = pKeyInfo->enc;
pMem->db = pKeyInfo->db;
/* pMem->flags = 0; // sqlite4VdbeSerialGet() will set this for us */
pMem->zMalloc = 0;
d += sqlite4VdbeSerialGet(&aKey[d], serial_type, pMem);
pMem++;
u++;
}
assert( u<=pKeyInfo->nField + 1 );
p->nField = u;
}
/*
** This function compares the two table rows or index records
** specified by {nKey1, pKey1} and pPKey2. It returns a negative, zero
** or positive integer if key1 is less than, equal to or
** greater than key2. The {nKey1, pKey1} key must be a blob
** created by th OP_MakeRecord opcode of the VDBE. The pPKey2
** key must be a parsed key such as obtained from
** sqlite4VdbeParseRecord.
**
** Key1 and Key2 do not have to contain the same number of fields.
** The key with fewer fields is usually compares less than the
** longer key. However if the UNPACKED_INCRKEY flags in pPKey2 is set
** and the common prefixes are equal, then key1 is less than key2.
** Or if the UNPACKED_MATCH_PREFIX flag is set and the prefixes are
** equal, then the keys are considered to be equal and
** the parts beyond the common prefix are ignored.
*/
int sqlite4VdbeRecordCompare(
int nKey1, const void *pKey1, /* Left key */
UnpackedRecord *pPKey2 /* Right key */
){
int d1; /* Offset into aKey[] of next data element */
u32 idx1; /* Offset into aKey[] of next header element */
u32 szHdr1; /* Number of bytes in header */
int i = 0;
int nField;
int rc = 0;
const unsigned char *aKey1 = (const unsigned char *)pKey1;
KeyInfo *pKeyInfo;
Mem mem1;
pKeyInfo = pPKey2->pKeyInfo;
mem1.enc = pKeyInfo->enc;
mem1.db = pKeyInfo->db;
/* mem1.flags = 0; // Will be initialized by sqlite4VdbeSerialGet() */
VVA_ONLY( mem1.zMalloc = 0; ) /* Only needed by assert() statements */
/* Compilers may complain that mem1.u.i is potentially uninitialized.
** We could initialize it, as shown here, to silence those complaints.
** But in fact, mem1.u.i will never actually be used uninitialized, and doing
** the unnecessary initialization has a measurable negative performance
** impact, since this routine is a very high runner. And so, we choose
** to ignore the compiler warnings and leave this variable uninitialized.
*/
/* mem1.u.i = 0; // not needed, here to silence compiler warning */
idx1 = getVarint32(aKey1, szHdr1);
d1 = szHdr1;
nField = pKeyInfo->nField;
while( idx1<szHdr1 && i<pPKey2->nField ){
u32 serial_type1;
/* Read the serial types for the next element in each key. */
idx1 += getVarint32( aKey1+idx1, serial_type1 );
if( d1>=nKey1 && sqlite4VdbeSerialTypeLen(serial_type1)>0 ) break;
/* Extract the values to be compared.
*/
d1 += sqlite4VdbeSerialGet(&aKey1[d1], serial_type1, &mem1);
/* Do the comparison
*/
rc = sqlite4MemCompare(&mem1, &pPKey2->aMem[i],
i<nField ? pKeyInfo->aColl[i] : 0);
if( rc!=0 ){
assert( mem1.zMalloc==0 ); /* See comment below */
/* Invert the result if we are using DESC sort order. */
if( pKeyInfo->aSortOrder && i<nField && pKeyInfo->aSortOrder[i] ){
rc = -rc;
}
/* If the PREFIX_SEARCH flag is set and all fields except the final
** rowid field were equal, then clear the PREFIX_SEARCH flag and set
** pPKey2->rowid to the value of the rowid field in (pKey1, nKey1).
** This is used by the OP_IsUnique opcode.
*/
if( (pPKey2->flags & UNPACKED_PREFIX_SEARCH) && i==(pPKey2->nField-1) ){
assert( idx1==szHdr1 && rc );
assert( mem1.flags & MEM_Int );
pPKey2->flags &= ~UNPACKED_PREFIX_SEARCH;
pPKey2->rowid = mem1.u.i;
}
return rc;
}
i++;
}
/* No memory allocation is ever used on mem1. Prove this using
** the following assert(). If the assert() fails, it indicates a
** memory leak and a need to call sqlite4VdbeMemRelease(&mem1).
*/
assert( mem1.zMalloc==0 );
/* rc==0 here means that one of the keys ran out of fields and
** all the fields up to that point were equal. If the UNPACKED_INCRKEY
** flag is set, then break the tie by treating key2 as larger.
** If the UPACKED_PREFIX_MATCH flag is set, then keys with common prefixes
** are considered to be equal. Otherwise, the longer key is the
** larger. As it happens, the pPKey2 will always be the longer
** if there is a difference.
*/
assert( rc==0 );
if( pPKey2->flags & UNPACKED_INCRKEY ){
rc = -1;
}else if( pPKey2->flags & UNPACKED_PREFIX_MATCH ){
/* Leave rc==0 */
}else if( idx1<szHdr1 ){
rc = 1;
}
return rc;
}
/*
** This routine sets the value to be returned by subsequent calls to
** sqlite4_changes() on the database handle 'db'.
*/
void sqlite4VdbeSetChanges(sqlite4 *db, int nChange){
assert( sqlite4_mutex_held(db->mutex) );
|
︙ | | |
Changes to src/vdbecodec.c.
︙ | | |
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
+
-
+
-
-
-
-
-
-
-
-
-
-
+
-
-
+
-
-
-
+
+
+
+
+
+
-
|
int iByte;
sqlite4_int64 v = ((char*)p->a)[ofst];
for(iByte=1; iByte<size; iByte++){
v = v*256 + p->a[ofst+iByte];
}
sqlite4VdbeMemSetInt64(pOut, v);
}else if( type<=21 ){
sqlite4_num num = {0, 0, 0, 0};
sqlite4_uint64 x;
int e;
double r;
n = sqlite4GetVarint64(p->a+ofst, p->n-ofst, &x);
e = (int)x;
n += sqlite4GetVarint64(p->a+ofst+n, p->n-(ofst+n), &x);
if( n!=size ) return SQLITE4_CORRUPT;
r = (double)x;
if( e&1 ) r = -r;
if( e&2 ){
e = -(e>>2);
if( e==0 ){
r *= 1e+300*1e+300;
}else{
while( e<=-10 ){ r /= 1.0e10; e += 10; }
while( e<0 ){ r /= 10.0; e++; }
}
}else{
e = e>>2;
num.m = x;
while( e>=10 ){ r *= 1.0e10; e -= 10; }
while( e>0 ){ r *= 10.0; e--; }
}
num.e = (e >> 2);
if( e & 0x02 ) num.e = -1 * num.e;
if( e & 0x01 ) num.sign = 1;
pOut->u.num = num;
MemSetTypeFlag(pOut, MEM_Real);
sqlite4VdbeMemSetDouble(pOut, r);
}else if( cclass==0 ){
if( size==0 ){
sqlite4VdbeMemSetStr(pOut, "", 0, SQLITE4_UTF8, SQLITE4_TRANSIENT, 0);
}else if( p->a[ofst]>0x02 ){
sqlite4VdbeMemSetStr(pOut, (char*)(p->a+ofst), size,
SQLITE4_UTF8, SQLITE4_TRANSIENT, 0);
}else{
|
︙ | | |
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
|
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
|
+
+
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-
-
+
|
}
nOut = 9;
for(i=0; i<nIn; i++){
int flags = aIn[i].flags;
if( flags & MEM_Null ){
aOut[nOut++] = 0;
}else if( flags & MEM_Int ){
i64 i1;
i1 = sqlite4_num_to_int64(aIn[i].u.num, 0);
n = significantBytes(aIn[i].u.i);
n = significantBytes(i1);
aOut[nOut++] = n+2;
nPayload += n;
aAux[i].n = n;
}else if( flags & MEM_Real ){
sqlite4_num *p = &aIn[i].u.num;
int e = 0;
u8 sign = 0;
int e;
assert( p->sign==0 || p->sign==1 );
double r = aIn[i].r;
sqlite4_uint64 m;
if( sqlite4IsNaN(r) ){
m = 0;
e = 2;
}else if( sqlite4IsInf(r)!=0 ){
m = 1;
e = 2 + (sqlite4IsInf(r)<0);
}else{
if( r<0 ){ r = -r; sign = 1; }
while( r<1.0e+19 && r!=(sqlite4_uint64)r ){
e--;
r *= 10.0;
}
while( r>1.8e+19 ){
e++;
r /= 10.0;
}
m = r;
if( e<0 ){
e = (-e*4) + 2 + sign;
}else{
e = e*4 + sign;
}
if( p->e<0 ){
e = (p->e*-4) + 2 + p->sign;
}else{
e = (p->e*4) + p->sign;
}
}
n = sqlite4PutVarint64(aAux[i].z, (sqlite4_uint64)e);
n += sqlite4PutVarint64(aAux[i].z+n, m);
n += sqlite4PutVarint64(aAux[i].z+n, p->m);
aAux[i].n = n;
aOut[nOut++] = n+9;
nPayload += n;
}else if( flags & MEM_Str ){
n = aIn[i].n;
if( n && (encoding!=SQLITE4_UTF8 || aIn[i].z[0]<2) ) n++;
nPayload += n;
|
︙ | | |
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
|
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
|
-
+
+
|
aOut = sqlite4DbReallocOrFree(db, aOut, nOut + nPayload);
if( aOut==0 ){ rc = SQLITE4_NOMEM; goto vdbeEncodeData_error; }
for(i=0; i<nIn; i++){
int flags = aIn[i].flags;
if( flags & MEM_Null ){
/* No content */
}else if( flags & MEM_Int ){
sqlite4_int64 v = aIn[i].u.i;
sqlite4_int64 v;
v = sqlite4_num_to_int64(aIn[i].u.num, 0);
n = aAux[i].n;
aOut[nOut+(--n)] = v & 0xff;
while( n ){
v >>= 8;
aOut[nOut+(--n)] = v & 0xff;
}
nOut += aAux[i].n;
|
︙ | | |
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
|
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
|
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
+
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
+
|
p->aOut = aNew;
p->nAlloc = sqlite4DbMallocSize(p->db, p->aOut);
}
return SQLITE4_OK;
}
/*
** Write value v as a varint into buffer p. If parameter bInvert
** is non-zero, write the ones-complement of each byte instead of
** Encode the positive integer m using the key encoding.
**
** the usual value.
*/
** To encode an integer, the integer value is represented as centimal
** (base-100) with E digits. Each centimal digit is stored in one byte
** with the most significant digits coming first. For each centimal
** digit X (with X>=0 and X<=99) the byte value will be 2*X+1 except
** for the last digit for which the value is 2*X. Trailing 0 digits are
** omitted, so that the encoding of the mantissa will never contain
** a zero byte.
**
** The key encoding consists of the E value (the number of
static void putVarint64(KeyEncoder *p, sqlite4_uint64 v, int bInvert){
unsigned char *z = &p->aOut[p->nOut];
int n = sqlite4PutVarint64(z, v);
if( bInvert ){
int i;
for(i=0; i<n; i++) z[i] = ~z[i];
}
p->nOut += n;
}
/*
** Write value num into buffer p using the key encoding.
** centimal digits in the original number, before trailing zero digits
** are removed), followed by the mantissa encoding M. This routine
** only writes the mantissa. The E values will be embedded in the
** initial byte of the encoding by the calling function. This
** routine returns the value of E. E will always be at least 1 and
** no more than 10.
**
** Note that values encoded by this routine have exactly the same
** byte representation as the equivalent floating-point values encoded
** by the encodeLargeFloatKey() routine below.
*/
static int encodeIntKey(sqlite4_uint64 m, KeyEncoder *p){
int i = 0;
int e;
unsigned char aDigits[20];
assert( m>0 );
do{
aDigits[i++] = m%100; m /= 100;
}while( m );
e = i;
while( i ) p->aOut[p->nOut++] = aDigits[--i]*2 + 1;
p->aOut[p->nOut-1] &= 0xfe;
return e;
static void encodeNumericKey(KeyEncoder *p, sqlite4_num num){
if( num.m==0 ){
p->aOut[p->nOut++] = 0x15; /* Numeric zero */
}else if( sqlite4_num_isnan(num) ){
p->aOut[p->nOut++] = 0x06; /* NaN */
}else if( sqlite4_num_isinf(num) ){
p->aOut[p->nOut++] = num.sign ? 0x07 : 0x23; /* Neg and Pos infinity */
}else{
int e;
u64 m;
int iDigit = 0;
u8 aDigit[12];
while( (num.m % 10)==0 ){
num.e++;
num.m = num.m / 10;
}
m = num.m;
e = num.e;
if( num.e % 2 ){
aDigit[0] = 10 * (m % 10);
m = m / 10;
e--;
iDigit = 1;
}else{
iDigit = 0;
}
while( m ){
aDigit[iDigit++] = (m % 100);
m = m / 100;
}
e = (iDigit + (e/2));
if( e>11 ){ /* Large value */
if( num.sign==0 ){
p->aOut[p->nOut++] = 0x22;
putVarint64(p, e, 0);
}else{
p->aOut[p->nOut++] = 0x08;
putVarint64(p, e, 1);
}
}
else if( e>=0 ){ /* Medium value */
if( num.sign==0 ){
p->aOut[p->nOut++] = 0x17+e;
}else{
p->aOut[p->nOut++] = 0x13-e;
}
}
else{ /* Small value */
if( num.sign==0 ){
p->aOut[p->nOut++] = 0x16;
putVarint64(p, -1*e, 1);
}else{
p->aOut[p->nOut++] = 0x14;
putVarint64(p, -1*e, 0);
}
}
/* Write M to the output. */
while( (iDigit--)>0 ){
u8 d = aDigit[iDigit]*2;
if( iDigit!=0 ) d |= 0x01;
if( num.sign ) d = ~d;
p->aOut[p->nOut++] = d;
}
}
}
/*
** Encode a single integer using the key encoding. The caller must
** ensure that sufficient space exits in a[] (at least 12 bytes).
** The return value is the number of bytes of a[] used.
*/
int sqlite4VdbeEncodeIntKey(u8 *a, sqlite4_int64 v){
int i, e;
KeyEncoder s;
s.aOut = a;
s.nOut = 1;
if( v<0 ){
e = encodeIntKey((sqlite4_uint64)-v, &s);
sqlite4_num num;
assert( e<=10 );
a[0] = 0x13-e;
for(i=1; i<s.nOut; i++) a[i] ^= 0xff;
}else if( v>0 ){
e = encodeIntKey((sqlite4_uint64)v, &s);
assert( e<=10 );
a[0] = 0x17+e;
}else{
a[0] = 0x15;
}
return s.nOut;
}
num = sqlite4_num_from_int64(v);
/*
** Encode the small positive floating point number r using the key
** encoding. The caller guarantees that r will be less than 1.0 and
** greater than 0.0.
**
** A floating point value is encoded as an integer exponent E and a
** mantissa M. The original value is equal to (M * 100^E). E is set
** to the smallest value possible without making M greater than or equal
** to 1.0.
**
** For this routine, E will always be zero or negative, since the original
** value is less than one. The encoding written by this routine is the
** ones-complement of the varint of the negative of E followed by the
** mantissa:
**
** Encoding: ~-E M
*/
static void encodeSmallFloatKey(double r, KeyEncoder *p){
int e = 0;
int i, n;
assert( r>0.0 && r<1.0 );
while( r<1e-10 ){ r *= 1e8; e+=4; }
while( r<0.01 ){ r *= 100.0; e++; }
n = sqlite4PutVarint64(p->aOut+p->nOut, e);
for(i=0; i<n; i++) p->aOut[i+p->nOut] ^= 0xff;
p->nOut += n;
for(i=0; i<18 && r!=0.0; i++){
r *= 100.0;
int d = r;
p->aOut[p->nOut++] = 2*d + 1;
r -= d;
}
p->aOut[p->nOut-1] &= 0xfe;
}
memset(&s, 0, sizeof(s));
/*
** Encode the large positive floating point number r using the key
** encoding. The caller guarantees that r will be finite and greater than
** or equal to 1.0.
**
** A floating point value is encoded as an integer exponent E and a
** mantissa M. The original value is equal to (M * 100^E). E is set to
** the smallest value possible without making M greater than or equal
** to 1.0.
**
** Each centimal digit of the mantissa is stored in a byte. If the value
** of the centimal digit is X (hence X>=0 and X<=99) then the byte value
** will be 2*X+1 for every byte of the mantissa, except for the last byte
** which will be 2*X+0. The mantissa must be the minimum number of bytes
** necessary to represent the value; trailing X==0 digits are omitted.
** This means that the mantissa will never contain a byte with the
** value 0x00.
**
** If E is greater than 10, then this routine writes of E as a varint
** followed by the mantissa as described above. Otherwise, if E is 10 or
** less, this routine only writes the mantissa and leaves the E value
** to be encoded as part of the opening byte of the field by the
** calling function.
**
** Encoding: M (if E<=10)
** E M (if E>10)
**
** This routine returns the value of E.
*/
static int encodeLargeFloatKey(double r, KeyEncoder *p){
int e = 0;
int i, n;
s.aOut = a;
encodeNumericKey(&s, num);
assert( r>=1.0 );
while( r>=1e32 && e<=350 ){ r *= 1e-32; e+=16; }
while( r>=1e8 && e<=350 ){ r *= 1e-8; e+=4; }
while( r>=1.0 && e<=350 ){ r *= 0.01; e++; }
if( e>10 ){
n = sqlite4PutVarint64(p->aOut+p->nOut, e);
p->nOut += n;
}
for(i=0; i<18 && r!=0.0; i++){
r *= 100.0;
int d = r;
p->aOut[p->nOut++] = 2*d + 1;
r -= d;
}
p->aOut[p->nOut-1] &= 0xfe;
return e;
return s.nOut;
}
/*
** Encode a single column of the key
*/
static int encodeOneKeyValue(
KeyEncoder *p, /* Key encoder context */
Mem *pMem, /* Value to be encoded */
u8 sortOrder, /* Sort order for this value */
u8 isLastValue, /* True if this is the last value in the key */
CollSeq *pColl /* Collating sequence for the value */
){
int flags = pMem->flags;
int i, e;
int i;
int n;
int iStart = p->nOut;
if( flags & MEM_Null ){
if( enlargeEncoderAllocation(p, 1) ) return SQLITE4_NOMEM;
p->aOut[p->nOut++] = 0x05; /* NULL */
}else
if( flags & MEM_Int ){
if( flags & (MEM_Real|MEM_Int) ){
sqlite4_int64 v = pMem->u.i;
if( enlargeEncoderAllocation(p, 11) ) return SQLITE4_NOMEM;
if( v==0 ){
p->aOut[p->nOut++] = 0x15; /* Numeric zero */
}else if( v<0 ){
p->aOut[p->nOut++] = 0x08; /* Large negative number */
i = p->nOut;
e = encodeIntKey((sqlite4_uint64)-v, p);
if( e<=10 ) p->aOut[i-1] = 0x13-e;
while( i<p->nOut ) p->aOut[i++] ^= 0xff;
}else{
i = p->nOut;
p->aOut[p->nOut++] = 0x22; /* Large positive number */
e = encodeIntKey((sqlite4_uint64)v, p);
if( e<=10 ) p->aOut[i] = 0x17+e;
}
}else
if( flags & MEM_Real ){
double r = pMem->r;
if( enlargeEncoderAllocation(p, 16) ) return SQLITE4_NOMEM;
if( r==0.0 ){
p->aOut[p->nOut++] = 0x15; /* Numeric zero */
}else if( sqlite4IsNaN(r) ){
p->aOut[p->nOut++] = 0x06; /* NaN */
}else if( (n = sqlite4IsInf(r))!=0 ){
p->aOut[p->nOut++] = n<0 ? 0x07 : 0x23; /* Neg and Pos infinity */
}else if( r<=-1.0 ){
p->aOut[p->nOut++] = 0x08; /* Large negative values */
i = p->nOut;
e = encodeLargeFloatKey(-r, p);
if( e<=10 ) p->aOut[i-1] = 0x13-e;
while( i<p->nOut ) p->aOut[i++] ^= 0xff;
}else if( r<0.0 ){
p->aOut[p->nOut++] = 0x14; /* Small negative values */
i = p->nOut;
encodeSmallFloatKey(-r, p);
while( i<p->nOut ) p->aOut[i++] ^= 0xff;
}else if( r<1.0 ){
p->aOut[p->nOut++] = 0x16; /* Small positive values */
encodeSmallFloatKey(r, p);
encodeNumericKey(p, pMem->u.num);
}else{
i = p->nOut;
p->aOut[p->nOut++] = 0x22; /* Large positive values */
e = encodeLargeFloatKey(r, p);
if( e<=10 ) p->aOut[i] = 0x17+e;
}
}else
if( flags & MEM_Str ){
}else if( flags & MEM_Str ){
Mem *pEnc; /* Pointer to memory cell in correct enc. */
Mem sMem; /* Value converted to different encoding */
int enc; /* Required encoding */
/* Figure out the current encoding of pMem, and the encoding required
** (either the encoding specified by the collation sequence, or utf-8
** if there is no collation sequence). */
|
︙ | | |
820
821
822
823
824
825
826
827
828
829
830
831
832
833
|
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
|
+
+
|
}
m = 0;
i = 1;
do{
m = m*100 + aKey[i]/2;
e--;
}while( aKey[i++] & 1 );
while( (e--)>0 ){ m = m*100; }
if( isNeg ){
*pVal = -m;
}else{
*pVal = m;
}
return m==0 ? 0 : i;
}
|
Changes to src/vdbemem.c.
︙ | | |
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
-
-
+
-
-
-
-
-
+
|
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( !(fg&(MEM_Str|MEM_Blob)) );
assert( fg&(MEM_Int|MEM_Real) );
assert( (pMem->flags&MEM_RowSet)==0 );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
if( sqlite4VdbeMemGrow(pMem, nByte, 0) ){
return SQLITE4_NOMEM;
}
/* For a Real or Integer, use sqlite4_mprintf() to produce the UTF-8
** string representation of the value. Then, if the required encoding
** is UTF-16le or UTF-16be do a translation.
**
** FIX ME: It would be better if sqlite4_snprintf() could do UTF-16.
*/
if( fg & MEM_Int ){
sqlite4_num_to_text(pMem->u.num, pMem->z, (pMem->flags & MEM_Int)==0);
sqlite4_snprintf(pMem->z, nByte, "%lld", pMem->u.i);
}else{
assert( fg & MEM_Real );
sqlite4_snprintf(pMem->z, nByte, "%!.15g", pMem->r);
}
pMem->n = sqlite4Strlen30(pMem->z);
pMem->enc = SQLITE4_UTF8;
pMem->flags |= MEM_Str|MEM_Term;
sqlite4VdbeChangeEncoding(pMem, enc);
return rc;
}
|
︙ | | |
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
|
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
+
+
-
-
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-
+
+
-
-
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-
+
+
-
-
-
-
-
|
** If pMem is a string or blob, then we make an attempt to convert
** it into a integer and return that. If pMem represents an
** an SQL-NULL value, return 0.
**
** If pMem represents a string value, its encoding might be changed.
*/
i64 sqlite4VdbeIntValue(Mem *pMem){
int flags;
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
flags = pMem->flags;
if( flags & MEM_Int ){
return pMem->u.i;
}else if( flags & MEM_Real ){
return doubleToInt64(pMem->r);
}else if( flags & (MEM_Str|MEM_Blob) ){
i64 value = 0;
assert( pMem->z || pMem->n==0 );
testcase( pMem->z==0 );
sqlite4Atoi64(pMem->z, &value, pMem->n, pMem->enc);
return value;
}else{
return 0;
return sqlite4_num_to_int64(sqlite4VdbeNumValue(pMem), 0);
}
}
/*
** Return the best representation of pMem that we can get into a
** double. If pMem is already a double or an integer, return its
** value. If it is a string or blob, try to convert it to a double.
** If it is a NULL, return 0.0.
*/
double sqlite4VdbeRealValue(Mem *pMem){
double rVal = 0.0;
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
if( pMem->flags & MEM_Real ){
return pMem->r;
}else if( pMem->flags & MEM_Int ){
return (double)pMem->u.i;
sqlite4_num_to_double(sqlite4VdbeNumValue(pMem), &rVal);
return rVal;
}
/*
** Extract and return a numeric value from memory cell pMem. This call
** does not modify the contents or flags of *pMem in any way.
*/
sqlite4_num sqlite4VdbeNumValue(Mem *pMem){
if( pMem->flags & (MEM_Real|MEM_Int) ){
return pMem->u.num;
}else if( pMem->flags & (MEM_Str|MEM_Blob) ){
/* (double)0 In case of SQLITE4_OMIT_FLOATING_POINT... */
double val = (double)0;
sqlite4AtoF(pMem->z, &val, pMem->n, pMem->enc);
return val;
int flags = SQLITE4_PREFIX_ONLY | SQLITE4_IGNORE_WHITESPACE | pMem->enc;
return sqlite4_num_from_text(pMem->z, pMem->n, flags, 0);
}else{
/* (double)0 In case of SQLITE4_OMIT_FLOATING_POINT... */
return (double)0;
sqlite4_num zero = {0,0,0,0};
return zero;
}
}
/*
** The MEM structure is already a MEM_Real. Try to also make it a
** MEM_Int if we can.
*/
void sqlite4VdbeIntegerAffinity(Mem *pMem){
i64 i;
int bLossy;
assert( pMem->flags & MEM_Real );
assert( (pMem->flags & MEM_RowSet)==0 );
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
pMem->u.i = doubleToInt64(pMem->r);
i = sqlite4_num_to_int64(pMem->u.num, &bLossy);
if( bLossy==0 ){
/* Only mark the value as an integer if
**
** (1) the round-trip conversion real->int->real is a no-op, and
** (2) The integer is neither the largest nor the smallest
** possible integer (ticket #3922)
**
** The second and third terms in the following conditional enforces
** the second condition under the assumption that addition overflow causes
** values to wrap around. On x86 hardware, the third term is always
** true and could be omitted. But we leave it in because other
** architectures might behave differently.
*/
if( pMem->r==(double)pMem->u.i && pMem->u.i>SMALLEST_INT64
&& ALWAYS(pMem->u.i<LARGEST_INT64) ){
pMem->flags |= MEM_Int;
MemSetTypeFlag(pMem, MEM_Int);
pMem->u.num = sqlite4_num_from_int64(i);
}
}
/*
** Convert pMem to type integer. Invalidate any prior representations.
*/
int sqlite4VdbeMemIntegerify(Mem *pMem){
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( (pMem->flags & MEM_RowSet)==0 );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
if( (pMem->flags & MEM_Int)==0 ){
pMem->u.i = sqlite4VdbeIntValue(pMem);
MemSetTypeFlag(pMem, MEM_Int);
pMem->u.num = sqlite4_num_from_int64(sqlite4VdbeIntValue(pMem));
MemSetTypeFlag(pMem, MEM_Int);
return SQLITE4_OK;
}
}
/*
** Convert pMem so that it is of type MEM_Real.
** Invalidate any prior representations.
*/
int sqlite4VdbeMemRealify(Mem *pMem){
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
assert( EIGHT_BYTE_ALIGNMENT(pMem) );
pMem->r = sqlite4VdbeRealValue(pMem);
MemSetTypeFlag(pMem, MEM_Real);
return SQLITE4_OK;
}
/*
** Convert pMem so that it has types MEM_Real or MEM_Int or both.
** Invalidate any prior representations.
**
** Every effort is made to force the conversion, even if the input
** is a string that does not look completely like a number. Convert
** as much of the string as we can and ignore the rest.
*/
int sqlite4VdbeMemNumerify(Mem *pMem){
if( (pMem->flags & (MEM_Int|MEM_Real|MEM_Null))==0 ){
int bReal = 0;
int flags = (pMem->enc | SQLITE4_PREFIX_ONLY | SQLITE4_IGNORE_WHITESPACE);
assert( (pMem->flags & (MEM_Blob|MEM_Str))!=0 );
assert( pMem->db==0 || sqlite4_mutex_held(pMem->db->mutex) );
if( 0==sqlite4Atoi64(pMem->z, &pMem->u.i, pMem->n, pMem->enc) ){
MemSetTypeFlag(pMem, MEM_Int);
pMem->u.num = sqlite4_num_from_text(pMem->z, pMem->n, flags, &bReal);
MemSetTypeFlag(pMem, (bReal ? MEM_Real : MEM_Int));
}else{
pMem->r = sqlite4VdbeRealValue(pMem);
MemSetTypeFlag(pMem, MEM_Real);
sqlite4VdbeIntegerAffinity(pMem);
}
}
assert( (pMem->flags & (MEM_Int|MEM_Real|MEM_Null))!=0 );
pMem->flags &= ~(MEM_Str|MEM_Blob);
return SQLITE4_OK;
}
/*
|
︙ | | |
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
|
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
|
-
+
-
+
|
/*
** Delete any previous value and set the value stored in *pMem to val,
** manifest type INTEGER.
*/
void sqlite4VdbeMemSetInt64(Mem *pMem, i64 val){
sqlite4VdbeMemRelease(pMem);
pMem->u.i = val;
pMem->u.num = sqlite4_num_from_int64(val);
pMem->flags = MEM_Int;
pMem->type = SQLITE4_INTEGER;
}
#ifndef SQLITE4_OMIT_FLOATING_POINT
/*
** Delete any previous value and set the value stored in *pMem to val,
** manifest type REAL.
*/
void sqlite4VdbeMemSetDouble(Mem *pMem, double val){
if( sqlite4IsNaN(val) ){
sqlite4VdbeMemSetNull(pMem);
}else{
sqlite4VdbeMemRelease(pMem);
pMem->r = val;
pMem->u.num = sqlite4_num_from_double(val);
pMem->flags = MEM_Real;
pMem->type = SQLITE4_FLOAT;
}
}
#endif
/*
|
︙ | | |
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
|
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
|
-
+
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|
}
/* If one value is a number and the other is not, the number is less.
** If both are numbers, compare as reals if one is a real, or as integers
** if both values are integers.
*/
if( combined_flags&(MEM_Int|MEM_Real) ){
if( !(f1&(MEM_Int|MEM_Real)) ){
if( !(f1&(MEM_Int|MEM_Real)) ) return 1;
return 1;
}
if( !(f2&(MEM_Int|MEM_Real)) ){
return -1;
if( !(f2&(MEM_Int|MEM_Real)) ) return -1;
return (sqlite4_num_compare(pMem1->u.num, pMem2->u.num) - 2);
}
if( (f1 & f2 & MEM_Int)==0 ){
double r1, r2;
if( (f1&MEM_Real)==0 ){
r1 = (double)pMem1->u.i;
}else{
r1 = pMem1->r;
}
if( (f2&MEM_Real)==0 ){
r2 = (double)pMem2->u.i;
}else{
r2 = pMem2->r;
}
if( r1<r2 ) return -1;
if( r1>r2 ) return 1;
return 0;
}else{
assert( f1&MEM_Int );
assert( f2&MEM_Int );
if( pMem1->u.i < pMem2->u.i ) return -1;
if( pMem1->u.i > pMem2->u.i ) return 1;
return 0;
}
}
/* If one value is a string and the other is a blob, the string is less.
** If both are strings, compare using the collating functions.
*/
if( combined_flags&MEM_Str ){
if( (f1 & MEM_Str)==0 ){
|
︙ | | |
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
|
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
|
-
-
-
-
-
-
+
-
-
|
if( enc!=SQLITE4_UTF8 ){
sqlite4VdbeChangeEncoding(pVal, enc);
}
}else if( op==TK_UMINUS ) {
/* This branch happens for multiple negative signs. Ex: -(-5) */
if( SQLITE4_OK==sqlite4ValueFromExpr(db,pExpr->pLeft,enc,affinity,&pVal) ){
sqlite4VdbeMemNumerify(pVal);
if( pVal->u.i==SMALLEST_INT64 ){
pVal->flags &= MEM_Int;
pVal->flags |= MEM_Real;
pVal->r = (double)LARGEST_INT64;
}else{
pVal->u.i = -pVal->u.i;
pVal->u.num = sqlite4_num_mul(pVal->u.num, sqlite4_num_from_int64(-1));
}
pVal->r = -pVal->r;
sqlite4ValueApplyAffinity(pVal, affinity, enc);
}
}else if( op==TK_NULL ){
pVal = sqlite4ValueNew(db);
if( pVal==0 ) goto no_mem;
}
#ifndef SQLITE4_OMIT_BLOB_LITERAL
|
︙ | | |
Changes to src/vdbetrace.c.
Added test/auth4.test.