diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 2f860037f9..4d23025656 100644 --- a/harbour/ChangeLog +++ b/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. diff --git a/harbour/contrib/rddsql/sddoci/sddoci.c b/harbour/contrib/rddsql/sddoci/sddoci.c index a6cb90b929..be2f257bb6 100644 --- a/harbour/contrib/rddsql/sddoci/sddoci.c +++ b/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: diff --git a/harbour/src/vm/extrap.c b/harbour/src/vm/extrap.c index 180f05bc44..fba00ecd61 100644 --- a/harbour/src/vm/extrap.c +++ b/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"