De *.C Para *.Obj en BCC74 no funciona más.

[Enrico Maria Giordano]

Dear Enrico,

Could you please upload it to https://github.com/FiveTechSoft/harbour_and_xharbour_builds ?

many thanks

Done: https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc760_64bits_20230707.zip

Please test it. I am not sure it works properly.

[Antonio Linares]

Dear Enrico,

great!

going to test it...

[Enrico Maria Giordano]

32-bit version: https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc760_32bits_20230707.zip

[Eroni]

Dear
Any ideas on how I could resolve this error?

Code: Select all  Expand view

static uint16_t crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value ) {

    uint16_t crc;
    uint16_t tmp;
    uint16_t short_c;
    const unsigned char *ptr;
    size_t a;

    if ( ! crc_tabccitt_init ) init_crcccitt_tab();

    crc = start_value;
    ptr = input_str;

    if ( ptr != NULL ) for (a=0; a<num_bytes; a++) {

        short_c = 0x00ff & (unsigned short) *ptr;     // Conversion may lose significant digits in function crc_ccitt_generic
        tmp     = (crc >> 8) ^ short_c;               // Conversion may lose significant digits in function crc_ccitt_generic
        crc     = (crc << 8) ^ crc_tabccitt[tmp];     // Conversion may lose significant digits in function crc_ccitt_generic

        ptr++;
    }

    return crc;
 

Thanks in advance

[Enrico Maria Giordano]

Dear
Any ideas on how I could resolve this error?

Code: Select all  Expand view

static uint16_t crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value ) {

    uint16_t crc;
    uint16_t tmp;
    uint16_t short_c;
    const unsigned char *ptr;
    size_t a;

    if ( ! crc_tabccitt_init ) init_crcccitt_tab();

    crc = start_value;
    ptr = input_str;

    if ( ptr != NULL ) for (a=0; a<num_bytes; a++) {

        short_c = 0x00ff & (unsigned short) *ptr;     // Conversion may lose significant digits in function crc_ccitt_generic
        tmp     = (crc >> 8) ^ short_c;               // Conversion may lose significant digits in function crc_ccitt_generic
        crc     = (crc << 8) ^ crc_tabccitt[tmp];     // Conversion may lose significant digits in function crc_ccitt_generic

        ptr++;
    }

    return crc;
 

Thanks in advance

Try this and let me know if it works for you:

Code: Select all  Expand view

short_c = ( uint16_t ) ( 0x00ff & (unsigned short) *ptr );
tmp     = ( uint16_t ) ( (crc >> 8) ^ short_c );
crc     = ( uint16_t ) ( (crc << 8) ^ crc_tabccitt[tmp] );

[paquitohm]

32-bit version: https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc760_32bits_20230707.zip

Mr. Enrico,

Thank you very much for your efforts.

Three items.
- Is stable release ?
- a few old 7/7/23 perhaps ?
- What it provides, it is faster, more compatible ?
Regards

[Eroni]

Dear
Any ideas on how I could resolve this error?

Code: Select all  Expand view

static uint16_t crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value ) {

    uint16_t crc;
    uint16_t tmp;
    uint16_t short_c;
    const unsigned char *ptr;
    size_t a;

    if ( ! crc_tabccitt_init ) init_crcccitt_tab();

    crc = start_value;
    ptr = input_str;

    if ( ptr != NULL ) for (a=0; a<num_bytes; a++) {

        short_c = 0x00ff & (unsigned short) *ptr;     // Conversion may lose significant digits in function crc_ccitt_generic
        tmp     = (crc >> 8) ^ short_c;               // Conversion may lose significant digits in function crc_ccitt_generic
        crc     = (crc << 8) ^ crc_tabccitt[tmp];     // Conversion may lose significant digits in function crc_ccitt_generic

        ptr++;
    }

    return crc;
 

Thanks in advance

Try this and let me know if it works for you:

Code: Select all  Expand view

short_c = ( uint16_t ) ( 0x00ff & (unsigned short) *ptr );
tmp     = ( uint16_t ) ( (crc >> 8) ^ short_c );
crc     = ( uint16_t ) ( (crc << 8) ^ crc_tabccitt[tmp] );

Mr Enrico, works!
Thank you so much!

[Enrico Maria Giordano]

32-bit version: https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc760_32bits_20230707.zip

Mr. Enrico,

Thank you very much for your efforts.

Three items.
- Is stable release ?
- a few old 7/7/23 perhaps ?
- What it provides, it is faster, more compatible ?
Regards

Yes, it is stable. Date is 28 october 2023. I don't think it is faster than 7.60 but it is worth to use it as it is an updated version.

[paquitohm]

In other words.
Actually I am using bcc73.
Are there big differences than bcc76 ?

Thanks in advance

[Enrico Maria Giordano]

No, you can use it without problems. I recommend the new BCC 7.70:

http://xharbour.org/index.asp?page=download/windows/required_win

[karinha]

No, you can use it without problems. I recommend the new BCC 7.70:

http://xharbour.org/index.asp?page=download/windows/required_win

Gran noticias Maestro Enrico. ¡Lo probaré ahora!

Great news master Enrico. I'll test it now!

Gracias, thanks.

Regards, saludos.

[karinha]

Funciona perfecto!

C:\BCC77
C:\XHBBCC77

https://imgur.com/4UcCRHC



Gracias, thanks.

Regards, saludos.

[Enrico Maria Giordano]

Great! Can you test curl, if you are familiar with it, please?

[karinha]

Great! Can you test curl, if you are familiar with it, please?

Never used. Do you have a model and the names of the .LIBs that I should use?

Nunca usé. ¿Tiene un modelo y los nombres de los .LIB que debo usar?

Gracias, thanks.

Regards, saludos.

[Enrico Maria Giordano]

hbcurl.lib, but I don't know how to use it, sorry.