annotate packages/infra/current/src/fancy.cxx @ 66:bf00f99aec69 ecos-sw-2000-02-02

Merge from eCos master repository on 2000-02-02-19:16:44-GMT
author jlarmour
date Wed, 02 Feb 2000 19:57:02 +0000
parents c38311975d4f
children c5536bad4c24
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
8 //####COPYRIGHTBEGIN####
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
9 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
10 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
11 // The contents of this file are subject to the Red Hat eCos Public License
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
12 // Version 1.1 (the "License"); you may not use this file except in
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
13 // compliance with the License. You may obtain a copy of the License at
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
14 // http://www.redhat.com/
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
15 //
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
16 // Software distributed under the License is distributed on an "AS IS"
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
18 // License for the specific language governing rights and limitations under
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
19 // the License.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
20 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
21 // The Original Code is eCos - Embedded Configurable Operating System,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
22 // released September 30, 1998.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
23 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
24 // The Initial Developer of the Original Code is Red Hat.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
25 // Portions created by Red Hat are
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
27 // All Rights Reserved.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
28 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 2
diff changeset
29 //
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
30 //####COPYRIGHTEND####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
31 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
32 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
33 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
34 // Author(s): nickg
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
35 // Contributors: nickg
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
36 // Date: 1997-12-04
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
37 // Purpose: Fancy Trace and assert functions
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
38 // Description: The functions in this file are fancy implementations of the
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
39 // standard trace and assert functions. These do printf
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
40 // style formatting, printing the string and arguments.
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
41 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
42 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
43 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
44 //==========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
45
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
46 #include <pkgconf/system.h>
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
47 #include <pkgconf/infra.h>
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
48
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
49 #ifdef CYGDBG_INFRA_DEBUG_TRACE_ASSERT_FANCY
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 #include <cyg/infra/cyg_type.h> // base types
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
52 #include <cyg/infra/cyg_trac.h> // tracing macros
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
53 #include <cyg/infra/cyg_ass.h> // assertion macros
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/hal.h> // HAL configury
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
56 #include <cyg/infra/diag.h> // HAL polled output
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
57 #include <cyg/hal/hal_arch.h> // architectural stuff for...
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
58 #include <cyg/hal/hal_intr.h> // interrupt control
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 #ifdef CYGPKG_KERNEL
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
61 #include <pkgconf/kernel.h> // kernel configury
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
62 #include <cyg/kernel/thread.hxx> // thread id to print
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
63 #include <cyg/kernel/sched.hxx> // ancillaries for above
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
64 #include <cyg/kernel/thread.inl> // ancillaries for above
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
65 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
66
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
67 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
68 // Local Configuration: hack me!
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
69
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
70 // these are generally:
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
71 // if 0, feature is disabled
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
72 // if 1, feature is enabled, printing is default width
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
73 // 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
74 // (not truncated ever)
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
75
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
76 #define CYG_FILENAME 20
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
77 #define CYG_THREADID 0 // DO NOT SET IF NO KERNEL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
78 #define CYG_LINENUM 4
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
79 #define CYG_FUNCNAME 100
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
80 #define CYG_DIAG_PRINTF 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
81 #define CYG_FUNC_INDENT 2
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
82
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
83 #ifndef CYGPKG_KERNEL
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
84 # undef CYG_THREADID
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
85 # define CYG_THREADID 0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
86 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
87
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
88 #if CYG_FUNCNAME == 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
89 #define CYG_FBUF_SIZE 100
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
90 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
91 #define CYG_FBUF_SIZE (CYG_FUNCNAME+20)
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
92 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
93
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
94 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
95 // Functions to trim file names and function names down to printable lengths
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
96 // (these are shared between trace and assert functions)
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
97
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
98 #ifdef CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
99
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
100 #if 0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
101 static char * tracepremsgs[] = {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
102 " INFO:",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
103 "ENTER :",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
104 "ARGS :",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
105 "RETURN:",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
106 "bad code"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
107 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
108 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
109
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 "'",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
112 "{{",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
113 "((",
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
114 "}}",
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
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
118 static char * tracepostmsgs[] = {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
119 "'",
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 "bad code"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
124 };
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 static void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
127 write_whattrace( cyg_uint32 what )
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 #if CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
130 static cyg_uint32 cyg_indent = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
131 if ( 3 == what )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
132 cyg_indent -= CYG_FUNC_INDENT;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
133 cyg_uint32 i = cyg_indent;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
134 for ( ; i > 0; i-- )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
135 diag_write_string( " " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
136 #endif // CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
137 diag_write_string( tracepremsgs[ what > 4 ? 4 : what ] );
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 if ( 1 == what )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
140 cyg_indent += CYG_FUNC_INDENT;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
141 #endif // CYG_FUNC_INDENT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
142 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
143
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
144 static void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
145 write_whattracepost( cyg_uint32 what )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
146 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
147 diag_write_string( tracepostmsgs[ what > 4 ? 4 : what ] );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
148 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
149 #endif // CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
150
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
151 static const char *trim_file(const char *file)
0
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 #if CYG_FILENAME
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
154 if ( NULL == file )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
155 file = "<nofile>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
156
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
157 #if 1 == CYG_FILENAME
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
158 const char *f = file;
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
159 while( *f ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
160 while( *f != '/' && f != file ) f--;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
161 return f==file?f:(f+1);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
162 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
163 static char fbuf2[100];
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
164 const char *f = file;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
165 char *g = fbuf2;
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
166 while( *f ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
167 while( *f != '/' && f != file ) f--;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
168 if ( f > file ) f++;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
169 while( *f ) *g++ = *f++;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
170 while( CYG_FILENAME > (g - fbuf2) ) *g++ = ' ';
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
171 *g = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
172 return fbuf2;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
173 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
174 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
175 return "";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
176 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
177 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
178
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
179 static const char *trim_func(const char *func)
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
180 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
181 #if CYG_FUNCNAME
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
182 static char fbuf[CYG_FBUF_SIZE];
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
183 int i;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
184
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
185 if ( NULL == func )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
186 func = "<nofunc>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
187
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
188 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
189 fbuf[i] = func[i];
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
190
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
191 fbuf[i++] = '(';
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
192 fbuf[i++] = ')';
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
193 fbuf[i ] = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
194 i=0;
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
195 #if 1 == CYG_FUNCNAME
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
196 return &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
197 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
198 char *p = &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
199 while ( *p ) p++;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
200 while ( CYG_FUNCNAME > (p - (&fbuf[i])) ) *p++ = ' ';
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
201 *p = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
202 return &fbuf[i];
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
203 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
204 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
205 return "";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
206 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
207 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
208
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
209 void write_lnum( cyg_uint32 lnum)
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
210 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
211 #if CYG_LINENUM
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
212 diag_write_char('[');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
213 #if 1 < CYG_LINENUM
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
214 cyg_uint32 i, j;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
215 for ( i = 2, j = 100; i < CYG_LINENUM ; i++, j *= 10 )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
216 if ( lnum < j )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
217 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
218 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
219 diag_write_dec(lnum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
220 diag_write_char(']');
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 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
223 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
224
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
225 void write_thread_id()
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
226 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
227 #if CYG_THREADID
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
228 Cyg_Thread *t = Cyg_Thread::self();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
229 cyg_uint16 tid = 0xFFFF;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
230
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
231 if( t != NULL ) tid = t->get_unique_id();
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 diag_write_char('<');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
234 diag_write_hex(tid);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
235 diag_write_char('>');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
236 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
237 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
238
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 // Trace functions:
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 #ifdef CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
243
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
244 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
245 cyg_tracenomsg( char *psz_func, char *psz_file, cyg_uint32 linenum )
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 cyg_uint32 old_ints;
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 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
250 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
251
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
252 diag_write_string("TRACE: ");
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
253 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
254 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
255 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
256 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
257 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
258
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
259 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
260 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
261
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
262 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
263
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
264 // provide every other one of these as a space/caller bloat compromise.
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
265
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
266 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
267 cyg_tracemsg( cyg_uint32 what,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
268 char *psz_func, char *psz_file, cyg_uint32 linenum,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
269 char *psz_msg )
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 cyg_uint32 old_ints;
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 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
274 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
275
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
276 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
277 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
278
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
279 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
280 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
281 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
282 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
283 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
284 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
285 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
286 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
287 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
288 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
289
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
290 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
291 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
292
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
293 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
294
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
295 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
296 cyg_tracemsg2( cyg_uint32 what,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
297 char *psz_func, char *psz_file, cyg_uint32 linenum,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
298 char *psz_msg,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
299 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1 )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
300 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
301 cyg_uint32 old_ints;
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 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
304 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
305
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
306 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
307 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
308
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
309 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
310 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
311 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
312 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
313 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
314 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
315 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
316 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
317 diag_printf( psz_msg, arg0, arg1 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
318 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
319 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
320 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
321 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
322 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
323 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
324 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
325 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
326 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
327 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
328 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
329 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
330
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
331 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
332 cyg_tracemsg4( cyg_uint32 what,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
333 char *psz_func, char *psz_file, cyg_uint32 linenum,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
334 char *psz_msg,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
335 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
336 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3 )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
337 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
338 cyg_uint32 old_ints;
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 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
341 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
342
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
343 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
344 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
345
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
346 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
347 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
348 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
349 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
350 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
351 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
352 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
353 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
354 diag_printf( psz_msg, arg0, arg1, arg2, arg3 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
355 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
356 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
357 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
358 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
359 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
360 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
361 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
362 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
363 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
364 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
365 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
366 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
367 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
368
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
369 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
370 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
371 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
372
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
373 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
374 cyg_tracemsg6( cyg_uint32 what,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
375 char *psz_func, char *psz_file, cyg_uint32 linenum,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
376 char *psz_msg,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
377 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
378 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
379 CYG_ADDRWORD arg4, CYG_ADDRWORD arg5 )
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 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
382
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
383 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
384 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
385
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
386 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
387 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
388
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
389 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
390 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
391 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
392 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
393 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
394 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
395 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
396 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
397 diag_printf( psz_msg, arg0, arg1, arg2, arg3, arg4, arg5 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
398 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
399 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
400 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
401 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
402 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
403 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
404 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
405 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
406 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
407 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
408 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
409 diag_write_hex(arg4);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
410 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
411 diag_write_hex(arg5);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
412 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
413 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
414 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
415
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
416 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
417 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
418 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
419
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
420 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
421 cyg_tracemsg8( cyg_uint32 what,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
422 char *psz_func, char *psz_file, cyg_uint32 linenum,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
423 char *psz_msg,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
424 CYG_ADDRWORD arg0, CYG_ADDRWORD arg1,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
425 CYG_ADDRWORD arg2, CYG_ADDRWORD arg3,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
426 CYG_ADDRWORD arg4, CYG_ADDRWORD arg5,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
427 CYG_ADDRWORD arg6, CYG_ADDRWORD arg7 )
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 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
430
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
431 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
432 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
433
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
434 if ( NULL == psz_msg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
435 psz_msg = "<nomsg>";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
436
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
437 diag_write_string( "TRACE: " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
438 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
439 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
440 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
441 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
442 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
443 write_whattrace( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
444 #if CYG_DIAG_PRINTF
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
445 diag_printf( psz_msg, arg0, arg1, arg2, arg3, arg4, arg5, arg6, arg7 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
446 #else
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
447 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
448 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
449 diag_write_hex(arg0);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
450 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
451 diag_write_hex(arg1);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
452 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
453 diag_write_hex(arg2);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
454 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
455 diag_write_hex(arg3);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
456 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
457 diag_write_hex(arg4);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
458 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
459 diag_write_hex(arg5);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
460 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
461 diag_write_hex(arg6);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
462 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
463 diag_write_hex(arg7);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
464 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
465 write_whattracepost( what );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
466 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
467
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
468 DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
469 HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
470 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
471
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
472 #endif // CYGDBG_USE_TRACING
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
473
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
474 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
475 // Assert functions:
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 #ifdef CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
478
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
479 externC void
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
480 cyg_assert_fail( const char *psz_func, const char *psz_file,
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
481 cyg_uint32 linenum, const char *psz_msg )
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
482 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
483 cyg_uint32 old_ints;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
484
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
485 HAL_DISABLE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
486 DIAG_DEVICE_START_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
487
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
488 diag_write_string("ASSERT FAIL: ");
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
489 write_thread_id();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
490 diag_write_string(trim_file(psz_file));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
491 write_lnum(linenum);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
492 diag_write_string(trim_func(psz_func));
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
493 diag_write_char(' ');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
494 diag_write_string(psz_msg);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
495 diag_write_char('\n');
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
496
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
497 for(;;);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
498
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
499 // DIAG_DEVICE_END_SYNC();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
500 // HAL_RESTORE_INTERRUPTS(old_ints);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
501 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
502
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
503 extern "C"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
504 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
505 extern unsigned long CYG_LABEL_NAME(stext);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
506 extern unsigned long CYG_LABEL_NAME(etext);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
507
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
508 unsigned long stext_addr = (unsigned long)&CYG_LABEL_NAME(stext);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
509 unsigned long etext_addr = (unsigned long)&CYG_LABEL_NAME(etext);
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
510 };
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
511
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
512 externC cyg_bool cyg_check_data_ptr(void *ptr)
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
513 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
514 unsigned long p = (unsigned long)ptr;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
515
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
516 if( p == 0 ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
517
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
518 if( p > stext_addr && p < etext_addr ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
519
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
520 return true;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
521 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
522
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
523 externC cyg_bool cyg_check_func_ptr(void (*ptr)(void))
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
524 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
525 unsigned long p = (unsigned long)ptr;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
526
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
527 if( p == 0 ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
528
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
529 if( p < stext_addr && p > etext_addr ) return false;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
530
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
531 return true;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
532 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
533
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
534 #endif // CYGDBG_USE_ASSERTS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
535
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
536 #endif // CYGDBG_INFRA_DEBUG_TRACE_ASSERT_FANCY
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
537
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
538 // -------------------------------------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
539 // EOF fancy.cxx