error.log

[MarcoBoschi]

Stack Calls
===========
Called from REF_VAR(938)
Called from EDITSCHE(93)
Called from VAL_REL2(380)

is it possibile to add "in module <nameofprgfile> ? " information for each row
?

[Enrico Maria Giordano]

I agree. It would be useful.

EMG

[Antonio Linares]

Marco, Enrico,

Please modify source\function\errsysw.prg with this code:

Code: Select all

       if ! Empty(ProcName( n ) )
             AAdd( aStack, "   Called from: " + ProcFile( n ) + " => " + Trim( ProcName( n ) ) + ;
                           "(" + NTRIM( ProcLine( n ) ) + ")" )
             cErrorLog += ATail( aStack ) + CRLF
          endif

Notice the use of ProcFile(). Warning: with Harbour it returns an empty string. With xharbour you get the PRG name.

[Enrico Maria Giordano]

Wonderful! Thank you!

EMG

[MarcoBoschi]

OK ThankYou very much.

[Enrico Maria Giordano]

Unfortunately it seems not working as expected...

EMG

[Antonio Linares]

Enrico,

But that may be something specific to Harbour/xHarbour ProcLine() function.

[Enrico Maria Giordano]

Yes, of course.

EMG