1 # Copyright (C) 2013-2015 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify it
4 # under the terms of the GNU General Public License as published by the
5 # Free Software Foundation; either version 3, or (at your option) any
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; see the file COPYING3. If not see
15 # <http://www.gnu.org/licenses/>.
17 # This Awk script takes passes.def and writes pass-instances.def,
18 # counting the instances of each kind of pass, adding an instance number
19 # to everywhere that NEXT_PASS is used.
21 # For example, the single-instanced pass:
22 # NEXT_PASS (pass_warn_unused_result);
23 # becomes this in the output:
24 # NEXT_PASS (pass_warn_unused_result, 1);
26 # The various instances of
27 # NEXT_PASS (pass_copy_prop);
29 # NEXT_PASS (pass_copy_prop, 1);
31 # NEXT_PASS (pass_copy_prop, 8);
32 # (currently there are 8 instances of that pass)
34 # Usage: awk -f gen-pass-instances.awk passes.def
37 print "/* This file is auto-generated by gen-pass-instances.awk";
38 print " from passes.def. */";
41 function handle_line
()
45 # Find call expression.
46 call_starts_at =
match(line
, /NEXT_PASS \
(.
+\
)/);
47 if (call_starts_at ==
0)
53 # Length of the call expression.
54 len_of_call =
RLENGTH;
56 len_of_start =
length("NEXT_PASS (");
57 len_of_open =
length("(");
58 len_of_close =
length(")");
61 len_of_args = len_of_call
- (len_of_start
+ len_of_close
);
62 args_start_at = call_starts_at
+ len_of_start
;
63 args_str =
substr(line
, args_start_at
, len_of_args
);
65 # Set pass_name argument
68 # Find call expression prefix (until and including called function)
69 len_of_prefix = args_start_at
- 1 - len_of_open
;
70 prefix =
substr(line
, 1, len_of_prefix
);
72 # Find call expression postfix
73 postfix_starts_at = call_starts_at
+ len_of_call
;
74 postfix =
substr(line
, postfix_starts_at
);
77 if (pass_name in pass_counts
)
78 pass_counts
[pass_name
]++;
80 pass_counts
[pass_name
] =
1;
82 pass_num = pass_counts
[pass_name
];
84 # Print call expression with extra pass_num argument
85 printf "%s(%s, %s)%s\n", prefix
, pass_name
, pass_num
, postfix
;