RetroBBS - comp.lang.xharbour - Re: Bug in PValue() function?

Bug in PValue() function?

<utm9hp$3i1m1$1@dont-email.me>

https://www.rocksolidbbs.com/devel/article-flat.php?id=18667&group=comp.lang.xharbour#18667

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.giordano@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Bug in PValue() function?
Date: Sat, 23 Mar 2024 11:05:46 +0100
Organization: A noiseless patient Spider
Lines: 100
Message-ID: <utm9hp$3i1m1$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sat, 23 Mar 2024 10:05:45 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="e30daaaa43a425dafdb61249ca062052";
logging-data="3737281"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+8mfA6NZIsMIdkqYHyesKg"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:8FwSZJK6+pQ3rpaxGOFykOhAm74=
Content-Language: it

by: Enrico Maria Giordan - Sat, 23 Mar 2024 10:05 UTC

This is a sample (kindly provided by Rao). Ron can you look at it?

function Main()

local a := 20
local b := 0

Add500( a, @b )
? Version(), b // 520 Harbour
// 0 xHarbour

Inkey( 0 )

return nil

function add500(...)

PValue( 2, PValue( 1 ) + 500 )

return nil

// This is from pvalue.c

#pragma BEGINDUMP

#include "hbvmopt.h"
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbstack.h"

HB_FUNC( PVALUE )
{ USHORT uiParam = ( USHORT ) hb_parni( 1 ), uiParams;
PHB_ITEM * pBase = HB_VM_STACK.pItems + ( hb_stackBaseItem()
)->item.asSymbol.pCargo->stackbase; /* Skip function + self */

uiParams = ( *pBase )->item.asSymbol.pCargo->arguments;

if( uiParam && uiParam <= uiParams ) /* Valid number */
{
USHORT uiOffset;
PHB_ITEM pItem;

if( ( *pBase )->item.asSymbol.pCargo->params == HB_VAR_PARAM_FLAG )
uiOffset = ( *pBase )->item.asSymbol.pCargo->locals;
else
uiOffset = 0;

pItem = *( pBase + 1 + uiParam + uiOffset );

hb_itemReturn( pItem );

if( hb_pcount() > 1 && HB_IS_BYREF( pItem ) )
hb_itemCopy( pItem, hb_param( 2, HB_IT_ANY ) );
}
else
hb_ret(); /* return NIL */
}

#pragma ENDDUMP

// This is from Harbour pvalue.c

/*
#include "hbvmint.h"
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbstack.h"

HB_FUNC( HB_PVALUE )
{ HB_ISIZ nOffset =
hb_stackBaseItem()->item.asSymbol.stackstate->nBaseItem;
HB_USHORT uiParam = ( HB_USHORT ) hb_parni( 1 );

if( uiParam && uiParam <= hb_stackItem( nOffset
)->item.asSymbol.paramcnt )
{
PHB_ITEM pItem = hb_stackItem( nOffset + 1 + uiParam );
if( hb_pcount() > 1 )
hb_itemCopyToRef( pItem, hb_param( 2, HB_IT_ANY ) );
hb_itemReturn( HB_IS_BYREF( pItem ) ? hb_itemUnRef( pItem ) :
pItem );
}
} */

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Re: Bug in PValue() function?

<uto21q$3vtel$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18668&group=comp.lang.xharbour#18668

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: rhfsystems@yahoo.com.br (Reynaldo Henrique)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Sat, 23 Mar 2024 23:09:54 -0300
Organization: A noiseless patient Spider
Lines: 20
Message-ID: <uto21q$3vtel$1@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: quoted-printable
Injection-Date: Sun, 24 Mar 2024 02:10:02 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="75822d178699cdafcdceae86a5618fa8";
logging-data="4191701"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18SXDfvQkPGgeWuw8RRNm1BWtmuGyd3TrQ="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:dn+onlvD93QFbsyeGaHAMH0gDY0=
X-Antivirus-Status: Clean
X-Antivirus: AVG (VPS 240323-4, 23/3/2024), Outbound message
In-Reply-To: <utm9hp$3i1m1$1@dont-email.me>
Content-Language: pt-BR

by: Reynaldo Henrique - Sun, 24 Mar 2024 02:09 UTC

This error appears:

Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero
Technologies, Inc.
Error: Unresolved external '_hb_stackST' referenced from
C:\XHARBOUR\TESTS\OBJ\PVALUE.OBJ
Error: Unable to perform link

Thanks,

Reynaldo Henrique

--
O software antivírus AVG realizou uma checagem de vírus neste e-mail.
www.avg.com

Re: Bug in PValue() function?

<utootc$85hc$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18669&group=comp.lang.xharbour#18669

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.giordano@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Sun, 24 Mar 2024 09:40:14 +0100
Organization: A noiseless patient Spider
Lines: 22
Message-ID: <utootc$85hc$1@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me> <uto21q$3vtel$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 24 Mar 2024 08:40:12 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="ee3f863e9f75b7b248162183fe411963";
logging-data="267820"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/hBYobbeHCuvLVmilUiM1C"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:VQ0LCT9cNkL1GTbZ4bEseihqKl8=
Content-Language: it
In-Reply-To: <uto21q$3vtel$1@dont-email.me>

by: Enrico Maria Giordan - Sun, 24 Mar 2024 08:40 UTC

Il 24/03/2024 03:09, Reynaldo Henrique ha scritto:

> This error appears:
>
> Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero
> Technologies, Inc.
> Error: Unresolved external '_hb_stackST' referenced from
> C:\XHARBOUR\TESTS\OBJ\PVALUE.OBJ
> Error: Unable to perform link

I don't get any errors. Please show the batch you are using to compile.

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Re: Bug in PValue() function?

<utqd2k$l6q6$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18672&group=comp.lang.xharbour#18672

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!news.hispagatos.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: rhfsystems@yahoo.com.br (Reynaldo Henrique)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Sun, 24 Mar 2024 20:30:20 -0300
Organization: A noiseless patient Spider
Lines: 26
Message-ID: <utqd2k$l6q6$1@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me> <uto21q$3vtel$1@dont-email.me>
<utootc$85hc$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: quoted-printable
Injection-Date: Mon, 25 Mar 2024 00:30:28 +0100
Injection-Info: dont-email.me; posting-host="5c1e8ba0e307ce5bf661bae9373afd53";
logging-data="695110"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1841muX0rC+BAQAvoNw1blExXoEeBequPw="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:WHWm4IRt6ONXxPuFNmI3eoX/pms=
X-Antivirus-Status: Clean
In-Reply-To: <utootc$85hc$1@dont-email.me>
X-Antivirus: AVG (VPS 240324-8, 24/3/2024), Outbound message
Content-Language: pt-BR

by: Reynaldo Henrique - Sun, 24 Mar 2024 23:30 UTC

Em 24/03/2024 05:40, Enrico Maria Giordano escreveu:
>
>
> Il 24/03/2024 03:09, Reynaldo Henrique ha scritto:
>
>> This error appears:
>>
>> Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero
>> Technologies, Inc.
>> Error: Unresolved external '_hb_stackST' referenced from
>> C:\XHARBOUR\TESTS\OBJ\PVALUE.OBJ
>> Error: Unable to perform link
>
> I don't get any errors. Please show the batch you are using to compile.
>

I used bld_b32.bat from xharbour.

Thnaks,

Reynaldo Henrique

--
O software antivírus AVG realizou uma checagem de vírus neste e-mail.
www.avg.com

Re: Bug in PValue() function?

<utrdpf$vpnr$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18673&group=comp.lang.xharbour#18673

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.giordano@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Mon, 25 Mar 2024 09:48:48 +0100
Organization: A noiseless patient Spider
Lines: 20
Message-ID: <utrdpf$vpnr$1@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me> <uto21q$3vtel$1@dont-email.me>
<utootc$85hc$1@dont-email.me> <utqd2k$l6q6$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 25 Mar 2024 09:48:48 +0100
Injection-Info: dont-email.me; posting-host="02a4dc77ef9b870fa83899fab6abe834";
logging-data="1042171"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/UzhrrjPv0Brkv1b5ePknr"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:3VVRSeKSZviyGmoj+pwI5jRxP0Q=
Content-Language: it
In-Reply-To: <utqd2k$l6q6$1@dont-email.me>

by: Enrico Maria Giordan - Mon, 25 Mar 2024 08:48 UTC

Il 25/03/2024 00:30, Reynaldo Henrique ha scritto:

>> I don't get any errors. Please show the batch you are using to compile.
>
> I used bld_b32.bat from xharbour.

What is bld_b32.bat? I can't find it in the xHarbour repository. In
order to help you, I need a little PRG and the compile batch to
replicate the problem here.

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Re: Bug in PValue() function?

<utrei3$104u0$1@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18674&group=comp.lang.xharbour#18674

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.giordano@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Mon, 25 Mar 2024 10:01:55 +0100
Organization: A noiseless patient Spider
Lines: 24
Message-ID: <utrei3$104u0$1@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me> <uto21q$3vtel$1@dont-email.me>
<utootc$85hc$1@dont-email.me> <utqd2k$l6q6$1@dont-email.me>
<utrdpf$vpnr$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 25 Mar 2024 10:01:55 +0100
Injection-Info: dont-email.me; posting-host="02a4dc77ef9b870fa83899fab6abe834";
logging-data="1053632"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18cTK4U6PMD8thrySYTfHsT"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:DIcTHfM+KWlIUy2Ks/jZ8SZ6eDE=
In-Reply-To: <utrdpf$vpnr$1@dont-email.me>
Content-Language: it

by: Enrico Maria Giordan - Mon, 25 Mar 2024 09:01 UTC

Il 25/03/2024 09:48, Enrico Maria Giordano ha scritto:

>> I used bld_b32.bat from xharbour.
>
> What is bld_b32.bat? I can't find it in the xHarbour repository. In
> order to help you, I need a little PRG and the compile batch to
> replicate the problem here.

Found! Do you mean this?

bld_bc.bat %1 %2 %3 %4 %5 %6 %7 %8 %9

I don't think it is working. What do you want to do exactly?

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Re: Bug in PValue() function?

<utrel4$104u0$2@dont-email.me>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=18675&group=comp.lang.xharbour#18675

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.giordano@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Re: Bug in PValue() function?
Date: Mon, 25 Mar 2024 10:03:32 +0100
Organization: A noiseless patient Spider
Lines: 21
Message-ID: <utrel4$104u0$2@dont-email.me>
References: <utm9hp$3i1m1$1@dont-email.me> <uto21q$3vtel$1@dont-email.me>
<utootc$85hc$1@dont-email.me> <utqd2k$l6q6$1@dont-email.me>
<utrdpf$vpnr$1@dont-email.me> <utrei3$104u0$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 25 Mar 2024 10:03:32 +0100
Injection-Info: dont-email.me; posting-host="02a4dc77ef9b870fa83899fab6abe834";
logging-data="1053632"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19pqc7xGdI4Pb1gxfDvqnio"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:Qyr+kfXRHQvBAfwNn5ffl4fMVGs=
Content-Language: it
In-Reply-To: <utrei3$104u0$1@dont-email.me>

by: Enrico Maria Giordan - Mon, 25 Mar 2024 09:03 UTC

Il 25/03/2024 10:01, Enrico Maria Giordano ha scritto:

> Found! Do you mean this?
>
> bld_bc.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
>
> I don't think it is working. What do you want to do exactly?

If you just want to compile and run a single PRG then I can show you a
simple batch to do that. Let me know.

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Type louder, please.

devel / comp.lang.xharbour / Re: Bug in PValue() function?

Subject	Author
Bug in PValue() function?	Enrico Maria Giordano
Re: Bug in PValue() function?	Reynaldo Henrique
Re: Bug in PValue() function?	Enrico Maria Giordano
Re: Bug in PValue() function?	Reynaldo Henrique
Re: Bug in PValue() function?	Enrico Maria Giordano
Re: Bug in PValue() function?	Enrico Maria Giordano
Re: Bug in PValue() function?	Enrico Maria Giordano