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
OpenGEODE
Commits
49b62df6
Commit
49b62df6
authored
Jul 16, 2014
by
Maxime Perrotin
Browse files
Fix in Ada backend substrings
parent
d1bea8ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
AdaGenerator.py
View file @
49b62df6
...
...
@@ -828,6 +828,7 @@ def _prim_index(prim):
@
expression
.
register
(
ogAST
.
PrimSubstring
)
def
_prim_substring
(
prim
):
''' Generate expression for SEQOF/OCT.STRING substrings, e.g. foo(1,2) '''
stmts
,
ada_string
,
local_decl
=
[],
''
,
[]
receiver
=
prim
.
value
[
0
]
...
...
@@ -857,7 +858,10 @@ def _prim_substring(prim):
length
=
int
(
r2_string
)
-
int
(
r1_string
)
+
1
else
:
length
=
(
'{r2} - {r1} + 1'
.
format
(
r2
=
r2_string
,
r1
=
r1_string
))
stmts
.
append
(
'tmp{idx}.Length := {length};'
.
format
(
prim_basic
=
find_basic_type
(
prim
.
exprType
)
if
int
(
prim_basic
.
Min
)
!=
int
(
prim_basic
.
Max
):
stmts
.
append
(
'tmp{idx}.Length := {length};'
.
format
(
idx
=
prim
.
value
[
1
][
'tmpVar'
],
length
=
length
))
stmts
.
append
(
'tmp{idx}.Data(1..{length}) := {data};'
.
format
(
...
...
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