X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=.gdbinit;fp=.gdbinit;h=3956ad17a76a1bdf14826352cada7d8203d2b4ed;hp=0000000000000000000000000000000000000000;hb=4be991c1cf5c9f426fa5c6dd7f6d91456cec39f3;hpb=10e51aad0515e80adeb96a47776a2d80e62a98bc

diff --git a/.gdbinit b/.gdbinit
new file mode 100644
index 0000000..3956ad1
--- /dev/null
+++ b/.gdbinit
@@ -0,0 +1,150 @@
+define psi_assert_stmt_dump
+	call psi_assert_stmt_dump(1, $arg0)
+	echo \n
+end
+define psi_const_dump
+	call psi_const_dump(1, $arg0)
+	echo \n
+end
+define psi_const_type_dump
+	call psi_const_type_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_abi_dump
+	call psi_decl_abi_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_arg_dump
+	call psi_decl_arg_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_decl_enum_dump
+	call psi_decl_enum_dump(1, $arg0, 0)
+	echo \n
+end
+define psi_decl_enum_item_dump
+	call psi_decl_enum_item_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_dump
+	call psi_decl_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_struct_dump
+	call psi_decl_struct_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_type_dump
+	call psi_decl_type_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_decl_type_dump_args_with_layout
+	call psi_decl_type_dump_args_with_layout(1, $arg0, 0)
+	 echo \n
+end
+define psi_decl_union_dump
+	call psi_decl_union_dump(1, $arg0)
+	echo \n
+end
+define psi_decl_var_dump
+	call psi_decl_var_dump(1, $arg0)
+	echo \n
+end
+define psi_free_exp_dump
+	call psi_free_exp_dump(1, $arg0)
+	echo \n
+end
+define psi_free_stmt_dump
+	call psi_free_stmt_dump(1, $arg0)
+	echo \n
+end
+define psi_impl_arg_dump
+	call psi_impl_arg_dump(1, $arg0)
+	echo \n
+end
+define psi_impl_def_val_dump
+	call psi_impl_def_val_dump(1, $arg0)
+	echo \n
+end
+define psi_impl_func_dump
+	call psi_impl_func_dump(1, $arg0)
+	echo \n
+end
+define psi_impl_dump
+	call psi_impl_dump(1, $arg0)
+	echo \n
+end
+define psi_let_callback_dump
+	call psi_let_callback_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_let_calloc_dump
+	call psi_let_calloc_dump(1, $arg0)
+	echo \n
+end
+define psi_let_exp_dump
+	call psi_let_exp_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_let_func_dump
+	call psi_let_func_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_let_stmt_dump
+	call psi_let_stmt_dump(1, $arg0)
+	echo \n
+end
+define psi_number_dump
+	call psi_number_dump(1, $arg0)
+	echo \n
+end
+define psi_num_exp_dump
+	call psi_num_exp_dump(1, $arg0)
+	echo \n
+end
+define psi_return_stmt_dump
+	call psi_return_stmt_dump(1, $arg0)
+	echo \n
+end
+define psi_set_exp_dump
+	call psi_set_exp_dump(1, $arg0, 0, 0)
+	 echo \n
+end
+define psi_set_func_dump
+	call psi_set_func_dump(1, $arg0, 0)
+	 echo \n
+end
+define psi_set_stmt_dump
+	call psi_set_stmt_dump(1, $arg0)
+	echo \n
+end
+define psi_token_dump
+	call psi_token_dump(1, $arg0)
+end
+define psi_token_list_dump
+	set $i = 0
+	while $i < $arg0->count
+		call psi_token_dump(1, ((struct psi_token **)$arg0->list)[$i++])
+	end
+end
+define psi_plist_dump
+	set $i = 0
+	while $i < $arg0->count
+		set $arg = ((void **) $arg0->list)[$i++]
+		$arg1 $arg
+	end
+end
+define psi_decl_type_dump_all
+	if $argc > 0
+		set $context = $arg0
+	else
+		set $context = psi_globals.context
+	end
+	set $i = 0
+	set $c = psi_plist_count($context->types)
+	while $i < $c
+		set $type = *(struct psi_decl_type **) ($context->types->list[$i++])
+		psi_decl_type_dump $type
+		echo
+	end
+end