Changeset 4644707 in tol for tol/dbdrivers/libtolodbc.c

Timestamp:

Sep 23, 2016, 11:43:33 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

03ff056

Parents:

f265997

Message:

Refs #1930
Se usa un double en lugar del long double.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7320 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/dbdrivers/libtolodbc.c (modified) (3 diffs)

tol/dbdrivers/libtolodbc.c

@@ -588 +588 @@
   SQLSMALLINT _smallint;       // for SQL_SMALLINT
   // unused variable ‘_bigint’ [-Wunused-variable]
-  // TOLSQL_BIGINT _bigint;       // for SQL_BIGINT
+  // TOLSQL_BIGINT _bigint;    // for SQL_BIGINT
   SQLINTEGER _integer;         // for SQL_INTEGER
-  //SQLCHAR *_decimal;           // for SQL_DECIMAL SQL_NUMERIC
-  SQLCHAR   szNumeric[256];    // for SQL_DECIMAL SQL_NUMERIC SQL_BIGINT
+  //SQLCHAR *_decimal;         // for SQL_DECIMAL SQL_NUMERIC
+  SQLCHAR szNumeric[256];      // for SQL_DECIMAL SQL_NUMERIC SQL_BIGINT
+  double _numeric = 0.0;       // ...
   SQLDOUBLE _double;           // for SQL_DOUBLE, SQL_FLOAT
   SQLREAL _real;               // for SQL_REAL
@@ -604 +605 @@
 
   // returned data initilization
-  *realval = 0.0;
+  //(pgea) *realval = 0.0;
 
   // allocate space depending on the field type
@@ -677 +678 @@
     case SQL_DECIMAL: case SQL_NUMERIC: case SQL_BIGINT:
       //sscanf((char *)_decimal, "%Lf", realval); break;
-      sscanf( (const char *)szNumeric, "%Lf", realval); break;
+      sscanf((const char *)szNumeric, "%lf", &_numeric); 
+      *realval = (long double)(_numeric); break;
     case SQL_DOUBLE: case SQL_FLOAT:
       *realval = (long double)(_double); break;