Merge branch 'sqlite-32-bit-integers' into 'master'

SQLite support for 32-bit Clean

See merge request !326

src/libraries/OS-Independent/Database/SQL/SQLite.icl

@@ -111,7 +111,7 @@ where
                 (SQLVChar x)        = sqlite3_bind_text stmt_ptr i x (size x) SQLITE_TRANSIENT
                 (SQLVVarchar x)     = sqlite3_bind_text stmt_ptr i x (size x) SQLITE_TRANSIENT
                 (SQLVText x)        = sqlite3_bind_text stmt_ptr i x (size x) SQLITE_TRANSIENT
-                (SQLVInteger x)     = sqlite3_bind_int64 stmt_ptr i x
+                (SQLVInteger x)     = IF_INT_64_OR_32 sqlite3_bind_int64 sqlite3_bind_int stmt_ptr i x
                 (SQLVReal x)        = sqlite3_bind_double stmt_ptr i x
                 (SQLVFloat x)       = sqlite3_bind_double stmt_ptr i x
                 (SQLVDouble x)      = sqlite3_bind_double stmt_ptr i x
@@ -121,7 +121,7 @@ where
                 (SQLVTime t)
                     # x = toString t
                     = sqlite3_bind_text stmt_ptr i x (size x) SQLITE_TRANSIENT
-                (SQLVTimestamp x)   = sqlite3_bind_int64 stmt_ptr i x
+                (SQLVTimestamp x)   = IF_INT_64_OR_32 sqlite3_bind_int64 sqlite3_bind_int stmt_ptr i x
                 (SQLVDatetime d t)
                     # x = toString d +++ " " +++ toString t
                     = sqlite3_bind_text stmt_ptr i x (size x) SQLITE_TRANSIENT

src/libraries/OS-Independent/Database/SQL/_SQLite.dcl

@@ -23,6 +23,7 @@ sqlite3_prepare :: !Pointer !{#Char} !Int -> (!Int,!Pointer,!Pointer)
 sqlite3_bind_null :: !Pointer !Int -> Int
 sqlite3_bind_text :: !Pointer !Int !{#Char} !Int !Pointer -> Int
 sqlite3_bind_blob :: !Pointer !Int !{#Char} !Int !Pointer -> Int
+sqlite3_bind_int :: !Pointer !Int !Int -> Int
 sqlite3_bind_int64 :: !Pointer !Int !Int -> Int
 sqlite3_bind_double :: !Pointer !Int !Real -> Int
 sqlite3_step :: !Pointer -> Int

src/libraries/OS-Independent/Database/SQL/_SQLite.icl

@@ -37,6 +37,10 @@ sqlite3_bind_blob :: !Pointer !Int !{#Char} !Int !Pointer -> Int
 sqlite3_bind_blob a0 a1 a2 a3 a4 = code {
     ccall sqlite3_bind_blob "pIsIp:I"
 }
+sqlite3_bind_int :: !Pointer !Int !Int -> Int
+sqlite3_bind_int a0 a1 a2 = code {
+    ccall sqlite3_bind_int "pII:I"
+}
 sqlite3_bind_int64 :: !Pointer !Int !Int -> Int
 sqlite3_bind_int64 a0 a1 a2 = code {
     ccall sqlite3_bind_int64 "pII:I"