Miguel,
If you tried to compile and link your sample code, you would have
noticed that the code misses, at least:
-------------------------------------------------
#define CRLF Chr(13) + Chr(10)
#include "error.ch"
-------------------------------------------------
and it also appear to have other omissions. In the future please try
to always make sure to post actual tested sample. I'm sorry to repeat
myself, but I believe at least between developers we should avoid
wasting time. Also I believe that an invalid sample lowers the other
developer motivation and overall alertness.
IAE, please try again after, 2008-05-07 09:30 UTC-0430 Ron Pinkas
<ron/at/xharbour.com>, and if not fix post your actual sample.
Ron
On May 7, 2008, at 2:37 AM, Miguel Angel Marchuet wrote:
> SORRY this is the code to reproduce GPF:
>
>
> PROCEDURE Main()
>
> #ifdef __XHARBOUR__
> REQUEST HB_GT_WIN
> #endif
>
> ? Null * "A"
>
> RETURN
>
> //----------------------------------------//
>
> PROCEDURE ErrorSys()
> ErrorBlock( { | e | ErrorDialog( e ) } )
> RETURN
>
> //----------------------------------------//
>
> proc ErrorLink()
> return
>
> //----------------------------------------//
>
> PROCEDURE ErrorDialog( e )
> LOCAL cErrorLog := '', n, j
>
> // Cambiamos manejador de error para evitar llamadas
> recursivas. No usamos TRY porque en ocasiones deja la
> // pantalla de error bloqueada y sin terminar de pintar
> probablemente debido a que el dibujado del dialogo
> // de error, provoca un anidamiento de errores.
> ErrorBlock( {|e| Alert( ErrorMessage( e ) + " from Errorsys,
> line:" + Str( ProcLine( 1 ), 3 ) ), __Quit() } )
>
> n := 2 // we don't disscard any info again !
> while ( n < 74 )
> FOR j = 1 to LocalCount( n )
>
> cErrorLog += " Local " + Str( j, 3 ) + ": " + ;
> ValType( GetLocal( n, j ) ) + ;
> " " + cGetInfo( GetLocal( n, j ) ) + CRLF
> NEXT
> ENDDO
>
> ? "Don't arrive, for GPF"
>
> RETURN
>
> //--------------------------------------------------------------------
> --------//
>
> static function ErrorMessage( e )
>
> // start error message
> local cMessage := if( empty( e:OsCode ), ;
> if( e:severity > ES_WARNING, "Error ",
> "Atención " ),;
> "(DOS Error " + AllTrim(Str(e:osCode)) +
> ") " )
>
> // add subsystem name if available
> cMessage += if( ValType( e:SubSystem ) == "C",;
> e:SubSystem() ,;
> "???" )
>
> // add subsystem's error code if available
> cMessage += if( ValType( e:SubCode ) == "N",;
> "/" + AllTrim( Str( e:SubCode ) ) ,;
> "/???" )
> // add error description if available
> if ( ValType( e:Description ) == "C" )
> cMessage += " " + e:Description
> end
>
> // add either filename or operation
> cMessage += if( ! Empty( e:FileName ),;
> ": " + e:FileName ,;
> if( !Empty( e:Operation ),;
> ": " + e:Operation ,;
> "" ) )
>
> return cMessage
>
> //--------------------------------------------------------------------
> --------//
> // returns extended info for a certain variable type
>
> static function cGetInfo( uVal )
>
> local cType := ValType( uVal )
>
> do case
> case cType == "C"
> return '"' + cValToChar( uVal ) + '"'
>
> case cType == "O"
> return "Class: " + uVal:ClassName()
>
> case cType == "A"
> return "Len: " + Str( Len( uVal ), 4 )
>
> otherwise
> return cValToChar( uVal )
> endcase
>
> return nil
>
> //----------------------------------------//
>
> function GetLocal( nProcLevel, nLocal )
>
> return HB_DBG_VMVARLGET( nProcLevel + 1, ParamCount( nProcLevel +
> 1 ) + nLocal )
>
> //----------------------------------------//
>
> function LocalCount( nProcLevel )
>
> return HB_DBG_VMSTKLCOUNT( nProcLevel + 1 ) - ParamCount
> ( nProcLevel + 1 )
>
> //----------------------------------------//
>
> function cValToChar( uVal )
>
> local cType := ValType( uVal )
>
> do case
> case cType == "C" .or. cType == "M"
> return uVal
>
> case cType == "D"
> return DToC( uVal )
>
> case cType == "L"
> return If( uVal, ".T.", ".F." )
>
> case cType == "N"
> return AllTrim( Str( uVal ) )
>
> case cType == "B"
> return "{|| ... }"
>
> case cType == "A"
> return "{ ... }"
>
> case cType == "O"
> return "Object"
>
> otherwise
> return ""
> endcase
>
> return nil
>
> function ParamCount( nProcLevel )
>
> return Len( HB_DBG_VMPARLLIST( nProcLevel + 1 ) )
>
> //--------------------------------------------------------------------
> --------//
>
> ----------------------------------------------------------------------
> ---
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save
> $100.
> Use priority code J8TL2D2.
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://
> java.sun.com/javaone
> _______________________________________________
> xHarbour-developers mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
