gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-22 16:33:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

Version used for malloc debugging.

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@53 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
mccallum 1995-01-13 17:52:53 +00:00
parent 299420a833
commit 8985ea6f8f
1 changed files with 30 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
Examples/second-client.m
View file

@ -1,5 +1,17 @@
#include "second-client.h"
#define IRIX_MALLOC_DEBUG 0
#define GNU_MALLOC_DEBUG 1
#if IRIX_MALLOC_DEBUG
#include <sys/types.h>
#include <malloc.h>
#endif
#if GNU_MALLOC_DEBUG
#include "/scratch/mccallum/malloc/malloc.h"
#endif
int main(int argc, char *argv[])
{
id server;
@ -7,6 +19,18 @@ int main(int argc, char *argv[])
id remote_array;
char namebuf[16];
#if IRIX_MALLOC_DEBUG
mallopt(M_DEBUG, 1);
#endif
#if GNU_MALLOC_DEBUG
{
int r = mcheck(NULL);
printf("%d\n", r);
assert(r==0);
}
#endif
printf("Looking up server object on localhost with name `secondserver'\n");
server = [Connection rootProxyAtName:"secondserver"];
printf("Found server.\n");
@ -27,13 +51,17 @@ int main(int argc, char *argv[])
{
int i, count;
const char *s;
id a2; /* appellation object from server's list */
count = [remote_array count];
for (i = 0; i < count; i++)
{
s = [[remote_array objectAtIndex:i] appellation];
a2 = [remote_array objectAtIndex:i];
s = [a2 appellation];
//mprobe(s);
printf("Server knows about client with appellation %s\n", s);
(*objc_free)((void*)s);
if ([a2 isProxy])
(*objc_free)((void*)s);
}
}