Projects > ObjAsm

ErrorReport trash error

(1/1)

HSE:
Hi Biterider!

I maked a modification for objects without owner (DiskStream in this case) because original trash xax, wich contain error:
--- Code: ---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

--- End code ---

now is:
--- Code: ---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

--- End code ---

Regards, HSE.

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

Biterider

HSE:
Hi Biterider!


--- Quote from: Biterider on October 28, 2022, 07:01:53 AM ---I'll check that, but it looks like a condition that is not handled correctly  :sad:

--- End quote ---

Perhaps use is not like intended  :biggrin:

Just in case is:
--- Code: ---    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

--- End code ---

HSE

Navigation

[0] Message Index