🚀 go-pugleaf

In article <ialr8soi9f73me4559hjt24ocjg7son4gs@4ax.com>,
  Markus Kaemmerer <mk@happyarts.de> wrote:
> Robert AH Prins <prinsra@williscorroon.com> wrote:
>
> >Go to http://www.gdsoft.com/swag/ and download everything! :-) Or at
> >least the reader & memnory.swg... In the latter there are two
> >usefulish snippets, numbers 69 by Duncan Murdoch & 85 by Andy Cooper.
> >Both claim to be able to detect heap corruption.
>
> the routine 85 is exactly, what I am searching for. But this unit is
> written for TP 6.0, but I have only Version 7.0. In this unit the old
> getmem/new routines where subtituted with new getmem/new routines, but
> this dosn't seam to work in TP 7. Has anyone tryed to fix this unit
> for TP7? This would be very helpful for all users of TP 7.

This thread refuses to die :-)

I've finally had a look at this unit, and it does work, BUT ONLY IF IT
IS COMPILED IN G- STATE, unless you add some conditionals to it in the
"Find_Procs" procedure, ie:

  mov  bx, offset lgetmem
{$ifopt G+}
  add  bx, 3
{$endif}
{$ifopt G-}
  add  bx, 5
{$endif}
  mov  ax, word ptr [cs:bx]

and

  mov  bx, offset lfreemem
{$ifopt G+}
  add  bx, 9
{$endif}
{$ifopt G-}
  add  bx, 11
{$endif}
  mov  ax, word ptr [cs:bx]

the reason being the fact that the compiler generates "push immediate"
for both "getmem(tmp, 1)" and "freemem(tmp, 1)"

With the above conditionals the unit seems to work OK! (Very limited
test)

Robert
--
Robert AH Prins
prinsra@willis.com


Sent via Deja.com http://www.deja.com/
Before you buy.