libgsmfr/src/debug.c

   1 /*
   2  * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
   3  * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
   4  * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
   5  */
   6
   7 /* $Header: /tmp_amd/presto/export/kbs/jutta/src/gsm/RCS/debug.c,v 1.2 1993/01/29 18:22:20 jutta Exp $ */
   8
   9 #include "private.h"
  10
  11 #ifndef NDEBUG
  12
  13 /* If NDEBUG _is_ defined and no debugging should be performed,
  14  * calls to functions in this module are #defined to nothing
  15  * in private.h.
  16  */
  17
  18 #include <stdio.h>
  19 #include "proto.h"
  20
  21 void gsm_debug_words P4( (name, from, to, ptr),
  22         char          * name,
  23         int             from,
  24         int             to,
  25         word            * ptr)
  26 {
  27         int     nprinted = 0;
  28
  29         fprintf( stderr, "%s [%d .. %d]: ", name, from, to );
  30         while (from <= to) {
  31                 fprintf(stderr, "%d ", ptr[ from ] );
  32                 from++;
  33                 if (nprinted++ >= 7) {
  34                         nprinted = 0;
  35                         if (from < to) putc('\n', stderr);
  36                 }
  37         }
  38         putc('\n', stderr);
  39 }
  40
  41 void gsm_debug_longwords P4( (name, from, to, ptr),
  42         char          * name,
  43         int             from,
  44         int             to,
  45         longword      * ptr)
  46 {
  47         int     nprinted = 0;
  48
  49         fprintf( stderr, "%s [%d .. %d]: ", name, from, to );
  50         while (from <= to) {
  51
  52                 fprintf(stderr, "%d ", ptr[ from ] );
  53                 from++;
  54                 if (nprinted++ >= 7) {
  55                         nprinted = 0;
  56                         if (from < to) putc('\n', stderr);
  57                 }
  58         }
  59         putc('\n', stderr);
  60 }
  61
  62 void gsm_debug_longword P2(  (name, value),
  63         char            * name,
  64         longword          value )
  65 {
  66         fprintf(stderr, "%s: %d\n", name, (long)value );
  67 }
  68
  69 void gsm_debug_word P2(  (name, value),
  70         char    * name,
  71         word      value )
  72 {
  73         fprintf(stderr, "%s: %d\n", name, (long)value);
  74 }
  75
  76 #endif