Unable to recompile _dcgetbx in Build 2.00.1392

[jdsoft]

Hello Roger,
xxp Compiler freezes when try to re-compile _dcgetbx.prg (Build 267) with the latest Xbase update.
This is also the case for previous versions of _dcgetbx.prg (Buiil 265 and 263)
No problem with the previous xpp build 2.00.1360

[Tom]

Hi, Jack.

This is caused by a known error in XPP: https://www.alaska-software.com/scripts ... PDRID=7394

[jdsoft]

Hello Tom,

Yep, i figured this out. The PDR tells what is wrong.
I am breaking up the code LOCAL in _dcgetbx.prg in smaler pieces, but xxp keeps on locking up.

[jdsoft]

Hello,
I found the solution for this issue.

Code: Select all

FUNCTION DC_GetOptDefault( aGetOptions, lExpress )
STATIC aGetOptDefault := {}
LOCAL i
LOCAL aGetOptValid := ;
     { 'Untitled',                            /*  1 cGETOPT_NAME         */   ;
       '',                                    /*  2 cGETOPT_TITLE        */   ;
       24*20,                                 /*  3 nGETOPT_WNDHEIGHT    */   ;
....
LOCAL aOldOptions

should be

Code: Select all

FUNCTION DC_GetOptDefault( aGetOptions, lExpress )
STATIC aGetOptDefault := {}
LOCAL i
LOCAL aGetOptValid 
LOCAL aOldOptions
aGetOptValid := ;
     { 'Untitled',                            /*  1 cGETOPT_NAME         */   ;
       '',                                    /*  2 cGETOPT_TITLE        */   ;
       24*20,                                 /*  3 nGETOPT_WNDHEIGHT    */   ;
....

and

Code: Select all

 FUNCTION DC_GetListType( nType )

LOCAL nFound
LOCAL aTypes := { ;
 { 'GETLIST_STATIC'          , GETLIST_STATIC }, ;
 { 'GETLIST_GET'             , GETLIST_GET }, ;
 ...

should be

Code: Select all

FUNCTION DC_GetListType( nType )
LOCAL nFound
LOCAL aTypes 
aTypes := { ;
 { 'GETLIST_STATIC'          , GETLIST_STATIC }, ;
 { 'GETLIST_GET'             , GETLIST_GET }, ;
 ...

[Wolfgang Ciriack]

I think it is in function DC_GetOptDefault, the array LOCAL aGetOptValid and perhaps in DC_GetListType() the array aTypes.
Change them and use AAdd() for build the array at runtime as a quick and dirty workaround (slower).
Or go back to version 1360, if you do not need the new functions of version 1392.

[rdonnay]

Jack -

Thanks for reporting that.

I will make the change in my code as a workaround.

[Tom]

There is a workaround mentioned in the PDR: https://www.alaska-software.com/scripts ... PDRID=7394

The problem is caused by the preprocessor.

[Tom]

Build 1400 is just released and fixes this problem.