1 files changed, 6 insertions, 0 deletions
diff --git a/lib/memtypes.pl b/lib/memtypes.pl
new file mode 100755
index 0000000000..0955161b18
--- /dev/null
+++ b/lib/memtypes.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+while (<STDIN>) {
+	$_ =~ s/DEFINE_MTYPE\([^,]+,\s*([^,]+)\s*,.*\)/DECLARE_MTYPE\($1\)/;
+	$_ =~ s/DEFINE_MGROUP\(([^,]+),.*\)/DECLARE_MGROUP\($1\)/;
+	print $_;
+}