From f72f11636447923abd5ecb8bb7f34b903990acdb Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Sun, 30 Oct 2016 23:49:46 +0300 Subject: [PATCH] odbc: convert string to alien in odbc-prepare --- extra/odbc/odbc.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor index cd621f0099..e13b969cbc 100644 --- a/extra/odbc/odbc.factor +++ b/extra/odbc/odbc.factor @@ -154,7 +154,8 @@ PRIVATE> SQLDisconnect succeeded? [ "odbc-disconnect failed" throw ] unless ; : 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 ; : odbc-free-statement ( statement -- )