Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
PolyORB-HI-Ada
Commits
ef55320c
Commit
ef55320c
authored
Oct 05, 2013
by
yoogx
Browse files
* Minor code reorganization
parent
9464a86a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/polyorb_hi-messages.adb
View file @
ef55320c
...
...
@@ -182,12 +182,10 @@ package body PolyORB_HI.Messages is
Stream
.
Last
:=
0
;
end
if
;
if
Item
'
Length
>
Stream
.
Content
'
Last
-
Stream
.
Last
then
raise
Program_Error
;
if
Item
'
Length
<=
Stream
.
Content
'
Last
-
Stream
.
Last
then
Stream
.
Content
(
Stream
.
Last
+
1
..
Stream
.
Last
+
Item
'
Length
)
:=
Item
;
Stream
.
Last
:=
Stream
.
Last
+
Item
'
Length
;
end
if
;
Stream
.
Content
(
Stream
.
Last
+
1
..
Stream
.
Last
+
Item
'
Length
)
:=
Item
;
Stream
.
Last
:=
Stream
.
Last
+
Item
'
Length
;
end
Write
;
---------------
...
...
Write
Preview
Supports
Markdown
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