Commit 0d5c683e authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Proper Put_Line with bounded-sized strings

parent 97da923d
......@@ -452,7 +452,7 @@ def write_statement(param, newline):
string=string,
to=basic_type.Max),
"end if;"])
string = localstr
string = u'{}({})'.format(localstr, range_len)
elif type_kind in ('IntegerType', 'RealType',
'BooleanType', 'Integer32Type'):
code, string, local = expression(param)
......
......@@ -1959,7 +1959,8 @@ def opengeode():
init_logging(options)
LOG.debug('Starting OpenGEODE version ' + __version__)
if any((options.check, options.toAda, options.png, options.pdf, options.svg, options.llvm)):
if any((options.check, options.toAda, options.png, options.pdf,
options.svg, options.llvm)):
return cli(options)
else:
return gui(options)
......
......@@ -4,7 +4,7 @@ test-parse:
../../../opengeode.py myfunction.pr system_structure.pr --check
test-ada:
../../../opengeode.py --toAda myfunction.pr system_structure.pr
../../../opengeode.py --toAda myfunction.pr system_structure.pr || exit 1
asn1.exe -Ada dataview-uniq.asn -typePrefix asn1Scc -equal
gnatmake -c myfunction.adb
gcc -c test.c
......
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