GPF in ALLOC_TEXT

[kronos911]

Hello to all. I’m getting a GPF from one of my apps. The GPF accurse while indexing the main DBF for the first time. When I delete the CDX file and restart the app there is no GPF. From the MAP file the GPF address is somewhere in ALLOC_TEXT (0010:412F)

Code: Select all  Expand view  RUN

0010:3E04 00692H     ALLOC_TEXT             CODE


This is strange because I use the same technique in all my apps when indexing. The code I use if as follows
[code]
STATIC cId1:="$Id: ADI_OPEN.PRG,v 1.1 2006/01/03 22:07:16 ΧΡΟΝΗΣ Exp $"

#include "SIXCDX2.CH"
#include "FiveWin.ch"

#command INDEX ON <key> TAG <(tag)> [OF <(cdx)>] ;
[FOR <for>] ;
[ALL] ;
[ASCENDING] ;
[<dec: DESCENDING>] ;
[<u: UNIQUE>] ;
[<cur: USECURRENT>] ;
[<cur: SUBINDEX>] ;
[EVAL <opt> [EVERY <step>]] ;
[OPTION <opt> [STEP <step>]] ;
[<add: ADDITIVE>] ;
[<filt: FILTERON>] ;
=> ;
m6_ordCondSet(<"for">, <{for}>, NIL, NIL, <{opt}>, ;
<step>, RECNO(), NIL, NIL, NIL, [<.dec.>], ;
.T., <(cdx)>, <.cur.>, .F., NIL, <.add.>, NIL, ;
<.filt.> ) ;
; m6_ordCreate( <(cdx)>, <(tag)>, <"key">, <{key}>, [<.u.>] )

FUNCTION OpenDbfs()
PRIVATE oDlg1,;
oMeter1,;
nMeter1 := 0,;
oMeter2,;
nMeter2 := 0,;
lRetVal := .F.,;
oOpenIco,;
lDlgKill

lDlgKill := .F.

DEFINE DIALOG oDlg1 NAME "FLS_OPEN";
FONT oMainFont OF oMainWin;
COLOR CLR_BLACK, CLR_HGRAY

REDEFINE BITMAP ID 101 NAME "FILES04" OF oDlg1
REDEFINE METER oMeter1 VAR nMeter1 ID 102 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE
REDEFINE METER oMeter2 VAR nMeter2 ID 103 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE
oDlg1:bStart := {|| FileOpn()}

ACTIVATE DIALOG oDlg1 VALID lDlgKill CENTER
CursorArrow()
RETURN lRetVal

STATIC FUNCTION FileOpn()

CursorWait()
SELECT 1
IF !FILE("ADIBOOK.DBF")
MSGStop(OemToAnsi("’¦ ˜¨®œε¦ «ΰ¤ ˜›œ ι¤ ƒ„Œ ™¨βŸž΅œ!!!" +CRLF+;
"륦›¦ ˜§ζ «¦ §¨ζš¨˜££˜"), OemToAnsi("

[Antonio Linares]

You should use Comix instead of Six RDD, as Six has troubles with Clipper 5.2. Clipper 5.3 provides built-in Comix RDD.

[Antonio Linares]

Besides that, what stacksize and heapsize are you using in your LNK file ?

[kronos911]

My stack size is 9500 and heap is 2048. My lnk file is

Code: Select all  Expand view  RUN

BLINKER INCREMENTAL OFF
BLINKER EXECUTABLE CLIPPER E:4096;F:255;SWAPPATH:'c:\windows\temp';TEMPPATH:'c:\windows\temp'
BLINKER EXECUTABLE COMPRESS 1
//BLINKER EXECUTABLE EXTENDED
VERBOSE 2
OUTPUT .\wADI.EXE
MAP= .\WADI1.MAP S,A
PACKCODE
PACKDATA

DEFBEGIN
   name        WADI
   description 'ADI for Windows'
   exetype     Windows 3.1
   code        moveable discardable
   data        preload moveable
   stacksize   9500
   heapsize    2048
   segment     'PLANKTON_TEXT' nondiscardable
   segment     'EXTEND_TEXT'   nondiscardable
   segment     'OM_TEXT'       nondiscardable
   segment     'OSMEM_TEXT'    nondiscardable
   segment     'SORTOF_TEXT'   nondiscardable
   segment     'STACK_TEXT'    nondiscardable
DEFEND

NOBELL

FILE ADI_MAIN
FILE ADI_OPEN
FILE ADI_MENU
FILE ADI_FRMS
FILE ADI_BRWS
FILE ADI_VIEW
//FILE ADI_FIND
//FILE ADI_FILT
FILE ADI_RL
FILE ADI_MISC
FILE ADI_BACK
FILE SIXCDX
FILE MSGGR437
LIB HLIBW
SEARCH  Five, FiveC, Objects
LIB WinApi, Clipper, Extend, six3, Terminal



[Antonio Linares]

I suggest you to use Comix instead of Six. 5.2 and Six had many memory troubles.

Also, you may seriously consider to move to 32 bits using harbour/xharbour and FWH.