flash_v2: packages/infra/current/src/fancy.cxx annotate

annotate packages/infra/current/src/fancy.cxx @ 210:d2c90368aeef

Merge from eCos master repository on 2002-05-23-21:39:14-BST

author	jlarmour
date	Thu, 23 May 2002 22:59:51 +0000
parents	e0c0827131d1
children	b43ec5f18a97

rev	line source
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	1 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	2 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	3 // fancy.cxx
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	4 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	5 // Fancy formatting trace and assert functions
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	6 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	7 //==========================================================================
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	8 //####ECOSGPLCOPYRIGHTBEGIN####
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	9 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	10 // This file is part of eCos, the Embedded Configurable Operating System.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	12 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	13 // eCos is free software; you can redistribute it and/or modify it under
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	14 // the terms of the GNU General Public License as published by the Free
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	15 // Software Foundation; either version 2 or (at your option) any later version.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	16 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	19 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	20 // for more details.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	21 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	22 // You should have received a copy of the GNU General Public License along
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	23 // with eCos; if not, write to the Free Software Foundation, Inc.,
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	25 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	26 // As a special exception, if other files instantiate templates or use macros
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	27 // or inline functions from this file, or you compile this file and link it
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	28 // with other works to produce a work based on this file, this file does not
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	29 // by itself cause the resulting work to be covered by the GNU General Public
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	30 // License. However the source code for this file must still be made available
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	31 // in accordance with section (3) of the GNU General Public License.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	32 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	33 // This exception does not invalidate any other reasons why a work based on
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	34 // this file might be covered by the GNU General Public License.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	35 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
210 d2c90368aeef Merge from eCos master repository on 2002-05-23-21:39:14-BST jlarmour parents: 208 diff changeset	37 // at http://sources.redhat.com/ecos/ecos-license/
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	38 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	39 //####ECOSGPLCOPYRIGHTEND####
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	40 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	41 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	42 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	43 // Author(s): nickg
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	44 // Contributors: nickg
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	45 // Date: 1997-12-04
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	46 // Purpose: Fancy Trace and assert functions
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	47 // Description: The functions in this file are fancy implementations of the
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	48 // standard trace and assert functions. These do printf
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	49 // style formatting, printing the string and arguments.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	50 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	51 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	52 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	53 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	54
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	55 #include <pkgconf/system.h>
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	56 #include <pkgconf/infra.h>
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	57
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	58 #ifdef CYGDBG_INFRA_DEBUG_TRACE_ASSERT_FANCY
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	59
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	60 #include <cyg/infra/cyg_type.h> // base types
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	61 #include <cyg/infra/cyg_trac.h> // tracing macros
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	62 #include <cyg/infra/cyg_ass.h> // assertion macros
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	63
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	64 #include <pkgconf/hal.h> // HAL configury
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	65 #include <cyg/infra/diag.h> // HAL polled output
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	66 #include <cyg/hal/hal_arch.h> // architectural stuff for...
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	67 #include <cyg/hal/hal_intr.h> // interrupt control
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	68
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	69 #ifdef CYGPKG_KERNEL
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	70 #include <pkgconf/kernel.h> // kernel configury
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	71 #include <cyg/kernel/thread.hxx> // thread id to print
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	72 #include <cyg/kernel/sched.hxx> // ancillaries for above
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	73 #include <cyg/kernel/thread.inl> // ancillaries for above
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	74 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	75
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	76 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	77 // Local Configuration: hack me!
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	78
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	79 // these are generally:
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	80 // if 0, feature is disabled
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	81 // if 1, feature is enabled, printing is default width
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	82 // if >1, field is padded up to that width if necessary
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	83 // (not truncated ever)
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	84
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	85 #define CYG_FILENAME 20
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	86 #define CYG_THREADID 0 // DO NOT SET IF NO KERNEL
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	87 #define CYG_LINENUM 4
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	88 #define CYG_FUNCNAME 100
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	89 #define CYG_DIAG_PRINTF 1
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	90 #define CYG_FUNC_INDENT 2
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	91
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	92 #ifndef CYGPKG_KERNEL
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	93 # undef CYG_THREADID
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	94 # define CYG_THREADID 0
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	95 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	96
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	97 #if CYG_FUNCNAME == 1
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	98 #define CYG_FBUF_SIZE 100
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	99 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	100 #define CYG_FBUF_SIZE (CYG_FUNCNAME+20)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	101 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	102
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	103 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	104 // Functions to trim file names and function names down to printable lengths
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	105 // (these are shared between trace and assert functions)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	106
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	107 #ifdef CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	108
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	109 #if 0
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	110 static char * tracepremsgs[] = {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	111 " INFO:",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	112 "ENTER :",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	113 "ARGS :",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	114 "RETURN:",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	115 "bad code"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	116 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	117 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	118
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	119 static char * tracepremsgs[] = {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	120 "'",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	121 "{{",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	122 "((",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	123 "}}",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	124 "bad code"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	125 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	126
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	127 static char * tracepostmsgs[] = {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	128 "'",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	129 "",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	130 "))",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	131 "",
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	132 "bad code"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	133 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	134
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	135 static void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	136 write_whattrace( cyg_uint32 what )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	137 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	138 #if CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	139 static cyg_uint32 cyg_indent = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	140 if ( 3 == what )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	141 cyg_indent -= CYG_FUNC_INDENT;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	142 cyg_uint32 i = cyg_indent;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	143 for ( ; i > 0; i-- )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	144 diag_write_string( " " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	145 #endif // CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	146 diag_write_string( tracepremsgs[ what > 4 ? 4 : what ] );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	147 #if CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	148 if ( 1 == what )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	149 cyg_indent += CYG_FUNC_INDENT;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	150 #endif // CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	151 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	152
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	153 static void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	154 write_whattracepost( cyg_uint32 what )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	155 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	156 diag_write_string( tracepostmsgs[ what > 4 ? 4 : what ] );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	157 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	158 #endif // CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	159
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	160 static const char trim_file(const char file)
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	161 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	162 #if CYG_FILENAME
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	163 if ( NULL == file )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	164 file = "<nofile>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	165
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	166 #if 1 == CYG_FILENAME
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	167 const char *f = file;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	168 while( *f ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	169 while( *f != '/' && f != file ) f--;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	170 return f==file?f:(f+1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	171 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	172 static char fbuf2[100];
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	173 const char *f = file;
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	174 char *g = fbuf2;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	175 while( *f ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	176 while( *f != '/' && f != file ) f--;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	177 if ( f > file ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	178 while( f ) g++ = *f++;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	179 while( CYG_FILENAME > (g - fbuf2) ) *g++ = ' ';
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	180 *g = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	181 return fbuf2;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	182 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	183 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	184 return "";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	185 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	186 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	187
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	188 static const char trim_func(const char func)
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	189 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	190 #if CYG_FUNCNAME
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	191 static char fbuf[CYG_FBUF_SIZE];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	192 int i;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	193
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	194 if ( NULL == func )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	195 func = "<nofunc>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	196
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	197 for( i = 0; func[i] && func[i] != '(' && i < CYG_FBUF_SIZE-4 ; i++ )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	198 fbuf[i] = func[i];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	199
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	200 fbuf[i++] = '(';
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	201 fbuf[i++] = ')';
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	202 fbuf[i ] = 0;
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	203 i=0;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	204 #if 1 == CYG_FUNCNAME
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	205 return &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	206 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	207 char *p = &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	208 while ( *p ) p++;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	209 while ( CYG_FUNCNAME > (p - (&fbuf[i])) ) *p++ = ' ';
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	210 *p = 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	211 return &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	212 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	213 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	214 return "";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	215 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	216 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	217
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	218 void write_lnum( cyg_uint32 lnum)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	219 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	220 #if CYG_LINENUM
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	221 diag_write_char('[');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	222 #if 1 < CYG_LINENUM
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	223 cyg_uint32 i, j;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	224 for ( i = 2, j = 100; i < CYG_LINENUM ; i++, j *= 10 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	225 if ( lnum < j )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	226 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	227 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	228 diag_write_dec(lnum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	229 diag_write_char(']');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	230 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	231 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	232 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	233
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	234 void write_thread_id()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	235 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	236 #if CYG_THREADID
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	237 Cyg_Thread *t = Cyg_Thread::self();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	238 cyg_uint16 tid = 0xFFFF;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	239
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	240 if( t != NULL ) tid = t->get_unique_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	241
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	242 diag_write_char('<');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	243 diag_write_hex(tid);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	244 diag_write_char('>');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	245 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	246 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	247
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	248 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	249 // Trace functions:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	250
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	251 #ifdef CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	252
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	253 externC void
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	254 cyg_tracenomsg( const char psz_func, const char psz_file, cyg_uint32 linenum )
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	255 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	256 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	257
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	258 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	259 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	260
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	261 diag_write_string("TRACE: ");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	262 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	263 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	264 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	265 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	266 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	267
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	268 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	269 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	270
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	271 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	272
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	273 // provide every other one of these as a space/caller bloat compromise.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	274
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	275 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	276 cyg_tracemsg( cyg_uint32 what,
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	277 const char psz_func, const char psz_file, cyg_uint32 linenum,
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	278 const char *psz_msg )
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	279 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	280 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	281
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	282 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	283 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	284
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	285 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	286 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	287
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	288 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	289 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	290 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	291 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	292 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	293 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	294 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	295 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	296 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	297 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	298
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	299 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	300 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	301
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	302 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	303
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	304 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	305 cyg_tracemsg2( cyg_uint32 what,
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	306 const char psz_func, const char psz_file, cyg_uint32 linenum,
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	307 const char *psz_msg,
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	308 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	309 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	310 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	311
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	312 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	313 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	314
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	315 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	316 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	317
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	318 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	319 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	320 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	321 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	322 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	323 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	324 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	325 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	326 diag_printf( psz_msg, arg0, arg1 );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	327 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	328 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	329 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	330 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	331 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	332 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	333 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	334 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	335 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	336 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	337 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	338 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	339
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	340 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	341 cyg_tracemsg4( cyg_uint32 what,
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	342 const char psz_func, const char psz_file, cyg_uint32 linenum,
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	343 const char *psz_msg,
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	344 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	345 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	346 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	347 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	348
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	349 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	350 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	351
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	352 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	353 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	354
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	355 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	356 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	357 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	358 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	359 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	360 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	361 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	362 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	363 diag_printf( psz_msg, arg0, arg1, arg2, arg3 );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	364 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	365 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	366 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	367 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	368 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	369 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	370 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	371 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	372 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	373 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	374 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	375 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	376 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	377
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	378 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	379 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	380 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	381
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	382 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	383 cyg_tracemsg6( cyg_uint32 what,
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	384 const char psz_func, const char psz_file, cyg_uint32 linenum,
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	385 const char *psz_msg,
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	386 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	387 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	388 CYG_ADDRWORD arg4, CYG_ADDRWORD arg5 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	389 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	390 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	391
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	392 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	393 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	394
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	395 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	396 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	397
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	398 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	399 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	400 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	401 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	402 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	403 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	404 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	405 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	406 diag_printf( psz_msg, arg0, arg1, arg2, arg3, arg4, arg5 );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	407 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	408 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	409 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	410 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	411 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	412 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	413 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	414 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	415 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	416 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	417 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	418 diag_write_hex(arg4);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	419 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	420 diag_write_hex(arg5);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	421 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	422 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	423 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	424
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	425 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	426 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	427 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	428
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	429 externC void
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	430 cyg_tracemsg8( cyg_uint32 what,
78 59d97b6ba612 Merge from eCos master repository on 2000-03-28-19:50:47-BST jlarmour parents: 74 diff changeset	431 const char psz_func, const char psz_file, cyg_uint32 linenum,
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 182 diff changeset	432 const char *psz_msg,
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	433 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	434 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	435 CYG_ADDRWORD arg4, CYG_ADDRWORD arg5,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	436 CYG_ADDRWORD arg6, CYG_ADDRWORD arg7 )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	437 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	438 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	439
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	440 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	441 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	442
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	443 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	444 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	445
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	446 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	447 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	448 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	449 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	450 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	451 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	452 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	453 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	454 diag_printf( psz_msg, arg0, arg1, arg2, arg3, arg4, arg5, arg6, arg7 );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	455 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	456 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	457 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	458 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	459 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	460 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	461 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	462 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	463 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	464 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	465 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	466 diag_write_hex(arg4);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	467 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	468 diag_write_hex(arg5);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	469 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	470 diag_write_hex(arg6);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	471 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	472 diag_write_hex(arg7);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	473 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	474 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	475 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	476
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	477 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	478 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	479 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	480
70 c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	481 // -------------------------------------------------------------------------
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	482
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	483 externC void
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	484 cyg_trace_dump(void)
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	485 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	486 #if defined(CYGPKG_KERNEL) && defined(CYG_DIAG_PRINTF)
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	487
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	488 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	489 diag_printf("\nScheduler:\n\n");
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	490
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	491 Cyg_Scheduler *sched = &Cyg_Scheduler::scheduler;
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	492
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	493 diag_printf("Lock: %d\n",sched->get_sched_lock() );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	494
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	495 # ifdef CYGVAR_KERNEL_THREADS_NAME
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	496
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	497 diag_printf("Current Thread: %s\n",sched->get_current_thread()->get_name());
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	498
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	499 # else
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	500
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	501 diag_printf("Current Thread: %d\n",sched->get_current_thread()->get_unique_id());
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	502
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	503 # endif
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	504
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	505 }
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	506
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	507 # ifdef CYGVAR_KERNEL_THREADS_LIST
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	508
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	509 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	510 Cyg_Thread *t = Cyg_Thread::get_list_head();
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	511
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	512 diag_printf("\nThreads:\n\n");
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	513
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	514 while( NULL != t )
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	515 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	516 cyg_uint32 state = t->get_state();
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	517 char tstate[7];
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	518 char *tstate1 = "SCUKX";
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	519 static char *(reasons[8]) =
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	520 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	521 "NONE", // No recorded reason
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	522 "WAIT", // Wait with no timeout
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	523 "DELAY", // Simple time delay
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	524 "TIMEOUT", // Wait with timeout/timeout expired
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	525 "BREAK", // forced break out of sleep
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	526 "DESTRUCT", // wait object destroyed[note]
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	527 "EXIT", // forced termination
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	528 "DONE" // Wait/delay complete
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	529 };
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	530
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	531 if( 0 != state )
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	532 {
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	533 // Knock out chars that do not correspond to set bits.
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	534 for( int i = 0; i < 6 ; i++ )
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	535 if( 0 == (state & (1<<i)) )
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	536 tstate[i] = ' ';
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	537 else tstate[i] = tstate1[i];
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	538 tstate[6] = 0;
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	539 }
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	540 else tstate[0] = 'R', tstate[1] = 0;
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	541
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	542 # ifdef CYGVAR_KERNEL_THREADS_NAME
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	543
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	544 diag_printf( "%20s pri = %3d state = %6s id = %3d\n",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	545 t->get_name(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	546 t->get_priority(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	547 tstate,
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	548 t->get_unique_id()
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	549 );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	550 # else
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	551
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	552 diag_printf( "Thread %3d pri = %3d state = %6s\n",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	553 t->get_unique_id(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	554 t->get_priority(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	555 tstate
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	556 );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	557
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	558 # endif
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	559 diag_printf( "%20s stack base = %08x ptr = %08x size = %08x\n",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	560 "",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	561 t->get_stack_base(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	562 #ifdef CYGDBG_KERNEL_DEBUG_GDB_THREAD_SUPPORT
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	563 t->get_saved_context(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	564 #else
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	565 0,
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	566 #endif
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	567 t->get_stack_size()
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	568 );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	569
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	570 diag_printf( "%20s sleep reason %8s wake reason %8s\n",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	571 "",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	572 reasons[t->get_sleep_reason()],
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	573 reasons[t->get_wake_reason()]
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	574 );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	575
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	576 diag_printf( "%20s queue = %08x wait info = %08x\n",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	577 "",
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	578 t->get_current_queue(),
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	579 t->get_wait_info()
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	580 );
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	581
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	582 diag_printf("\n");
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	583 t = t->get_list_next();
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	584 }
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	585
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	586 }
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	587 # endif // CYGVAR_KERNEL_THREADS_LIST
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	588
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	589 #endif // CYG_DIAG_PRINTF
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	590 }
c5536bad4c24 Merge from eCos master repository on 2000-02-11-15:46:40-GMT jlarmour parents: 66 diff changeset	591
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	592 #endif // CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	593
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	594 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	595 // Assert functions:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	596
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	597 #ifdef CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	598
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	599 externC void
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	600 cyg_assert_fail( const char psz_func, const char psz_file,
182 f62680ef1804 Merge from eCos master repository on 2001-09-07-06:43:02-BST jlarmour parents: 115 diff changeset	601 cyg_uint32 linenum, const char *psz_msg ) __THROW
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	602 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	603 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	604
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	605 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	606 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	607
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	608 diag_write_string("ASSERT FAIL: ");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	609 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	610 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	611 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	612 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	613 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	614 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	615 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	616
74 9c122302a886 Merge from eCos master repository on 2000-02-18-15:21:53-GMT jlarmour parents: 70 diff changeset	617 #ifdef CYGHWR_TEST_PROGRAM_EXIT
9c122302a886 Merge from eCos master repository on 2000-02-18-15:21:53-GMT jlarmour parents: 70 diff changeset	618 CYGHWR_TEST_PROGRAM_EXIT();
9c122302a886 Merge from eCos master repository on 2000-02-18-15:21:53-GMT jlarmour parents: 70 diff changeset	619 #endif
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	620 for(;;);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	621
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	622 // DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	623 // HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	624 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	625
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	626 extern "C"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	627 {
115 6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	628 extern unsigned long _stext;
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	629 extern unsigned long _etext;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	630
115 6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	631 unsigned long stext_addr = (unsigned long)&_stext;
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST jlarmour parents: 78 diff changeset	632 unsigned long etext_addr = (unsigned long)&_etext;
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	633 };
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	634
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	635 externC cyg_bool cyg_check_data_ptr(void *ptr)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	636 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	637 unsigned long p = (unsigned long)ptr;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	638
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	639 if( p == 0 ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	640
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	641 if( p > stext_addr && p < etext_addr ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	642
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	643 return true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	644 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	645
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	646 externC cyg_bool cyg_check_func_ptr(void (*ptr)(void))
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	647 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	648 unsigned long p = (unsigned long)ptr;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	649
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	650 if( p == 0 ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	651
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	652 if( p < stext_addr && p > etext_addr ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	653
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	654 return true;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	655 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	656
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	657 #endif // CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	658
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	659 #endif // CYGDBG_INFRA_DEBUG_TRACE_ASSERT_FANCY
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	660
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	661 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	662 // EOF fancy.cxx

Mercurial > flash_v2

annotate packages/infra/current/src/fancy.cxx @ 210:d2c90368aeef