15e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh/* 25e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische 35e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh * Universitaet Berlin. See the accompanying file "COPYRIGHT" for 45e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh * details. THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE. 55e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh */ 65e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 75e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh/* $Header: /tmp_amd/presto/export/kbs/jutta/src/gsm/RCS/debug.c,v 1.2 1993/01/29 18:22:20 jutta Exp $ */ 85e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 95e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh#include "private.h" 105e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 115e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh#ifndef NDEBUG 125e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 135e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh/* If NDEBUG _is_ defined and no debugging should be performed, 145e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh * calls to functions in this module are #defined to nothing 155e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh * in private.h. 165e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh */ 175e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 185e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh#include <stdio.h> 195e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh#include "proto.h" 205e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 215e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yehvoid gsm_debug_words P4( (name, from, to, ptr), 225e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh char * name, 235e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int from, 245e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int to, 255e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh word * ptr) 265e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh{ 275e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int nprinted = 0; 285e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 295e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf( stderr, "%s [%d .. %d]: ", name, from, to ); 305e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh while (from <= to) { 315e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf(stderr, "%d ", ptr[ from ] ); 325e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh from++; 335e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh if (nprinted++ >= 7) { 345e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh nprinted = 0; 355e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh if (from < to) putc('\n', stderr); 365e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh } 375e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh } 385e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh putc('\n', stderr); 395e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh} 405e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 415e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yehvoid gsm_debug_longwords P4( (name, from, to, ptr), 425e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh char * name, 435e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int from, 445e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int to, 455e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh longword * ptr) 465e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh{ 475e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh int nprinted = 0; 485e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 495e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf( stderr, "%s [%d .. %d]: ", name, from, to ); 505e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh while (from <= to) { 515e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 525e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf(stderr, "%d ", ptr[ from ] ); 535e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh from++; 545e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh if (nprinted++ >= 7) { 555e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh nprinted = 0; 565e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh if (from < to) putc('\n', stderr); 575e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh } 585e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh } 595e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh putc('\n', stderr); 605e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh} 615e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 625e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yehvoid gsm_debug_longword P2( (name, value), 635e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh char * name, 645e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh longword value ) 655e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh{ 665e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf(stderr, "%s: %d\n", name, (long)value ); 675e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh} 685e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 695e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yehvoid gsm_debug_word P2( (name, value), 705e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh char * name, 715e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh word value ) 725e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh{ 735e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh fprintf(stderr, "%s: %d\n", name, (long)value); 745e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh} 755e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh 765e4516958690b9a1b2c98f88eeecba3edd2dbda4Chia-chi Yeh#endif 77