From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 libobjc/Protocol.m | 120 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 libobjc/Protocol.m

(limited to 'libobjc/Protocol.m')

diff --git a/libobjc/Protocol.m b/libobjc/Protocol.m
new file mode 100644
index 000000000..7c9207510
--- /dev/null
+++ b/libobjc/Protocol.m
@@ -0,0 +1,120 @@
+/* This file contains the implementation of class Protocol.
+   Copyright (C) 1993, 2004, 2009, 2010 Free Software Foundation, Inc.
+
+This file is part of GCC. 
+
+GCC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3, or (at your option)
+any later version.
+
+GCC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+Under Section 7 of GPL version 3, you are granted additional
+permissions described in the GCC Runtime Library Exception, version
+3.1, as published by the Free Software Foundation.
+
+You should have received a copy of the GNU General Public License and
+a copy of the GCC Runtime Library Exception along with this program;
+see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
+<http://www.gnu.org/licenses/>.  */ 
+
+#include "objc-private/common.h"
+#include "objc/runtime.h"
+#include "objc-private/module-abi-8.h"
+#include "objc/Protocol.h"
+
+@implementation Protocol
+- (BOOL) isEqual: (id)obj
+{
+  return protocol_isEqual (self, obj);
+}
+@end
+
+@implementation Protocol (Deprecated)
+
+- (const char *)name
+{
+  return protocol_name;
+}
+
+- (BOOL) conformsTo: (Protocol *)aProtocolObject
+{
+  return protocol_conformsToProtocol (self, aProtocolObject);
+}
+
+- (struct objc_method_description *) descriptionForInstanceMethod:(SEL)aSel
+{
+  int i;
+  struct objc_protocol_list* proto_list;
+  struct objc_method_description *result;
+
+  if (instance_methods)
+    for (i = 0; i < instance_methods->count; i++)
+      {
+	if (sel_isEqual (instance_methods->list[i].name, aSel))
+	  return &(instance_methods->list[i]);
+      }
+
+  for (proto_list = protocol_list; proto_list; proto_list = proto_list->next)
+    {
+      size_t j;
+      for (j=0; j < proto_list->count; j++)
+	{
+	  if ((result = [proto_list->list[j]
+				   descriptionForInstanceMethod: aSel]))
+	    return result;
+	}
+    }
+
+  return NULL;
+}
+
+- (struct objc_method_description *) descriptionForClassMethod:(SEL)aSel;
+{
+  int i;
+  struct objc_protocol_list* proto_list;
+  struct objc_method_description *result;
+
+  if (class_methods)
+    for (i = 0; i < class_methods->count; i++)
+      {
+	if (sel_isEqual (class_methods->list[i].name, aSel))
+	  return &(class_methods->list[i]);
+      }
+
+  for (proto_list = protocol_list; proto_list; proto_list = proto_list->next)
+    {
+      size_t j;
+      for (j=0; j < proto_list->count; j++)
+	{
+	  if ((result = [proto_list->list[j]
+				   descriptionForClassMethod: aSel]))
+	    return result;
+	}
+    }
+
+  return NULL;
+}
+
+- (unsigned) hash
+{
+  /* Compute a hash of the protocol_name; use the same hash algorithm
+     that we use for class names; protocol names and class names are
+     somewhat similar types of string spaces.  */
+  int hash = 0, index;
+  
+  for (index = 0; protocol_name[index] != '\0'; index++)
+    {
+      hash = (hash << 4) ^ (hash >> 28) ^ protocol_name[index];
+    }
+
+  hash = (hash ^ (hash >> 10) ^ (hash >> 20));
+
+  return hash;
+}
+
+@end
-- 
cgit v1.2.3