Atualizações harbour 31/01/2023

[lucimauro]

Código: Selecionar todos

2023-01-31 23:19 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+ contrib/xhb/xhberror.prg
! added file missing in previous commit:
added code which extends Harbour error objects adding functionality
known from xHarbour:
oError:ProcName
oError:ProcLine
oError:ProcModule
Above instance variables are initialized automatically when error
object is created.
To enable this functionality it's enough to add to PRG code:
REQUEST xhb_ErrorNew

best regards
Przemek 

Código: Selecionar todos

2023-01-31 14:59 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* include/hbapierr.h
* src/harbour.def
* src/rtl/errapi.c
+ added new C function:
void hb_errReinit( PHB_ITEM pError );
it allows to replace default error object with user custom one which
support :Init() method

* contrib/xhb/xhb.hbp
+ contrib/xhb/xhb.h
+ contrib/xhb/xhberror.prg
+ added code which extends Harbour error objects adding functionality
known from xHarbour:
oError:ProcName
oError:ProcLine
oError:ProcModule
Above instance variables are initialized automatically when error
object is created.
To enable this functionality it's enough to add to PRG code:
REQUEST xhb_ErrorNew

* contrib/xhb/xhberr.prg
* use error object :Proc*() methods if they are available
- removed PRG version of xhb_ErrorNew()

* contrib/xhb/xhbmemo.prg
* contrib/xhb/xhbtedit.prg
! use xhb_ErrorNew() instead of ErrorNew() which does not support
any parameters

* include/hbapicls.h
; typo in comment

best regards
Przemek 

Código: Selecionar todos

2023-01-31 07:17 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/vm/fm.c
* src/vm/garbage.c
! pacified warnings

best regards
Przemek 

[JoséQuintas]

Lembro de ter visto alguma outra coisa, que não encontrei nessa lista.
Me chamou a atenção justamente porque me passaram há pouco tempo.

Interceptar erros de GPF do Windows !!!!

[JoséQuintas]

Só pra curiosidade
É avisar ao Windows qual função será chamada em caso de GPF.

Código: Selecionar todos

FUNCTION ze_SetGPFHandler()

   ze_CallDllStd( "kernel32.dll", "SetUnhandledExceptionFilter", @ze_GPFHandler() )

   RETURN Nil

E a função vai usar o objeto de erro do Windows pra pegar informação sobre o erro.