Commit a4379d9f authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Report non-support of DECISION ANY in Ada backend

parent f16f1b9c
......@@ -1430,6 +1430,10 @@ def _choiceitem(choice):
def _decision(dec):
''' generate the code for a decision '''
code, local_decl = [], []
if dec.kind == 'any':
LOG.warning('Ada backend does not support the "ANY" statement')
code.append('-- "DECISION ANY" statement was ignored')
return code, local_decl
question_type = dec.question.exprType
# XXX check if we should get the type like this
actual_type = getattr(
......
......@@ -60,7 +60,14 @@ endfor;
TASK seq := {1} // {2} // {3};
/* CIF TASK (392, 961), (172, 35) */
TASK seq := seq // {2} // {1};
/* CIF NEXTSTATE (419, 1011), (118, 50) */
/* CIF DECISION (443, 1011), (70, 50) */
DECISION any;
/* CIF ANSWER (398, 1081), (70, 23) */
('a'):
/* CIF ANSWER (488, 1081), (70, 23) */
('b'):
ENDDECISION;
/* CIF NEXTSTATE (419, 1119), (118, 50) */
NEXTSTATE Wait_for_GUI;
/* CIF STATE (423, 163), (118, 50) */
STATE Wait_for_GUI;
......
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