May 17, 2026, 11:40 PM

This commit is contained in:
Paweł Domański
2026-05-18 06:40:19 +00:00
commit 64944cf004
896 changed files with 310709 additions and 0 deletions
@@ -0,0 +1,123 @@
WITH btree_index_atts AS (
SELECT nspname,
relname,
reltuples,
relpages,
indrelid,
relam,
regexp_split_to_table(indkey::text, ' ')::smallint AS attnum,
indexrelid as index_oid
FROM pg_index
JOIN pg_class ON pg_class.oid=pg_index.indexrelid
JOIN pg_namespace ON pg_namespace.oid = pg_class.relnamespace
JOIN pg_am ON pg_class.relam = pg_am.oid
WHERE pg_am.amname = 'btree'
),
index_item_sizes AS (
SELECT i.nspname,
i.relname,
i.reltuples,
i.relpages,
i.relam,
s.starelid,
a.attrelid AS table_oid,
index_oid,
current_setting('block_size')::numeric AS bs,
/* MAXALIGN: 4 on 32bits, 8 on 64bits (and mingw32 ?) */
CASE WHEN version() ~ 'mingw32' OR version() ~ '64-bit'
THEN 8
ELSE 4
END AS maxalign,
24 AS pagehdr,
/* per tuple header: add index_attribute_bm if some cols are null-able */
CASE WHEN max(coalesce(s.stanullfrac,0)) = 0
THEN 2
ELSE 6
END AS index_tuple_hdr,
/* data len: we remove null values save space using it fractionnal part from stats */
sum( (1-coalesce(s.stanullfrac, 0)) * coalesce(s.stawidth, 2048) ) AS nulldatawidth
FROM pg_attribute AS a
JOIN pg_statistic AS s ON s.starelid=a.attrelid AND s.staattnum = a.attnum
JOIN btree_index_atts AS i ON i.indrelid = a.attrelid AND a.attnum = i.attnum
WHERE a.attnum > 0
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9
),
index_aligned AS (
SELECT maxalign,
bs,
nspname,
relname AS index_name,
reltuples,
relpages,
relam,
table_oid,
index_oid,
( 2 + maxalign -
/* Add padding to the index tuple header to align on MAXALIGN */
CASE WHEN index_tuple_hdr%maxalign = 0
THEN maxalign
ELSE index_tuple_hdr%maxalign
END
+ nulldatawidth + maxalign -
/* Add padding to the data to align on MAXALIGN */
CASE WHEN nulldatawidth::integer%maxalign = 0
THEN maxalign
ELSE nulldatawidth::integer%maxalign
END
)::numeric AS nulldatahdrwidth,
pagehdr
FROM index_item_sizes AS s1
),
otta_calc AS
(
SELECT bs,
nspname,
table_oid,
index_oid,
index_name,
relpages,
coalesce( ceil((reltuples*(4+nulldatahdrwidth))/(bs-pagehdr::float)) +
CASE WHEN am.amname IN ('hash','btree')
THEN 1
ELSE 0
END ,
0 -- btree and hash have a metadata reserved block
) AS otta
FROM index_aligned AS s2
LEFT JOIN pg_am am ON s2.relam = am.oid
),
raw_bloat AS
(
SELECT current_database() as dbname,
nspname, c.relname AS table_name,
index_name,
bs*(sub.relpages)::bigint AS totalbytes,
CASE WHEN sub.relpages <= otta
THEN 0
ELSE bs*(sub.relpages-otta)::bigint
END AS wastedbytes,
CASE WHEN sub.relpages <= otta
THEN 0
ELSE bs*(sub.relpages-otta)::bigint * 100 / (bs*(sub.relpages)::bigint)
END AS realbloat,
pg_relation_size(sub.table_oid) as table_bytes,
stat.idx_scan as index_scans
FROM otta_calc AS sub
JOIN pg_class AS c ON c.oid=sub.table_oid
JOIN pg_stat_user_indexes AS stat ON sub.index_oid = stat.indexrelid
)
SELECT dbname as database_name,
nspname as schema_name,
table_name,
index_name,
round(realbloat, 1) as bloat_pct,
wastedbytes as bloat_bytes,
pg_size_pretty(wastedbytes::bigint) as bloat_size,
totalbytes as index_bytes,
pg_size_pretty(totalbytes::bigint) as index_size,
table_bytes,
pg_size_pretty(table_bytes) as table_size,
index_scans
FROM raw_bloat
WHERE ( realbloat > 50 and wastedbytes > 50000000 )
ORDER BY wastedbytes DESC;