diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

improve statistics from ^c handler

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@391 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-27 02:39:11 +00:00
parent ec2e474e5c
commit d5a0f6d9ec
1 changed files with 19 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
C/sysbits.c
View File

@ -1107,56 +1107,25 @@ InteractSIGINT(int ch) {
#endif #endif
case 's': case 's':
/* show some statistics */ /* show some statistics */
#if SHORT_INTS==0 {
YP_fprintf(YP_stderr, "aux. stack: %d ", Unsigned (AuxTop) - unsigned long int heap_space_taken =
Unsigned (LCL0 + 1)); (unsigned long int)(Unsigned(HeapTop)-Unsigned(HeapBase));
if (Unsigned (AuxSp) <= Unsigned (LCL0)) double frag = (100.0*(heap_space_taken-HeapUsed))/heap_space_taken;
YP_fprintf(YP_stderr, "( 0 bytes used)\n"); YP_fprintf(YP_stderr, "Code Space: %ld (%ld bytes used, fragmentation %.3f\%).\n",
else (unsigned long int)(Unsigned (AuxTop) - Unsigned (HeapBase)),
YP_fprintf(YP_stderr, "( %d bytes used)\n", (unsigned long int)(HeapUsed),
Unsigned (AuxSp) - Unsigned (LCL0 + 1)); frag);
YP_fprintf(YP_stderr, "heap space: %d ", Unsigned (AuxTop) - YP_fprintf(YP_stderr, "Stack Space: %ld (%ld for Global, %ld for local).\n",
Unsigned (HeapBase)); (unsigned long int)(sizeof(CELL)*(LCL0-H0)),
YP_fprintf(YP_stderr, "( %d bytes used for heap", (unsigned long int)(sizeof(CELL)*(H-H0)),
Unsigned (HeapUsed)); (unsigned long int)(sizeof(CELL)*(LCL0-ASP)));
YP_fprintf(YP_stderr, " and %d bytes used for trail)\n", YP_fprintf(YP_stderr, "Trail Space: %ld (%ld used).\n",
Unsigned (TR) - Unsigned (TrailBase)); (unsigned long int)(sizeof(tr_fr_ptr)*(Unsigned(TrailTop)-Unsigned(TrailBase))),
YP_fprintf(YP_stderr, "stack space: %d ", Unsigned (LCL0) - (unsigned long int)(sizeof(tr_fr_ptr)*(Unsigned(TR)-Unsigned(TrailBase))));
Unsigned (H0)); YP_fprintf(YP_stderr, "Runtime: %lds.\n", (unsigned long int)(runtime ()));
YP_fprintf(YP_stderr, "( %d bytes used for local", YP_fprintf(YP_stderr, "Cputime: %lds.\n", (unsigned long int)(cputime ()));
Unsigned (LCL0) - Unsigned (ASP)); YP_fprintf(YP_stderr, "Walltime: %lds.\n", (unsigned long int)(walltime ()));
YP_fprintf(YP_stderr, " and %d bytes used for global)\n", }
Unsigned (H) - Unsigned (H0));
#else
YP_fprintf(YP_stderr, "aux. stack: %ld ", Unsigned (AuxTop) -
Unsigned (LCL0 + 1));
if (Unsigned (AuxSp) <= Unsigned (LCL0))
YP_fprintf(YP_stderr, "( 0 bytes used)\n");
else
YP_fprintf(YP_stderr, "( %ld bytes used)\n",
Unsigned (AuxSp) - Unsigned (LCL0 + 1));
YP_fprintf(YP_stderr, "heap space: %ld ", Unsigned (AuxTop) -
Unsigned (HeapBase));
YP_fprintf(YP_stderr, "( %ld bytes used for heap",
Unsigned (HeapUsed));
YP_fprintf(YP_stderr, " and %ld bytes used for trail)\n",
Unsigned (TR) - Unsigned (TrailBase));
YP_fprintf(YP_stderr, "stack space: %ld ", Unsigned (LCL0) -
Unsigned (H0));
YP_fprintf(YP_stderr, "( %ld bytes used for local",
Unsigned (LCL0) - Unsigned (ASP));
YP_fprintf(YP_stderr, " and %ld bytes used for global)\n",
Unsigned (H) - Unsigned (H0));
#endif
#if SHORT_INTS
YP_fprintf(YP_stderr, "Runtime: %lds.\n", runtime ());
YP_fprintf(YP_stderr, "Cputime: %lds.\n", cputime ());
YP_fprintf(YP_stderr, "Walltime: %lds.\n", walltime ());
#else
YP_fprintf(YP_stderr, "Runtime: %ds.\n", runtime ());
YP_fprintf(YP_stderr, "Cputime: %ds.\n", cputime ());
YP_fprintf(YP_stderr, "Walltime: %ds.\n", walltime ());
#endif
return(1); return(1);
case EOF: case EOF:
return(0); return(0);