Commit 7784ec59 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Fixed FOR-loop cast issues in Ada

parent 71178d24
......@@ -704,6 +704,9 @@ def _primary_variable(prim):
sep=sep, name=prim.value[0])
if prim.op_minus:
ada_string = '(-{})'.format(ada_string)
if prim.exprType.__name__ == 'for_range':
# Ada iterator in FOR loops is an Integer - we must cast to 64 bits
ada_string = u'Interfaces.Integer_64({})'.format(ada_string)
return [], ada_string, []
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment