diff --git a/.gdbinit b/.gdbinit
index 4a17d508964..9d963316976 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -15,6 +15,25 @@ document ____executor_globals
 	ZTS detection is automatically based on ext/standard module struct
 end
 
+define print_cvs
+	____executor_globals
+	set $p = $eg.current_execute_data.CVs
+	set $c = $eg.current_execute_data.op_array.last_var
+	set $v = $eg.current_execute_data.op_array.vars
+	set $i = 0
+
+	printf "Compiled variables count: %d\n", $c
+	while $i < $c
+		printf "%d = %s\n", $i, $v[$i].name
+		if $p[$i] != 0
+			printzv *$p[$i]
+		else
+			printf "*uninitialized*\n"
+		end
+		set $i = $i + 1
+	end
+end
+
 define dump_bt
 	set $t = $arg0
 	while $t