From ef27938e957ad3efa079eca34055a93143ed5909 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 8 Dec 2007 20:17:13 +0000 Subject: [PATCH] 2007-12-08 12:13 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/xhb/cstruct.prg + #include 'xhb.ch' ! Line#259 : cSynon[1] == '*' => left( cSynon,1 ) == '*' Now C Structure support in Harbour is exactly like xHarbour. Tested. --- harbour/contrib/xhb/cstruct.prg | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/harbour/contrib/xhb/cstruct.prg b/harbour/contrib/xhb/cstruct.prg index 28927bd3ae..cf22e37e85 100644 --- a/harbour/contrib/xhb/cstruct.prg +++ b/harbour/contrib/xhb/cstruct.prg @@ -53,6 +53,7 @@ #include "cstruct.ch" #include "hboo.ch" #include "error.ch" +#include "xhb.ch" #define CLASS_PROPERTIES 6 @@ -256,7 +257,7 @@ Procedure HB_CStructureCSyntax( cStructure, aDefinitions, cTag, cSynonList, nAli IF ! Empty( cSynonList ) FOR EACH cSynon IN HB_aTokens( cSynonList ) - IF cSynon[1] == '*' + IF left( cSynon,1 ) == '*' aAdd( s_aSynonyms, { Upper( SubStr( cSynon, 2 ) ), nID + CTYPE_STRUCTURE_PTR } ) ELSE aAdd( s_aSynonyms, { Upper( cSynon ), nID + CTYPE_STRUCTURE } )