Program freeze

[Enrico Maria Giordano]

Please try this sample with BBC and warning disabled:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    ? test

    RETURN NIL

It just freeze with latest FWH.

EMG

[Antonio Linares]

Enrico,

Here it is working fine with both Harbour and xHarbour:

[Enrico Maria Giordano]

With Harbour it works fine here too. Did you try using latest xHarbour from CVS?

EMG

[Enrico Maria Giordano]

The problem is in the following code from errsysw.prg:

Code: Select all  Expand view

while ! Empty( __ClassName( n ) )
   cErrorLog += "   " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end

__ClassName( n ) is never empty with latest xHarbour from CVS.

EMG

[Antonio Linares]

Enrico,

It looks as they broke backwards compatibility...

Thanks for the feedback,

[Rodolfo]

Enrrico,

Ya llevaba algún rato teniendo este problema sin poder resolverlo. ¿Existe alguna solución para el problema con este código y xHarbour?

while ! Empty( __ClassName( n ) )
cErrorLog += " " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end

Saludos,


Rodolfo MG

[Enrico Maria Giordano]

Try

Code: Select all  Expand view

while  __ClassName( n ) != "NUMERIC"
   cErrorLog += "   " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end

EMG

[wmormar]

Try

Code: Select all  Expand view

while  __ClassName( n ) != "NUMERIC"
   cErrorLog += "   " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end

EMG

Code: Select all  Expand view

   WHILE n <= __ClsCntClasses()
      cErrorLog +=  "   " + Str( n, 3 ) + " " + __ClassName( n++ )+ CRLF
   END


Trata de esta manera, solo hay que actualizar el xHarbour con lo ultimo del CVS.