From ef48cb6d962a71dfb9821317883fd1cb7ac8e5e4 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Wed, 8 Nov 2006 16:19:59 +0000 Subject: [PATCH] 2006-11-08 17:20 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/vm/classes.c ! fixed type checking for "string" type. It should be translate to character not symbol item type. --- harbour/ChangeLog | 5 +++++ harbour/source/vm/classes.c | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8f380519ab..2ba0c2cef0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ + Someone should rename the following files into utils/hbpp + ppcomp.c -> hbppcomp.c + pplib.c -> hbpplib.c + ppcore.c -> hbppcore.c + pptable.c -> hbpptable.c 2006-11-08 17:20 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/vm/classes.c diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index 35b0c96cd4..dd3db7432b 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -1924,7 +1924,10 @@ static HB_TYPE hb_clsGetItemType( PHB_ITEM pItem ) case 'S': case 's': - return HB_IT_SYMBOL; + if( hb_strnicmp( hb_itemGetCPtr( pItem ), "str", 3 ) == 0 ) + return HB_IT_STRING; + else + return HB_IT_SYMBOL; } } else if( HB_IS_ARRAY( pItem ) )