On Mon, Sep 28, 2009 at 12:15 PM, Przemyslaw Czerpak <dru...@acn.waw.pl> wrote:
> It has to be rewritten.
> This function is buggy. It's illegal in Clipper and in [x]Harbour to
> modify string buffer returned by [hb]_parc() function.
> Recent modifications helps to locate such buggy code generating
> warnings during compilation.
Thanks, I'm trying to replace it with a simple prg like:
function bit( cString, nPos, lSet )
local lRetCode
local nString := bin2l( cString ) // <-- or bin2l, bin2w
if lSet == nil
lRetCode := hb_bittest( nString, nPos )
elseif lSet
cString := hb_bitset( nString, nPos )
else
cString := hb_bitreset( nString, nPos )
endif
return lRetCode
but I can't get the same results.
best regards,
Lorenzo
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
