Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Lenard Nagy
titan.core
Commits
1a07acbf
Commit
1a07acbf
authored
Apr 07, 2021
by
Lenard Nagy
Browse files
Merge branch 'master' of
ssh://review.gerrithub.io:29418/eclipse/titan.core
parents
52d867fc
0aa47b86
Changes
1
Hide whitespace changes
Inline
Side-by-side
core2/Basetype2.cc
View file @
1a07acbf
...
...
@@ -1279,11 +1279,20 @@ int Record_Of_Type::RAW_decode(const TTCN_Typedescriptor_t& p_td,
TTCN_Typedescriptor_t
const
&
elem_descr
=
*
p_td
.
oftype_descr
;
if
(
p_td
.
raw
->
fieldlength
||
sel_field
!=
-
1
)
{
if
(
sel_field
==
-
1
)
sel_field
=
p_td
.
raw
->
fieldlength
;
int
start_of_field
=
buff
.
get_pos_bit
();
for
(
int
a
=
0
;
a
<
sel_field
;
a
++
)
{
Base_Type
*
field_bt
=
get_at
(
a
+
start_field
);
decoded_field_length
=
field_bt
->
RAW_decode
(
elem_descr
,
buff
,
limit
,
top_bit_ord
,
TRUE
);
if
(
decoded_field_length
<
0
)
return
decoded_field_length
;
if
(
decoded_field_length
<
0
)
{
while
(
a
>=
0
)
{
delete
get_at
(
a
+
start_field
);
a
--
;
val_ptr
->
n_elements
--
;
}
buff
.
set_pos_bit
(
start_of_field
);
return
decoded_field_length
;
}
decoded_length
+=
decoded_field_length
;
limit
-=
decoded_field_length
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment