This commit was manufactured by cvs2svn to create tagapple/gcc-1750

'apple-gcc-1750'.

git-svn-id: https://gcc.gnu.org/svn/gcc/tags/apple-gcc-1750@81735 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 31 insertions, 0 deletions

diff --git a/gcc/f/com.c b/gcc/f/com.c
index ebfce0a5670..5b24ee20caf 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -636,6 +636,37 @@ static GTY(()) tree named_labels;
 
 static GTY(()) tree shadowed_labels;
 
+/* APPLE LOCAL begin AltiVec */
+/* Placeholders to make linking work, remove when altivec support is correct */
+
+int
+comptypes (type1, type2)
+     tree type1, type2;
+{
+  register tree t1 = type1;
+  register tree t2 = type2;
+  if (t1 == t2 || !t1 || !t2
+      || TREE_CODE (t1) == ERROR_MARK || TREE_CODE (t2) == ERROR_MARK)
+    return 1;
+  return 0;
+}
+
+tree
+default_conversion (exp)
+     tree exp;
+{
+  return exp;
+}
+
+tree
+lang_build_type_variant (type, constp, volatilep)
+     tree type;
+     int constp, volatilep;
+{
+  return type;
+}
+/* APPLE LOCAL end AltiVec */
+
 /* Return the subscript expression, modified to do range-checking.
 
    `array' is the array type to be checked against.