odbc: convert DSN string to alien before use in odbc-connect

char-rename
Alexander Iljin 2016-10-30 01:52:29 +03:00 committed by John Benediktsson
parent c78afe8c53
commit b260e0a4c3
1 changed files with 3 additions and 1 deletions

View File

@ -166,7 +166,9 @@ PRIVATE>
: odbc-connect ( env dsn -- dbc )
[ alloc-dbc-handle dup ] dip
f swap dup length 1024 temp-string 0 short <ref> SQL-DRIVER-NOPROMPT SQLDriverConnect
f swap ascii string>alien dup length
1024 temp-string 0 short <ref>
SQL-DRIVER-NOPROMPT SQLDriverConnect
succeeded? [ "odbc-connect failed" throw ] unless ;
: odbc-disconnect ( dbc -- )