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

2012-01-12 00:12 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* src/rtl/memvarhb.prg
    % '&varname := value' -> __mvPut( varname, value )
    * formatting

  * contrib/hbrun/hbrun.prg
    ! formatting
This commit is contained in:
Viktor Szakats
2012-01-11 23:15:38 +00:00
parent cadbf0b829
commit 97b38b702d
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-01-12 00:12 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rtl/memvarhb.prg
% '&varname := value' -> __mvPut( varname, value )
* formatting
* contrib/hbrun/hbrun.prg
! formatting
2012-01-11 23:56 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rdd/dbtotal.prg
* contrib/hbqt/qtcore/hbqt_misc.prg

2
harbour/contrib/hbrun/hbrun.prg
View File

@@ -202,7 +202,7 @@ STATIC FUNCTION hbrun_extensionlist()
STATIC s_aList
IF s_aList == NIL
s_aList := iif( Type( "__HBRUN_EXTENSIONS()" ) == "UI", &("__hbrun_extensions()"), {} )
s_aList := iif( Type( "__HBRUN_EXTENSIONS()" ) == "UI", &( "__hbrun_extensions()" ), {} )
ASort( s_aList )
ENDIF

8
harbour/src/rtl/memvarhb.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* MEMVAR save/restore functions with >10 long variable name support.
*
* Copyright 2010 Viktor Szakats (harbour syenar.net)
* Copyright 2010 Viktor Szakats (harbour syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -190,7 +190,7 @@ FUNCTION HB_MVRESTORE( cFileName, lAdditive, cMask, lIncludeMask )
ENDIF
IF ! lAdditive
__MVClear()
__mvClear()
ENDIF
IF Set( _SET_DEFEXTENSIONS )
@@ -263,11 +263,11 @@ FUNCTION HB_MVRESTORE( cFileName, lAdditive, cMask, lIncludeMask )
IF xValue == NIL
xValue := item[ 2 ]
ENDIF
&cName := item[ 2 ]
__mvPut( cName, item[ 2 ] )
ENDIF
ENDIF
NEXT
__MVSETBASE()
__mvSetBase()
ENDIF
ELSE
FClose( fhnd )