ErrSysW y Rebars

[mmercado]

Hola Antonio y amigos:

Al intentar crear el ejecutable del programa de ejemplo Rebars.prg se genera el siguiente error:

By manuelmercado
Necesito que me digan por favor 2 cosas:

1.- Como soluciono ese error de ejecución.

2.- Que debo hacer para que no aparezcan ceros (0) en las llamadas a ProcLine(n) del manejador de errores de FiveWin. Para encontrar un error no es de gran (o de ninguna) ayuda el error.log

Estoy usando FWH 9.01

Gracias anticipadas por su ayuda.

Manuel Mercado

[mmercado]

Ninguna ayuda?

El problema del manejador de errores es algo muy importante.

Gracias de nuevo.

Manuel Mercado

[Armando Picon]

Estoy teniendo el mismo síntoma con el procline en el control de errores al usaR la versión 7.12. !No aparece el numero de la linea del error sino el CERO¡

[Patricio Avalos Aguirre]

Hola

Posiblemente la libreria este compilada con la opcion /l
por eso de los cero(0)

/l suppress line number information
/m compile module only
/n[<type>] no implicit starting procedure (default)
<type>: 0=no implicit starting procedure
1=no starting procedure at all

[Armando Picon]

¿significa que debemos reconstruir la librería de Fivewin? ¡No asustes!

Hola

Posiblemente la libreria este compilada con la opcion /l
por eso de los cero(0)

/l suppress line number information
/m compile module only
/n[<type>] no implicit starting procedure (default)
<type>: 0=no implicit starting procedure
1=no starting procedure at all

[sysctrl2]

Hay que utilizar estos FLAGS al compilar el PRG o los PRG ( s)

xharbour uso yo.

$(HBDIR)\bin\harbour $< /N /m /es2 /gc1 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include

/n /m /es2 /gc1



saludos..

[karinha]

Cesar, que haces /gc1 ??

Gracias,

Saludos.

[sysctrl2]

/gc[<type>] output type: C source (.c) (default)
<type>: 0=compact 1=normal 2=verbose (default)
3=generate variable list (.var) file

[sysctrl2]

HARBOUR COMMAND S

Options: /a automatic memvar declaration
/b debug info
/build display detailed version info
/credits display credits
/d<id>[=<val>] #define <id>
/es[<level>] set exit severity
/g<type> output type generated is <type> (see below)
/gc[<type>] output type: C source (.c) (default)
<type>: 0=compact 1=normal 2=verbose (default)
3=generate variable list (.var) file
/go output type: Platform dependant object module
/gw output type: Windows/DOS OBJ32 (.obj)
/gh output type: Harbour Portable Object (.hrb)
/i<path> #include file search path
/j[<file>] output i18n support [to <file>] to .hil
/k compilation mode (type -k? for more data)
/l suppress line number information
/m compile module only
/n[<type>] no implicit starting procedure (default)
<type>: 0=no implicit starting procedure
1=no starting procedure at all
2=force application starting procedure
/o<path> object file drive and/or path
/p[o<path>] generate pre-processed output (.ppo) file in <path>
/pt[o<path>] generate pre-processor trace (.ppt) file in <path>
/q quiet
/q0 quiet and don't display program header
/s syntax check only
/u[[+]<file>] use command def set in <file> (or none)
/undef:<id> #undef <id>
/v variables are assumed M->
/vd external functions are assumed as dynamic functions
/w[<level>] set warning level number (0..3, default 1)
/x[<prefix>] set symbol init function name prefix (for .c only)
/z suppress shortcutting (.and. & .or.)
@<file> compile list of modules in <file>

[mmercado]

Hola nuevamente:

Soy el único con este problema?

Alquien que tenga la versión 9.01 de FWH ha podido compilar con xHarbour y ejecutar el programa de ejemplo (FWH\SAMPLES) Rebars.prg?

Necesito saber si el problema es exclusivamente mío para dedicarme a resolverlo. El programa (Rebars.prg) para mí no es importante, lo que sí afectaría todos mis desarrollos es el problema del manejador de errores.

Un abrazo.

Manuel Mercado.

[Daniel Garcia-Gil]

Pienso que todo esta bien... voy a decir solo una teoria personal, lo he visto en varios casos y pienso que ese efecto es por lo siguiente....

Code: Select all | Expand

  Called from:  => NCOUNT(0)
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW(545)
   Called from:  => TPANEL:SETBRUSH(0)
   Called from:  => TPANEL:NEW(56)
   Called from: C:\fivewin\VER901\FWH\samples\rebars.prg => MAIN(15)

la llamada en la linea (56) de TPANEL es al methodo SETBRUSH(), pero TPANEL no tiene ese methodo como tal es heredado desde TWINDOW en la linea (545), que no es mas que un INLINE, por eso muestra (0) en la linea ya que realmente no tiene numeracion, ese CERO nos indica que es una llamada a un METHOD ... INLINE, cuando vemos eso debemos es preocuparnos de donde viene y no hasta donde llego...

ahora la pregunta esta porque se genera ese error?
sigo en teorias... son ejemplos algo viejos las clases han mejorado, supongo que son cosas del avance y formas distintas del manejo de las mismas o queda algun cabo suelto

si estoy equivocado en mis 2 teorias pido porfavor alguien me corrija o en el mejor de los casos que la den por ciertas

[mmercado]

ahora la pregunta esta porque se genera ese error?
sigo en teorias... son ejemplos algo viejos las clases han mejorado, supongo que son cosas del avance y formas distintas del manejo de las mismas o queda algun cabo suelto

Hola Daniel, gracias por responder.

En realidad el error en el programa no me preocupa, sé que hay cambios en las clases. Lo que sí me preocupa es el "error.log", si observas tu ejemplo y el mío no son iguales. Tu pudiste determinar gracias al error.log que la linea que causa el error es la 545 de TWindow pero en mi caso esa linea no se muestra y entonces es imposible que yo pueda encontrar la causa del error.

Mi pregunta ahora es: Si ambos estamos usando la misma versión de FWH por qué tu error.log y el mío no son iguales.

Estoy usando el Buildx.bat que viene en FWH\Samples.

Saludos.

Manuel Mercado

[Antonio Linares]

Manuel,

Son dos errores que se han colado en los últimos cambios:

1) En la Clase TPanel en la línea 53 el código debe quedar así:

Code: Select all | Expand

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush )
      endif   
   else
      ::oWnd:DefControl( Self )
   endif
 

2) En la Clase TFolder en la línea 193 hay que añadir esta línea:

Code: Select all | Expand

   ::lTransparent = .F.               
 

Con esos dos cambios, FWH\samples\ReBars.prg funciona correctamente. Gracias,

Respecto a que se muestre cero en el gestor de errores, se debe a que no habíamos compilado FWH con información de números de linea. Arreglado, gracias

[Daniel Garcia-Gil]

Sr Manuel...

yo hice la compilacion con Buildh.bat (harbour)

al hacerla con Buildx.bat (xHarbour) ciertamente muestra ese detalle...

[Antonio Linares]

Uno se compiló con numeros de líneas y el otro no

Vamos a compilar ambos con números de líneas...