--- gcc/.gdbinit	2018/04/24 17:56:20	1.1.1.2
+++ gcc/.gdbinit	2018/04/24 18:07:33	1.1.1.3
@@ -7,6 +7,21 @@ Print the full structure of the rtx that
 Works only when an inferior is executing.
 end
 
+define prl
+set debug_rtx_list ($, debug_rtx_count)
+end
+
+document prl
+Print the full structure of all rtx insns beginning at $.
+Works only when an inferior is executing.
+Uses variable debug_rtx_count to control number of insns printed:
+  debug_rtx_count > 0: print from $ on.
+  debug_rtx_count < 0: print a window around $.
+
+There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print
+it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42)
+end
+
 define pt
 set debug_tree ($)
 end