fc-magnetite: src/gpf3/frame/vsi

annotate src/gpf3/frame/vsi_trc.c @ 702:9394305d4ff5 default tip

etm_audio.c: fix off-by-one error in auw of FIR coefficients This fix was already made in FC Tourmaline a while back, but it is also the kind of bugfix that deserves to be backported to Magnetite and Selenite as well.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Mon, 31 Oct 2022 00:14:44 +0000
parents	c41a534f33c6
children

rev	line source
2 c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| File: vsi_trc.c
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 \| Copyright 2002 Texas Instruments Berlin, AG
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| All rights reserved.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \| This file is confidential and a trade secret of Texas
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| Instruments Berlin, AG
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| The receipt of or possession of this file does not convey
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| any rights to reproduce or disclose its contents or to
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| manufacture, use, or sell anything it may describe, in
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| whole, or in part, without the specific written consent of
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| Texas Instruments Berlin, AG.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 +-----------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 \| Purpose : This Module defines the virtual system interface part
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| for the tracing functionality.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 +-----------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #ifndef __VSI_TRC_C__
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #define __VSI_TRC_C__
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #undef TEST_EXT_TRACE
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 /==== LINT =======================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 /lint -emacro(506,va_start) Constant value Boolean /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 /lint -emacro(506,va_arg) Constant value Boolean /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 /lint -emacro(718,va_start) Symbol 'Symbol' undeclared, assumed to return int /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 /lint -emacro(522,va_arg) Warning -- Expected void type, assignment, increment or decrement /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 /lint -emacro(10,va_arg) Error -- Expecting '(' /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /lint -emacro(516,va_arg) Warning -- 'Symbol _va_argref()' has arg. type conflict (arg. no. 1 -- basic) /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 /lint -e661 /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 /lint -e662 /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 /==== INCLUDES ===================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #ifndef _VXWORKS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include <stdarg.h>
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include <stdio.h>
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include <string.h>
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "typedefs.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include "vsi.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "os.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "tools.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #include "frame.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "frm_defs.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #include "frm_types.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "frm_glob.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #include "p_frame.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #ifndef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include "tstdriver.h"
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 /==== TYPES ======================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 typedef struct
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 unsigned int magic_nr;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 void (trace_error)(const char const format, va_list varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 void (trace_assert)(const char const format, va_list varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 } T_EXT_TRACE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 /==== CONSTANTS ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 #define EXT_TRACE_INITIALIZED 0xaffedead
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 /==== EXTERNALS ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 /* -------------- S H A R E D - BEGIN ---------------- */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #pragma data_seg("FRAME_SHARED")
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 * contains the correspnding flags for each task
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 extern T_HANDLE TestGroupHandle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 extern UBYTE FrameEnv;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 extern char TaskName[];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 extern char FRM_TST_NAME[];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 extern char FRM_SYST_NAME[];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 extern OS_HANDLE TST_Handle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 extern OS_HANDLE RCV_Handle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 extern int time_is_tdma_frame;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 extern char error_ind_dst[];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 extern T_FRM_ERROR_IND *frm_error_ind;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 /==== VARIABLES ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 this file may be compiled twice for FLASH and RAM, make sure we
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 get the variable declarations exactly once
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 /* must be seen only from FLASH */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 GLOBAL char TraceBuffer [ TRACE_TEXT_SIZE ]={0};
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 /* must be seen from RAM and FLASH */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 GLOBAL OS_HANDLE trc_hCommTrace=VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 GLOBAL BOOL trc_LittleEndian = FALSE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 /* used by the entities */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 GLOBAL char EntityNameBuf[RESOURCE_NAMELEN];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 GLOBAL USHORT emergeny_trace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 /* must be seen from RAM and FLASH */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 extern OS_HANDLE trc_hCommTrace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 extern BOOL trc_LittleEndian;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 extern USHORT emergeny_trace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 T_EXT_TRACE ext_trace_func;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 extern T_EXT_TRACE ext_trace_func;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 #ifdef TEST_EXT_TRACE
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 void trace_error ( const char * const format, va_list varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 void trace_assert ( const char * const format, va_list varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 T_EXT_TRACE_FUNC ext_trace_functions =
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 trace_error,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 trace_assert
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 };
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 extern T_EXT_TRACE_FUNC ext_trace_functions;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 #endif /* TEST_EXT_TRACE */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 /==== VARIABLES ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 #pragma data_seg()
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 /* -------------- S H A R E D - END ---------------- */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 /==== PROTOTYPES ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 void ext_trace_init ( void );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 int int_vsi_o_ttrace ( T_HANDLE Caller, ULONG TraceClass, const char * const format, va_list varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 int int_vsi_o_itrace ( T_HANDLE Caller, ULONG TraceClass, ULONG index, const char * const format, va_list varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 int vsi_o_datasend ( T_HANDLE caller, T_HANDLE dst, char ext_dst, T_PRIM_HEADER prim FILE_LINE_TYPE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 U32 int_vsi_tc2trace_opc(ULONG trace_class);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 SHORT tst_pei_primitive (void *primitive);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 /==== FUNCTIONS ==================================================/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 U32 int_vsi_tc2trace_opc(ULONG trace_class)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 switch (trace_class)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 case TC_FUNC:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 return FUNC_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 case TC_EVENT:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 return EVENT_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 case TC_PRIM:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 return PRIM_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 case TC_STATE:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 return STATE_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 case TC_SYSTEM:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 return SYSTEM_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 case TC_ISIG:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 return ISIG_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 case TC_ERROR:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 return ERROR_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 case TC_CCD:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 return CCD_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 case TC_TIMER:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 return TIMER_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 case TC_PROFILER:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 return PROFILER_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 case TC_USER1:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 return USER1_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 case TC_USER2:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 return USER2_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 case TC_USER3:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 return USER3_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 case TC_USER4:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 return USER4_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 case TC_USER5:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 return USER5_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 case TC_USER6:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 return USER6_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 case TC_USER7:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 return USER7_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 case TC_USER8:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 return USER8_TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 default:
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 return TRACE_OPC;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 #endif /* RUN_FLASH */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 \| Function : vsi_o_set_htrace
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 \| Description : This function sets the module variable trc_hCommTrace
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 \| Parameters : comhandle - the new value
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 \| Return : none
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 void vsi_o_set_htrace (T_HANDLE comhandle)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 trc_hCommTrace = (OS_HANDLE) comhandle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 #endif /* _TOOLS_ */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 \| STATE : code ROUTINE : vsi_o_trace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 LOCAL int vsi_o_trace ( T_HANDLE Caller, T_PRIM_HEADER *prim, ULONG suspend )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 T_S_HEADER *s_hdr;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 LONG Status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 OS_QDATA QMsg;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 BOOL AlarmTrace = FALSE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 if ( TracesAborted[Caller] )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 * Only needed for _TOOLS_ because Nucleus provides at least 52 Bytes in the partition
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 Status = os_AllocatePartition ( Caller, (T_VOID_STRUCT**)&prim, 80, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 sprintf ((char*)P2D(prim),"Trc Abort: %d !",TracesAborted[Caller]+1 );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 prim->len = strlen ((char*)P2D(prim)) + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 AlarmTrace = TRUE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 s_hdr->snd[0] = (char)Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 if ( Caller )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 s_hdr->snd[0] \|= (char)HANDLE_BIT;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 s_hdr->org_rcv[0] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 get_local_time (&s_hdr->time);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 if ( time_is_tdma_frame == 1 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 os_GetTime(Caller,&s_hdr->time);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 s_hdr->time \|= TIME_IS_TDMA;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 os_GetTime(Caller,&s_hdr->time);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 s_hdr->time &= ~TIME_IS_TDMA;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 QMsg.flags = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 QMsg.data16 = MSG_PRIMITIVE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 QMsg.data32 = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 QMsg.ptr = (T_VOID_STRUCT*)prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 QMsg.len = ALIGN(prim->len) + sizeof(T_S_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 os_GetTime ( 0, &QMsg.time );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 #ifndef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 if ( trc_hCommTrace == VSI_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 if ( (trc_hCommTrace = vsi_c_open ( TST_Handle, FRM_TST_NAME ) ) == OS_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 if ( trc_hCommTrace == VSI_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 if ( FrameEnv == ENV_TOOLS )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 if ( os_OpenQueue ( NO_TASK, FRM_TST_NAME, &trc_hCommTrace ) == OS_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 if ( FrameEnv == ENV_TOOLS )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 s_hdr->snd[0] = '~';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 if ( os_GetTaskName ( Caller, Caller, &s_hdr->snd[1] ) == OS_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 char Sender[RESOURCE_NAMELEN];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 char ptr = (char)P2D(prim);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 unsigned int NameLen;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 if ( *ptr == '~')
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 NameLen = GetNextToken ((char*)(ptr), Sender,"~");
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 InsertString(Sender, &s_hdr->snd[1], 4);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 prim->len -= 2+NameLen;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 memcpy ( ptr, ptr+2+NameLen, prim->len-sizeof(T_PRIM_HEADER) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 QMsg.len = ALIGN(prim->len) + sizeof(T_S_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 InsertString(FRM_SYST_NAME, &s_hdr->snd[1], 4);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 #endif /* _TOOLS_ */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 QMsg.e_id = trc_hCommTrace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 #ifndef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 if ( Caller == TST_Handle \|\| Caller == RCV_Handle )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 tst_drv_write ( Caller, 0, NULL, (char*)P2D(prim) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 #ifndef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 * for the PC Simulation SuspendTrace[0] is != 0. To avoid that the system traces
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 * sent with caller NO_TASK block the system if the caller was TST, the Caller
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 * is set to the real caller here. This has no consequence on the caller name
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 * displayed in PCO because this is already formated into the header.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 if ( Caller == NO_TASK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 QMsg.e_id = trc_hCommTrace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 Status = os_SendToQueue ( NO_TASK, trc_hCommTrace, MSG_TRACE_PRIO, suspend, &QMsg );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 Status = os_SendToQueue ( NO_TASK, pf_TaskTable[trc_hCommTrace].QueueHandle, MSG_TRACE_PRIO, suspend, &QMsg );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 if ( Status == OS_OK \|\| Status == OS_WAITED )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 TracesAborted[Caller] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 if ( AlarmTrace )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 * No queue space available -> free partition
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 os_DeallocatePartition ( Caller, (T_VOID_STRUCT*)prim );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 TracesAborted[Caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 \| PROJECT : GSM-Frame (8415) MODULE : VSI_COM \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 \| STATE : code ROUTINE : vsi_o_primsend \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 PURPOSE : traces a data segment as a primitive
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 int vsi_o_primsend ( T_HANDLE caller, unsigned int mask, T_HANDLE dst, char ext_dst, unsigned int opc, void ptr, unsigned int len FILE_LINE_TYPE )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 int alloc_size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 T_HANDLE e_handle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 if ( caller != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 e_handle = caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 e_handle = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 if ( (e_handle >= 0) && (TraceMask[e_handle] & mask) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 if ( opc != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 alloc_size = len + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 if ( alloc_size < (int)MaxPrimPartSize )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 prim = (T_PRIM_HEADER*)vsi_c_new ( 0, alloc_size, opc FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 memcpy((char*)P2D(prim), ptr, len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 /* if primitive is FRM_WARNING_IND -> free */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 if ( opc == FRM_WARNING_IND )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 PFREE(ptr);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 vsi_o_ttrace ( caller, TC_SYSTEM, "SYSTEM WARNING: Binary trace too long -> discarded in %s(%d)" FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 prim = D2P(ptr);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 if ( vsi_o_datasend ( e_handle, dst, ext_dst, prim FILE_LINE ) == VSI_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 vsi_c_free ( 0, (T_VOID_STRUCT**)&prim FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 \| PROJECT : GSM-Frame (8415) MODULE : VSI_COM \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 \| STATE : code ROUTINE : vsi_o_sdusend \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 PURPOSE : traces an SDU as a primitive
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 int vsi_o_sdusend ( T_HANDLE caller, T_HANDLE dst, char ext_dst, int opc, char ent, char dir, char type, void ptr, unsigned int len FILE_LINE_TYPE )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 T_HANDLE e_handle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 int alloc_size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 if ( caller != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 e_handle = caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 e_handle = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 if ( (e_handle >= 0) && (TraceMask[e_handle] & TC_SDU) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 if ( opc != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 alloc_size = len + sizeof(T_PRIM_HEADER) + sizeof(T_SDU_TRACE);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 if ( alloc_size < (int)MaxPrimPartSize )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 prim = (T_PRIM_HEADER*)vsi_c_new ( 0, alloc_size, opc FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 ((T_SDU_TRACE*)(P2D(prim)))->entity = ent;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 ((T_SDU_TRACE*)(P2D(prim)))->dir = dir;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 ((T_SDU_TRACE*)(P2D(prim)))->type = type;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 ((T_SDU_TRACE*)(P2D(prim)))->align1 = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 memcpy(((char*)P2D(prim))+sizeof(T_SDU_TRACE), ptr, len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 if ( vsi_o_datasend ( e_handle, dst, ext_dst, prim FILE_LINE ) == VSI_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 vsi_c_free ( 0, (T_VOID_STRUCT**)&prim FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 vsi_o_ttrace ( caller, TC_SYSTEM, "SYSTEM WARNING: Binary trace too long -> discarded in %s(%d)" FILE_LINE );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 \| PROJECT : GSM-Frame (8415) MODULE : VSI_COM \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 \| STATE : code ROUTINE : vsi_o_datasend \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 PURPOSE : traces an already allocated primitive
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 int vsi_o_datasend ( T_HANDLE caller, T_HANDLE dst, char ext_dst, T_PRIM_HEADER prim FILE_LINE_TYPE )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 int alloc_size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 T_PRIM_HEADER *carrier;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 T_S_HEADER *s_hdr;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 LONG status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 OS_QDATA DMsg;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 unsigned int i;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 suspend = get_suspend_state(caller,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 /* allocate carrier */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 alloc_size = S_ALLOC_SIZE(4 + 1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 status = os_AllocatePartition ( caller, (T_VOID_STRUCT**)&carrier, alloc_size, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 if ( status == OS_OK \|\| status == OS_WAITED \|\| status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 DMsg.data16 = MSG_PRIMITIVE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 DMsg.data32 = prim->opc;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 DMsg.len = alloc_size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 DMsg.ptr = (T_VOID_STRUCT*)carrier;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 carrier->opc = prim->opc;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 carrier->len = alloc_size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 carrier->sh_offset = S_HDR_OFFSET(alloc_size - sizeof(T_S_HEADER));
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 s_hdr = (T_S_HEADER)((ULONG)carrier + carrier->sh_offset);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 if ( dst != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 if ( vsi_e_name ( caller, dst, TaskName ) == VSI_OK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 /* set org_rcv */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 for (i = 0; TaskName[i] && i < sizeof (s_hdr->rcv); i++)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 s_hdr->org_rcv[i] = TaskName[i];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 if (i < sizeof s_hdr->rcv)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 s_hdr->org_rcv[i] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 s_hdr->org_rcv[0] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 s_hdr->org_rcv[0] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 strncpy (s_hdr->rcv, ext_dst, RESOURCE_NAMELEN);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 s_hdr->rcv[RESOURCE_NAMELEN-1] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 if ( caller != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 if ( vsi_e_name ( caller, caller, TaskName ) == VSI_OK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 /* set snd */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 for (i = 0; TaskName[i] && i < sizeof (s_hdr->snd); i++)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 s_hdr->snd[i] = TaskName[i];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 if (i < sizeof s_hdr->snd)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 s_hdr->snd[i] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 if ( pf_TaskTable[caller].Name[0] != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 s_hdr->snd[0] = (char)(caller \| HANDLE_BIT);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 s_hdr->rcv[0] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 os_GetTime(0,&s_hdr->time);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 ((T_PRIM_X*)(carrier))->prim_ptr = prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 DMsg.e_id = trc_hCommTrace;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 TracesAborted[caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 #ifdef MEMORY_SUPERVISION
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 vsi_ppm_send ( caller, pf_TaskTable[trc_hCommTrace].QueueHandle, prim FILE_LINE_MACRO );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 #endif /* MEMORY_SUPERVISION */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 if ( os_SendToQueue ( caller, pf_TaskTable[trc_hCommTrace].QueueHandle, OS_NORMAL, suspend, &DMsg ) == OS_TIMEOUT )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 os_DeallocatePartition ( caller, (T_VOID_STRUCT*)carrier );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 TracesAborted[caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 \| PROJECT : GSM-Frame (8415) MODULE : VSI_COM \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 \| STATE : code ROUTINE : vsi_o_memtrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 PURPOSE : check if PS already started
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 int vsi_o_memtrace ( T_HANDLE caller, void *ptr, unsigned int len )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 T_HANDLE e_handle;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 LONG status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 unsigned int i;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 if ( caller != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 e_handle = caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 e_handle = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 if ( (e_handle >= 0) && (TraceMask[e_handle] & TC_DATA) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 suspend = get_suspend_state(e_handle,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 status = os_AllocatePartition ( e_handle, (T_VOID_STRUCT*)&prim, S_ALLOC_SIZE(len)3, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 if ( status == OS_OK \|\| status == OS_WAITED \|\| status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 unsigned char dst_ptr = (unsigned char)P2D(prim);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 unsigned char src_ptr = (unsigned char)ptr;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 for ( i = 0; i < len; i++, src_ptr++ )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 if (*src_ptr>>4 > 9)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 dst_ptr++ = (src_ptr>>4) + ('A'-10);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 dst_ptr++ = (src_ptr>>4) +'0';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 if ((*src_ptr&0xf) > 9)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 dst_ptr++ = (src_ptr&0xf) + ('A'-10);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 dst_ptr++ = (src_ptr&0xf) +'0';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 *dst_ptr++ = 0x20;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 prim->opc = int_vsi_tc2trace_opc(TC_DATA);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 prim->len = 3*len + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 return ( vsi_o_trace ( e_handle, prim, suspend ) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 TracesAborted[e_handle]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 \| STATE : code ROUTINE : vsi_o_func_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 PURPOSE : traces a function name
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 int vsi_o_func_ttrace ( const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 if ( (Caller >= 0) && (TraceMask[Caller] & TC_FUNC) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 return int_vsi_o_ttrace ( Caller, TC_FUNC, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 \| STATE : code ROUTINE : vsi_o_event_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 PURPOSE : traces an event
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 int vsi_o_event_ttrace ( const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 if ( (Caller >= 0) && (TraceMask[Caller] & TC_EVENT) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 return int_vsi_o_ttrace ( Caller, TC_EVENT, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 \| STATE : code ROUTINE : vsi_o_error_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 PURPOSE : traces an error
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 int vsi_o_error_ttrace ( const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 if ( (Caller >= 0) && (TraceMask[Caller] & TC_ERROR) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 int_vsi_o_ttrace ( Caller, TC_ERROR, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 vsi_o_ttrace ( NO_TASK, TC_ERROR, "TRACE ERROR in %s", pf_TaskTable[Caller].Name );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 if ( ext_trace_func.trace_error != NULL )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 ext_trace_func.trace_error ( format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 \| STATE : code ROUTINE : vsi_o_state_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 int vsi_o_state_ttrace ( const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 if ( (Caller >= 0) && (TraceMask[Caller] & TC_STATE) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 return int_vsi_o_ttrace ( Caller, TC_STATE, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 \| STATE : code ROUTINE : vsi_o_class_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 int vsi_o_class_ttrace ( ULONG trace_class, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 if ( (Caller >= 0) && (TraceMask[Caller] & trace_class) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 return int_vsi_o_ttrace ( Caller, trace_class, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 \| STATE : code ROUTINE : vsi_o_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 int vsi_o_ttrace ( T_HANDLE Caller, ULONG TraceClass, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 if ( (Caller >= 0) && (TraceMask[Caller] & TraceClass) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 return int_vsi_o_ttrace ( Caller, TraceClass, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 \| STATE : code ROUTINE : int_vsi_o_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 int int_vsi_o_ttrace ( T_HANDLE Caller, ULONG TraceClass, const char * const format, va_list varpars )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 LONG Status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 unsigned int offset = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 unsigned int num;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 suspend = get_suspend_state(Caller,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 Status = os_AllocatePartition ( Caller, (T_VOID_STRUCT**)&prim, TextTracePartitionSize, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 if ( Status == OS_OK \|\| Status == OS_WAITED \|\| Status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 #if 0
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 /* be activated when PCO can handle this */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 if ( TraceClass == TC_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 ((char)(P2D(prim))) = '#';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 offset = 1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 int trc_length = TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER) - 1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 trc_length &= ~0x03;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 num = offset + (unsigned int)_vsnprintf ((char)(P2D(prim)) + offset, trc_length, format, varpars) + 1; / + 1 for terminating 0 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 num = offset + (unsigned int)vsprintf ((char)(P2D(prim)) + offset, format, varpars) + 1; / + 1 for terminating 0 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 va_end (varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 if ( num + sizeof(T_S_HEADER) + sizeof(T_PRIM_HEADER) >= TextTracePartitionSize )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 sprintf ( (char*)(P2D(prim))+60, "... %s trace too long", pf_TaskTable[Caller].Name );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 vsi_o_assert ( NO_TASK, OS_SYST_ERR_STR_TOO_LONG, __FILE__, __LINE__,(char*)(P2D(prim)));
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 prim->opc = int_vsi_tc2trace_opc(TraceClass);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 prim->len = strlen((char*)P2D(prim)) + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 return ( vsi_o_trace ( Caller, prim, suspend ) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 if ( FrameEnv == ENV_STACK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 TracesAborted[Caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 \| STATE : code ROUTINE : vsi_o_func_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 PURPOSE : traces a function name
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 int vsi_o_func_itrace ( ULONG index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 if ( (Caller >= 0) && (TraceMask[Caller] & TC_FUNC) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 return int_vsi_o_itrace ( Caller, TC_FUNC, index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 \| STATE : code ROUTINE : vsi_o_event_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 PURPOSE : traces an event
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 int vsi_o_event_itrace ( ULONG index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 if ( (Caller >= 0) && (TraceMask[Caller] & TC_EVENT) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 return int_vsi_o_itrace ( Caller, TC_EVENT, index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 \| STATE : code ROUTINE : vsi_o_error_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 PURPOSE : traces an error
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 int vsi_o_error_itrace ( ULONG index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 if ( (Caller >= 0) && (TraceMask[Caller] & TC_ERROR) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 int_vsi_o_itrace ( Caller, TC_ERROR, index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 os_GetTaskName ( Caller, Caller, TaskName );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 vsi_o_ttrace ( NO_TASK, TC_ERROR, "TRACE ERROR in %s", pf_TaskTable[Caller].Name );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 \| STATE : code ROUTINE : vsi_o_state_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 int vsi_o_state_itrace ( ULONG index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 if ( (Caller >= 0) && (TraceMask[Caller] & TC_STATE) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 return int_vsi_o_itrace ( Caller, TC_STATE, index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 \| STATE : code ROUTINE : vsi_o_class_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 int vsi_o_class_itrace ( ULONG trace_class, ULONG Index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 T_HANDLE Caller;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 Caller = e_running[os_MyHandle()];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 if ( (Caller >= 0) && (TraceMask[Caller] & trace_class) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 return int_vsi_o_itrace ( Caller, trace_class, Index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 \| STATE : code ROUTINE : vsi_o_ttrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 int vsi_o_itrace ( T_HANDLE Caller, ULONG TraceClass, ULONG Index, const char * const format, ... )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 if ( (Caller >= 0) && (TraceMask[Caller] & TraceClass) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 return int_vsi_o_itrace ( Caller, TraceClass, Index, format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 \| STATE : code ROUTINE : int_vsi_o_itrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 PURPOSE : traces a dynamic string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 int int_vsi_o_itrace ( T_HANDLE Caller, ULONG TraceClass, ULONG index, const char * const format,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 va_list varpars )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 LONG Status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 unsigned int offset = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 unsigned int paramCount;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 unsigned int i;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 * the offset is calculated prior to the actual write operation
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 * to avoid writing beyond the allocated size
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 *
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 * all write operation are addressed relatively to the precalculated
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 * offset e.g. *(&Prim->Data + offset - 5)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 if ( (Caller >= 0) && (TraceMask[Caller] & TraceClass) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 suspend = get_suspend_state(Caller,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 Status = os_AllocatePartition ( Caller, (T_VOID_STRUCT**)&prim, (ULONG)TextTracePartitionSize, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 if ( Status == OS_OK \|\| Status == OS_WAITED \|\| Status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 * the index preceded by %
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 #if 0
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 /* be activated when PCO can handle this */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 if ( TraceClass == TC_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 ((char)(P2D(prim))) = '#';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 offset = 1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079 offset += 5;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 if(offset <= TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 ((char)(P2D(prim)) + offset - 5) = '%';
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 if(trc_LittleEndian)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 ((char)(P2D(prim)) + offset - 4) = ((char )&index);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 ((char)(P2D(prim)) + offset - 3) = (((char )&index)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 ((char)(P2D(prim)) + offset - 2) = (((char )&index)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 ((char)(P2D(prim)) + offset - 1) = (((char )&index)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 ((char)(P2D(prim)) + offset - 4) = (((char )&index)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 ((char)(P2D(prim)) + offset - 3) = (((char )&index)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 ((char)(P2D(prim)) + offset - 2) = (((char )&index)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 ((char)(P2D(prim)) + offset - 1) = ((char )&index);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 * parse the format string
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101 paramCount = strlen(format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 for (i=0; i<paramCount; i++)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 switch(*(format+i))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 case 'c': /* one byte */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 offset+=1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109 if(offset <= TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 ((char)(P2D(prim)) + offset - 1) = ((char )varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112 va_arg(varpars, char);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 break;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 case 'i': /* four bytes */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 case 'p':
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116 case '*':
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 offset+=4;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 if(offset <= TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 if(trc_LittleEndian)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 ((char)(P2D(prim)) + offset - 4) = ((char )varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 ((char)(P2D(prim)) + offset - 3) = (((char )varpars)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 ((char)(P2D(prim)) + offset - 2) = (((char )varpars)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 ((char)(P2D(prim)) + offset - 1) = (((char )varpars)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 ((char)(P2D(prim)) + offset - 4) = (((char )varpars)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 ((char)(P2D(prim)) + offset - 3) = (((char )varpars)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 ((char)(P2D(prim)) + offset - 2) = (((char )varpars)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 ((char)(P2D(prim)) + offset - 1) = ((char )varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 va_arg(varpars, int);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136 break;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 case 'd': /* eigth bytes */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 offset += 8;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 * TI and Microsoft represent double values differently
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 *
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 Double Host representation (address incressing from byte 1 to 8)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144 layout Microsoft TMS470x
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146 SEEEEEEE byte 8 byte 4
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 EEMMMMMM byte 7 byte 3
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 MMMMMMMM byte 6 byte 2
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 MMMMMMMM byte 5 byte 1
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 MMMMMMMM byte 4 byte 8
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 MMMMMMMM byte 3 byte 7
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 MMMMMMMM byte 2 byte 6
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 MMMMMMMM byte 1 byte 5
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155 S - sign bit
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 E - exponent bits
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157 M - mantissa bits
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159 *
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 * double
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 if(offset <= TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167 /* TI TMS470 Compiler */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168 ((char)(P2D(prim)) + offset - 4) = ((char )varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169 ((char)(P2D(prim)) + offset - 3) = (((char )varpars)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 ((char)(P2D(prim)) + offset - 2) = (((char )varpars)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171 ((char)(P2D(prim)) + offset - 1) = (((char )varpars)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 ((char)(P2D(prim)) + offset - 8) = (((char )varpars)+4);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173 ((char)(P2D(prim)) + offset - 7) = (((char )varpars)+5);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174 ((char)(P2D(prim)) + offset - 6) = (((char )varpars)+6);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 ((char)(P2D(prim)) + offset - 5) = (((char )varpars)+7);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 * This should work as well, since no reordering is done.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179 * Don't believe the VC5/6 manual which states a complete
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 * different byte order :(
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181 *
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 /* PC- Simulation */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184 ((char)(P2D(prim)) + offset - 8) = ((char )varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185 ((char)(P2D(prim)) + offset - 7) = (((char )varpars)+1);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186 ((char)(P2D(prim)) + offset - 6) = (((char )varpars)+2);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 ((char)(P2D(prim)) + offset - 5) = (((char )varpars)+3);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188 ((char)(P2D(prim)) + offset - 4) = (((char )varpars)+4);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 ((char)(P2D(prim)) + offset - 3) = (((char )varpars)+5);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190 ((char)(P2D(prim)) + offset - 2) = (((char )varpars)+6);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191 ((char)(P2D(prim)) + offset - 1) = (((char )varpars)+7);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 #endif /* _TARGET_ */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195 va_arg(varpars, double);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 break;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 case 's': /* a string of bytes */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200 * copy the string including the terminating NULL
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 unsigned int len = strlen(((char *)varpars)) + 1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 offset += len;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205 if(offset <= TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207 memcpy((char)(P2D(prim)) + offset - len, ((char **)varpars), len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209 va_arg(varpars, char **);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211 break;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 default: /* unknown type */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213 vsi_o_assert ( NO_TASK, OS_SYST_ERR_STR_TOO_LONG, __FILE__, __LINE__,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 "Unknown Trace Format" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215 break;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219 va_end (varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 * if the amount of trace data was bigger than the allocated
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 * size - discard the trace and send an error trace instead
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 if (offset > TextTracePartitionSize - sizeof(T_S_HEADER) - sizeof(T_PRIM_HEADER))
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 unsigned int n = (unsigned int)sprintf ((char*)P2D(prim),"ERROR: Compressed trace (index %d) too long (%d bytes). Trace discarded !!!",index, offset);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227 prim->len = n + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 prim->len = offset + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 prim->opc = int_vsi_tc2trace_opc(TraceClass);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 return ( vsi_o_trace ( Caller, prim, suspend ) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 if ( FrameEnv == ENV_STACK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 TracesAborted[Caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 \| STATE : code ROUTINE : vsi_o_ptrace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255 PURPOSE : traces a primitive opc and direction
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 int vsi_o_ptrace ( T_HANDLE Caller, ULONG opc, UBYTE dir )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262 LONG Status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263 ULONG size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264 int opc_len;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266 if ( (Caller >= 0) && (TraceMask[Caller] & TC_PRIM)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 && (SAP_NR(opc)!=TRACE_SAP) && (opc!=TRACE_OPC)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 suspend = get_suspend_state(Caller,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273 size = S_ALLOC_SIZE(PTRACE_LEN_OPC32);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274 Status = os_AllocatePartition ( Caller, (T_VOID_STRUCT**)&prim, size, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275 if ( Status == OS_OK \|\| Status == OS_WAITED \|\| Status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277 prim->opc = int_vsi_tc2trace_opc(TC_PRIM);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 if ( dir )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280 strcpy ( (char*)P2D(prim),"$---OUT:$p0x123456789" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 strcpy ( (char*)P2D(prim),"$--- IN:$p0x123456789" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 if ( OPC32BIT(opc) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 opc_len = CHARS_FOR_32BIT;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287 prim->len = PTRACE_LEN_OPC32;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291 opc_len = CHARS_FOR_16BIT;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292 prim->len = PTRACE_LEN_OPC16;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294 prim->len = prim->len + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295 HexToASCII ( opc, (char*)P2D(prim) + 12, opc_len );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 strcpy (((char*)P2D(prim) + 12 + opc_len), "$" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 return ( vsi_o_trace ( Caller, prim, suspend ) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301 TracesAborted[Caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311 \| STATE : code ROUTINE : vsi_o_strace \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 PURPOSE : traces a state and state transition
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 int vsi_o_strace (T_HANDLE Caller, const char *const machine,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318 const char *const curstate,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319 const char *const newstate)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321 T_PRIM_HEADER *prim;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322 LONG Status;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323 ULONG size;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324 ULONG suspend;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 if ( (Caller >= 0) && (TraceMask[Caller] & TC_STATE) )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328 suspend = get_suspend_state(Caller,CHECK_TRC_SUSPEND);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329 size = S_ALLOC_SIZE(STRACE_LEN);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330 Status = os_AllocatePartition ( Caller, (T_VOID_STRUCT**)&prim, size, suspend, TestGroupHandle );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331 if ( Status == OS_OK \|\| Status == OS_WAITED \|\| Status == OS_ALLOCATED_BIGGER )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333 strcpy ( (char *)P2D(prim), machine );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334 strcat ( (char *)P2D(prim), ":" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335 strcat ( (char *)P2D(prim), curstate );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336 if ( newstate != NULL )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 strcat ( (char *)P2D(prim), " -> " );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339 strcat ( (char *)P2D(prim), newstate );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342 prim->opc = int_vsi_tc2trace_opc(TC_STATE);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343 prim->len = strlen((char*)P2D(prim)) + sizeof(T_PRIM_HEADER);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344 prim->sh_offset = S_HDR_OFFSET(prim->len);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 return ( vsi_o_trace ( Caller, prim, suspend ) );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 TracesAborted[Caller]++;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358 \| STATE : code ROUTINE : vsi_o_assert \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361 PURPOSE : assert
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1364 /lint -esym(715,cause) suppress Info -- Symbol 'cause' not referenced /
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1365 int vsi_o_assert (T_HANDLE Caller, USHORT cause, const char file, int line, const char const format,...)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1366 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1367 va_list varpars;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1368 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1369 OS_QDATA Msg;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1370
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1371 while ( os_ReceiveFromQueue( Caller, pf_TaskTable[trc_hCommTrace].QueueHandle, &Msg, OS_NO_SUSPEND ) == OS_OK )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1372 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1373 tst_pei_primitive (Msg.ptr);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1374 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1375 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1376 strcpy ( TraceBuffer, "SYSTEM ERROR: " );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1377 va_start (varpars, format);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1378 vsprintf (TraceBuffer+strlen("SYSTEM ERROR: "), format, varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1379 va_end (varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1380 sprintf (TraceBuffer+strlen(TraceBuffer), ", %s(%d)", file, line );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1381 #ifdef _TOOLS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1382 vsi_o_ttrace ( NO_TASK, TC_SYSTEM, TraceBuffer );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1383 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1384 if ( cause & OS_SYST_ERR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1385 emergeny_trace = 1;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1386 tst_drv_write ( NO_TASK, 0, NULL, TraceBuffer );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1387
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1388 if ( error_ind_dst[0] != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1389 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1390 frm_error_ind->error_code = cause;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1391 strncpy ((char*)frm_error_ind->error_string, TraceBuffer, FRM_PRIM_STR_SIZE);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1392 frm_error_ind->error_string[FRM_PRIM_STR_SIZE-1] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1393 tst_drv_write ( NO_TASK, FRM_ERROR_IND, error_ind_dst, (char*)frm_error_ind );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1394 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1395 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1396 #if defined _NUCLEUS_ && !defined _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1397 printf ("%s\n",TraceBuffer);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1398 printf ( "Task %s suspended\n", pf_TaskTable[Caller].Name );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1399 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1400 if ( ext_trace_func.trace_assert != NULL )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1401 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1402 /* in case of OS_SYST_ERR_QUEUE_FULL we should not to send the trace to ACI,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1403 because ACI will probably no longer be scheduled.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1404 in case of OS_SYST_ERR_NO_PARTITION the PALLOC in ACI fails and will
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1405 probably hide the root cause of the problem.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1406 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1407 if ( cause != OS_SYST_ERR_QUEUE_FULL && cause != OS_SYST_ERR_NO_PARTITION )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1408 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1409 ext_trace_func.trace_assert ( format, varpars );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1410 os_SuspendTask ( Caller, 1000 );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1411 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1412 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1413 #ifdef _NUCLEUS_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1414 os_SystemError ( os_MyHandle(), cause, TraceBuffer );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1415 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1416 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1417 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1418 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1419
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1420 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1421 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1422 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1423 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1424 \| STATE : code ROUTINE : vsi_settracemask \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1425 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1426
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1427 PURPOSE : set trace mask
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1428
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1429 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1430
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1431 int vsi_settracemask ( T_HANDLE Caller, T_HANDLE Handle, ULONG Mask )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1432 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1433
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1434 if ( Handle == 0 \|\| pf_TaskTable[Handle].Name[0] != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1435 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1436 TraceMask[Handle] = Mask;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1437 TraceMask[0] \|= TC_SYSTEM;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1438 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1439 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1440 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1441 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1442 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1443 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1444
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1445 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1446 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1447 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1448 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1449 \| STATE : code ROUTINE : vsi_gettracemask \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1450 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1451
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1452 PURPOSE : get trace mask
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1453
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1454 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1455
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1456 int vsi_gettracemask ( T_HANDLE Caller, T_HANDLE Handle, ULONG *Mask )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1457 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1458 if ( Handle == 0 \|\| pf_TaskTable[Handle].Name[0] != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1459 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1460 *Mask = TraceMask[Handle];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1461 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1462 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1463 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1464 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1465 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1466 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1467
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1468 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1469 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1470 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1471 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1472 \| STATE : code ROUTINE : vsi_trcsuspend \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1473 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1474
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1475 PURPOSE : set suspend for traces
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1476
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1477 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1478
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1479 int vsi_trcsuspend ( T_HANDLE Caller, T_HANDLE Handle, ULONG Suspend )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1480 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1481 /* SuspendTrace[Handle] = Suspend; */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1482 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1483 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1484 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1485
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1486 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1487 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1488 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1489 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1490 \| STATE : code ROUTINE : vsi_trc_free \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1491 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1492
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1493 PURPOSE : monitor test interface partition allocation
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1494 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1495
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1496 int vsi_trc_free ( T_HANDLE Caller, T_VOID_STRUCT **Prim )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1497 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1498 if ( os_DeallocatePartition ( Caller, *Prim ) != OS_ERROR )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1499 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1500 *Prim = NULL;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1501 return VSI_OK;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1502 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1503 return VSI_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1504 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1505 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1506
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1507 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1508 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1509 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1510 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1511 \| STATE : code ROUTINE : InitializeTestpools \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1512 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1513
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1514 PURPOSE : initialize supervision, write index to each partition.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1515
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1516 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1517 void InitializeTrace ( void )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1518 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1519 USHORT i;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1520 ULONG ByteOrder;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1521
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1522 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1523 * test the byte order
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1524 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1525 ByteOrder = 0x11223344;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1526
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1527 if(((char ) &ByteOrder) == 0x44)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1528 trc_LittleEndian = TRUE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1529 else if (((char ) &ByteOrder) == 0x11)
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1530 trc_LittleEndian = FALSE;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1531 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1532 vsi_o_assert ( NO_TASK, OS_SYST_ERR_STR_TOO_LONG, __FILE__, __LINE__,
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1533 "Unknown Byte Order" );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1534 emergeny_trace = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1535 trc_hCommTrace = VSI_ERROR;;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1536 for ( i = 0; i <= MaxEntities; i++ )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1537 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1538 TracesAborted[i] = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1539 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1540 TraceMask[i] = TC_SYSTEM\|TC_ERROR;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1541 #else /* _TARGET_ */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1542 TraceMask[i] = 0xffffffff & ~TC_CCD;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1543 #endif /* _TARGET_ */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1544 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1545 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1546 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1547 ext_trace_func.magic_nr = 0;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1548 ext_trace_init();
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1549 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1550 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1551
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1552 #ifndef RUN_FLASH
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1553 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1554 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1555 \| PROJECT : GSM-Frame (8415) MODULE : VSI_TRC \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1556 \| STATE : code ROUTINE : get_suspend_state \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1557 +--------------------------------------------------------------------+
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1558
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1559 PURPOSE : check if suspend is allowed.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1560
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1561 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1562 ULONG get_suspend_state ( T_HANDLE caller, int type )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1563 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1564
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1565 if ( caller != 0 )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1566 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1567 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1568 if ( type == CHECK_TRC_SUSPEND )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1569 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1570 if ( pf_TaskTable[caller].Flags & TRC_NO_SUSPEND )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1571 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1572 return OS_NO_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1573 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1574 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1575 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1576 return OS_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1577 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1578 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1579 else if ( type == CHECK_PRIM_SUSPEND )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1580 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1581 if ( pf_TaskTable[caller].Flags & PRIM_NO_SUSPEND )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1582 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1583 return OS_NO_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1584 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1585 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1586 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1587 return OS_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1588 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1589 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1590 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1591 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1592 return OS_NO_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1593 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1594 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1595 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1596 It is checked if the caller is a SYSTEM_PROCESS to ensure that
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1597 TST and RCV do not block while tracing to avoid a deadlock.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1598 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1599 if ( pf_TaskTable[caller].Flags & SYSTEM_PROCESS )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1600 return OS_NO_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1601 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1602 return OS_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1603 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1604 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1605 else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1606 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1607 #ifdef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1608 return OS_NO_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1609 #else
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1610 return OS_SUSPEND;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1611 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1612 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1613 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1614 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1615
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1616
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1617 /* -------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1618 External Trace functions
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1619 ----------------------------------------------------------------------------*/
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1620
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1621 #ifdef TEST_EXT_TRACE
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1622
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1623 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1624 void trace_error ( const char * const format, va_list varpars )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1625 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1626 #ifndef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1627 char buf[99];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1628
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1629 vsprintf (buf, format, varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1630 printf ("%s\n",buf);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1631 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1632 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1633 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1634
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1635 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1636 void trace_assert ( const char * const format, va_list varpars )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1637 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1638 #ifndef _TARGET_
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1639 char buf[99];
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1640
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1641 vsprintf (buf, format, varpars);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1642 printf ("%s\n",buf);
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1643 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1644 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1645 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1646
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1647 #endif /* TEST_EXT_TRACE */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1648
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1649 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1650 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1651 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1652 \| Function : ext_trace_register
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1653 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1654 \| Description : register the external trace functions.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1655 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1656 \| Parameters : func - pointer to API function pointer table
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1657 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1658 \| Return : void
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1659 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1660 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1661 void vsi_ext_trace_register ( T_EXT_TRACE_FUNC * func )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1662 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1663 ext_trace_func.trace_error = func->trace_error;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1664 ext_trace_func.trace_assert = func->trace_assert;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1665 ext_trace_func.magic_nr = EXT_TRACE_INITIALIZED;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1666 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1667 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1668
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1669 #ifndef RUN_INT_RAM
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1670 /*
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1671 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1672 \| Function : ext_trace_init
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1673 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1674 \| Description : initialize external trace function pointer table.
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1675 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1676 \| Parameters : void
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1677 \|
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1678 \| Return : void
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1679 +------------------------------------------------------------------------------
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1680 */
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1681 void ext_trace_init ( void )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1682 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1683 #ifdef TEST_EXT_TRACE
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1684 vsi_ext_trace_register ( &ext_trace_functions );
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1685 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1686 if ( ext_trace_func.magic_nr != EXT_TRACE_INITIALIZED )
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1687 {
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1688 ext_trace_func.trace_error = NULL;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1689 ext_trace_func.trace_assert = NULL;
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1690 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1691 }
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1692 #endif
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1693
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1694
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1695
c41a534f33c6 src/gpf3: preened GPF goo from TCS3.2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1696

FreeCalypso > hg > fc-magnetite

annotate src/gpf3/frame/vsi_trc.c @ 702:9394305d4ff5 default tip