Implemented two new functions in sys: getcounts() returns a list of counts of allocations and deallocations for all different object types. getobjects(n [, type ]) returns a list of recently allocated and not-yet-freed objects of the given type (all objects if no type given). Only the n most recent (all if n==0) objects are returned. getcounts is only available if compiled with -DCOUNT_ALLOCS, getobjects is only available if compiled with -DTRACE_REFS. Note that everything must be compiled with these options!

/* Return the full version string. */

#include "patchlevel.h"

#define VERSION "%s (%s) %s"

#ifdef __DATE__
#define DATE __DATE__
#else
#define DATE "August 1 1995"
#endif

extern const char *getcompiler();

const char *
getversion()
{
	static char version[80];
	sprintf(version, VERSION, PATCHLEVEL, DATE, getcompiler());
	return version;
}