osdebug.c

Go to the documentation of this file.
00001 /*
00002  * Copyright (C) 2001-2005 by egnite Software GmbH. All rights reserved.
00003  *
00004  * Redistribution and use in source and binary forms, with or without
00005  * modification, are permitted provided that the following conditions
00006  * are met:
00007  *
00008  * 1. Redistributions of source code must retain the above copyright
00009  *    notice, this list of conditions and the following disclaimer.
00010  * 2. Redistributions in binary form must reproduce the above copyright
00011  *    notice, this list of conditions and the following disclaimer in the
00012  *    documentation and/or other materials provided with the distribution.
00013  * 3. Neither the name of the copyright holders nor the names of
00014  *    contributors may be used to endorse or promote products derived
00015  *    from this software without specific prior written permission.
00016  *
00017  * THIS SOFTWARE IS PROVIDED BY EGNITE SOFTWARE GMBH AND CONTRIBUTORS
00018  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
00019  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
00020  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL EGNITE
00021  * SOFTWARE GMBH OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
00022  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
00023  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
00024  * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
00025  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
00026  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
00027  * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
00028  * SUCH DAMAGE.
00029  *
00030  * For additional information see http://www.ethernut.de/
00031  *
00032  */
00033 
00034 /*
00035  * $Log: osdebug.c,v $
00036  * Revision 1.7  2005/07/26 15:50:00  haraldkipp
00037  * Cygwin support added.
00038  *
00039  * Revision 1.6  2005/07/12 14:07:14  freckle
00040  * removed unnecessary critical sections
00041  *
00042  * Revision 1.5  2005/06/12 16:55:24  haraldkipp
00043  * Timer pool has been removed from the kernel.
00044  *
00045  * Revision 1.4  2004/04/07 12:13:58  haraldkipp
00046  * Matthias Ringwald's *nix emulation added
00047  *
00048  * Revision 1.3  2004/03/19 09:05:12  jdubiec
00049  * Fixed format strings declarations for AVR.
00050  *
00051  * Revision 1.2  2004/03/16 16:48:45  haraldkipp
00052  * Added Jan Dubiec's H8/300 port.
00053  *
00054  * Revision 1.1.1.1  2003/05/09 14:41:52  haraldkipp
00055  * Initial using 3.2.1
00056  *
00057  * Revision 1.8  2003/04/21 17:09:01  harald
00058  * *** empty log message ***
00059  *
00060  * Revision 1.7  2003/02/04 18:15:57  harald
00061  * Version 3 released
00062  *
00063  * Revision 1.6  2002/06/26 17:29:44  harald
00064  * First pre-release with 2.4 stack
00065  *
00066  */
00067 
00068 #include <compiler.h>
00069 #include <sys/thread.h>
00070 #include <sys/timer.h>
00071 #include <sys/event.h>
00072 #include <sys/heap.h>
00073 
00074 #include <sys/osdebug.h>
00075 
00076 #if defined(__arm__) || defined(__m68k__) || defined(__H8300H__) || defined(__H8300S__) || defined(__linux__) || defined(__APPLE__) || defined(__CYGWIN__)
00077 #define ARCH_32BIT
00078 #endif
00079 
00080 
00081 FILE *__os_trs;
00082 u_char __os_trf;
00083 
00084 FILE *__heap_trs;
00085 u_char __heap_trf;
00086 
00087 static char *states[] = { "TRM", "RUN", "RDY", "SLP" };
00088 
00089 #ifdef ARCH_32BIT
00090 /*                              12345678 12345678 1234 123 12345678 12345678 12345678 1234556789 */
00091 static prog_char qheader[] = "\nHandle   Name     Prio Sta Queue    Timer    StackPtr FreeMem\n";
00092 #else
00093 /*                              1234 12345678 1234 123 1234 1234 1234 12345 */
00094 static prog_char qheader[] = "\nHndl Name     Prio Sta QUE  Timr StkP FreeMem\n";
00095 #endif
00096 
00106 void NutDumpThreadQueue(FILE * stream, NUTTHREADINFO * tdp)
00107 {
00108 #ifdef ARCH_32BIT
00109     static prog_char fmt[] = "%08lX %-8s %4u %s %08lX %08lX %08lX %9lu %s\n";
00110 #else
00111     static prog_char fmt[] = "%04X %-8s %4u %s %04X %04X %04X %5u %s\n";
00112 #endif
00113 
00114     if (tdp == SIGNALED)
00115         fputs("SIGNALED\n", stream);
00116     else {
00117         while (tdp) {
00118 #if defined(__linux__) || defined(__APPLE__) || defined(__CYGWIN__)
00119             fprintf_P(stream, fmt, (uptr_t) tdp, tdp->td_name, tdp->td_priority,
00120                       states[tdp->td_state], (uptr_t) tdp->td_queue, (uptr_t) tdp->td_timer, tdp->td_cs_level, 0, "--");
00121 #else
00122             fprintf_P(stream, fmt, (uptr_t) tdp, tdp->td_name, tdp->td_priority,
00123                       states[tdp->td_state], (uptr_t) tdp->td_queue,
00124                       (uptr_t) tdp->td_timer, tdp->td_sp,
00125                       (uptr_t) tdp->td_sp - (uptr_t) tdp->td_memory,
00126                       *((u_long *) tdp->td_memory) != DEADBEEF
00127                       && *((u_long *) (tdp->td_memory + 4)) != DEADBEEF
00128                       && *((u_long *) (tdp->td_memory + 8)) != DEADBEEF
00129                       && *((u_long *) (tdp->td_memory + 12)) != DEADBEEF ? "FAIL" : "OK");
00130 #endif
00131             tdp = tdp->td_qnxt;
00132 
00133         }
00134     }
00135 }
00136 
00145 void NutDumpThreadList(FILE * stream)
00146 {
00147 
00148 #ifdef ARCH_32BIT
00149     static prog_char fmt1[] = "%08lX %-8s %4u %s %08lX %08lX %08lX %9lu %s";
00150     static prog_char fmt2[] = " %08lX";
00151 #else
00152     static prog_char fmt1[] = "%04X %-8s %4u %s %04X %04X %04X %5u %s";
00153     static prog_char fmt2[] = " %04X";
00154 #endif
00155     NUTTHREADINFO *tqp;
00156     NUTTHREADINFO *tdp;
00157 
00158     fputs_P(qheader, stream);
00159 
00160     tdp = nutThreadList;
00161     while (tdp) {
00162 #if defined(__linux__) || defined(__APPLE__) || defined(__CYGWIN__)
00163         fprintf_P(stream, fmt1, (uptr_t) tdp, tdp->td_name, tdp->td_priority,
00164                   states[tdp->td_state], (uptr_t) tdp->td_queue, (uptr_t) tdp->td_timer, tdp->td_cs_level, 0, "--");
00165 #else
00166         fprintf_P(stream, fmt1, (uptr_t) tdp, tdp->td_name, tdp->td_priority,
00167                   states[tdp->td_state], (uptr_t) tdp->td_queue,
00168                   (uptr_t) tdp->td_timer, tdp->td_sp,
00169                   (uptr_t) tdp->td_sp - (uptr_t) tdp->td_memory, *((u_long *) tdp->td_memory) != DEADBEEF ? "FAIL" : "OK");
00170 #endif
00171         if (tdp->td_queue) {
00172             tqp = *(NUTTHREADINFO **) (tdp->td_queue);
00173             if (tqp == SIGNALED)
00174                 fputs("SIGNALED", stream);
00175             else {
00176                 while (tqp) {
00177                     fprintf_P(stream, fmt2, (uptr_t) tqp);
00178                     tqp = tqp->td_qnxt;
00179                 }
00180             }
00181         }
00182         fputc('\n', stream);
00183         tdp = tdp->td_next;
00184     }
00185 }
00186 
00195 void NutDumpTimerList(FILE * stream)
00196 {
00197 
00198     static prog_char wname[] = "NutThreadWake";
00199     static prog_char tname[] = "NutEventTimeout";
00200 #ifdef ARCH_32BIT
00201     static prog_char theader[] = "Address  Ticks  Left Callback\n";
00202     static prog_char fmt1[] = "%08lX%6lu%6lu ";
00203     static prog_char fmt2[] = "%09lX";
00204     static prog_char fmt3[] = "(%08lX)\n";
00205 #else
00206     static prog_char theader[] = "Addr Ticks  Left Callback\n";
00207     static prog_char fmt1[] = "%04X%6lu%6lu ";
00208     static prog_char fmt2[] = "%05lX";
00209     static prog_char fmt3[] = "(%04X)\n";
00210 #endif
00211 
00212     NUTTIMERINFO *tnp;
00213     if ((tnp = nutTimerList) != 0) {
00214         fputs_P(theader, stream);
00215         while (tnp) {
00216             fprintf_P(stream, fmt1, (uptr_t) tnp, tnp->tn_ticks, tnp->tn_ticks_left);
00217             if (tnp->tn_callback == NutThreadWake)
00218                 fputs_P(wname, stream);
00219             else if (tnp->tn_callback == NutEventTimeout)
00220                 fputs_P(tname, stream);
00221             else
00222                 fprintf_P(stream, fmt2, (u_long) ((uptr_t) tnp->tn_callback) << 1);
00223             fprintf_P(stream, fmt3, (uptr_t) tnp->tn_arg);
00224             tnp = tnp->tn_next;
00225         }
00226     }
00227 }
00228 
00236 void NutTraceOs(FILE * stream, u_char flags)
00237 {
00238     if (stream)
00239         __os_trs = stream;
00240     if (__os_trs)
00241         __os_trf = flags;
00242     else
00243         __os_trf = 0;
00244 }
00245 
00252 void NutDumpHeap(FILE * stream)
00253 {
00254 
00255 #ifdef ARCH_32BIT
00256     static prog_char fmt1[] = "%08lx %9ld\n";
00257     static prog_char fmt2[] = "%lu counted, but %lu reported\n";
00258     static prog_char fmt3[] = "%lu bytes free\n";
00259 #else
00260     static prog_char fmt1[] = "%04x %5d\n";
00261     static prog_char fmt2[] = "%u counted, but %u reported\n";
00262     static prog_char fmt3[] = "%u bytes free\n";
00263 #endif
00264     HEAPNODE *node;
00265     size_t sum = 0;
00266     size_t avail;
00267 
00268     fputc('\n', stream);
00269     for (node = heapFreeList; node; node = node->hn_next) {
00270         sum += node->hn_size;
00271         fprintf_P(stream, fmt1, (uptr_t) node, node->hn_size);
00272         /* TODO: Remove hardcoded RAMSTART and RAMEND */
00273         if ((uptr_t) node < 0x60 || (uptr_t) node > 0x7fff)
00274             break;
00275     }
00276     if ((avail = NutHeapAvailable()) != sum)
00277         fprintf_P(stream, fmt2, sum, avail);
00278     else
00279         fprintf_P(stream, fmt3, avail);
00280 }
00281 
00289 void NutTraceHeap(FILE * stream, u_char flags)
00290 {
00291     if (stream)
00292         __heap_trs = stream;
00293     if (__heap_trs)
00294         __heap_trf = flags;
00295     else
00296         __heap_trf = 0;
00297 }

© 2000-2007 by egnite Software GmbH - visit http://www.ethernut.de/