2d0ee39151
* src/vm/dynsym.c
! __DYNSGETINDEX() fixed to return 1-based indexes in sync
with rest of API class, also fixing the issue that zero
value was used to indicate error (name not found) as well.
Fixes #3606911 by Kevin Carmody
https://sourceforge.net/tracker/?func=detail&aid=3606911&group_id=681&atid=100681
[INCOMPATIBLE]
* README.txt
* config/global.mk
* utils/hbmk2/hbmk2.prg
% deleted macro support in HB_INSTALL_PREFIX envvar value.
it was very niche feature, and {hb_top} is no longer
needed to be able to use Harbour, since it works without
'install' as is. INCOMPATIBLE in the unlikely case you
used this.
(it also clears a related hbmk2 bug and a TOFIX in code)
* utils/hbmk2/hbmk2.prg
+ documented another -vcshead= feature
* src/rtl/hbfilehi.prg
! hb_DirSepToOS() fixed to return empty string instead of RTE
when wrong type is passed
* contrib/xhb/hbcompat.ch
* include/harbour.hbx
* src/rtl/profiler.prg
* src/rtl/tclass.prg
* src/rtl/tsymbol.prg
* tests/dynsym.prg
* tests/lang2po.hb
* utils/hbmk2/hbmk2.prg
! fixed casing of __dyns*() function names
24 lines
377 B
Plaintext
24 lines
377 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nCount := __dynsCount()
|
|
LOCAL nPos
|
|
|
|
FOR nPos := 1 TO nCount
|
|
? __dynsGetName( nPos )
|
|
NEXT
|
|
|
|
nPos := __dynsGetIndex( "MAIN" )
|
|
? "MAIN", nPos
|
|
|
|
? __dynsGetName( nPos )
|
|
? __dynsGetName()
|
|
? __dynsGetName( 0 )
|
|
? __dynsGetName( 100000 )
|
|
? __dynsGetName( __dynsGetIndex( "HB_THISDOESNTEXIST_" ) )
|
|
|
|
RETURN
|