fix bitrot in sqlite library
parent
01b0cae9a5
commit
19bc49ece3
|
@ -35,6 +35,7 @@ USE: compiler
|
||||||
USE: errors
|
USE: errors
|
||||||
USE: strings
|
USE: strings
|
||||||
USE: namespaces
|
USE: namespaces
|
||||||
|
USE: sequences
|
||||||
|
|
||||||
BEGIN-STRUCT: sqlite3
|
BEGIN-STRUCT: sqlite3
|
||||||
END-STRUCT
|
END-STRUCT
|
||||||
|
@ -172,7 +173,7 @@ END-STRUCT
|
||||||
#! Prepare a SQL statement. Returns the statement which
|
#! Prepare a SQL statement. Returns the statement which
|
||||||
#! can have values bound to parameters or simply executed.
|
#! can have values bound to parameters or simply executed.
|
||||||
#! TODO: Support multiple statements in the SQL string.
|
#! TODO: Support multiple statements in the SQL string.
|
||||||
dup string-length <sqlite3-stmt-indirect> dup >r
|
dup length <sqlite3-stmt-indirect> dup >r
|
||||||
<char*-indirect> sqlite3_prepare sqlite-check-result
|
<char*-indirect> sqlite3_prepare sqlite-check-result
|
||||||
r> sqlite3-stmt-indirect-pointer ;
|
r> sqlite3-stmt-indirect-pointer ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue