diff --git a/gcc/sort-protos b/gcc/sort-protos
new file mode 100755
index 00000000000..493e9f08a8f
--- /dev/null
+++ b/gcc/sort-protos
@@ -0,0 +1,9 @@
+#!/bin/sh
+# Sort the sys-protos.h file in its usual order.
+# Invoke as `sort-protos sys-protos.h'.
+
+input=$1
+
+sed 's/\(.*[ 	\*]\)\([a-zA-Z0-9_][a-zA-Z0-9_]*\)[ 	]*\(([^\*].*\)$/\2%\1%\3/' $input | sort -u | awk -F% '{printf "%-30.30s%s%s\n", $2, $1, $3}' > tmp.$input
+
+mv -f tmp.$input $input