Fixed SQLDescribeCol (odbc-sql-describe-col)
This commit is contained in:
parent
9772b62b54
commit
a76fdbfe59
|
@ -2063,9 +2063,13 @@ s48_value struct_to_sql_timestamp_record(SQL_TIMESTAMP_STRUCT *ts)
|
|||
|
||||
void s48_init_odbc(void)
|
||||
{
|
||||
/* bindings for record types */
|
||||
S48_GC_PROTECT_GLOBAL(odbc_diag_record_type);
|
||||
odbc_diag_record_type = s48_get_imported_binding("odbc-diag");
|
||||
|
||||
S48_GC_PROTECT_GLOBAL(odbc_column_record_type);
|
||||
odbc_column_record_type = s48_get_imported_binding("odbc-column");
|
||||
|
||||
/* PART 1 */
|
||||
S48_EXPORT_FUNCTION(odbc_alloc_environment_handle);
|
||||
S48_EXPORT_FUNCTION(odbc_alloc_connection_handle);
|
||||
|
|
|
@ -317,7 +317,7 @@ s48_value struct_to_sql_time_record(SQL_TIME_STRUCT *ts);
|
|||
|
||||
/* convert Scheme sql-timestamp record to SQL_TIMESTAMP_STRUCT */
|
||||
void sql_timestamp_record_to_struct(s48_value sql_timestamp,
|
||||
SQL_TIMESTAMP_STRUCT *ts);
|
||||
SQL_TIMESTAMP_STRUCT *ts);
|
||||
|
||||
void s48_init_odbc(void);
|
||||
|
||||
|
|
Loading…
Reference in New Issue