Linha em Clipper 5.2e dá Erro de parâmetros no Harbour 2.1

[ricardo-barros]

Olá, colegas.

O código a seguir funciona perfeitamente em Clipper 5.2e

If ! Com_open(2, 4000, 4000)
? "Porta serial não pode ser aberta"
Endif

No Harbour 2.1 dá "erro nos parâmetros: condicional"
O que mudou na sintaxe desta função?

[sygecom]

Tente usar a versão mais atual do Harbour, essa parte de comunicação serial foi implantado no Harbour não faz muito tempo, talvez houve algum ajuste nas ultimas versões.

[asimoes]

Função COM_OPEN da lib CT

Comentário no ChangeLog
In COM_OPEN() only 1-st parameter is significant, input/output buffer
sizes and trap mode parameters are ignored

Veja os comentários na função.
HB_FUNC( COM_OPEN )
{
int iPort = hb_parni( 1 );
/* TODO: add support for <nBufferIn> */
/* TODO: add support for <nBufferOut> */
/* TODO: add support for <lTrapMode> */
hb_comClose( iPort );
hb_retl( hb_comOpen( iPort ) != -1 );
}