Adssetnull external error

[Admpss]

HI, im trying use xharbour from repository, last version, after compile, receive the error:

error: unresolved external "_AdsSetNull" referenced from rddads.lib | adsfunc

something change ? last xharbour version have some error?

something related to this?

2018-05-28 11:20 UTC+0200 Enrico Maria Giordano <e.m.giordano@emagsoftware.it>
* contrib\rddads\adsfunc.c
! added functions ADSDDSETFIELDPROPERTY(), ADSSETTIMESTAMP() and ADSSETNULL(). Thanks to Reinaldo!


thanks

[Enrico Maria Giordano]

Someone else using ADS can check this, please?

EMG

[Enrico Maria Giordano]

Luiz, an xHarbour developer, wrote: "Probaly his ads client .lib is from an old version".

Please check.

EMG

[Admpss]

EMG, very thanks, im using ads 10.10, we dont update to last version because we dont need new features and price of update too. but xharbour Always Works with ads 8, 9 ,10 in old versions, if i remenber in source of rddads have an #define like IF adsversion == x, adsversion == y.

i have to go back to old version of xharbour until problem is fix, very thanks again.

best regards

[Enrico Maria Giordano]

Please, try to ask to comp.lang.xharbour newsgroup.

EMG

[Admpss]

EMG, i will, just let me know, there commit made for you, is to specific version of ads? why you add these functions, in changelog you say reinaldo advice, reinaldo can say if these function is specific to some version of ads?

another solution is go to harbour....

very thanks

[Enrico Maria Giordano]

EMG, i will, just let me know, there commit made for you, is to specific version of ads?

Don't think so but I'm not an ADS user, so I don't know for sure.

why you add these functions, in changelog you say reinaldo advice, reinaldo can say if these function is specific to some version of ads?

Probably yes. Reinaldo, are you listening?

another solution is go to harbour....

But even so, we better to fix xHarbour too, it there is a bug to fix.

EMG

[Admpss]

EMG, in adsfunc.c adssetnull is commented,

/*HB_FUNC( ADSSETNULL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetNull( (hb_parnl(1)==0) ? pArea->hOrdCurrent : hb_parnl(1),(char*) hb_parc(2));
hb_retl( ulRetVal == AE_SUCCESS );
}*/

but in the same adsfunc.c have this:

HB_FUNC( ADSSETNULL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();

ulRetVal = AdsSetNull( pArea->hStatement,
( UNSIGNED8 * ) hb_parcx( 1 ) ) ;// pucFldName ,

hb_retl( ulRetVal == AE_SUCCESS );
}

another reference is in ace32.c

UNSIGNED32 ENTRYPOINT AdsSetNull( ADSHANDLE hTable, UNSIGNED8 *pucFldName )
{
#if defined(__cplusplus)
static ADSSETNULL_PTR
#else
static ADSSETNULL_PTR pFunc = NULL;
if ( !pFunc )
#endif
pFunc = (ADSSETNULL_PTR) Ace32_GetProcAddress( "AdsSetNull" );

return pFunc( hTable, pucFldName );
}

thanks

[Enrico Maria Giordano]

I don't know why this is commented out... It could be an error from mine, sorry. Ok, let's try to uncomment it...

EMG

[Admpss]

EMG, i guess the comented is the original one, and uncommented is the reinaldo sugestion.

i will try compile xharbour with rddads without your commit, to see if the error persist.

thanks

[Enrico Maria Giordano]

Done. Let's wait for Mel to make the new xHarbour builds...

EMG

[Enrico Maria Giordano]

EMG, i guess the comented is the original one, and uncommented is the reinaldo sugestion.

i will try compile xharbour with rddads without your commit, to see if the error persist.

thanks

Ops! Sorry, I'm going to revert my change...

EMG

[Enrico Maria Giordano]

Done.

EMG

[Admpss]

EMG, thanks, but not solved. same error after your commit. can you see with reinaldo why this changes, they are to specific ads version? thanks again.