Page 1 of 1
Program freeze
Posted: Thu Sep 14, 2006 9:14 am
by Enrico Maria Giordano
Please try this sample with BBC and warning disabled:
Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
? test
RETURN NIL
It just freeze with latest FWH.
EMG
Posted: Thu Sep 14, 2006 10:39 am
by Antonio Linares
Enrico,
Here it is working fine with both Harbour and xHarbour:
Posted: Thu Sep 14, 2006 11:05 am
by Enrico Maria Giordano
With Harbour it works fine here too. Did you try using latest xHarbour from CVS?
EMG
Posted: Thu Sep 14, 2006 11:13 am
by Enrico Maria Giordano
The problem is in the following code from errsysw.prg:
Code: Select all
while ! Empty( __ClassName( n ) )
cErrorLog += " " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end
__ClassName( n ) is never empty with latest xHarbour from CVS.
EMG
Posted: Thu Sep 14, 2006 6:18 pm
by Antonio Linares
Enrico,
It looks as they broke backwards compatibility...
Thanks for the feedback,
ErrSysw....
Posted: Thu Sep 14, 2006 6:56 pm
by 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
Re: ErrSysw....
Posted: Thu Sep 14, 2006 7:13 pm
by Enrico Maria Giordano
Try
Code: Select all
while __ClassName( n ) != "NUMERIC"
cErrorLog += " " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end
EMG
Re: ErrSysw....
Posted: Fri Sep 15, 2006 3:49 am
by wmormar
EnricoMaria wrote:Try
Code: Select all
while __ClassName( n ) != "NUMERIC"
cErrorLog += " " + Str( n, 3 ) + " " + __ClassName( n++ ) + CRLF
end
EMG
Code: Select all
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.