fc-magnetite: src/gpf2/tst/tst

annotate src/gpf2/tst/tst_pei.c @ 581:a0a45c5eb3ef

gsmcomp.c: bumping trace partition size to 220 like in gprscomp.c This change is safe in terms of RAM usage because all of these partition pools have already been moved from XRAM to IRAM earlier, and our IRAM usage in VO configs is currently quite low - the one near the limit is XRAM on C11x.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 29 Jan 2019 03:52:49 +0000
parents	cd37d228dae0
children

rev	line source
294 cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +------------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| File: tst_pei.c
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 +------------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 \| Copyright 2004 Texas Instruments Deutschland, AG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| All rights reserved.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \| This file is confidential and a trade secret of Texas
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| Instruments Berlin, AG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| The receipt of or possession of this file does not convey
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| any rights to reproduce or disclose its contents or to
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| manufacture, use, or sell anything it may describe, in
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| whole, or in part, without the specific written consent of
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| Texas Instruments Deutschland, AG.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 +-----------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 \| Purpose : This Modul contains the PEI interface of TST
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 +-----------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 #ifndef __TST_PEI_C__
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #define __TST_PEI_C__
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #define ENTITY_TST
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 /==== INCLUDES ===================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 #include <string.h>
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include <stdio.h>
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include <stdlib.h>
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "frame_const.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include <stdlib.h>
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #ifndef _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "printtofile.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "typedefs.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "vsi.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "frame.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "pei.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "os.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #include "tools.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include "gdi.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "os.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "frm_defs.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #include "frm_types.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "frm_glob.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #include "route.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "drvconf.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #include "tstdriver.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #include "tstheader.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include "tst_mux.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "pcon.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #include "tst_primitives.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #ifdef _PSOS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #include "pna.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 #include "ffs/ffs_api.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 /==== TYPES ======================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #undef VSI_CALLER
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #define VSI_CALLER TST_Handle,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #define VSI_CALLER e_running[os_MyHandle()],
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 /==== CONSTANTS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 #ifdef _VXWORKS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 #define TST_STACKSIZE 8192
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #define TST_PRIORITY 190 /* priority (1->high, 255->low) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #define TST_STACKSIZE 4096
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 #define TST_PRIORITY 15
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 #define TST_SND_PRIORITY 15 /* priority (1->low, 255->high) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #define TST_RCV_PRIORITY 15 /* priority (1->low, 255->high) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 #define TST_STACKSIZE 1024
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 #define TST_PRIORITY 2
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 #define TST_SND_PRIORITY 6 /* priority (1->low, 255->high) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 #define TST_RCV_PRIORITY 7 /* priority (1->low, 255->high) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 #define TST_TIMERS 2
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 #define GET_STACK_TIME_TIMER_INDEX 0
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 #define GET_STACK_TIME_TIMER_DURATION 60000
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 #define TST_SYNC_TIMER_INDEX 1
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #define TST_SYNC_TIMER_DURATION 2000
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 #define TST_TIMERS 0
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 #define TRACEMASKFILE "/var/dbg/tracemask"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 #define DRV_CALLBACK_OPC 0
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 #define TR_RCV_BUF_SIZE (MAX_PRIM_PARTITION_SIZE)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 #define TR_MAX_IND (TR_RCV_BUF_SIZE-1)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 USHORT MaxEntities = MAX_ENTITIES;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 /==== EXTERNALS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 extern const T_PCON_PROPERTIES *pcon;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 extern const USHORT TST_SndQueueEntries;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 extern const USHORT TST_RcvQueueEntries;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 extern const USHORT TST_SndStacksize;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 extern const USHORT TST_RcvStacksize;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 extern UBYTE FrameEnv;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 __declspec (dllimport) UBYTE SuppressOK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 extern char *str2ind_version;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 extern UBYTE SuppressOK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 static T_HANDLE hCommIDLE = VSI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 extern short idle_pei_create (T_PEI_INFO const ** info);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 extern char TaskName[];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 /==== VARIABLES ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 T_HANDLE TST_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 T_HANDLE RCV_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 T_HANDLE TIF_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 UBYTE TST_DrvState = TST_DRV_DISCONNECTED;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 static char const *ok_string = "OK";
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 static UBYTE frmenv;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 ULONG TR_RcvBufferSize = TR_RCV_BUF_SIZE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 ULONG TR_MaxInd = TR_MAX_IND;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 int tst_syncronized = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 int tst_message_received = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 int tst_sync_timeout_cnt = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 int tst_max_sync_timeout = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 int tst_sync_mode = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 int tst_sync_sucess = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 int tst_sync_started = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 int tst_status_received = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 T_HANDLE tst_sync_req_handle = VSI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 char sync_req_name[RESOURCE_NAMELEN];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 char sync_req_time[16];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 GLOBAL USHORT tst_task_priority = TST_PRIORITY;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 GLOBAL ULONG tst_task_stack_size = TST_STACKSIZE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 extern SHORT tst_pei_primitive (void *primitive);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 #endif /* RUN_INT_RAM */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 #ifdef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 extern T_HANDLE TST_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 extern T_HANDLE RCV_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 extern T_HANDLE TIF_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 extern UBYTE TST_DrvState;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 static char ctb_rcv[4];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 static U32 ctb_remaining_tick_time=0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 BOOL ctb_tick_enabled = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 BOOL ctb_sent_to_tap = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 T_HANDLE idle_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 /==== FUNCTIONS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 #ifndef RUN_FLASH
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 \| STATE : code ROUTINE : pei_primitive \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 SHORT tst_pei_primitive (void *primitive)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 T_PRIM_HEADER prim = (T_PRIM_HEADER)primitive;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 T_VOID_STRUCT *prim_ptr = NULL;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 SHORT ret = PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 if ( ((SAP_NR(prim->opc)==TRACE_SAP) \|\| (prim->opc==TRACE_OPC)) && (P_SHO(prim)!=0) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 prim->opc = SYS_MASK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 if ( (SAP_NR(prim->opc)!=TRACE_SAP) && (prim->opc!=TRACE_OPC) && !(prim->opc & SYS_MASK) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 prim_ptr = (T_VOID_STRUCT)(((T_PRIM_X)prim)->prim_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 VSI_PPM_RCV(prim_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 PTRACE_OUT(prim->opc );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 if ( TST_DrvState == TST_DRV_CONNECTED )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 if ( vsi_d_write ( TST_Handle, TIF_Handle, primitive, prim->len ) != VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 ret = PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 vsi_t_sleep(TST_Handle,10);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 if ( prim_ptr != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 FREE(P2D(prim_ptr));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 vsi_trc_free (0, (T_VOID_STRUCT**)&prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 return ( ret );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 \| STATE : code ROUTINE : pei_init \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 LOCAL SHORT pei_init ( T_HANDLE handle )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 T_HANDLE h_pco;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 T_HANDLE entityTraceMask;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 ULONG actual;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 T_FFS_FD fd;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 T_RV_RETURN retPath;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 BOOL gotAll = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 TST_Handle = handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 while (vsi_c_open (0, FRM_RCV_NAME) < VSI_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 vsi_t_sleep(0,100);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 frmenv = (UBYTE) pf_get_frameenv ();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 if ( os_OpenQueue (0, FRM_PCO_NAME, &h_pco) == OS_OK \|\|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 os_create_extq (FRM_PCO_NAME, &h_pco) == OS_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 vsi_o_set_htrace (h_pco);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 #ifdef _DEBUG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 fprintf (stdout,"TST: %s commH set to %d\n", FRM_PCO_NAME,h_pco);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 vsi_t_start ( handle, GET_STACK_TIME_TIMER_INDEX, GET_STACK_TIME_TIMER_DURATION );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 if ( vsi_c_open (TST_Handle, FRM_RCV_NAME) < VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 return PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 RCV_Handle = vsi_e_handle ( TST_Handle, FRM_RCV_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 frmenv = FrameEnv;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 #ifndef _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 initPrintToFile();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 if ( vsi_d_init ( TST_Handle ) != VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 #ifndef _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 printf("SYSTEM ERROR: Driver initialization failed\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 vsi_o_assert ( TST_Handle, OS_SYST_ERR, __FILE__, __LINE__, "SYSTEM ERROR: Testinterface driver initialization failed" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 ;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 TIF_Handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 vsi_d_setsignal ( TST_Handle, 0, DRV_SIGTYPE_READ\|DRV_SIGTYPE_CONNECT\|DRV_SIGTYPE_DISCONNECT);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 vsi_d_setconfig ( TST_Handle, 0, NULL );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 vsi_trcsuspend ( TST_Handle, TST_Handle, OS_NO_SUSPEND );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 SuppressOK = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 tst_mux_init();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 fd = ffs_open(TRACEMASKFILE, FFS_O_RDWR);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 if (fd < 0)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 // could not open nor create /var/dbg/tracemask warning
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_init: no trace mask in FFS");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 InitializeTrace();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 TraceMask[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 TraceMask[0] \|= TC_SYSTEM\|TC_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 for (entityTraceMask = 0; entityTraceMask < (MaxEntities + 1); entityTraceMask++)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 actual = TraceMask[entityTraceMask];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 if (ffs_read(fd, (void*)&TraceMask[entityTraceMask], sizeof(ULONG) ) != sizeof(ULONG) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 gotAll = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 if (entityTraceMask == 0) // first element
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 TraceMask[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 TraceMask[0] \|= TC_SYSTEM\|TC_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 if (actual != TraceMask[entityTraceMask])
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 // not the default trace mask, generate warning
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 if ( vsi_e_name ( 0, entityTraceMask, TaskName ) == VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_init: FFS trace mask gave 0x%08x for %s (default 0x%08x)", TraceMask[entityTraceMask], TaskName, actual);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 ffs_close(fd);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 if (!gotAll)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_init: some trace masks can't be read from FFS");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 \| STATE : code ROUTINE : pei_exit \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 static SHORT pei_exit (void)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 T_HANDLE rcvh=vsi_p_handle (0, FRM_RCV_NAME);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 if (rcvh > VSI_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 /* exit RCV process */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 vsi_p_exit ( TST_Handle, vsi_p_handle (0, FRM_RCV_NAME));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 /* exit all drivers */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 vsi_d_exit ( TST_Handle, 0);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 \| STATE : code ROUTINE : pei_timeout \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 LOCAL SHORT pei_timeout (USHORT index)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 switch ( index )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 case GET_STACK_TIME_TIMER_INDEX:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 #if 0
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 if ( tst_message_received == 1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 tst_drv_write ( NO_TASK, SYS_MASK, FRM_TST_NAME, (char*)SYSPRIM_GET_STACK_TIME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 vsi_t_start ( VSI_CALLER GET_STACK_TIME_TIMER_INDEX, GET_STACK_TIME_TIMER_DURATION );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 case TST_SYNC_TIMER_INDEX:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 if ( tst_sync_timeout_cnt++ >= tst_max_sync_timeout-1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 T_HANDLE tif_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 T_VOID_STRUCT *ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 tst_status_received = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 tst_sync_timeout_cnt = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 tst_sync_mode = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 tst_sync_sucess = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 tif_handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 vsi_d_setconfig ( TST_Handle, tif_handle, DISABLE_SYNC_MODE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 vsi_t_stop ( TST_Handle, TST_SYNC_TIMER_INDEX );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 ptr = vsi_c_pnew ( sizeof(T_PRIM_HEADER)+strlen(SYSPRIM_TST_SYNC_REJ), 0x8000 FILE_LINE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 strcpy ( (char*)ptr, SYSPRIM_TST_SYNC_REJ );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 vsi_c_psend ( tst_sync_req_handle, ptr );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 if ( tst_syncronized == 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 T_HANDLE tif_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 tst_sync_sucess = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 tst_status_received = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 tif_handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 vsi_d_setconfig ( TST_Handle, tif_handle, ENABLE_SYNC_MODE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"TRACECLASS 0x10" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 vsi_t_sleep ( TST_Handle, 100 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"STATUS TASK" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 vsi_t_start ( TST_Handle, TST_SYNC_TIMER_INDEX, TST_SYNC_TIMER_DURATION );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 vsi_t_sleep ( TST_Handle, 200 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"ROUTING" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 \| STATE : code ROUTINE : pei_signal \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 LOCAL SHORT pei_signal (ULONG SignalType, void *ptr)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 * the following line of code causes a warning on tms470 compiler, that cannot be avoided
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 * without changing the PEI interface. Warning will not cause a problem
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 T_VOID_STRUCT sig_ptr = (T_VOID_STRUCT)ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 T_PRIM_HEADER *prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 T_S_HEADER *s_hdr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 T_HANDLE DestTaskHandle, DestComHandle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 T_HANDLE min, max, i;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 unsigned int Length;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 ULONG Suspend, TraceMask, OldTraceMask;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 unsigned int Offset = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 char token[81];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 UBYTE FreePrim = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 SHORT ret = PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 USHORT processed = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 switch ( SignalType )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 case DRV_SIGTYPE_READ:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 VSI_PPM_RCV(sig_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 if ( (prim = ((T_PRIM_X*)sig_ptr)->prim_ptr) != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 VSI_PPM_RCV (prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 DestTaskHandle = vsi_e_handle ( TST_Handle, s_hdr->rcv );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 if ( DestTaskHandle == VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 if ( !strcmp ( "IRQ", s_hdr->rcv ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 DestTaskHandle = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 OldTraceMask = TC_SYSTEM;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 TraceMask = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 if ( !strcmp ( "SYST", s_hdr->rcv ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 DestTaskHandle = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 vsi_gettracemask ( DestTaskHandle, 0, &OldTraceMask);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 TraceMask = TC_SYSTEM;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 OldTraceMask = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 TraceMask = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 /* to satisfy LINT */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 OldTraceMask = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 TraceMask = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 if ( DestTaskHandle != VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 if ( prim->opc & SYS_MASK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 Length = GetNextToken ((char*)(P2D(prim)), token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 Offset = Length+1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 if ( frmenv == ENV_STACK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 /* Set Traceclass for non-frame tasks/HISRs */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 if ( DestTaskHandle == 0 && !strcmp (token, SYSPRIM_TRACECLASS_TOKEN) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 Length = GetNextToken ((char *)(P2D(prim))+Offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 TraceMask = ASCIIToHex(token, CHARS_FOR_32BIT);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 vsi_settracemask ( DestTaskHandle, 0, TraceMask\|OldTraceMask); /* it is not allowed to switch of system traces */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 sprintf ( token, "%s (%s %s)", ok_string, (char*)(P2D(prim)), s_hdr->rcv );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 if (!strcmp (token, SYSPRIM_TRC_SUSPEND))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 * set suspend for traces to SUSPEND or NO_SUSPEND
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 Length = GetNextToken ((char *)(P2D(prim))+Offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 Offset += (Length+1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 if ( !strcmp ( token, "ALL" ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 min = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 max = MaxEntities;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 GetNextToken ((char *)(P2D(prim))+Offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 min = DestTaskHandle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 max = min;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 if ( !strcmp ( token, "YES" ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 Suspend = 0xffffffff;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 Suspend = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 for ( i = min; i <= max; i++ )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 vsi_trcsuspend ( TST_Handle, i, Suspend );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 sprintf ( token, "%s (%s %s)", ok_string, (char*)(P2D(prim)), s_hdr->rcv );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 else if (!strcmp (token, SYSPRIM_MEMCHECK_TOKEN))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 * Memory Check
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 for ( i = 1; i <= MaxEntities; i++ )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 if ( vsi_object_info (TST_Handle, OS_OBJTASK, (USHORT)i, token, sizeof(token)) != VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 else if (!strcmp (token, SYSPRIM_TIMER_TICK_REQ))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 ctb_sent_to_tap = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 if(strlen(ctb_rcv)<3)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 strcpy(ctb_rcv, P_SND(prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 ctb_remaining_tick_time = P_TIME(prim); //The time parameter is sent in the time stap.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 /*sprintf ( token, "Requesting ticking for %d from %s", ctb_remaining_tick_time, ctb_rcv);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 tst_drv_write ( NO_TASK, 0, NULL, token );*/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 PSIGNAL(hCommIDLE, IDLE_REQ, NULL);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 else if (!strcmp (token, SYSPRIM_INT_TICK_MODE_REQ))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 if(ctb_tick_enabled)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 vsi_p_delete (TST_Handle,idle_handle);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 ctb_tick_enabled = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 ctb_sent_to_tap = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 sprintf ( token, "Disabling Common Timer Base");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 ctb_rcv[0]='\0';
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 os_StartTicking();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 sprintf ( token, "Common Timer Base already disabled");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 if(!strcmp(P_SND(prim), "TAP"))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 tst_drv_write ( NO_TASK, SYS_MASK, "TAP", "INT_TICK_MODE_CNF");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 else if (!strcmp (token, SYSPRIM_EXT_TICK_MODE_REQ))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 if(!ctb_tick_enabled)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 if ( (idle_handle = vsi_p_create (TST_Handle, idle_pei_create, NULL, 1)) == VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 vsi_o_assert ( TST_Handle, OS_SYST_ERR, __FILE__, __LINE__, "CTB: Cannot create IDLE task" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 vsi_p_start (TST_Handle, idle_handle);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 while ( (hCommIDLE = vsi_e_handle ( TST_Handle, "IDLE" ))<VSI_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 vsi_t_sleep(0,1000);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 os_StopTicking();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 sprintf ( token, "Enabling Common Timer Base");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 ctb_tick_enabled = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 sprintf ( token, "Common Timer Base already enabled");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 if(!strcmp(P_SND(prim), "TAP"))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 char send_str[50];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 char tmp_str[8];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 //Get process id and put in this syst primitive.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 strcpy(send_str,"EXT_TICK_MODE_CNF#");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 _itoa(os_GetProcessId(), tmp_str, 10);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 strcat(send_str, tmp_str);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 tst_drv_write ( NO_TASK, SYS_MASK, "TAP", send_str);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 #endif //CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 #ifndef _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 else if (!strcmp (token, SYSPRIM_SUPPRESS_OK))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 SuppressOK = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 else if (!strcmp (token, SYSPRIM_GET_STACK_TIME))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 tst_drv_write ( NO_TASK, SYS_MASK, FRM_TST_NAME, (char*)SYSPRIM_IS_STACK_TIME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 else if (!strcmp (token, SYSPRIM_READ_ROUTING))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 i = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 while ( rt_RouteRead ( DestTaskHandle, token ) != RT_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 i++;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 if ( !i )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 sprintf ( token, "NO %s ROUTINGS STORED", s_hdr->rcv );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 else if (!strcmp (token, SYSPRIM_STR2IND_VERSION))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 processed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 tst_drv_write ( NO_TASK, 0, NULL, str2ind_version );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 /* synchronization with protocol stack */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 if ( tst_sync_mode == 1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 char *pos;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 char task_status;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 T_VOID_STRUCT *cmd_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 pos = strstr ( (char*)(P2D(prim)), "Name:" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 if ( pos != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 tst_sync_started = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 GetNextToken ((char *)(P2D(prim))+strlen("Name:"), token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 if ( strcmp(token,FRM_RCV_NAME) && strcmp(token,FRM_TST_NAME) && strcmp(token,"EXTR") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 pos = strstr ( (char*)(P2D(prim)), "Stat:" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 if ( pos != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 tst_status_received = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 task_status = atoi(pos+strlen("Stat:"));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 if ( task_status != 6 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 tst_sync_sucess = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 if ( tst_sync_started == 1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 pos = strstr ( (char*)(P2D(prim)), "ROUTING" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 if ( pos != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 if ( tst_sync_sucess == 1 && tst_status_received == 1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 T_HANDLE tif_handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 vsi_d_setconfig ( TST_Handle, tif_handle, DISABLE_SYNC_MODE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 vsi_t_stop ( TST_Handle, TST_SYNC_TIMER_INDEX );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 cmd_ptr = vsi_c_pnew ( sizeof(T_PRIM_HEADER)+strlen(SYSPRIM_TST_SYNC_CNF), 0x8000 FILE_LINE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 strcpy ( (char*)cmd_ptr, SYSPRIM_TST_SYNC_CNF );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 vsi_o_ttrace ( TST_Handle, TC_TIMER, "SYNC DONE") ;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 vsi_c_psend ( tst_sync_req_handle, cmd_ptr );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 tst_sync_mode = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 tst_sync_timeout_cnt = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 tst_syncronized = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 if ( processed == FALSE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 if ( ( DestComHandle = vsi_c_open ( TST_Handle, s_hdr->rcv ) ) != VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 /* free carrier */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 PFREE(P2D(sig_ptr));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 FreePrim = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 vsi_c_psend (DestComHandle, (T_VOID_STRUCT*)P2D(prim) FILE_LINE_MACRO);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 if ( frmenv == ENV_STACK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 sprintf ( token, "SYSTEM WARNING: Receiver Process '%s' unknown", s_hdr->rcv );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 ret = PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 /* free dyn_ptr if unknown receiver */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 FREE(P2D(prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 /* free dyn_ptr if processed in TST */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 FREE(P2D(prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 if ( FreePrim )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 /* free carrier */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 PFREE(P2D(sig_ptr));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 case DRV_SIGTYPE_CONNECT:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 TST_DrvState = TST_DRV_CONNECTED;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 tst_drv_write ( NO_TASK, SYS_MASK, FRM_TST_NAME, (char*)SYSPRIM_IS_STACK_TIME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 tst_drv_write ( NO_TASK, 0, NULL, str2ind_version );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 case DRV_SIGTYPE_DISCONNECT:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 TST_DrvState = TST_DRV_DISCONNECTED;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 #ifdef _PSOS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 /* for pSOS: send empty message to TST */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 if ( vsi_d_open ( TST_Handle, "SOCKET" ) != VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 T_QMSG Message;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 static T_HANDLE tst_handle = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 if( TST_Handle > 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 Message.MsgType = MSG_PRIMITIVE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 Message.Msg.Primitive.Prim = NULL;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 Message.Msg.Primitive.PrimLen = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 #ifdef MEMORY_SUPERVISION
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 vsi_c_send (TST_Handle, TST_Handle, &Message, __FILE__, __LINE__);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 vsi_c_send (TST_Handle, TST_Handle, &Message);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 case IDLE_CNF:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 if(ctb_remaining_tick_time > 0 && ctb_tick_enabled && !ctb_sent_to_tap)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 os_Tick();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 PSIGNAL(hCommIDLE, IDLE_REQ, NULL);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 ctb_remaining_tick_time = ctb_remaining_tick_time-50;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 /*sprintf ( token, "Ticking finished - remaining time %d", ctb_remaining_tick_time);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 tst_drv_write ( NO_TASK, 0, NULL, token );*/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 if(!strcmp(ctb_rcv, "TAP"))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 tst_drv_write ( NO_TASK, SYS_MASK, FRM_TST_NAME, SYSPRIM_IS_STACK_TIME ); //Synchronize time with tools
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 tst_drv_write ( NO_TASK, SYS_MASK, ctb_rcv, "TIMER_TICK_CNF");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 sprintf ( token, "Unhandled PSIGNAL");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 tst_drv_write ( NO_TASK, 0, NULL, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 return ( ret );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 \| PROJECT : GSM-GPF (8415) MODULE : TST_PEI \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 \| STATE : code ROUTINE : pei_config \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 LOCAL SHORT pei_config (char * inString)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 T_HANDLE drv_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 char token[80];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 unsigned int length, offset;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 BOOL select = 0,config = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 T_TST_DRV_ENTRY *tst_drv_info;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 length = GetNextToken (inString, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 offset = length+1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 if ( !strcmp ( token, "DRIVER") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 length = GetNextToken (inString+offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 offset += (length+1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 if ( !strcmp ( token, "FLUSH") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 vsi_d_flush ( TST_Handle, 0 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 if ( !strcmp ( token, "SELECT") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 select = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 if ( !strcmp ( token, "CONFIG") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 config = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 tst_syncronized = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 length = GetNextToken (inString+offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 offset += (length+1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 if ( select )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 if ( !strcmp(NODRV_NAME,token) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 if ( tst_drv_open ( token, &tst_drv_info ) == VSI_ERROR \|\|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 vsi_d_create ( TST_Handle, tst_drv_info ) == VSI_ERROR)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 return PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 PrintToFile("TST: all drivers unloaded\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 /* check if driver is already loaded */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 if ( (drv_handle = vsi_d_open ( TST_Handle, token )) == VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 if ( tst_drv_open ( token, &tst_drv_info ) == VSI_ERROR \|\|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 vsi_d_create ( TST_Handle, tst_drv_info ) == VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 return PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 #ifdef _DEBUG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 PrintToFile("TST: keeping %s loaded\n",token);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 vsi_d_close( TST_Handle, drv_handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 if ( config )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 if ( ( drv_handle = vsi_d_open ( TST_Handle, token ) ) == VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 return PEI_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 if (vsi_d_setconfig ( TST_Handle, drv_handle, inString+offset) != VSI_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 char text[99];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 _snprintf(text,98,"TST: Error configuring driver %s with \"%s\" :-(",token, inString+offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 vsi_o_ttrace(NO_TASK, TC_SYSTEM, text);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 vsi_d_close( TST_Handle, drv_handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 else if ( !strcmp ( token, "THIF") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 T_HANDLE tif_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 tif_handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 length = GetNextToken (inString+offset, token, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 offset += (length+1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 if ( !strcmp ( token, "OPEN") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 vsi_d_setconfig ( TST_Handle, tif_handle, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 else if ( !strcmp ( token, "CLOSE") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 vsi_d_setconfig ( TST_Handle, tif_handle, token );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 else if ( !strcmp ( token, SYSPRIM_TST_SYNC_REQ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 T_HANDLE tif_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 unsigned int len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 len = GetNextToken (inString+offset, sync_req_name, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 offset += len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 len = GetNextToken (inString+offset, sync_req_time, " #");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 tst_max_sync_timeout = (atoi(sync_req_time) - 1000)/TST_SYNC_TIMER_DURATION;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 tst_sync_req_handle = vsi_c_open ( TST_Handle, sync_req_name );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 if ( tst_sync_req_handle != VSI_ERROR )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 if ( tst_syncronized == 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 tst_sync_started = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 tst_status_received = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 tst_sync_mode = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 tst_sync_sucess = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 tif_handle = vsi_d_open ( TST_Handle, (char*)TIF_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 vsi_d_setconfig ( TST_Handle, tif_handle, ENABLE_SYNC_MODE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"TRACECLASS 0x10" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 vsi_t_sleep ( TST_Handle, 100 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"STATUS TASK" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973 vsi_t_start ( TST_Handle, TST_SYNC_TIMER_INDEX, TST_SYNC_TIMER_DURATION );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 vsi_t_sleep ( TST_Handle, 200 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 tst_drv_write ( NO_TASK, SYS_MASK, FRM_RCV_NAME, (char*)"ROUTING" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 #ifdef _FF_RV_EXIST_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 else if ( !strcmp ( token, "TRACEMASK_IN_FFS") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 int amount;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 T_FFS_FD fd;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 T_FFS_RET ret;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 T_FFS_SIZE written;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 T_FFS_DIR dir;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 BOOL writeFailed = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 if (vsi_e_handle ( TST_Handle, FRM_RCV_NAME ) == e_running[os_MyHandle()]) // config prim processing only allowed in RCV, not TST!
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 fd = ffs_open(TRACEMASKFILE, FFS_O_RDWR \| FFS_O_CREATE \| FFS_O_TRUNC);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 if (fd < 0)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 // could not open nor create /var/dbg/tracemask warning
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: could not open/create FFS trace mask, reason is 0x%x", fd);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999 TraceMask[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 TraceMask[0] \|= TC_SYSTEM\|TC_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 amount = sizeof(ULONG) * (MaxEntities + 1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 written = ffs_write(fd, (void*)&TraceMask[0], amount);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 if (written != amount)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 if (written >= 0)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 amount -= written;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: writing to FFS, second try");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 written = ffs_write(fd, (void*)&TraceMask[0], amount);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 if (written != amount)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 writeFailed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017 writeFailed = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 if (writeFailed)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: ffs_write to FFS failed with 0x%x, did open with", written, fd);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 if (ffs_fdatasync(fd) == EFFS_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: successfully written trace mask to FFS");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: flushing FFS trace mask failed!");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 ffs_close(fd);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 else if ( !strcmp ( token, "NO_TRACEMASK_IN_FFS") )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 T_FFS_RET ret;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 InitializeTrace();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 TraceMask[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 TraceMask[0] \|= TC_SYSTEM\|TC_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 if (vsi_e_handle ( TST_Handle, FRM_RCV_NAME ) == e_running[os_MyHandle()]) // config prim processing only allowed in RCV, not TST!
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 ret = ffs_remove(TRACEMASKFILE);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 if (ret != EFFS_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: failed to remove FFS trace mask, reason is 0x%x", ret);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 vsi_o_ttrace(NO_TASK, TC_SYSTEM, "pei_config: successfully removed FFS trace mask");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 GLOBAL SHORT tstsnd_pei_create ( T_PEI_INFO ** info)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067 static T_PEI_INFO data =
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 { "TST",
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070 pei_init,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 pei_exit,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 tst_pei_primitive,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 pei_timeout,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 pei_config,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 NULL
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 TST_STACKSIZE,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 0,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 TST_SND_PRIORITY,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 TST_TIMERS,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 (PASSIVE_BODY\|COPY_BY_REF\|SYSTEM_PROCESS\|TRC_NO_SUSPEND)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 };
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 data.QueueEntries = TST_QUEUE_ENTRIES;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 data.QueueEntries = TST_SndQueueEntries;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 * This way of setting the TST and RCV stacksize is chosen to keep it backwardscompatible,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 * i.e. not change the behavior if the stacksizes are not define in the configuration
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097 * file xxxconst.h.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 if ( TST_SndStacksize > 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101 data.StackSize = TST_SndStacksize;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 if ( pcon != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 data.StackSize += pcon->stack_offset;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 *info = &data;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 GLOBAL SHORT tstrcv_pei_create ( T_PEI_INFO ** info)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116 static T_PEI_INFO data =
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 { "RCV",
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 pei_signal,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 pei_config,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126 NULL
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128 TST_STACKSIZE,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 0,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 TST_RCV_PRIORITY,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 TST_TIMERS,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 (PASSIVE_BODY\|COPY_BY_REF\|SYSTEM_PROCESS\|TRC_NO_SUSPEND)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133 };
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136 data.QueueEntries = TST_QUEUE_ENTRIES;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 data.QueueEntries = TST_RcvQueueEntries;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 * This way of setting the TST and RCV stacksize is chosen to keep it backwardscompatible,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 * i.e. not change the behavior if the stacksizes are not define in the configuration
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 * file xxxconst.h.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144 if ( TST_RcvStacksize > 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146 data.StackSize = TST_RcvStacksize;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 if ( pcon != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 data.StackSize += pcon->stack_offset;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 *info = &data;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 return PEI_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157

FreeCalypso > hg > fc-magnetite

annotate src/gpf2/tst/tst_pei.c @ 581:a0a45c5eb3ef