ErrorReport trash error

[HSE]

Hi Biterider!

I maked a modification for objects without owner (DiskStream in this case) because original trash xax, wich contain error:

Code Select Expand

Method Primer.ErrorReport, uses xsi, pErrorCaller:POINTER, dErrorCode:DWORD
  SetObject xsi
  OCall xsi.ErrorSet, dErrorCode
  m2m [xsi].pErrorCaller, pErrorCaller, xax
  .if [xsi].pOwner != NULL
    OCall [xsi].pOwner::Primer.ErrorReport, xsi, dErrorCode
  .endif
MethodEnd


now is:

Code Select Expand

Method Primer.ErrorReport, uses xsi, pErrorCaller:POINTER, dErrorCode:DWORD
  SetObject xsi
  .if [xsi].pOwner != NULL
    OCall xsi.ErrorSet, dErrorCode
    m2m [xsi].pErrorCaller, pErrorCaller, xax
    OCall [xsi].pOwner::Primer.ErrorReport, xsi, dErrorCode
  .endif
MethodEnd


Regards, HSE.

[Biterider]

Hi HSE
I'll check that, but it looks like a condition that is not handled correctly 
Thanks for reporting it.

Biterider

[HSE]

Hi Biterider!

I'll check that, but it looks like a condition that is not handled correctly 

Perhaps use is not like intended 

Just in case is:

Code Select Expand


    New DiskStream
    mov DskStreamIn, xax
    OCall DskStreamIn::DiskStream.Init, NULL, $OfsCStr("Data.json"), GENERIC_READ, \
                                    0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
    .if xax == INVALID_HANDLE_VALUE                               
        jmp sale
    .endif


HSE