Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  nodelist  faq  login

The disks are getting full; purge a file today.


programming / comp.lang.clipper.visual-objects / Re: CreateGCDump()

SubjectAuthor
* CreateGCDump()harvey...@gmail.com
`* Re: CreateGCDump()Wolfgang Riedmann
 `- Re: CreateGCDump()harvey...@gmail.com

1
Subject: CreateGCDump()
From: harvey...@gmail.com
Newsgroups: comp.lang.clipper.visual-objects
Date: Wed, 27 Apr 2022 21:26 UTC
X-Received: by 2002:a37:c44:0:b0:69f:81cb:1d6a with SMTP id 65-20020a370c44000000b0069f81cb1d6amr5412279qkm.494.1651094766917;
Wed, 27 Apr 2022 14:26:06 -0700 (PDT)
X-Received: by 2002:ac8:4d88:0:b0:2f1:e81a:d140 with SMTP id
a8-20020ac84d88000000b002f1e81ad140mr20429835qtw.422.1651094766776; Wed, 27
Apr 2022 14:26:06 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Wed, 27 Apr 2022 14:26:06 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=100.19.140.78; posting-account=ascLvgoAAAAO9NVNNBCMKkH89Z-xyMCb
NNTP-Posting-Host: 100.19.140.78
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ad5722d8-5112-4793-9645-bc432ba4d4d9n@googlegroups.com>
Subject: CreateGCDump()
From: harveyth...@gmail.com (harvey...@gmail.com)
Injection-Date: Wed, 27 Apr 2022 21:26:06 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Lines: 24
View all headers
Anyone use the CreateGCDump() dll function?  I know the forum is all but dead.  Hoping though... I tried using this function and the return does not match the structure definition. It returns the number of entries correctly, but for the GCE structure, it only returns 1 element. If I peek in using the debugger, there are 93 entries as a subarray to element 1 of pEntry, but always 1 element only in the main array, and that's not what the code is looking for.  I gleaned the GCDUMP() code from this site.   Here's a snipper of where the problem is.

LOCAL pDump AS _GCDUMP
LOCAL pEntry AS _GCENTRY  //structure with 6 members - only seeing 1

 nEntries := CreateGCDump(pDump, nType)  //doesn't matter which type i try
 Log("Total Entries: " + NTrim(nEntries), GetCurPath()+"GCDump.log")  //this works finds between 93 and 153 depending on what I ask for.
FOR dwCount := 1 UPTO nEntries
        pEntry := @pDump.GCE[dwCount]  //craps out when >1 with bound error
 
any help appreciated.

thanks. 
Steve McNaughton
Harvey.The.RV.20.@gmail  Drop the periods & add the .com


Subject: Re: CreateGCDump()
From: Wolfgang Riedmann
Newsgroups: comp.lang.clipper.visual-objects
Date: Fri, 29 Apr 2022 14:47 UTC
References: 1
Path: i2pn2.org!i2pn.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: wriedm...@gmail.com (Wolfgang Riedmann)
Newsgroups: comp.lang.clipper.visual-objects
Subject: Re: CreateGCDump()
Date: Fri, 29 Apr 2022 16:47:09 +0200
Lines: 76
Message-ID: <jd2c3gFb449U1@mid.individual.net>
References: <ad5722d8-5112-4793-9645-bc432ba4d4d9n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
X-Trace: individual.net qoepGfSWPsbBSKtHl2thuAF9L6btZdWn0Db0Jy+ArIMAE1eb4=
Cancel-Lock: sha1:I8T3ZLOlTvaf1dANAzbRJbcnkLg=
User-Agent: XanaNews/1.18.1.6
View all headers
Hi Harvey,

in my applications (VO 2.8 SP4b) it works:

pGCDump := MemAlloc(_SIZEOF(DWORD) + (dwMax*_SIZEOF(_GCENTRY)))

IF pGCDump<>NULL_PTR
pGCDump.nEntryCount:=dwMax
dwItems:=CreateGCDump(pGCDump,6)
pGCEntry:=PTR(_CAST,DWORD(_CAST,pGCDump)+_SIZEOF(DWORD))

IF dwItems > 0 .and. lWriteDump
oLog := FFileSpec{cDumpFilename}
oLog:Create( FC_NORMAL )
oLog:WriteLine("Active references to dynamic memory: "+NTrim(dwItems))
oLog:WriteLine("-------------------------------------------")
oLog:WriteLine("   ")
//ODS32("Active references to dynamic memory: "+NTrim(dwItems))
//ODS32("-------------------------------------------")
FOR X := 1 UPTO dwItems
oLog:WriteLine("Created by : " +
Iif(pGCEntry.nGCType==GC_TYPE_STACK,"Compiler","RegisterKid()"))
oLog:WriteLine("Dyn.Addr.  : " +
NTrim(DWORD(_CAST,pGCEntry.pDynMem)))
oLog:WriteLine("Size       : " + NTrim(pGCEntry.nSize))
oLog:WriteLine("Reference  : " +
NTrim(DWORD(_CAST,pGCEntry.ppRefDynMem)))
oLog:WriteLine("Type       : " + GCVarType(pGCEntry.nVarType))
//__Type2String(DWORD(_CAST,pGCEntry.nVarType)))
oLog:WriteLine("Value      : " + Psz2String(@pGCEntry.abValue[1]))
oLog:WriteLine("   ")

pGCEntry:=pGCEntry + 1
NEXT
oLog:Close()
ENDIF
MemFree(pGCDump)
ENDIF

This NG may be dead because the current development of the successor
(X#) is here: https://www.xsharp.eu , and here you will find also the
last VO development team.

Wolfgang


harvey...@gmail.com wrote:

Anyone use the CreateGCDump() dll function?  I know the forum is all
but dead.  Hoping though... I tried using this function and the
return does not match the structure definition. It returns the number
of entries correctly, but for the GCE structure, it only returns 1
element. If I peek in using the debugger, there are 93 entries as a
subarray to element 1 of pEntry, but always 1 element only in the
main array, and that's not what the code is looking for.  I gleaned
the GCDUMP() code from this site.   Here's a snipper of where the
problem is.

LOCAL pDump AS _GCDUMP
LOCAL pEntry AS _GCENTRY  //structure with 6 members - only seeing 1

 nEntries := CreateGCDump(pDump, nType)  //doesn't matter which type
i try  Log("Total Entries: " + NTrim(nEntries),
GetCurPath()+"GCDump.log")  //this works finds between 93 and 153
depending on what I ask for.  FOR dwCount := 1 UPTO nEntries
pEntry := @pDump.GCE[dwCount]  //craps out when >1 with bound error 
any help appreciated.

thanks. 
Steve McNaughton
Harvey.The.RV.20.@gmail  Drop the periods & add the .com



--



Subject: Re: CreateGCDump()
From: harvey...@gmail.com
Newsgroups: comp.lang.clipper.visual-objects
Date: Mon, 2 May 2022 19:12 UTC
References: 1 2
X-Received: by 2002:a05:6214:23cc:b0:44f:4974:4c1c with SMTP id hr12-20020a05621423cc00b0044f49744c1cmr10911221qvb.116.1651518767564;
Mon, 02 May 2022 12:12:47 -0700 (PDT)
X-Received: by 2002:a05:6214:e49:b0:456:4ba5:cbbf with SMTP id
o9-20020a0562140e4900b004564ba5cbbfmr10730149qvc.23.1651518767270; Mon, 02
May 2022 12:12:47 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Mon, 2 May 2022 12:12:47 -0700 (PDT)
In-Reply-To: <jd2c3gFb449U1@mid.individual.net>
Injection-Info: google-groups.googlegroups.com; posting-host=100.19.140.78; posting-account=ascLvgoAAAAO9NVNNBCMKkH89Z-xyMCb
NNTP-Posting-Host: 100.19.140.78
References: <ad5722d8-5112-4793-9645-bc432ba4d4d9n@googlegroups.com> <jd2c3gFb449U1@mid.individual.net>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <5061b21a-2568-464a-b5ef-bf86f5de4ca8n@googlegroups.com>
Subject: Re: CreateGCDump()
From: harveyth...@gmail.com (harvey...@gmail.com)
Injection-Date: Mon, 02 May 2022 19:12:47 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 7
View all headers
Thanks Wolfgang,

Appreciate the eyeball on the group.

I will compare the code to what I am getting and report back!

-Steve
Harvey is the name of my RV I'll be living in shortly!)


1
rocksolid light 0.7.2
clearneti2ptor