config.gcc: Add stormy16-*-elf case.

	* config.gcc: Add stormy16-*-elf case.
	* config/stormy16/stormy-abi: New file.
	* config/stormy16/stormy16-lib2.c: New file.
	* config/stormy16/stormy16-protos.h: New file.
	* config/stormy16/stormy16.c: New file.
	* config/stormy16/stormy16.h: New file.
	* config/stormy16/stormy16.md: New file.
	* config/stormy16/t-stormy16: New file.

From-SVN: r45173

gcc/ChangeLog

+2001-08-22  Geoffrey Keating  <geoffk@redhat.com>
+
+	* config.gcc: Add stormy16-*-elf case.
+	* config/stormy16/stormy-abi: New file.
+	* config/stormy16/stormy16-lib2.c: New file.
+	* config/stormy16/stormy16-protos.h: New file.
+	* config/stormy16/stormy16.c: New file.
+	* config/stormy16/stormy16.h: New file.
+	* config/stormy16/stormy16.md: New file.
+	* config/stormy16/t-stormy16: New file.
+
 Sat Aug 25 15:46:51 CEST 2001  Jan Hubicka  <jh@suse.cz>
 
 	* i386.h (no-accumulate-outgoing-args): Use proper mask.

gcc/config.gcc

@@ -3099,6 +3099,10 @@ sparc64-*-linux*)		# 64-bit Sparc's running GNU/Linux
 	fi
 	float_format=sparc
 	;;
+stormy16-*-elf)
+	tmake_file="stormy16/t-stormy16"
+	extra_parts="crtbegin.o crtend.o"
+	;;
 strongarm-*-elf*)
 	tm_file=arm/strongarm-elf.h
 	tmake_file=arm/t-strongarm-elf

gcc/config/stormy16/stormy-abi

+Stormy16 ABI
+************
+
+!!!!! NOTE !!!!!
+This document is a draft and is subject to change.
+!!!!! NOTE !!!!!
+
+This part of the file describes the conventions required to write
+ELF object files that are link-compatible with the ones produced
+by the GNU toolchains.
+
+Bit and Byte Ordering
+=====================
+
+This implementation is little-endian.   Bits are numbered starting 
+from 0 being the LSB.
+
+In this document, 'word' means 16 bits.
+
+Calling Sequence
+================
+
+The registers are allocated as follows:
+
+Register	Purpose
+-------------------------------------------------------------------
+r0, r1		Call-volatile.  May be changed during the execution
+		of a call instruction.
+r2 through r9	Argument passing; call-clobbered.
+r10 through r13	Call-saved.
+r14		Program status word.
+r15		Stack pointer.
+
+
+The return value of a procedure is returned in r2-r9 if it fits,
+otherwise a pointer is passed as a `hidden' first argument
+and the return value is placed there.
+
+Arguments are passed in registers starting in r2, then on the stack.
+Arguments of size not a multiple of a word are padded to whole words.
+If an argument would otherwise be passed partially in registers, and
+partially on the stack, the whole of it is passed on the stack.  The
+last argument is pushed on the stack first.
+
+After a procedure's arguments are pushed on the stack,
+the return address is pushed on the stack, as if by the call
+instruction.  The return address is on the top of the stack when
+a procedure is called.
+
+Objects whose size is a multiple of 16 bits are aligned to a 16-bit
+boundary.
+
+Pointers are 16 bits, referencing addresses between 0 and 0xFFFF.
+
+Procedure pointers are also implemented as 16-bit pointers.
+
+Variable Argument Functions
+===========================
+
+The C type 'va_list' is implemented as a structure, as follows:
+
+struct {
+  char *base;
+  unsigned count;
+}
+
+Both fields are 16 bits.  An argument of size N bytes
+(N will be even) is accessed as if by the following code:
+
+char *result;
+if (count + N > 16)
+  {
+    if (count < 16)
+      count = 16;
+    result = base - (count + N - 16 + 4);
+  }
+else
+  {
+    result = base + count;
+  }
+count += N;
+/* The argument is at `*result'.  */
+
+
+One implementation of this is if a variadic function first
+pushes registers 2 through 9 in sequence at entry, and
+sets 'base' to the address of the first word pushed, 
+producing a stack that appears like:
+
+SP ->
+	[other data]
+	r9
+	r8
+	r7
+	r6
+	r5
+	r4
+	r3
+count-> r2
+	Return address (two words)
+	9th procedure parameter word
+	10th procedure parameter word
+	...
+	last procedure parameter word
+
+and initialises 'count' to be the number of bytes of non-variable
+arguments to the function.
+
+ELF File Format
+===============
+
+ELF file header
+---------------
+
+Stormy16 ELF files are distinguished by the value EM_STORMY16 in
+the e_machine field of the ELF file header:
+
+#define EM_STORMY16	        0xad45
+
+DWARF Register Number Mapping
+-----------------------------
+
+Registers r0 through r15 are mapped to numbers 0 through 15.
+
+Relocations
+-----------
+
+RELA relocs are used exclusively.  The relocation types defined are:
+
+Name			Value	Field	Calculation	Overflow
+----------------------------------------------------------------
+R_STORMY16_NONE		0	none	none		none
+R_STORMY16_32		1	32	S + A		none
+R_STORMY16_16		2	16	S + A		unsigned
+R_STORMY16_8		3	8	S + A		unsigned
+R_STORMY16_PC32		4	32	S + A - P	none
+R_STORMY16_PC16		5	16	S + A - P	signed
+R_STORMY16_PC8		6	8	S + A - P	signed
+R_STORMY16_REL_12	7	16:12:0	S + A - P	signed
+R_STORMY16_24		8	32:23:1	(S + A) >> 1	unsigned
+R_STORMY16_GNU_VTINHERIT 9	n/a	n/a		n/a
+R_STORMY16_GNU_VTENTRY	10	n/a	n/a		n/a
+
+In the 'Calculation' column, 'S' is the value of the symbol to which
+the reloc refers, 'A' is the addend, and 'P' represents the place of
+the storage unit being relocated.
+
+In the 'Field' column, the first number indicates whether the
+relocation refers to a byte, word or doubleword.  The second number,
+if any, indicates the size of the bitfield into which the relocation
+is to occur (and also the size for overflow checking).  The third
+number indicates the first bit of the bitfield in the word or
+doubleword, counting the LSB as bit 0.

gcc/config/stormy16/stormy16-lib2.c

+typedef		 int HItype		__attribute__ ((mode (HI)));
+typedef		 int SItype		__attribute__ ((mode (SI)));
+typedef unsigned int USItype		__attribute__ ((mode (SI)));
+
+typedef int word_type			__attribute__ ((mode (__word__)));
+
+USItype
+udivmodsi4(USItype num, USItype den, word_type modwanted)
+{
+  USItype bit = 1;
+  USItype res = 0;
+
+  while (den < num && bit && !(den & (1L<<31)))
+    {
+      den <<=1;
+      bit <<=1;
+    }
+  while (bit)
+    {
+      if (num >= den)
+	{
+	  num -= den;
+	  res |= bit;
+	}
+      bit >>=1;
+      den >>=1;
+    }
+  if (modwanted) return num;
+  return res;
+}
+
+
+
+SItype
+__divsi3 (SItype a, SItype b)
+{
+  word_type neg = 0;
+  SItype res;
+
+  if (a < 0)
+    {
+      a = -a;
+      neg = !neg;
+    }
+
+  if (b < 0)
+    {
+      b = -b;
+      neg = !neg;
+    }
+
+  res = udivmodsi4 (a, b, 0);
+
+  if (neg)
+    res = -res;
+
+  return res;
+}
+
+
+
+SItype
+__modsi3 (SItype a, SItype b)
+{
+  word_type neg = 0;
+  SItype res;
+
+  if (a < 0)
+    {
+      a = -a;
+      neg = 1;
+    }
+
+  if (b < 0)
+    b = -b;
+
+  res = udivmodsi4 (a, b, 1);
+
+  if (neg)
+    res = -res;
+
+  return res;
+}
+
+
+
+
+SItype
+__udivsi3 (SItype a, SItype b)
+{
+  return udivmodsi4 (a, b, 0);
+}
+
+
+
+SItype
+__umodsi3 (SItype a, SItype b)
+{
+  return udivmodsi4 (a, b, 1);
+}
+
+SItype
+__ashlsi3 (SItype a, SItype b)
+{
+  word_type i;
+  
+  if (b & 16)
+    a <<= 16;
+  if (b & 8)
+    a <<= 8;
+  for (i = (b & 0x7); i > 0; --i)
+    a <<= 1;
+  return a;
+}
+
+SItype
+__ashrsi3 (SItype a, SItype b)
+{
+  word_type i;
+  
+  if (b & 16)
+    a >>= 16;
+  if (b & 8)
+    a >>= 8;
+  for (i = (b & 0x7); i > 0; --i)
+    a >>= 1;
+  return a;
+}
+
+USItype
+__lshrsi3 (USItype a, USItype b)
+{
+  word_type i;
+  
+  if (b & 16)
+    a >>= 16;
+  if (b & 8)
+    a >>= 8;
+  for (i = (b & 0x7); i > 0; --i)
+    a >>= 1;
+  return a;
+}

gcc/config/stormy16/stormy16-protos.h

+/* Prototypes for exported functions defined in stormy16.c
+   Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+   Contributed by Red Hat, Inc.
+
+This file is part of GNU CC.
+
+GNU CC 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 2, or (at your option)
+any later version.
+
+GNU CC 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.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+
+
+extern struct stormy16_stack_layout 
+		    stormy16_compute_stack_layout PARAMS((void));
+extern void         stormy16_expand_prologue      PARAMS ((void));
+extern void         stormy16_expand_epilogue      PARAMS ((void));
+extern int	stormy16_initial_elimination_offset PARAMS ((int, int));
+extern int	direct_return PARAMS ((void));
+extern int	stormy16_interrupt_function_p PARAMS ((void));
+extern int	stormy16_epilogue_uses PARAMS ((int));
+
+#if defined (TREE_CODE)
+#  if defined (HAVE_MACHINE_MODES)
+extern CUMULATIVE_ARGS stormy16_function_arg_advance 
+  PARAMS ((CUMULATIVE_ARGS, enum machine_mode, tree, int));
+#  endif
+extern void    stormy16_setup_incoming_varargs 
+  PARAMS ((CUMULATIVE_ARGS, int, tree, int *));
+extern tree    stormy16_build_va_list PARAMS ((void));
+extern void    stormy16_encode_section_info PARAMS ((tree));
+#endif
+
+#if defined (TREE_CODE) && defined (RTX_CODE)
+extern void    stormy16_expand_builtin_va_start PARAMS ((int, tree, rtx));
+extern rtx     stormy16_expand_builtin_va_arg PARAMS ((tree, tree));
+extern void    stormy16_initialize_trampoline PARAMS ((rtx, rtx, rtx));
+extern rtx     stormy16_function_value PARAMS ((tree, tree));
+#endif
+
+#ifdef RTX_CODE
+extern void stormy16_emit_cbranch PARAMS ((enum rtx_code, rtx));
+extern char * stormy16_output_cbranch_hi PARAMS ((rtx, const char *, int, 
+						  rtx));
+extern char * stormy16_output_cbranch_si PARAMS ((rtx, const char *, int, 
+						  rtx));
+extern int stormy16_mode_dependent_address_p PARAMS ((rtx));
+extern int stormy16_extra_constraint_p PARAMS ((rtx, int));
+
+extern void stormy16_print_operand          PARAMS ((FILE *, rtx, int));
+extern void stormy16_print_operand_address  PARAMS ((FILE *, rtx));
+
+extern void stormy16_expand_casesi PARAMS ((rtx, rtx, rtx, rtx, rtx));
+extern void stormy16_output_addr_vec PARAMS ((FILE *, rtx, rtx));
+extern void stormy16_expand_call PARAMS ((rtx, rtx, rtx));
+#endif
+
+#if defined (HAVE_MACHINE_MODES) && defined (RTX_CODE)
+extern int stormy16_ineqsi_operator PARAMS ((rtx, enum machine_mode));
+extern int equality_operator PARAMS ((rtx, enum machine_mode));
+extern int inequality_operator PARAMS ((rtx, enum machine_mode));
+extern void stormy16_split_cbranch PARAMS ((enum machine_mode, 
+					   rtx, rtx, rtx, rtx));
+extern int  short_memory_operand PARAMS ((rtx, enum machine_mode));
+extern enum reg_class stormy16_secondary_reload_class 
+  PARAMS ((enum reg_class, enum machine_mode, rtx));
+extern int  stormy16_carry_plus_operand PARAMS ((rtx, enum machine_mode));
+extern enum reg_class stormy16_preferred_reload_class 
+  PARAMS ((rtx, enum reg_class));
+extern int stormy16_legitimate_address_p 
+   PARAMS ((enum machine_mode, rtx, int));
+extern void stormy16_split_move PARAMS ((enum machine_mode, rtx, rtx));
+extern void stormy16_expand_move PARAMS ((enum machine_mode, rtx, rtx));
+extern void stormy16_expand_arith PARAMS ((enum machine_mode, enum rtx_code, 
+					   rtx, rtx, rtx, rtx));
+extern int  shift_operator PARAMS ((rtx, enum machine_mode));
+extern const char * stormy16_output_shift PARAMS ((enum machine_mode, 
+						   enum rtx_code, 
+						   rtx, rtx, rtx));
+#endif
+

gcc/config/stormy16/t-stormy16

+# -*- makefile -*-
+
+# SImode routines
+
+LIB2FUNCS_EXTRA = \
+	$(srcdir)/config/stormy16/stormy16-lib2.c
+
+# floating point emulation libraries
+
+FPBIT = fp-bit.c
+DPBIT = dp-bit.c
+
+fp-bit.c: $(srcdir)/config/fp-bit.c
+	echo '#define FLOAT'				> fp-bit.c
+	cat $(srcdir)/config/fp-bit.c			>> fp-bit.c
+
+dp-bit.c: $(srcdir)/config/fp-bit.c
+	cat $(srcdir)/config/fp-bit.c > dp-bit.c