Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-platform
Commits
8c26202a
Commit
8c26202a
authored
Apr 27, 2020
by
Steffen Michels
Browse files
Options
Browse Files
Download
Plain Diff
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
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
2 deletions
+7
-2
src/libraries/OS-Independent/Database/SQL/SQLite.icl
src/libraries/OS-Independent/Database/SQL/SQLite.icl
+2
-2
src/libraries/OS-Independent/Database/SQL/_SQLite.dcl
src/libraries/OS-Independent/Database/SQL/_SQLite.dcl
+1
-0
src/libraries/OS-Independent/Database/SQL/_SQLite.icl
src/libraries/OS-Independent/Database/SQL/_SQLite.icl
+4
-0
No files found.
src/libraries/OS-Independent/Database/SQL/SQLite.icl
View file @
8c26202a
...
...
@@ -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
View file @
8c26202a
...
...
@@ -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
View file @
8c26202a
...
...
@@ -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"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment