Index: src/func.c
==================================================================
--- src/func.c
+++ src/func.c
@@ -964,12 +964,12 @@
     }
   }
 }
 
 /*
-** tointeger(X):  If X is any value (integer, double, or string) that can
-** be losslessly converted into an integer, then make the conversion and
+** tointeger(X):  If X is any value (integer, double, blob, or string) that
+** can be losslessly converted into an integer, then make the conversion and
 ** return the result.  Otherwise, return NULL.
 */
 static void tointegerFunc(
   sqlite3_context *context,
   int argc,
@@ -994,11 +994,20 @@
       const unsigned char *zBlob = sqlite3_value_blob(argv[0]);
       if( zBlob ){
         int nBlob = sqlite3_value_bytes(argv[0]);
         if( nBlob==sizeof(i64) ){
           i64 iVal;
-          memcpy(&iVal, zBlob, sizeof(i64));
+          if( SQLITE_BIGENDIAN ){
+            int i;
+            unsigned char *zBlobRev = contextMalloc(context, nBlob);
+            if( !zBlobRev ) break;
+            for(i=0; i<nBlob; i++) zBlobRev[i] = zBlob[nBlob-1-i];
+            memcpy(&iVal, zBlobRev, sizeof(i64));
+            sqlite3_free(zBlobRev);
+          }else{
+            memcpy(&iVal, zBlob, sizeof(i64));
+          }
           sqlite3_result_int64(context, iVal);
         }
       }
       break;
     }
@@ -1021,12 +1030,13 @@
     }
   }
 }
 
 /*
-** toreal(X):  If X can be losslessly converted into a real number, then
-** do so and return that real number.  Otherwise return NULL.
+** toreal(X): If X is any value (integer, double, blob, or string) that can
+** be losslessly converted into a real number, then do so and return that
+** real number.  Otherwise return NULL.
 */
 #if defined(_MSC_VER)
 #pragma optimize("", off)
 #endif
 static void torealFunc(
@@ -1053,11 +1063,20 @@
       const unsigned char *zBlob = sqlite3_value_blob(argv[0]);
       if( zBlob ){
         int nBlob = sqlite3_value_bytes(argv[0]);
         if( nBlob==sizeof(double) ){
           double rVal;
-          memcpy(&rVal, zBlob, sizeof(double));
+          if( SQLITE_LITTLEENDIAN ){
+            int i;
+            unsigned char *zBlobRev = contextMalloc(context, nBlob);
+            if( !zBlobRev ) break;
+            for(i=0; i<nBlob; i++) zBlobRev[i] = zBlob[nBlob-1-i];
+            memcpy(&rVal, zBlobRev, sizeof(double));
+            sqlite3_free(zBlobRev);
+          }else{
+            memcpy(&rVal, zBlob, sizeof(double));
+          }
           sqlite3_result_double(context, rVal);
         }
       }
       break;
     }

Index: test/func4.test
==================================================================
--- test/func4.test
+++ test/func4.test
@@ -665,119 +665,93 @@
       SELECT toreal(x'[string repeat 01 $i]');
     }] {{}}
   }
 }
 
-proc swapHexBytes { value } {
-  if {[string length $value] % 2 != 0} {
-    error "value \"$value\" must have an even number of characters"
-  }
-  if {![string is xdigit -strict $value]} then {
-    error "value \"$value\" must contain only hexadecimal digits"
-  }
-  join [lreverse [regexp -all -inline {.{2}} $value]] ""
-}
-
-proc swapIntegerHexBytes { value } {
-  if {![info exists ::tcl_platform(byteOrder)] || \
-      $::tcl_platform(byteOrder) eq "littleEndian"} {
-    return $value
-  }
-  return [swapHexBytes $value]
-}
-
-proc swapDoubleHexBytes { value } {
-  if {![info exists ::tcl_platform(byteOrder)] || \
-      $::tcl_platform(byteOrder) ne "littleEndian"} {
-    return $value
-  }
-  return [swapHexBytes $value]
-}
-
-do_execsql_test func4-6.2.1 [subst {
-  SELECT tointeger(x'[swapIntegerHexBytes 0102030405060708]');
-}] {578437695752307201}
-do_execsql_test func4-6.2.2 [subst {
-  SELECT tointeger(x'[swapIntegerHexBytes 0807060504030201]');
-}] {72623859790382856}
+do_execsql_test func4-6.2.1 {
+  SELECT tointeger(x'0102030405060708');
+} {578437695752307201}
+do_execsql_test func4-6.2.2 {
+  SELECT tointeger(x'0807060504030201');
+} {72623859790382856}
 
 ifcapable floatingpoint {
-  do_execsql_test func4-6.3.1 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes ffefffffffffffff]');
-  }] {-1.7976931348623157e+308}
-  do_execsql_test func4-6.3.2 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 8010000000000000]');
-  }] {-2.2250738585072014e-308}
-  do_execsql_test func4-6.3.3 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes c000000000000000]');
-  }] {-2.0}
-  do_execsql_test func4-6.3.4 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes bff0000000000000]');
-  }] {-1.0}
-  do_execsql_test func4-6.3.5 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 8000000000000000]');
-  }] {-0.0}
-  do_execsql_test func4-6.3.6 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 0000000000000000]');
-  }] {0.0}
-  do_execsql_test func4-6.3.7 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 3ff0000000000000]');
-  }] {1.0}
-  do_execsql_test func4-6.3.8 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 4000000000000000]');
-  }] {2.0}
-  do_execsql_test func4-6.3.9 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 0010000000000000]');
-  }] {2.2250738585072014e-308}
-  do_execsql_test func4-6.3.10 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7fefffffffffffff]');
-  }] {1.7976931348623157e+308}
-  do_execsql_test func4-6.3.11 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 8000000000000001]');
-  }] {-5e-324}
-  do_execsql_test func4-6.3.12 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 800fffffffffffff]');
-  }] {-2.225073858507201e-308}
-  do_execsql_test func4-6.3.13 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 0000000000000001]');
-  }] {5e-324}
-  do_execsql_test func4-6.3.14 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 000fffffffffffff]');
-  }] {2.225073858507201e-308}
-  do_execsql_test func4-6.3.15 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes fff0000000000000]');
-  }] {-Inf}
-  do_execsql_test func4-6.3.16 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7ff0000000000000]');
-  }] {Inf}
-  do_execsql_test func4-6.3.17 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes fff8000000000000]');
-  }] {{}}
-  do_execsql_test func4-6.3.18 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes fff0000000000001]');
-  }] {{}}
-  do_execsql_test func4-6.3.19 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes fff7ffffffffffff]');
-  }] {{}}
-  do_execsql_test func4-6.3.20 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7ff0000000000001]');
-  }] {{}}
-  do_execsql_test func4-6.3.21 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7ff7ffffffffffff]');
-  }] {{}}
-  do_execsql_test func4-6.3.22 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes fff8000000000001]');
-  }] {{}}
-  do_execsql_test func4-6.3.23 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes ffffffffffffffff]');
-  }] {{}}
-  do_execsql_test func4-6.3.24 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7ff8000000000000]');
-  }] {{}}
-  do_execsql_test func4-6.3.25 [subst {
-    SELECT toreal(x'[swapDoubleHexBytes 7fffffffffffffff]');
-  }] {{}}
+  do_execsql_test func4-6.3.1 {
+    SELECT toreal(x'ffefffffffffffff');
+  } {-1.7976931348623157e+308}
+  do_execsql_test func4-6.3.2 {
+    SELECT toreal(x'8010000000000000');
+  } {-2.2250738585072014e-308}
+  do_execsql_test func4-6.3.3 {
+    SELECT toreal(x'c000000000000000');
+  } {-2.0}
+  do_execsql_test func4-6.3.4 {
+    SELECT toreal(x'bff0000000000000');
+  } {-1.0}
+  do_execsql_test func4-6.3.5 {
+    SELECT toreal(x'8000000000000000');
+  } {-0.0}
+  do_execsql_test func4-6.3.6 {
+    SELECT toreal(x'0000000000000000');
+  } {0.0}
+  do_execsql_test func4-6.3.7 {
+    SELECT toreal(x'3ff0000000000000');
+  } {1.0}
+  do_execsql_test func4-6.3.8 {
+    SELECT toreal(x'4000000000000000');
+  } {2.0}
+  do_execsql_test func4-6.3.9 {
+    SELECT toreal(x'0010000000000000');
+  } {2.2250738585072014e-308}
+  do_execsql_test func4-6.3.10 {
+    SELECT toreal(x'7fefffffffffffff');
+  } {1.7976931348623157e+308}
+  do_execsql_test func4-6.3.11 {
+    SELECT toreal(x'8000000000000001');
+  } {-5e-324}
+  do_execsql_test func4-6.3.12 {
+    SELECT toreal(x'800fffffffffffff');
+  } {-2.225073858507201e-308}
+  do_execsql_test func4-6.3.13 {
+    SELECT toreal(x'0000000000000001');
+  } {5e-324}
+  do_execsql_test func4-6.3.14 {
+    SELECT toreal(x'000fffffffffffff');
+  } {2.225073858507201e-308}
+  do_execsql_test func4-6.3.15 {
+    SELECT toreal(x'fff0000000000000');
+  } {-Inf}
+  do_execsql_test func4-6.3.16 {
+    SELECT toreal(x'7ff0000000000000');
+  } {Inf}
+  do_execsql_test func4-6.3.17 {
+    SELECT toreal(x'fff8000000000000');
+  } {{}}
+  do_execsql_test func4-6.3.18 {
+    SELECT toreal(x'fff0000000000001');
+  } {{}}
+  do_execsql_test func4-6.3.19 {
+    SELECT toreal(x'fff7ffffffffffff');
+  } {{}}
+  do_execsql_test func4-6.3.20 {
+    SELECT toreal(x'7ff0000000000001');
+  } {{}}
+  do_execsql_test func4-6.3.21 {
+    SELECT toreal(x'7ff7ffffffffffff');
+  } {{}}
+  do_execsql_test func4-6.3.22 {
+    SELECT toreal(x'fff8000000000001');
+  } {{}}
+  do_execsql_test func4-6.3.23 {
+    SELECT toreal(x'ffffffffffffffff');
+  } {{}}
+  do_execsql_test func4-6.3.24 {
+    SELECT toreal(x'7ff8000000000000');
+  } {{}}
+  do_execsql_test func4-6.3.25 {
+    SELECT toreal(x'7fffffffffffffff');
+  } {{}}
 }
 
 set tcl_precision $saved_tcl_precision
 unset saved_tcl_precision
 finish_test