--- gdb-6.4.old/gdb/p-exp.y	2005-02-07 18:51:03.000000000 -0500
+++ gdb-6.4/gdb/p-exp.y	2006-04-03 13:28:06.000000000 -0400
@@ -302,7 +302,7 @@
 			  int arrayfieldindex;
 			  arrayfieldindex = is_pascal_string_type (
 				current_type, NULL, NULL,
-				NULL, NULL, &arrayname); 
+				NULL, NULL, NULL, NULL, &arrayname); 
 			  if (arrayfieldindex) 
 			    {
 			      struct stoken stringsval;