From 1366ad46614b5911babeb43eb1c223e2961b18c5 Mon Sep 17 00:00:00 2001
From: Bill Currie <bill@taniwha.org>
Date: Fri, 25 Jul 2003 20:34:24 +0000
Subject: [PATCH] fix <protocol_list>

---
 tools/qfcc/source/qc-parse.y | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/tools/qfcc/source/qc-parse.y b/tools/qfcc/source/qc-parse.y
index 420020a43..cc4b62327 100644
--- a/tools/qfcc/source/qc-parse.y
+++ b/tools/qfcc/source/qc-parse.y
@@ -164,7 +164,7 @@ expr_t *argv_expr (void);
 %type	<param>	optparmlist unaryselector keyworddecl keywordselector
 %type	<method> methodproto methoddecl
 %type	<expr>	obj_expr identifier_list obj_messageexpr obj_string receiver
-%type	<expr>	protocolrefs
+%type	<expr>	protocolrefs protocol_list
 %type	<keywordarg> messageargs keywordarg keywordarglist selectorarg
 %type	<keywordarg> keywordnamelist keywordname
 %type	<class> class_name new_class_name class_with_super new_class_with_super
@@ -1058,7 +1058,20 @@ protocoldef
 
 protocolrefs
 	: /* emtpy */				{ $$ = 0; }
-	| LT identifier_list GT		{ $$ = $2->e.block.head; }
+	| LT protocol_list GT		{ $$ = $2->e.block.head; }
+	;
+
+protocol_list
+	: maybe_class
+		{
+			$$ = new_block_expr ();
+			append_expr ($$, new_name_expr ($1));
+		}
+	| protocol_list ',' maybe_class
+		{
+			append_expr ($1, new_name_expr ($3));
+			$$ = $1;
+		}
 	;
 
 ivar_decl_list