https://github.com/Singular/Sources
Tip revision: 35c6e2c47bae1f858ec6f4a0cdab911b80a1c383 authored by Hans Schoenemann on 22 January 2021, 14:55:14 UTC
fix: map Z, Zn ->Zp, mpz_z ->Zp
fix: map Z, Zn ->Zp, mpz_z ->Zp
Tip revision: 35c6e2c
omStats.c
/*******************************************************************
* File: omStats.c
* Purpose: definitions of stats related stuff
* Author: obachman (Olaf Bachmann)
* Created: 11/99
*******************************************************************/
#include <unistd.h>
#include "omConfig.h"
#ifdef HAVE_OMALLOC
#include "omDefaultConfig.h"
#include "omMalloc.h"
#include "omalloc.h"
omInfo_t om_Info = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
unsigned long om_SbrkInit = 0;
void omInitInfo()
{
#ifdef HAVE_SBRK
om_SbrkInit = (unsigned long) sbrk(0);
#endif
}
void omUpdateInfo()
{
#ifdef OM_MALLOC_UPDATE_INFO
OM_MALLOC_UPDATE_INFO;
#endif
/* this can happen, since sizes are added as requested, and
subtracted as the real size of the memory */
if (om_Info.CurrentBytesFromMalloc < 0)
om_Info.CurrentBytesFromMalloc = 0;
om_Info.UsedBytesFromValloc = omGetUsedBinBytes();
om_Info.AvailBytesFromValloc = om_Info.CurrentBytesFromValloc - om_Info.UsedBytesFromValloc;
#ifdef OM_MALLOC_USED_BYTES
om_Info.UsedBytesMalloc = OM_MALLOC_USED_BYTES;
#else
om_Info.UsedBytesMalloc = om_Info.CurrentBytesFromMalloc
-om_Info.InternalUsedBytesMalloc;
#endif
#ifdef OM_MALLOC_AVAIL_BYTES
om_Info.AvailBytesMalloc = OM_MALLOC_AVAIL_BYTES;
#endif
om_Info.UsedBytes = om_Info.UsedBytesMalloc + om_Info.UsedBytesFromValloc;
om_Info.AvailBytes = om_Info.AvailBytesMalloc + om_Info.AvailBytesFromValloc;
#ifdef OM_HAVE_VALLOC_MMAP
om_Info.CurrentBytesMmap = om_Info.CurrentBytesFromValloc;
om_Info.MaxBytesMmap = om_Info.MaxBytesFromValloc;
#endif
#ifdef OM_MALLOC_CURRENT_BYTES_MMAP
om_Info.CurrentBytesMmap += OM_MALLOC_CURRENT_BYTES_MMAP;
#endif
#ifdef OM_MALLOC_MAX_BYTES_MMAP
om_Info.MaxBytesMmap += OM_MALLOC_MAX_BYTES_MMAP;
#endif
#ifndef OM_MALLOC_CURRENT_BYTES_SBRK
#ifdef HAVE_SBRK
if (om_SbrkInit)
{
om_Info.CurrentBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
if (om_Info.CurrentBytesSbrk > om_Info.MaxBytesSbrk)
om_Info.MaxBytesSbrk = om_Info.CurrentBytesSbrk;
}
else
{
om_SbrkInit = (unsigned long) sbrk(0);
}
#endif
#else
om_Info.CurrentBytesSbrk = OM_MALLOC_CURRENT_BYTES_SBRK;
#ifdef OM_MALLOC_MAX_BYTES_SBRK
om_Info.MaxBytesSbrk = OM_MALLOC_MAX_BYTES_SBRK;
#else
if (om_Info.CurrentBytesSbrk > om_Info.MaxBytesSbrk)
om_Info.MaxBytesSbrk = om_Info.CurrentBytesSbrk;
#endif
#endif
#ifdef OM_MALLOC_CURRENT_BYTES_SYSTEM
om_Info.CurrentBytesSystem = OM_MALLOC_CURRENT_BYTES_SYSTEM;
#else
om_Info.CurrentBytesSystem =
(om_Info.CurrentBytesSbrk > om_Info.UsedBytesMalloc ?
om_Info.CurrentBytesSbrk : om_Info.UsedBytesMalloc);
#endif
#ifdef OM_HAVE_VALLOC_MMAP
om_Info.CurrentBytesSystem += om_Info.CurrentBytesFromValloc;
#endif
#if ! (defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM))
#ifdef OM_MALLOC_MAX_BYTES_SYSTEM
om_Info.MaxBytesSystem = OM_MALLOC_MAX_BYTES_SYSTEM;
#else
om_Info.MaxBytesSystem =
(om_Info.MaxBytesSbrk + om_Info.MaxBytesMmap >
om_Info.MaxBytesFromMalloc + om_Info.MaxBytesFromValloc ?
om_Info.MaxBytesSbrk + om_Info.MaxBytesMmap :
om_Info.MaxBytesFromMalloc + om_Info.MaxBytesFromValloc);
#endif
#endif
}
omInfo_t omGetInfo()
{
omUpdateInfo();
return om_Info;
}
void omPrintStats(FILE* fd)
{
omUpdateInfo();
fprintf(fd, "System %ldk:%ldk Appl %ldk/%ldk Malloc %ldk/%ldk Valloc %ldk/%ldk Pages %ld/%ld Regions %ld:%ld Internal: %ld\n",
om_Info.CurrentBytesSystem/1024, om_Info.MaxBytesSystem/1024,
om_Info.UsedBytes/1024, om_Info.AvailBytes/1024,
om_Info.UsedBytesMalloc/1024, om_Info.AvailBytesMalloc/1024,
om_Info.CurrentBytesFromValloc/1024, om_Info.AvailBytesFromValloc/1024,
om_Info.UsedPages, om_Info.AvailPages,
om_Info.CurrentRegionsAlloc, om_Info.MaxRegionsAlloc,
om_Info.InternalUsedBytesMalloc);
}
void omPrintInfo(FILE* fd)
{
omUpdateInfo();
fputs(" Current: Max:\n",fd);
fprintf(fd, "BytesSystem: %8ldk %8ldk\n", om_Info.CurrentBytesSystem/1024, om_Info.MaxBytesSystem/1024);
fprintf(fd, "BytesSbrk: %8ldk %8ldk\n", om_Info.CurrentBytesSbrk/1024, om_Info.MaxBytesSbrk/1024);
fprintf(fd, "BytesMmap: %8ldk %8ldk\n", om_Info.CurrentBytesMmap/1024, om_Info.MaxBytesMmap/1024);
fprintf(fd, "BytesFromMalloc: %8ldk %8ldk\n", om_Info.CurrentBytesFromMalloc/1024, om_Info.MaxBytesFromMalloc/1024);
fprintf(fd, "BytesFromValloc: %8ldk %8ldk\n", om_Info.CurrentBytesFromValloc/1024, om_Info.MaxBytesFromValloc/1024);
fprintf(fd, "PagesAlloc: %8ld %8ld \n", om_Info.UsedPages, om_Info.MaxPages);
fprintf(fd, "RegionsAlloc: %8ld %8ld \n", om_Info.CurrentRegionsAlloc, om_Info.MaxRegionsAlloc);
fputs(" Used: Avail:\n",fd);
fprintf(fd, "BytesAppl: %8ldk %8ldk\n", om_Info.UsedBytes/1024, om_Info.AvailBytes/1024);
fprintf(fd, "BytesMalloc: %8ldk %8ldk\n", om_Info.UsedBytesMalloc/1024, om_Info.AvailBytesMalloc/1024);
fprintf(fd, "BytesValloc: %8ldk %8ldk\n", om_Info.UsedBytesFromValloc/1024, om_Info.AvailBytesFromValloc/1024);
fprintf(fd, "Pages: %8ld %8ld\n", om_Info.UsedPages, om_Info.AvailPages);
}
#else
#include "omalloc/xalloc.h"
int om_sing_opt_show_mem; /* dummy */
struct omInfo_s om_Info; /* dummy */
struct omOpts_s om_Opts; /* dummy */
#endif