diff options
Diffstat (limited to 'gcc/f')
-rw-r--r-- | gcc/f/Make-lang.in | 4 | ||||
-rw-r--r-- | gcc/f/com.c | 31 |
2 files changed, 33 insertions, 2 deletions
diff --git a/gcc/f/Make-lang.in b/gcc/f/Make-lang.in index 052adfcaab9..a7d04ee218d 100644 --- a/gcc/f/Make-lang.in +++ b/gcc/f/Make-lang.in @@ -92,9 +92,9 @@ F77_OBJS = f/bad.o f/bit.o f/bld.o f/com.o f/data.o f/equiv.o f/expr.o \ # Use loose warnings for this front end. f-warn = $(WERROR) -f771$(exeext): $(F77_OBJS) $(BACKEND) $(LIBDEPS) +f771$(exeext): $(F77_OBJS) $(BACKEND) $(LIBDEPS) rm -f f771$(exeext) - $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ $(F77_OBJS) $(BACKEND) $(LIBS) + $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ $(F77_OBJS) $(BACKEND) $(LIBS) # Keyword tables. f/stamp-str: f/str-1t.h f/str-1t.j f/str-2t.h f/str-2t.j \ 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. |