home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d2xx
/
d240
/
memlib.lha
/
MemLib
/
mempriv.h
< prev
next >
Wrap
C/C++ Source or Header
|
1989-08-28
|
5KB
|
120 lines
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\
* |_o_o|\\ Copyright (c) 1989 The Software Distillery. *
* |. o.| || All Rights Reserved *
* | . | || Written by Doug Walker *
* | o | || The Software Distillery *
* | . |// 235 Trillingham Lane *
* ====== Cary, NC 27513 *
* BBS:(919)-471-6436 *
\* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
#include <exec/types.h>
#include <exec/memory.h>
#include <exec/ports.h>
#include <proto/exec.h>
#include <proto/dos.h>
#include <string.h>
#define MWDEBUG
#include "memwatch.h"
#ifdef AllocMem
#undef AllocMem
#endif
#ifdef FreeMem
#undef FreeMem
#endif
#if 0
/* Change this to #if 1 if you want debug msgs from the memlib */
/* routines themselves for some reason - djw */
#define BUG(a) printf a ;
#endif
#define MSG(fh, msg) Write(fh, msg, strlen(msg))
#define MWT_CHIP 0
#define MWT_FAST 1
struct MWGlobal
{
LONG flags; /* Various MWF_ flags, see below */
LONG num[2]; /* Current number of allocations, chip and fast */
LONG sum[2]; /* Current amount allocated, chip and fast */
LONG max[2]; /* Max amount allocated, chip and fast */
LONG lim[2]; /* Limit on allocations, chip and fast */
BPTR dbfh; /* File to send debug output to */
struct MWAlc *first; /* List of active memory allocations */
struct MWAlc *freed; /* List of free memory extents */
struct MWAlc *lfree; /* Last allocation freed with free() */
struct Task *task; /* Pointer to owning task's Task structure */
};
struct MWMsg
{
struct Message msgpart; /* Linkage */
int type; /* MWM_ types - see defines */
int interval; /* Interval to check */
struct MWGlobal *mwg; /* Our global mem struct */
};
struct MWAlc
{
struct MWAlc *next; /* Next memory block in chain */
LONG size; /* Size of allocation in bytes */
LONG flags; /* MEMF_ Flags memory was allocated with*/
LONG myflags; /* my flags, see defines below */
char *file; /* Filename containing allocation point */
LONG line; /* Line number of allocation */
char *ffile; /* Filename of free point */
char *fline; /* Line number of free point */
char header[4]; /* Header sentinal */
char memory[4]; /* Actual allocation comes here */
/* 4 extra bytes covers trailer sentinal*/
};
/* Defines for use with MWAlc.myflags */
/* if myflags&MWF_REPMASK == MWF_REPORTED, */
/* This alloc already reported as trashed */
/* Use multiple bits in case the 'myflags' */
/* are trashed, odds are better of detecting */
/* If we ever need more myflag bits, just */
/* define MWF_REPMASK not to include them */
#define MWF_REPORTED 0xaa55aa55
#define MWF_REPMASK 0xffffffff
#define MWHEADER "MWHD" /* Beginning sentinal */
#define MWTRAILER "MWTR" /* Trailing sentinal */
#define MWATRASH 0xaa /* Trash allocated memory with this */
#define MWFTRASH 0x55 /* Trash freed memory with this */
/* Message types to external memory debugger */
#define MWM_CONTROL 0x00000000 /* MWII-type message */
#define MWM_INIT 0x00000001 /* Install new global struct */
#define MWM_TERM 0x00000002 /* Remove old global struct */
#define MWM_KILLME 0x00000003 /* An error has occurred; hold my task */
#define MWM_BURY 0x00000004 /* Return the killed task */
#define MWM_RESET 0x00000005 /* Restart everything, forget current */
#define MWM_CONTINUE 0x00000006 /* Revive the killed task */
#define MWM_REPLY 0x00001000 /* Reply to msg if set (except KILLME) */
/* Message type return codes, returned in msg->type */
#define MWM_OK 0x00010000 /* OK */
#define MWM_FULL 0x00020000 /* Table full, couldn't add */
#define MWM_INVALID 0x00030000 /* Unspecified error */
#define MWM_NONE 0x00040000 /* MWM_BURY sent, no process killed */
#define MWM_BADCMD 0x00050000 /* Unrecognized msg type */
#define MWPORTNAME "MWIII_Port"
int MWSend MWARGS((int));
void MWHold MWARGS((void));
void MWPurge MWARGS((void));
void MWPanic MWARGS((char *));
void MWPrint MWARGS((struct MWAlc *, int, LONG, LONG));