Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
regression-suites
Commits
f800c90a
Commit
f800c90a
authored
Jul 03, 2018
by
Maxime Perrotin
Browse files
Add default value in ASN.1
parent
ee5e9cb2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Demo_Ada_GUI/DataView.asn
View file @
f800c90a
...
...
@@ -15,13 +15,13 @@ Destination-T ::= ENUMERATED { displayer(0), other-dest(1) }
TC-T ::= SEQUENCE
{
destination Destination-T,
action Action-T
action Action-T
DEFAULT display:'48656C6C6F'H
}
TM-T ::= Display-T
HK-T ::= SEQUENCE {
value-to-plot INTEGER (0..16535),
value-to-plot INTEGER (0..16535)
DEFAULT 42
,
destination Destination-T
}
END
...
...
Demo_Ada_GUI/displayer/displayer.adb
View file @
f800c90a
...
...
@@ -45,7 +45,8 @@ package body displayer is
bTmHasArrived
:=
True
;
end
if
;
when
housekeeping_PRESENT
=>
HK
:=
(
Value_To_Plot
=>
Number
,
HK
:=
(
Exist
=>
(
Value_To_Plot
=>
1
),
Value_To_Plot
=>
Number
,
Destination
=>
TC
.
Action
.
Housekeeping
);
HousekeepingTM
(
HK
'
access
);
when
others
=>
null
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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