FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Program freeze
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Program freeze
Posted: Thu Sep 14, 2006 09:14 AM
Please try this sample with BBC and warning disabled:

#include "Fivewin.ch"


FUNCTION MAIN()

    ? test

    RETURN NIL


It just freeze with latest FWH.

EMG
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Program freeze
Posted: Thu Sep 14, 2006 10:39 AM
Enrico,

Here it is working fine with both Harbour and xHarbour:
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Program freeze
Posted: Thu Sep 14, 2006 11:05 AM

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

EMG

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Program freeze
Posted: Thu Sep 14, 2006 11:13 AM
The problem is in the following code from errsysw.prg:

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


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

EMG
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Program freeze
Posted: Thu Sep 14, 2006 06:18 PM

Enrico,

It looks as they broke backwards compatibility...

Thanks for the feedback,

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 2
Joined: Tue Oct 11, 2005 05:27 PM
ErrSysw....
Posted: Thu Sep 14, 2006 06:56 PM

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

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ErrSysw....
Posted: Thu Sep 14, 2006 07:13 PM
Try

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


EMG
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: ErrSysw....
Posted: Fri Sep 15, 2006 03:49 AM
EnricoMaria wrote:Try

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


EMG


   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.
William, Morales

Saludos



méxico.sureste

Continue the discussion