fix bitrot in sqlite library

cvs
Chris Double 2005-04-30 03:18:56 +00:00
parent 01b0cae9a5
commit 19bc49ece3
1 changed files with 2 additions and 1 deletions

View File

@ -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 ;