regina/dbgfuncs.c

   1 /*
   2  *  The Regina Rexx Interpreter
   3  *  Copyright (C) 1992-1994  Anders Christensen <anders@pvv.unit.no>
   4  *
   5  *  This library is free software; you can redistribute it and/or
   6  *  modify it under the terms of the GNU Library General Public
   7  *  License as published by the Free Software Foundation; either
   8  *  version 2 of the License, or (at your option) any later version.
   9  *
  10  *  This library is distributed in the hope that it will be useful,
  11  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  *  Library General Public License for more details.
  14  *
  15  *  You should have received a copy of the GNU Library General Public
  16  *  License along with this library; if not, write to the Free
  17  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  */
  19
  20 #include "rexx.h"
  21 #include <stdio.h>
  22 #include <string.h>
  23 #include <assert.h>
  24
  25 #ifdef REGINA_DEBUG_MEMORY
  26 streng *dbg_freelists( tsd_t *TSD, cparamboxptr dummy )
  27 {
  28    show_free_lists(TSD);
  29    return nullstringptr() ;
  30 }
  31 #endif
  32
  33 streng *dbg_traceback( tsd_t *TSD, cparamboxptr dummy )
  34 {
  35    traceback(TSD) ;
  36    dummy = dummy; /* keep compiler happy */
  37    return nullstringptr() ;
  38 }
  39
  40 #ifndef NDEBUG
  41
  42
  43 streng *dbg_dumpvars( tsd_t *TSD, cparamboxptr dummy )
  44 {
  45    dumpvars(TSD);
  46    dummy = dummy; /* keep compiler happy */
  47    return nullstringptr() ;
  48 }
  49
  50
  51 #ifdef TRACEMEM
  52 streng *dbg_memorystats( tsd_t *TSD, cparamboxptr parms )
  53 {
  54    memory_stats(TSD) ;
  55    return nullstringptr() ;
  56 }
  57
  58
  59 streng *dbg_allocated( tsd_t *TSD, cparamboxptr parms )
  60 {
  61    char ch=' ' ;
  62    streng *ptr=NULL ;
  63
  64    checkparam(  parms,  0,  1 , "ALLOCATED" ) ;
  65    if (!parms->value)
  66       ch = 'S' ;
  67    else
  68       ch = getonechar( TSD, parms->value, "ALLOCATED", 1 ) ;
  69
  70    switch ( ch )
  71    {
  72       case 'A' :
  73          ptr = int_to_streng( TSD,have_allocated(TSD, MEM_ALLOC)) ;
  74          break ;
  75
  76       case 'L' :
  77          ptr = int_to_streng( TSD,have_allocated(TSD, MEM_LEAKED)) ;
  78          break ;
  79
  80       case 'C' :
  81          ptr = int_to_streng( TSD,have_allocated(TSD, MEM_CURRENT)) ;
  82          break ;
  83
  84       case 'S' :
  85           ptr = Str_makeTSD( 132 ) ;
  86           sprintf( ptr->value,"Memory: Allocated=%d, Current=%d, Leaked=%d",
  87                  have_allocated(TSD, MEM_ALLOC),
  88                  have_allocated(TSD, MEM_CURRENT),
  89                  have_allocated(TSD, MEM_LEAKED)) ;
  90
  91           ptr->len = strlen( ptr->value ) ;
  92           assert( ptr->len <= ptr->max ) ;
  93           break ;
  94
  95       default:
  96           exiterror( ERR_INCORRECT_CALL, 28, "ALLOCATED", "ALCS", tmpstr_of( TSD, parms->value ) )  ;
  97    }
  98
  99    return( ptr ) ;
 100 }
 101 #endif
 102
 103
 104 streng *dbg_dumptree( tsd_t *TSD, cparamboxptr dummy )
 105 {
 106    dumptree( TSD, TSD->systeminfo->tree.root, 1, 1 ) ;
 107    dummy = dummy; /* keep compiler happy */
 108    return nullstringptr() ;
 109 }
 110
 111
 112 #ifdef TRACEMEM
 113
 114
 115 streng *dbg_listleaked( tsd_t *TSD, cparamboxptr parms )
 116 {
 117    char ch=0 ;
 118    int i=0 ;
 119
 120    checkparam(  parms,  0,  1 , "LISTLEAKED" ) ;
 121    if (parms->value)
 122       ch = getonechar( TSD, parms->value, "LISTLEAKED", 1 ) ;
 123    else
 124       ch = 'L' ;
 125
 126    if (ch=='N')
 127       i = listleaked( TSD, MEMTRC_NONE ) ;
 128    else if (ch=='L')
 129       i = listleaked( TSD, MEMTRC_LEAKED ) ;
 130    else if (ch=='A')
 131       i = listleaked( TSD, MEMTRC_ALL ) ;
 132    else
 133       exiterror( ERR_INCORRECT_CALL, 28, "LISTLEAKED", "ALN", tmpstr_of( TSD, parms->value ) )  ;
 134
 135    return int_to_streng( TSD, i ) ;
 136 }
 137 #endif
 138
 139 #endif /* !NDEBUG */