Hi,

3 similar samples with different error, so, perhaps we have memory corruption here.


Regards,
Mindaugas


C:\cawi32\sample\test>cat test203.prg
STATIC indexBlocks := {}
PROC MAIN()
  DBCREATE("test203.dbf", {{"F", "C", 1, 0}}, "DBFCDX", .T.)
  FERASE("tmp.cdx")
  AADD(indexBlocks, {|| FIELD->F})
  OrdCreate("tmp", "f", "IndexFunc()")
  DBCLOSEALL()
  indexBlocks := {}
BEGIN SEQUENCE WITH {|| err()}
  DbUseArea(.T., "DBFCDX", "test203",, .T., .F.)
  OrdListAdd("tmp.cdx")
END SEQUENCE
  DBCLOSEALL()
RETURN

FUNC err()
  DBCLOSEAREA()
RETURN NIL

FUNC IndexFunc()
RETURN EVAL(indexBlocks[1])


C:\cawi32\sample\test>hbrun test203.prg

Unrecoverable error 9104: hb_cdxIndexFree: index file still locked.
Called from DBCLOSEAREA(0)
Called from ERR(17) in pcode.hrb
Called from (b)MAIN(9) in pcode.hrb
Called from INDEXFUNC(21) in pcode.hrb
Called from ORDLISTADD(0)
Called from MAIN(11) in pcode.hrb
Called from HB_HRBRUN(0)
Called from _APPMAIN(0) in ../../../hbrun.prg

C:\cawi32\sample\test>cat test204.prg
STATIC indexBlocks := {}
PROC MAIN()
  DBCREATE("test204.dbf", {{"F", "C", 1, 0}}, "DBFCDX", .T.)
  FERASE("tmp.cdx")
  AADD(indexBlocks, {|| FIELD->F})
  OrdCreate("tmp", "f", "IndexFunc()")
  DBCLOSEALL()
  indexBlocks := {}
BEGIN SEQUENCE WITH {|| err()}
  DbUseArea(.T., "DBFCDX", "test204",, .F., .F.)
  OrdListAdd("tmp.cdx")
END SEQUENCE
  DBCLOSEALL()
RETURN

FUNC err()
  DBCLOSEAREA()
RETURN NIL

FUNC IndexFunc()
RETURN EVAL(indexBlocks[1])

C:\cawi32\sample\test>hbrun test204.prg

Unrecoverable error 9001: Error recovery failure
Called from INDEXFUNC(21) in pcode.hrb
Called from ORDLISTADD(0)
Called from MAIN(11) in pcode.hrb
Called from HB_HRBRUN(0)
Called from _APPMAIN(0) in ../../../hbrun.prg

C:\cawi32\sample\test>cat test205.prg
STATIC indexBlock

PROC MAIN()
  DBCREATE("test205.dbf", {{"F", "C", 1, 0}}, "DBFCDX", .T.)
  FERASE("tmp.cdx")
  indexBlock := {|| FIELD->F}
  OrdCreate("tmp", "block", "IndexFunc()")
  DBCLOSEALL()
  indexBlock := NIL
BEGIN SEQUENCE WITH {|| err()}
  DbUseArea(.T., "DBFCDX", "test205",, .F., .F.)
  OrdListAdd("tmp.cdx")
END SEQUENCE
  DBCLOSEALL()
RETURN

FUNC err()
  DBCLOSEAREA()
RETURN NIL

FUNC IndexFunc()
RETURN EVAL(indexBlock)

C:\cawi32\sample\test>hbrun test205.prg

Unrecoverable error 6005: Exception error:

    Exception Code:C0000005
    Exception Address:00545F65
    EAX:0018F5D8  EBX:00000006  ECX:002BDCBC  EDX:0028B95F
    ESI:00000001  EDI:00000001  EBP:0018F618
    CS:EIP:0023:00545F65  SS:ESP:002B:0018F5D0
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010202
    CS:EIP: 8B 43 0C 50 E8 86 7E F0 FF 59 8B D0 8D 45 C0 8A
SS:ESP: 0000000C 0028B954 45444E49 4E554658 00292843 00000000 00000000 00000000 00000000 00000000 00000000 000

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
00545F65 0018F618 0018F67C 00546116 002BDCBC 0028B954 00000001 0000000C 0028B874 00000020 00000002 00000001 00546116 0018F67C 0018FA9C 00573115 002BDCBC 0028B954 0028B70C 00000600 0028B874 00000A00 00000000 00000000 00573115 0018FA9C 0018FAC0 0057338D 0028B874 0028B784 0028B70C 0018FAE4 434F4C42 0000004B 00000000 0057338D 0018FAC0 0018FAE8 00574A5B 0028B70C 0028B85C 00000600 0028B70C 002BDE18 002BDCBC 00000001 00000000 00574A5B 0018FAE8 0018FC20 005780BE 0028B70C 0018FC0C 0028B127 00000001 002BDCBC 2E706D74 00786463 00000000 005780BE 0018FC20 0018FC64 00540B3A 002BDCBC 0018FC30 00240564 00000000 00000000 0028B6AC 00000000 00000000 00540B3A 0018FC64 0018FD6C 0043A6DF 00000001 0028AFF4 00000000 00000000 00000010 0000000A 00000000 0028B2A8 0043A6DF 0018FD6C 0018FD90 004404C8 0028B064 002BDB6C 00000006 00000000 0028120C 00000000 0000000C 004404C8 0018FD90 0018FDA8 00464E8E 00240000 0028AE1C 0028AFF4 00000001


Modules:
0x00400000 0x00279000 c:\bin\hbrun.exe
0x77630000 0x00180000 C:\Windows\SysWOW64\ntdll.dll
0x76660000 0x00100000 C:\Windows\syswow64\kernel32.dll
0x75200000 0x00046000 C:\Windows\syswow64\KERNELBASE.dll
0x76760000 0x00100000 C:\Windows\syswow64\USER32.DLL
0x75F60000 0x00090000 C:\Windows\syswow64\GDI32.dll
0x76960000 0x0000A000 C:\Windows\syswow64\LPK.dll
0x75EC0000 0x0009D000 C:\Windows\syswow64\USP10.dll
0x76D40000 0x000AC000 C:\Windows\syswow64\msvcrt.dll
0x76A40000 0x000A0000 C:\Windows\syswow64\ADVAPI32.dll
0x76C60000 0x00019000 C:\Windows\SysWOW64\sechost.dll
0x76AE0000 0x000F0000 C:\Windows\syswow64\RPCRT4.dll
0x751A0000 0x00060000 C:\Windows\syswow64\SspiCli.dll
0x75190000 0x0000C000 C:\Windows\syswow64\CRYPTBASE.dll
0x76000000 0x00035000 C:\Windows\syswow64\WS2_32.DLL
0x75FF0000 0x00006000 C:\Windows\syswow64\NSI.dll
0x76FD0000 0x00060000 C:\Windows\system32\IMM32.DLL
0x76970000 0x000CC000 C:\Windows\syswow64\MSCTF.dll
0x10000000 0x00015000 c:\devel\Trmsv\trmglob.dll

Called from ORDLISTADD(0)
Called from MAIN(12) in pcode.hrb
Called from HB_HRBRUN(0)
Called from _APPMAIN(0) in ../../../hbrun.prg
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to