fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-07-23 10:56:09 +00:00
parent 06274e912c
commit 901c7475c1
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990723-06:39 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/transfrm.c
* changed GetDynSym to hb_GetDynSym (again)
19990723-12:07 Antonio Linares <alinares@fivetech.com>
* terminal.b32
* Fixed for Win32 console mode Harbour apps

4
harbour/source/rtl/transfrm.c
View File

@@ -220,7 +220,7 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
bEmpty = !dPush && ( iPicFlags & PF_EMPTY ); /* Suppress 0 */
PushSymbol ( GetDynSym( "STR" )->pSymbol ); /* Push STR function */
PushSymbol ( hb_GetDynSym( "STR" )->pSymbol ); /* Push STR function */
PushNil (); /* Function call. No object */
PushDouble ( dPush, iDecimals ); /* Push value to transform */
@@ -366,7 +366,7 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
*/
PHB_ITEM NumDefault( double dValue )
{ /* Default number */
PushSymbol ( GetDynSym( "STR" )->pSymbol ); /* Push STR function */
PushSymbol ( hb_GetDynSym( "STR" )->pSymbol ); /* Push STR function */
PushNil (); /* Function call. No object */
PushDouble ( dValue, hb_set.HB_SET_DECIMALS );