steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

odbc: convert string to alien in odbc-prepare

char-rename
Alexander Iljin 2016-10-30 23:49:46 +03:00 committed by John Benediktsson
parent 667727bf0c
commit f72f116364
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/odbc/odbc.factor
View File

@ -154,7 +154,8 @@ PRIVATE>
SQLDisconnect succeeded? [ "odbc-disconnect failed" throw ] unless ; SQLDisconnect succeeded? [ "odbc-disconnect failed" throw ] unless ;
: odbc-prepare ( dbc string -- statement ) : odbc-prepare ( dbc string -- statement )
[ alloc-stmt-handle dup ] dip dup length SQLPrepare [ alloc-stmt-handle dup ] dip ascii string>alien
dup length SQLPrepare
succeeded? [ "odbc-prepare failed" throw ] unless ; succeeded? [ "odbc-prepare failed" throw ] unless ;
: odbc-free-statement ( statement -- ) : odbc-free-statement ( statement -- )