Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
PolyORB-HI-Ada
Commits
f485d15f
Commit
f485d15f
authored
Oct 10, 2015
by
yoogx
Browse files
* Solve wrong pre-condition
parent
f05c2ccf
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/polyorb_hi-messages.ads
View file @
f485d15f
...
...
@@ -117,8 +117,10 @@ private
function
Valid
(
Message
:
Message_Type
)
return
Boolean
is
(
Message
.
First
>=
Message
.
Content
'
First
and
then
Message
.
First
<
Message
.
Last
and
then
Message
.
Last
<=
Message
.
Content
'
Last
);
-- The following part cannot be correct in the case Message is
-- not initialized, see defaults for Message_Type
-- and then Message.First <= Message.Last
function
Payload
(
M
:
Message_Type
)
return
Stream_Element_Array
is
(
M
.
Content
(
M
.
First
..
M
.
Last
));
...
...
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