10 my $db = DBI
->connect("dbi:SQLite:$db_file", "", "", {AutoCommit
=> 0});
12 $db->do("PRAGMA cache_size = 800000");
13 $db->do("PRAGMA journal_mode = OFF");
14 $db->do("PRAGMA count_changes = OFF");
15 $db->do("PRAGMA temp_store = MEMORY");
16 $db->do("PRAGMA locking = EXCLUSIVE");
18 my ($select, $select_type, $remove, $file, $caller, $function, $param, $src_param, $value, $type);
20 $remove = $db->prepare_cached('DELETE FROM caller_info WHERE file = ? AND caller = ? AND function = ? AND parameter = ? AND type != 1014');
21 $select = $db->prepare('SELECT file, caller, function, parameter, value FROM caller_info WHERE function LIKE "% param %" AND type = 1014 AND value LIKE "p %"');
22 $select_type = $db->prepare_cached('SELECT value from function_type WHERE file = ? AND function = ? AND parameter = ? limit 1');
25 while (($file, $caller, $function, $param, $value) = $select->fetchrow_array()) {
27 if ($value =~ /p (.*)/) {
30 print "error: unexpected source parameter $value\n";
34 $select_type->execute($file, $caller, $src_param);
35 $type = $select_type->fetchrow_array();
39 #FIXME: Why is this extra fetch() needed???
40 $select_type->fetch();
42 if (!($type =~ /^void\*$/) && !($type =~ /^ulong$/)) {
46 $remove->execute($file, $caller, $function, $param);