fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-12-08 12:13 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* 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.
This commit is contained in:
Pritpal Bedi
2007-12-08 20:17:13 +00:00
parent 530c79ed47
commit ef27938e95
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/contrib/xhb/cstruct.prg
View File

@@ -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 } )