help on a GPF situation

[Antonio Linares]

I am looking for a working example using __TracePrgCalls( .T. ) as per the docs:

* Once the tracing decribed below is turned on, you can call this
* in a PRG to trace PRG-level function calls:
*
* __TRACEPRGCALLS( <lOnOff> ) --> <lOldValue>
*
* It turns on|off tracing of PRG-level function and method calls.
* The symbol name is written just before it's called.
* This is very useful when debugging GPFs as it
* will trace all PRG-level calls up until the crash.
* Uses HB_TRACE so traces are in line with any C-level traces.

Is someone using it ? thanks

This may help many of us when a GPF suddenly happens

[Antonio Linares]

This is the story about what happened with this feature:

http://comments.gmane.org/gmane.comp.lang.xharbour.devel/2053

So, we have to rebuild hbvm.lib with -DHB_PRG_TRACE

[Antonio Linares]

How to build Harbour with this flag:

go.bat

Code: Select all | Expand

set path=c:\bcc582\bin
set HB_USER_CFLAGS=-DHB_PRG_TRACE
win-make.exe

[Antonio Linares]

From our apps we have to do:

hb_TraceSysOut( .T. )
__TracePrgCalls( .T. )

[Antonio Linares]

And run DbWin to see the output:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=dbwin32.zip

[karinha]

Maestro en xHarbour me retorna esto error:

Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland

Error: Unresolved external '_HB_FUN_HB_TRACESYSOUT' referenced from C:

Que hacer?

Gracias, saludos.

[Antonio Linares]

João,

Puede ser que hb_TraceSysOut() sea una función de Harbour solamente. He revisado el código fuente de esas funciones en Harbour pero no las miré en xHarbour.

Prueba solo con __TracePrgCalls( .T. )

[karinha]

Maestro en xHarbour esto está correcto?

#define HB_TR_DEBUG 5

HB_TR_FLUSH=1
HB_TR_LEVEL=HB_TR_DEBUG
HB_TR_OUTPUT= "c:\trace.txt"

And in our code:

hb_tracestate(1)
__TracePrgCalls( .t. )

doesn't create c:\trace.txt anymore.

http://marcosgambeta.files.wordpress.co ... 100802.pdf

Regards,

[karinha]

Code: Select all | Expand

#Define HB_TR_DEBUG      5

    // hb_TraceSysOut( .T. )  // Funciona en Harbour no [x]Harbour
    HB_TR_FLUSH=1
    HB_TR_LEVEL=HB_TR_DEBUG
    HB_TR_OUTPUT = cDirPleno + "TRACE.LOG"

    //And in our code:

    // To trace calls for FWH
    __TRACEPRGCALLS( .T. )
    HB_TRACELEVEL( 5 )
    HB_TRACESTATE(1)
 

[karinha]

Code: Select all | Expand

// testtrac.prg

#include "FiveWin.ch"

#define HB_TR_ALWAYS     0
#define HB_TR_FATAL      1
#define HB_TR_ERROR      2
#define HB_TR_WARNING    3
#define HB_TR_INFO       4
#define HB_TR_DEBUG      5

#define HB_TR_LEVEL_ALWAYS     0
#define HB_TR_LEVEL_FATAL      1
#define HB_TR_LEVEL_ERROR      2
#define HB_TR_LEVEL_WARNING    3
#define HB_TR_LEVEL_INFO       4
#define HB_TR_LEVEL_DEBUG      5

FUNCTION MAIN()

   ? "TRACING STATUS"

   __TRACEPRGCALLS( .T. )

   ? "hb_traceLevel", hb_traceLevel()

   ? "hb_traceState", hb_traceState()

   ? "LEVEL: HB_TR_ALWAYS",  HB_TRACELEVEL( HB_TR_ALWAYS )

   ? "LEVEL: HB_TR_FATAL",   HB_TRACELEVEL( HB_TR_FATAL )

   ? "LEVEL: HB_TR_ERROR",   HB_TRACELEVEL( HB_TR_ERROR )

   ? "LEVEL: HB_TR_WARNING", HB_TRACELEVEL( HB_TR_WARNING )

   ? "LEVEL: HB_TR_INFO",    HB_TRACELEVEL( HB_TR_INFO )

   ? "LEVEL: HB_TR_DEBUG",   HB_TRACELEVEL( HB_TR_DEBUG )

RETURN NIL
 

[Antonio Linares]

João,

gracias!

[Antonio Linares]

Joao,

Conseguiste que te funcionase hb_traceSysOut( .T. ) que envía los mensajes con OutputDebugString() ?

Debe hacer que la salida sea por DbWin32 (por DebugView parece que no funciona)

gracias por tu ayuda!

[karinha]

Buenos días Maestro, No. Lo pregunté en el foro FiveWin Brasil, y nadie sabía de la existencia de este comando.

Code: Select all | Expand

//-> \SAMPLES\HBSENHA.PRG

#Include "FiveWin.ch"

#define HB_TR_ALWAYS         0
#define HB_TR_FATAL          1
#define HB_TR_ERROR          2
#define HB_TR_WARNING        3
#define HB_TR_INFO           4
#define HB_TR_DEBUG          5
#define HB_TR_LEVEL_ALWAYS   0
#define HB_TR_LEVEL_FATAL    1
#define HB_TR_LEVEL_ERROR    2
#define HB_TR_LEVEL_WARNING  3
#define HB_TR_LEVEL_INFO     4
#define HB_TR_LEVEL_DEBUG    5

MEMVAR cText ,cKey, cEncrypted, cPassWord

FUNCTION Main()

   *---------------------------------------------------------------------------------------*
   #pragma TEXTHIDDEN(1)

   PUBLIC  cPassWord := "Q65h3l8j41B"  // <- Very important not to change Password or Delete !!!    <-------  "Top Secret ;-)"

   #pragma TEXTHIDDEN(0)
   *---------------------------------------------------------------------------------------*

   __TRACEPRGCALLS( .T. )

   cText := "This is my secret message."

   cKey  := HB_blowfishKey( cPassWord )

   MsgInfo( "Original:  "   + HB_StrToExp( cText ) )

   /* encrypt data */
   #ifdef __XHARBOUR__  // xHarbour

      MsgInfo( "Encrypted: " + StrToHex( cEncrypted := HB_blowfishEncrypt( cKey, cText ) ) )

   #else  // Harbour

      MsgInfo( "Encrypted: " + HB_StrToHex( cEncrypted := HB_blowfishEncrypt( cKey, cText ) ) )

   #endif

   /* decrypt data */
   MsgInfo( "Decrypted: " + HB_StrToExp( HB_blowfishDecrypt( cKey, cEncrypted ) ) )

   ? "hb_traceLevel", hb_traceLevel()

   ? "hb_traceState", hb_traceState()

   /*
   ? "LEVEL: HB_TR_ALWAYS",  HB_TRACELEVEL( HB_TR_ALWAYS )
   ? "LEVEL: HB_TR_FATAL",   HB_TRACELEVEL( HB_TR_FATAL )
   ? "LEVEL: HB_TR_ERROR",   HB_TRACELEVEL( HB_TR_ERROR )
   ? "LEVEL: HB_TR_WARNING", HB_TRACELEVEL( HB_TR_WARNING )
   ? "LEVEL: HB_TR_INFO",    HB_TRACELEVEL( HB_TR_INFO )
   ? "LEVEL: HB_TR_DEBUG",   HB_TRACELEVEL( HB_TR_DEBUG )
   */

RETURN NIL

FUNCTION StrToHex( cString ) 
RETURN Lower( cString )

// FIN
 

Regards, saludos.

[karinha]

En xHarbour:

Code: Select all | Expand

HBSENHA.c:

Error: Unresolved external '_HB_FUN_HB_TRACESYSOUT'
Error: Unable to perform link
* Linking errors *
 

Regards, saludos.

[Antonio Linares]

Tenemos que conseguir poder visualizar toda la actividad de Harbour ahi