aboutsummaryrefslogtreecommitdiffstats
path: root/src/xtools/pnodes.py
diff options
context:
space:
mode:
Diffstat (limited to 'src/xtools/pnodes.py')
-rwxr-xr-xsrc/xtools/pnodes.py8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/xtools/pnodes.py b/src/xtools/pnodes.py
index e00cf4d89..f62180208 100755
--- a/src/xtools/pnodes.py
+++ b/src/xtools/pnodes.py
@@ -696,9 +696,13 @@ elif args.action == 'meta_body':
print
for f in funcs:
gen_has_func_spec(f.name, ' is')
- print ' begin'
choices = [k for k in kinds if f.name in nodes[k].attrs]
- if len(choices) == 1:
+ if len(choices) == 0:
+ print ' pragma Unreferenced (K);'
+ print ' begin'
+ if len(choices) == 0:
+ print ' return False;'
+ elif len(choices) == 1:
print ' return K = ' + prefix_name + choices[0] + ';'
else:
print ' case K is'