fc-selenite: src/gpf/ccd/csn1

annotate src/gpf/ccd/csn1_sx.c @ 134:7d50d8d13711

FFS code sync with Magnetite + gcc version fix This change brings the new flash autodetection for FC and Pirelli targets from Magnetite, and should also fix the gcc version for C1xx and gtamodem targets, which were previously broken because they used TI's original flash autodetect code (which operates at address 0) while the boot ROM is mapped there.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 11 Dec 2018 08:43:25 +0000
parents	1ea54a97e831
children

rev	line source
5 1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project : CCD
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : csn1_sx.c
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : Definition of encoding and decoding functions for CSN1_S0 elements
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 * standard definitions like GLOBAL, UCHAR, ERROR etc.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #include "typedefs.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include "header.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 * Prototypes of ccd (USE_DRIVER EQ undef) for prototypes only
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 * look at ccdapi.h
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #undef USE_DRIVER
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "ccdapi.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 * Types and functions for bit access and manipulation
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "ccd_globs.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "bitfun.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 * Prototypes of ccd internal functions
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "ccd.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 * Declaration of coder/decoder tables
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "ccdtable.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "ccddata.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 * Need memory allocation functions for dynamic arrays (pointers)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #include "vsi.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include <string.h>
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #ifndef RUN_FLASH
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 \| PROJECT : CCD (6144) MODULE : CCD \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 \| STATE : code ROUTINE : cdc_csn1_sx_decode \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 PURPOSE : The encoded IE consists of one bit for presence flag and
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 a value part.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 In case of CSN1_S1 only if the flag bit is equal 1 the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 value part will follow it.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 In case of CSN1_S0 only if the flag bit is equal 0 the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 value part will follow it.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 SHORT cdc_csn1_sx_decode (int flag, const ULONG e_ref, T_CCD_Globs *globs)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 ULONG repeat, max_rep, act_offset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 ULONG amount = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 BOOL is_variable;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 ULONG cix_ref, num_prolog_steps, prolog_step_ref;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 U8 *old_pstruct = NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 U8 *addr = NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #ifdef DEBUG_CCD
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #ifndef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 TRACE_CCD (globs, "cdc_csn1_sx_decode()");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 TRACE_CCD (globs, "cdc_csn1_sx_decode() %s", ccddata_get_alias((USHORT) e_ref, 1));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 globs->SeekTLVExt = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 cix_ref = melem[e_ref].calcIdxRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 num_prolog_steps = calcidx[cix_ref].numPrologSteps;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 prolog_step_ref = calcidx[cix_ref].prologStepRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 * If this element is conditional, check the condition.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 if (calcidx[cix_ref].numCondCalcs NEQ 0
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 AND ! ccd_conditionOK (e_ref, globs))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 * If this element has a defined prologue
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 * we have to process it before decoding the bitstream.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 if (num_prolog_steps)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 ccd_performOperations (num_prolog_steps, prolog_step_ref, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 if (melem[e_ref].repType NEQ ' ')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 is_variable = ccd_calculateRep (e_ref, &repeat, &max_rep, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 /* Structured IE is to be handeled as bitstring.*/
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 if (melem[e_ref].repType == 's')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 repeat--;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 is_variable = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 repeat = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 * Check for pointer types; allocate memory if necessary.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 * May overwrite globs->pstruct (and initialize globs->pstructOffs to 0).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 if ( is_pointer_type(e_ref) )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 U32 cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 * Find size to allocate;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 * - Read from mcomp or mvar according to type
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 cSize = (ULONG)((melem[e_ref].elemType EQ 'F' OR
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 melem[e_ref].elemType EQ 'R')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 ? mvar[melem[e_ref].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 : mcomp[melem[e_ref].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 ) * repeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 * Allocate additional memory
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 addr = (U8 *)DP_ALLOC( cSize, globs->alloc_head, DP_NO_FRAME_GUESS);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 /* If no memory, log error and return immediately */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 if (addr EQ NULL) {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 ccd_setError (globs, ERR_NO_MEM,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 BREAK,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 (USHORT) -1);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 memset (addr, 0, (size_t)cSize);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 * Memory allocated;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 if (melem[e_ref].elemType NEQ 'S')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 * Element is not a SPARE. Setup the struct pointer.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 globs->pstructOffs = melem[e_ref].structOffs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 if (is_variable)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 UBYTE *addr_v_xxx = NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 UBYTE *addr_c_xxx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 UBYTE act_continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 if (melem[e_ref].optional)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 * For optional elements we must set the valid-flag,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 * if there is at least one element in the message.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 * Therefore we store the address of the valid flag.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 /* Dynamic array addition.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 * Postpone optional flag setting for non-code transparent
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 * pointer types ('P', 'Q', 'R').
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 * For these types, the optional flag is the pointer itself.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 * These types cannot be set yet, as the pointer may be
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 * preceeded by a counter octet, a union tag id octet etc.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 if (melem[e_ref].elemType < 'P' OR melem[e_ref].elemType > 'R')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 addr_v_xxx = (UBYTE *) (globs->pstruct + globs->pstructOffs++);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 * For variable sized elements store the min-value
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 * as counter into the C-Structure (c_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 addr_c_xxx = (UBYTE *) (globs->pstruct + globs->pstructOffs++);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 if (max_rep > 255)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 globs->pstructOffs++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 * Store the initial offset
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 act_offset = (ULONG) globs->pstructOffs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 if ( is_pointer_type(e_ref) )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 * 1. Save old "globs->pstruct" variables
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 * 2. Store pointer to freshly allocated memory area in structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 * 3. Initialize pstruct to point to the freshly allocated memory area.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 * 4. Initialize pstructOffs to 0 to start decoding at offset 0
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 * in the new memory area.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 old_pstruct = globs->pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 (U8 *)(globs->pstruct + globs->pstructOffs) = addr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 globs->pstruct = addr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 globs->pstructOffs = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 * repType ='i':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 * Repeat this element (if it is an array) until we detect a
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 * flag indicating absence.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 *
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 * repType ='v' and 'c':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 * Repeat the IE and leave the loop.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 *
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 * In both cases we expect a 0 at first.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 if ((melem[e_ref].repType == 'v') \|\| (melem[e_ref].repType == 'c'))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 amount = repeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 repeat = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 act_continue_array = globs->continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 globs->continue_array = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 while (globs->continue_array)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 if (flag == 0xFF) /* CSN1_SH type*/
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 if (bf_readBit(globs) != GET_HL_PREV(1))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 if (bf_readBit(globs) != flag)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 * Flag is set, we must decode the element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 cdc_decodeElemvalue (e_ref, &amount, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 if (++repeat > max_rep)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 * Too many repetitions means error in encoded message.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 ccd_setError (globs, ERR_MAX_REPEAT,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 BREAK,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 (USHORT) (globs->bitpos),
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 (USHORT) -1);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 else if (melem[e_ref].repType EQ 'v')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 repeat = amount;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 * Recalculate the struct offset for repeatable IEs.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 if (is_variable_type(e_ref))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 globs->pstructOffs = (USHORT)(act_offset +
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 (repeat * mvar[melem[e_ref].elemRef].cSize));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 globs->pstructOffs = (USHORT)(act_offset +
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 (repeat * mcomp[melem[e_ref].elemRef].cSize));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 globs->continue_array = act_continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 * Restore globs->pstruct
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 if (old_pstruct NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 globs->pstruct = old_pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 if (addr_v_xxx NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 * For optional elements set the valid-flag
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 * In this case the pointer addr_c_xxx does not mark
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 * the counter. It points to the valid flag.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 if (repeat > 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 *addr_v_xxx++ = (UBYTE) TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 * Store the number of digits into the c_xxx variable if there is one.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 if (max_rep > 65535)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 ULONG *addr_c_xxx_u32;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 addr_c_xxx_u32 = (ULONG *)addr_c_xxx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 *addr_c_xxx_u32 = repeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 else if (max_rep > 255)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 USHORT *addr_c_xxx_u16;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 addr_c_xxx_u16 = (USHORT *)addr_c_xxx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 *addr_c_xxx_u16 = (USHORT) repeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 *addr_c_xxx = (UBYTE) repeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 * IE is not defined as an array.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 BOOL elemPresent;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 if (flag == 0xFF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 elemPresent = (bf_readBit(globs) EQ GET_HL_PREV(1));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 elemPresent = (bf_readBit(globs) == flag);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 if (elemPresent)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 if (melem[e_ref].optional)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 * For optional elements set the valid-flag.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 globs->pstruct[globs->pstructOffs++] = (UBYTE) TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 * Flag is set, we must decode the element.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 cdc_decodeElemvalue (e_ref, &repeat, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 * process the epilogue expression for this element if there is any
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 if (num_prolog_steps)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 if ( (calc[prolog_step_ref+1].operation EQ 'K')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 \|\| (calc[prolog_step_ref+1].operation EQ 'C')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 \|\| (calc[prolog_step_ref+1].operation EQ 's'))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 ccd_performOperations (num_prolog_steps, prolog_step_ref, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 #endif /* !RUN_FLASH */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 #ifndef RUN_FLASH
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 \| PROJECT : CCD (6144) MODULE : CDC_GSM \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 \| STATE : code ROUTINE : cdc_csn1_sx_encode \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 PURPOSE : Encoding of the CSN1 element.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 1) GSM Type CSN1 S1 element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 This element consists of a 1 bit valid flag and a
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 value part. If the element is valid (the v_xxx
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 components is TRUE in the decoded message) a 1 bit will
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 be coded followed by the coding of the value part.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 Otherwise a 0 bit will be coded.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 2) GSM Type CSN1 S0 element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 This element consists of a single bit valid flag and a
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 value part, too. But in this case the presence flag is
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 set to 0. If the element is present (the v_xxx component
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 is TRUE in the decoded message) a 0 bit will be coded
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 followed by the encoded value part. Otherwise a 1 bit
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 will be encoded.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 SHORT cdc_csn1_sx_encode (int flag, const ULONG e_ref, T_CCD_Globs *globs)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 ULONG i, repeat=1, amount=1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 USHORT cSize = 0, startOffset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 int elemPresent;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 ULONG cix_ref, num_prolog_steps, prolog_step_ref;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 U8 *old_pstruct = NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 #ifdef DEBUG_CCD
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 #ifndef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 TRACE_CCD (globs, "cdc_csn1_sx_encode()");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 TRACE_CCD (globs, "cdc_csn1_sx_encode() %s", ccddata_get_alias((USHORT) e_ref, 1));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 cix_ref = melem[e_ref].calcIdxRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 num_prolog_steps = calcidx[cix_ref].numPrologSteps;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 prolog_step_ref = calcidx[cix_ref].prologStepRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 * If this element is conditional, check the condition.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 if (calcidx[cix_ref].numCondCalcs NEQ 0
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 AND ! ccd_conditionOK (e_ref, globs))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 * If this element has a defined prologue
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 * we have to process it before decoding the bitstream.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 if (num_prolog_steps)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 ccd_performOperations (num_prolog_steps, prolog_step_ref, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 if (melem[e_ref].elemType NEQ 'S')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 UBYTE act_continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 act_continue_array = globs->continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 globs->continue_array = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 * Element is not a SPARE.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 * Setup the offset into the C-structure for this element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 globs->pstructOffs = melem[e_ref].structOffs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 if (melem[e_ref].optional)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 * For optional elements check the valid-flag in the C-struct.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 * Spare elements does not have a corresponding valid flag.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 /* Dynamic array addition.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 * Postpone optional flag setting for non-code transparent
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 * pointer types ('P', 'Q', 'R').
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 * For these types, the optional flag is the pointer itself.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 * These types cannot be set yet, as the pointer may be
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 * preceeded by a counter octet, a union tag id octet etc.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 if (melem[e_ref].elemType < 'P' OR melem[e_ref].elemType > 'R')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 if (globs->pstruct[globs->pstructOffs++] == FALSE)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 * The IE should not be present in the message so we code
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 * a single bit
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 * for CSN1_S1 as 0,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 * for CSN1_S0 as 1 and
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 * for CSN1_SH as GET_HL(0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 if (flag == 0xFF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 elemPresent = GET_HL(0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 elemPresent = flag ^ 0x00000001;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 bf_writeBit (elemPresent, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 #ifdef DEBUG_CCD
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 else if (globs->pstruct [melem[e_ref].structOffs] != TRUE)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 TRACE_CCD (globs, "Ambiguous value for valid flag!\n...assumed 1 for ccdID=%d",
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 e_ref);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 /* As a default amount =1 due to initialization. */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 if (melem[e_ref].repType EQ 'i')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 /* The actual number of elements belonging to the array is unknown.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 * The user should have written the desired number to the C-Structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 * (c_xxx). CCD reads the number of these variable repeatable elements
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 * out of this C-Structure (c_xxx) and encodes each element with a
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 * preceeding bit set to '0'. The last element is followed by a bit
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 * set to '1' to indicate the end of this array.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 * If the number of repeats given by the C-Structure exceeds the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 * allowed value (maxRepeat) CCD gives a warning!
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 if (melem[e_ref].maxRepeat > 255)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 ULONG count = (ULONG) (* (USHORT *)(globs->pstruct + globs->pstructOffs++));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 repeat = MINIMUM (count, (ULONG) melem[e_ref].maxRepeat);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 if (repeat < count)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 ccd_recordFault (globs, ERR_MAX_REPEAT, CONTINUE,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 (USHORT) e_ref, globs->pstruct + globs->pstructOffs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 repeat = (ULONG) MINIMUM (globs->pstruct[globs->pstructOffs],
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 melem[e_ref].maxRepeat);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 if ( repeat < (ULONG) (globs->pstruct[globs->pstructOffs]) )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 ccd_recordFault (globs, ERR_MAX_REPEAT, CONTINUE,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 (USHORT) e_ref, globs->pstruct + globs->pstructOffs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 amount = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 globs->pstructOffs++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 if (melem[e_ref].repType EQ 'v')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 /* The number of elements belonging to the array depends on the value
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 * of another element. The user should have written this number to the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 * C-Structure (c_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 * CCD reads the number of these variable repeatable elements out of
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 * this C-Structure (c_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 * If the number of repetitions given by the C-Structure exceeds the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 * allowed value (maxRepeat) CCD gives a warning!
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 if (melem[e_ref].maxRepeat > 255)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 ULONG count = (ULONG) (* (USHORT *)(globs->pstruct + globs->pstructOffs++));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 amount = MINIMUM (count, (ULONG) melem[e_ref].maxRepeat);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 if (amount < count)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 ccd_recordFault (globs, ERR_MAX_REPEAT, CONTINUE,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 (USHORT) e_ref, globs->pstruct + globs->pstructOffs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 amount = (ULONG)MINIMUM (globs->pstruct[globs->pstructOffs],
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 melem[e_ref].maxRepeat);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 if ( amount < (ULONG) (globs->pstruct[globs->pstructOffs]) )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 ccd_recordFault (globs, ERR_MAX_REPEAT, CONTINUE,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 (USHORT) e_ref, globs->pstruct + globs->pstructOffs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 repeat = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 globs->pstructOffs++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 if (melem[e_ref].repType EQ 'c')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 amount = (ULONG) melem[e_ref].maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 repeat = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 if (melem[e_ref].repType == 's')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 BOOL is_variable;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 ULONG max_rep;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 is_variable = ccd_calculateRep (e_ref, &repeat, &max_rep, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 /* Substract one bit which will be spent on the (CSN.1) flag. */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 amount = repeat - 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 repeat = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 if (melem[e_ref].repType EQ 'v' OR melem[e_ref].repType EQ 'i')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 cSize = (USHORT)((melem[e_ref].elemType EQ 'V' OR
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 melem[e_ref].elemType EQ 'R' OR melem[e_ref].elemType EQ 'F')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 ? mvar[melem[e_ref].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 : mcomp[melem[e_ref].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 );
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 startOffset = (USHORT) globs->pstructOffs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 /* Dynamic array addition.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 * Check for non-code transparent pointer types ('P', 'Q', 'R').
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 * For these types, the optional flag is the pointer itself.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 * ASSUMPTION: The pointer may be preceeded by a counter octet,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 * a union tag id octet etc., but it is up to CCDGEN to ensure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 * word alignment (by inserting alignment bytes). Therefore
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 * we just read from globs->pstruct[globs->pstructOffs].
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 #ifdef DEBUG_CCD
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 /* Check pointer alignment and re-align if necessary (should never happen) */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 if ( is_pointer_type(e_ref) AND ((globs->pstructOffs & 3) NEQ 0)) {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 TRACE_CCD (globs, "cdc_csn1_sx_encode(): Pointer misaligned! pstruct=0x08x,"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 " pstructOffs=0x%08x", globs->pstruct, globs->pstructOffs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 globs->pstructOffs = (globs->pstructOffs + 3) & 3;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 * Perform pointer dereference for pointer types.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 * Also, check optionality for these types.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 if ( is_pointer_type(e_ref) ) {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 U8 *deref_pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 /* Get pointer value */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 deref_pstruct = (U8 *)&globs->pstruct[globs->pstructOffs];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 * Strictly speaking the 'D' to 'F' types should not need this
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 * check (should have returned after the optionality check above),
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 * but it will catch stray NULL pointers (or uninitialized
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 * valid flags)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 if (ccd_check_pointer(deref_pstruct) != ccdOK )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 ccd_recordFault (globs, ERR_INVALID_PTR, BREAK, (USHORT) e_ref,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 &globs->pstruct[globs->pstructOffs]);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 * Pointer not NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 * 1. Save old globs->pstruct and assign pointer to globs->pstruct
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 * as new base.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 * 2. Set pstructOffs to 0 (zero) as the next offset will start
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 * in the new memory area.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 old_pstruct = globs->pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 globs->pstruct = deref_pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 startOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 #endif /* DYNAMIC_ARRAYS */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 for (i=0; i < repeat; i++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 * The IE should be present in the message so we code 0 bit.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 if (flag == 0xFF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 elemPresent = GET_HL(1);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 elemPresent = flag;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 bf_writeBit (elemPresent, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 if (cSize)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 * Calculate the offset if it is an array.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 globs->pstructOffs = (USHORT)(startOffset + (i * cSize));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 * Encode the value.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 cdc_encodeElemvalue (e_ref, amount, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 #ifdef DYNAMIC_ARRAYS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 if ( old_pstruct NEQ NULL )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 globs->pstruct = old_pstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 if ((melem[e_ref].repType == 'i') && (globs->continue_array == TRUE))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 * For fields of variable length we code a 1 flag
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 * to mark the end of the array.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 if (flag == 0xFF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 elemPresent = GET_HL(0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 elemPresent = flag ^ 0x00000001;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 bf_writeBit (elemPresent, globs);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 globs->continue_array = act_continue_array;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 #endif /* !RUN_FLASH */

FreeCalypso > hg > fc-selenite

annotate src/gpf/ccd/csn1_sx.c @ 134:7d50d8d13711