diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index da01b0bb710..edf9a6fef3f 100644
--- a/gcc/treelang/ChangeLog
+++ b/gcc/treelang/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-08  Tim Josling  <tej@melbpc.org.au>
+
+	* treetree.c (c_lex): Add fake routine to satisfy RS6000 backend.
+
 Thu Jun  5 18:33:40 CEST 2003  Jan Hubicka  <jh@suse.cz>
 
 	* Make-lang.in:  Add support for stageprofile and stagefeedback
diff --git a/gcc/treelang/treetree.c b/gcc/treelang/treetree.c
index bd3c26c5141..56b45551f56 100644
--- a/gcc/treelang/treetree.c
+++ b/gcc/treelang/treetree.c
@@ -854,6 +854,16 @@ objc_comptypes (tree lhs ATTRIBUTE_UNUSED,
   return 0;
 }
 
+/* Should not be called for treelang.  Needed by RS6000 backend.  */
+
+int c_lex (tree *value);
+
+int
+c_lex (tree *value ATTRIBUTE_UNUSED)
+{
+  abort ();
+}
+
 /* Should not be called for treelang.   */
 
 tree
@@ -1273,3 +1283,4 @@ get_string (const char *s, size_t l)
   t = get_identifier_with_length (s, l);
   return IDENTIFIER_POINTER(t);
 }
+