Commit 8c26202a authored by Steffen Michels's avatar Steffen Michels

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

SQLite support for 32-bit Clean

See merge request !326
parents caddd5f6 71c3d38e
Pipeline #41869 passed with stage
in 1 minute and 52 seconds
......@@ -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
......
......@@ -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
......
......@@ -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"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment