Commit 3c81608d authored by Maxime Perrotin's avatar Maxime Perrotin

Fix case and variable access

parent 16255b5d
......@@ -909,7 +909,7 @@ package {process_name} is'''.format(generic=generic_spec,
ads_template.append(u'type RESET_{}_T is access procedure'
'(name: chars_ptr);'.format(timer))
for each in ('', 'RE'):
ads_template.append(u'pragma Convention(Convention => C,'
ads_template.append(u'pragma Convention (Convention => C,'
u' Entity => {re}SET_{t}_T);'
.format(re=each, t=timer))
ads_template.append(u'{re}SET_{t} : {re}SET_{t}_T;'
......@@ -937,11 +937,11 @@ package {process_name} is'''.format(generic=generic_spec,
u'procedure SET_{}(val: access asn1SccT_UInt32);'.format(timer))
ads_template.append(
u'pragma Import(C, SET_{timer}, "{proc}_RI_SET_{timer}");'
.format(timer=timer, proc=process_name))
.format(timer=timer, proc=process_name.lower()))
ads_template.append(u'procedure RESET_{};'.format(timer))
ads_template.append(
u'pragma Import(C, RESET_{timer}, "{proc}_RI_RESET_{timer}");'
.format(timer=timer, proc=process_name))
.format(timer=timer, proc=process_name.lower()))
else:
# Generic functions get the SET and RESET from template
pass
......
......@@ -5100,6 +5100,7 @@ def pr_file(root):
errors.append(str(err))
ast.asn1Modules = DV.asn1Modules
ref_p_with_fpar = []
for child in systems:
system, err, warn = system_definition(child, parent=ast)
......
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