2010-02-28 12:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* contrib/rddsql/sddoci/sddoci.c
    ! Fixed handling of numeric types widths and decimals.
    ; This marks last known TODO/TOFIX as DONE.

  * src/vm/extrap.c
    + Minor

harbour/ChangeLog

@@ -17,6 +17,14 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-02-28 12:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/rddsql/sddoci/sddoci.c
+    ! Fixed handling of numeric types widths and decimals.
+    ; This marks last known TODO/TOFIX as DONE.
+
+  * src/vm/extrap.c
+    + Minor
+
 2010-02-28 11:20 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/rddsql/sqlbase.c
     ! Fixed crash on close when connection could not be made.
@@ -120,7 +128,7 @@
     + Finished type mapping and value translation.
     ; Not being an Oracle user, I only have the few sample
       tables, so no testing was made with these types.
-    ; TOFIX: decimal position retrieval is currently wrong.
+    ; TOFIX: decimal position retrieval is currently wrong. [DONE]
     ; TOFIX: date/time/timestamp doesn't seem to get through. [DONE]
 
   * config/win/global.mk
@@ -148,8 +156,7 @@
             calls. We may change this later to some lib specific cp.
     ; TOFIX: Warnings are showing up in non-UNICODE mode:
              odbc.c:438: warning: pointer targets in passing argument 2 of 'hb_storstr' differ in signedness
-             Couldn't find an optimal way to pacify them (also in sddodbc).
-             Can someone help?
+             Couldn't find an optimal way to pacify them (also in sddodbc). [DONE]
 
   * include/hbdefs.h
     + HB_TCHAR_* macros are again only defined for win/wce targets.

harbour/contrib/rddsql/sddoci/sddoci.c

@@ -369,6 +369,8 @@ static HB_ERRCODE ocilibOpen( SQLBASEAREAP pArea )
 
          case OCI_CDT_NUMERIC:
            pFieldInfo.uiType = HB_FT_LONG;
+           pFieldInfo.uiLen = ( HB_USHORT ) OCI_ColumnGetPrecision( col );
+           pFieldInfo.uiDec = ( HB_USHORT ) OCI_ColumnGetScale( col );
            break;
 
          case OCI_CDT_LONG:

harbour/src/vm/extrap.c

@@ -449,7 +449,7 @@ static ULONG _System hb_os2ExceptionHandler( PEXCEPTIONREPORTRECORD       pExcep
       fprintf( stderr, HB_I_("\nException %lx at address %p \n"), pExceptionInfo->ExceptionNum, pExceptionInfo->ExceptionAddress );
 
       fprintf( stderr,
-         "\n\n"
+         "\n"
          "    Exception Code:%08X\n"
          "    Exception Address:%08X\n"
          "    EAX:%08X  EBX:%08X  ECX:%08X  EDX:%08X\n"