From Newsgroup: comp.lang.xharbour

Hi,

I just found a strange behavior in METHOD INLINE clause. This is a sample:

#include "Hbclass.ch"


FUNCTION MAIN()

RETURN NIL


CLASS Test

METHOD Test() INLINE 1

ENDCLASS

The PPO file shows this for Harbour:

_HB_MEMBER Test(); oClass:AddInline( "Test", {|Self | ( ( Self ) ), 1 }, nScope + iif( .F., 8, 0 ) + iif( .F., 256, 0 ) + iif( .F., 2048, 0 ) )

And this other (longer) for xHarbour:

_HB_MEMBER Test(); IIF( .F., s_oClass:ModInline( "Test", {|Self | Self,
1 }, nScope + IIF( .F., 16, 0 ) + IIF( .F., 1024, 0 ), .F. ), s_oClass:AddInline( "Test", {|Self | Self, 1 }, nScope + IIF( .F., 16, 0
) + IIF( .F., 1024, 0 ), .F. ) )

Is it normal?
--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour

This is something strange too:

FUNCTION MAIN()

LOCAL oTest := Test()

? AT( "", "Test" )
? AT( "", oTest:Test )

INKEY( 0 )

RETURN NIL


#include "Hbclass.ch"


CLASS Test

DATA Test INIT "Test"

ENDCLASS

The result is:

1
0

Shouldn't be the same value? With Harbour I get:

0
0
--
Enrico Maria Giordano

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

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour



Il 10/07/2024 13:28, Enrico Maria Giordano ha scritto:

This is something strange too:

FUNCTION MAIN()

-a-a-a LOCAL oTest := Test()

-a-a-a ? AT( "", "Test" )
-a-a-a ? AT( "", oTest:Test )

-a-a-a INKEY( 0 )

-a-a-a RETURN NIL

#include "Hbclass.ch"

CLASS Test

-a-a-a DATA Test INIT "Test"

-a-a-a ENDCLASS

The result is:

1
0

Shouldn't be the same value? With Harbour I get:

0
0

I was expecting:

1
1
--
Enrico Maria Giordano

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

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour

Another sample:

FUNCTION MAIN()

LOCAL cVar := "Test"
LOCAL oTest := Test()

? AT( "", "Test" )
? AT( "", cVar )
? AT( "", oTest:Test )

INKEY( 0 )

RETURN NIL


#include "Hbclass.ch"


CLASS Test

DATA Test INIT "Test"

ENDCLASS

Result:

1
0
0

Harbour:

0
0
0

Expected:

1
1
1

An empty string is contained in any string.
--
Enrico Maria Giordano

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

--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour

Enrico Maria Giordano wrote:

Another sample:

FUNCTION MAIN()

LOCAL cVar := "Test"
LOCAL oTest := Test()

? AT( "", "Test" )
? AT( "", cVar )
? AT( "", oTest:Test )

INKEY( 0 )

RETURN NIL

#include "Hbclass.ch"

CLASS Test

DATA Test INIT "Test"

ENDCLASS

Result:

1
0
0

Harbour:

0
0
0

Expected:

1
1
1

An empty string is contained in any string.

The inconsistency is becaussse when using the CONSTANT values "" and
"Test" the result is generated in COMPILE TIME by the compiler, and it obviously has a minor bug - comapred to the RTL implementtation.
The decision to have 0 vs. 1 I suppose iss arbitrary - both makes sense
it just has to be consistent. :)
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour



Il 18/07/2024 20:54, Ron Pinkas ha scritto:

The inconsistency is becaussse when using the CONSTANT values "" and
"Test" the result is generated in COMPILE TIME by the compiler, and it obviously has a minor bug - comapred to the RTL implementtation.
The decision to have 0 vs. 1 I suppose iss arbitrary - both makes sense
it just has to be consistent. :)

Thank you. Can you fix it?
--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour



Il 31/07/2024 17:21, Ron Pinkas ha scritto:

Thank you. Can you fix it?

Enrico, sorry for the delayed reply - I have been very busy the past few montths. I don't know whenn I willl have the time. I will try when I can.

Take your time, no hurry. Thank you!
--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.lang.xharbour

Enrico Maria Giordano wrote:

Il 18/07/2024 20:54, Ron Pinkas ha scritto:

The inconsistency is becaussse when using the CONSTANT values "" and
"Test" the result is generated in COMPILE TIME by the compiler, and it obviously has a minor bug - comapred to the RTL implementtation.
The decision to have 0 vs. 1 I suppose iss arbitrary - both makes sense
it just has to be consistent. :)

Thank you. Can you fix it?

Enrico, sorry for the delayed reply - I have been very busy the past few montths. I don't know whenn I willl have the time. I will try when I can.
--- Synchronet 3.21d-Linux NewsLink 1.2